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.

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 7fbdfefc4616e97521632910596f9c715e76b6b1..88fb08668567d330da4df804a7d0e41149ed8fcd 100644 (file)
--- 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."
 
 \f
 ;(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 c7960f85043bc4d45ba912ba2556a07beac349fd..455ae7feefc6d10c1c0857be4f404e9e7d681b35 100644 (file)
--- 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 683abaaa04aa96854dcba6cc4b250e69f30fd484..43dd9dc15cd2710bca89a889185ab8b234d0c77b 100644 (file)
--- 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 052ef2929578b5975816c4f06560350e5795d790..d29584e55bd0557234f8449566dc48730df4ae77 100644 (file)
--- 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 dcac36f2a4a6d8a6e7c54f8bcc91b857696ff761..cb49f75c81d5dccc7651e034d118e5b3572a9999 100644 (file)
--- 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 27f4f88cb89708d7555410a33c40217f0fc45b73..60388df255433a06c57f07f2cfc9a5b895636e47 100644 (file)
--- 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 10238a466072e7692bd71c26d8c65636ed6f2adb..5dd1f0991368b0085215bf7564e66203a88e413d 100644 (file)
--- 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 72884c07cc9049bc037e344d648699ce0816cf0d..c6901d992006fe4849275035cc932cfc456c3780 100644 (file)
--- 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))))