procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove redundant #' before lambda in {mail,net,url}/*.el

Browse source 
* lisp/mail/mail-extr.el:
* lisp/mail/rmail.el (rmail-start-mail):
* lisp/net/gnutls.el (gnutls-boot-parameters):
* lisp/net/imap.el (imap-starttls-open):
* lisp/net/pop3.el (pop3-list):
* lisp/url/url-cookie.el (url-cookie-save-interval):
* lisp/url/url-history.el (url-history-save-interval)
(url-history-track):
* lisp/url/url-mailto.el (url-mailto): Remove redundant #' before lambda.
This commit is contained in:
Stefan Kangas 2021-04-01 22:04:21 +02:00
parent a5125f98b8
commit e5b8d071e0
8 changed files with 27 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/mail-extr.el
View file

@ -2236,13 +2236,13 @@ place. It affects how `mail-extract-address-components' works."
;(let ((all nil))
; (mapatoms #'(lambda (x)
; (mapatoms (lambda (x)
; (if (and (boundp x)
; (string-match "^mail-extr-" (symbol-name x)))
; (setq all (cons x all)))))
; (setq all (sort all #'string-lessp))
; (cons 'setq
; (apply 'nconc (mapcar #'(lambda (x)
; (apply 'nconc (mapcar (lambda (x)
; (list x (symbol-value x)))
; all))))

6
lisp/mail/rmail.el
View file

@ -3671,9 +3671,9 @@ If BUFFER is not swapped, yank out of its message viewer buffer."
(push (cons "cc" cc) other-headers)
(push (cons "in-reply-to" in-reply-to) other-headers)
(setq other-headers
(mapcar #'(lambda (elt)
(cons (car elt) (if (stringp (cdr elt))
(rfc2047-decode-string (cdr elt)))))
(mapcar (lambda (elt)
(cons (car elt) (if (stringp (cdr elt))
(rfc2047-decode-string (cdr elt)))))
other-headers))
(if (stringp to) (setq to (rfc2047-decode-string to)))
(if (stringp in-reply-to)

4
lisp/net/gnutls.el
View file

@ -336,8 +336,8 @@ defaults to GNUTLS_VERIFY_ALLOW_X509_V1_CA_CRT."
t)
;; if a list, look for hostname matches
((listp gnutls-verify-error)
(cadr (cl-find-if #'(lambda (x)
(string-match (car x) hostname))
(cadr (cl-find-if (lambda (x)
(string-match (car x) hostname))
gnutls-verify-error)))
;; else it's nil
(t nil))))

6
lisp/net/imap.el
View file

@ -737,9 +737,9 @@ sure of changing the value of `foo'."
:end-of-command "\r\n"
:success "^1 OK "
:starttls-function
#'(lambda (capabilities)
(when (string-match-p "STARTTLS" capabilities)
"1 STARTTLS\r\n"))))
(lambda (capabilities)
(when (string-match-p "STARTTLS" capabilities)
"1 STARTTLS\r\n"))))
done)
(when process
(imap-log buffer)

6
lisp/net/pop3.el
View file

@ -725,9 +725,9 @@ Otherwise, return the size of the message-id MSG."
(setq pop3-read-point (point-marker))
(goto-char (match-beginning 0))
(setq end (point-marker))
(mapcar #'(lambda (s) (let ((split (split-string s " ")))
(cons (string-to-number (nth 0 split))
(string-to-number (nth 1 split)))))
(mapcar (lambda (s) (let ((split (split-string s " ")))
(cons (string-to-number (nth 0 split))
(string-to-number (nth 1 split)))))
(split-string (buffer-substring start end) "\r\n" t)))))))
(defun pop3-retr (process msg crashbuf)

8
lisp/url/url-cookie.el
View file

@ -358,10 +358,10 @@ i.e. 1970-1-1) are loaded as expiring one year from now instead."
Default is 1 hour. Note that if you change this variable outside of
the `customize' interface after `url-do-setup' has been run, you need
to run the `url-cookie-setup-save-timer' function manually."
:set #'(lambda (var val)
(set-default var val)
(if (bound-and-true-p url-setup-done)
(url-cookie-setup-save-timer)))
:set (lambda (var val)
(set-default var val)
(if (bound-and-true-p url-setup-done)
(url-cookie-setup-save-timer)))
:type 'integer
:group 'url-cookie)

16
lisp/url/url-history.el
View file

@ -38,10 +38,10 @@
If non-nil, the URL package will keep track of all the URLs visited.
If set to t, then the list is saved to disk at the end of each Emacs
session."
:set #'(lambda (var val)
(set-default var val)
(and (bound-and-true-p url-setup-done)
(url-history-setup-save-timer)))
:set (lambda (var val)
(set-default var val)
(and (bound-and-true-p url-setup-done)
(url-history-setup-save-timer)))
:type '(choice (const :tag "off" nil)
(const :tag "on" t)
(other :tag "within session" session))
@ -59,10 +59,10 @@ is parsed at startup and used to provide URL completion."
Default is 1 hour. Note that if you change this variable outside of
the `customize' interface after `url-do-setup' has been run, you need
to run the `url-history-setup-save-timer' function manually."
:set #'(lambda (var val)
(set-default var val)
(if (bound-and-true-p url-setup-done)
(url-history-setup-save-timer)))
:set (lambda (var val)
(set-default var val)
(if (bound-and-true-p url-setup-done)
(url-history-setup-save-timer)))
:type 'integer
:group 'url-history)

4
lisp/url/url-mailto.el
View file

@ -104,8 +104,8 @@
(or (search-forward (concat "\n" mail-header-separator "\n") nil t)
(goto-char (point-max)))
(insert (mapconcat
#'(lambda (string)
(replace-regexp-in-string "\r\n" "\n" string))
(lambda (string)
(replace-regexp-in-string "\r\n" "\n" string))
(cdar args) "\n")))
(url-mail-goto-field (caar args))
;; (setq func (intern-soft (concat "mail-" (caar args))))