From e5b8d071e0066a2bab28744f21d58ac422793381 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 1 Apr 2021 22:04:21 +0200 Subject: [PATCH] Remove redundant #' before lambda in {mail,net,url}/*.el * 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. --- lisp/mail/mail-extr.el | 4 ++-- lisp/mail/rmail.el | 6 +++--- lisp/net/gnutls.el | 4 ++-- lisp/net/imap.el | 6 +++--- lisp/net/pop3.el | 6 +++--- lisp/url/url-cookie.el | 8 ++++---- lisp/url/url-history.el | 16 ++++++++-------- lisp/url/url-mailto.el | 4 ++-- 8 files changed, 27 insertions(+), 27 deletions(-) diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index 7fbdfefc461..88fb0866856 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -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)))) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index c7960f85043..455ae7feefc 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -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) diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el index 683abaaa04a..43dd9dc15cd 100644 --- a/lisp/net/gnutls.el +++ b/lisp/net/gnutls.el @@ -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)))) diff --git a/lisp/net/imap.el b/lisp/net/imap.el index 052ef292957..d29584e55bd 100644 --- a/lisp/net/imap.el +++ b/lisp/net/imap.el @@ -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) diff --git a/lisp/net/pop3.el b/lisp/net/pop3.el index dcac36f2a4a..cb49f75c81d 100644 --- a/lisp/net/pop3.el +++ b/lisp/net/pop3.el @@ -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) diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el index 27f4f88cb89..60388df2554 100644 --- a/lisp/url/url-cookie.el +++ b/lisp/url/url-cookie.el @@ -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) diff --git a/lisp/url/url-history.el b/lisp/url/url-history.el index 10238a46607..5dd1f099136 100644 --- a/lisp/url/url-history.el +++ b/lisp/url/url-history.el @@ -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) diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el index 72884c07cc9..c6901d99200 100644 --- a/lisp/url/url-mailto.el +++ b/lisp/url/url-mailto.el @@ -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)))) -- 2.39.2