Remove redundant #' before lambda in printing.el

* lisp/printing.el (pr-menu-create, pr-eval-setting-alist)
(pr-complete-alist, pr-file-list, pr-ps-file-list)
(pr-insert-section-1, pr-insert-section-2)
(pr-insert-section-4, pr-insert-section-5, pr-choice-alist)
Remove redundant #' before lambda.

diff --git a/lisp/printing.el b/lisp/printing.el
index b9a2e33994ab4834f540c753a7d20d31861ea379..5c7da96551f2827c85bd2e7b3ccd9ca7e3985a32 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -4775,13 +4775,13 @@ If menu binding was not done, calls `pr-menu-bind'."
 (defun pr-menu-create (name alist var-sym fun entry index)
   (cons name
        (mapcar
-        #'(lambda (elt)
-            (let ((sym (car elt)))
-              (vector
-               (symbol-name sym)
-               `(,fun ',sym nil ',entry ',index)
-               :style 'radio
-               :selected `(eq ,var-sym ',sym))))
+         (lambda (elt)
+           (let ((sym (car elt)))
+             (vector
+              (symbol-name sym)
+              `(,fun ',sym nil ',entry ',index)
+              :style 'radio
+              :selected `(eq ,var-sym ',sym))))
         alist)))
 
 
@@ -4883,23 +4883,23 @@ If menu binding was not done, calls `pr-menu-bind'."
                                               (cons inherits old)))))
           (mapc
            (cond ((not local)          ; global settings
-                  #'(lambda (option)
-                      (let ((var-sym (car option)))
-                        (or (eq var-sym 'inherits-from:)
-                            (set var-sym (eval (cdr option)))))))
+                   (lambda (option)
+                     (let ((var-sym (car option)))
+                       (or (eq var-sym 'inherits-from:)
+                           (set var-sym (eval (cdr option)))))))
                  (kill                 ; local settings with killing
-                  #'(lambda (option)
-                      (let ((var-sym (car option)))
-                        (unless (eq var-sym 'inherits-from:)
-                          (setq local-list (cons var-sym local-list))
-                          (set (make-local-variable var-sym)
-                               (eval (cdr option)))))))
+                   (lambda (option)
+                     (let ((var-sym (car option)))
+                       (unless (eq var-sym 'inherits-from:)
+                         (setq local-list (cons var-sym local-list))
+                         (set (make-local-variable var-sym)
+                              (eval (cdr option)))))))
                  (t                    ; local settings without killing
-                  #'(lambda (option)
-                      (let ((var-sym (car option)))
-                        (or (eq var-sym 'inherits-from:)
-                            (set (make-local-variable var-sym)
-                                 (eval (cdr option))))))))
+                   (lambda (option)
+                     (let ((var-sym (car option)))
+                       (or (eq var-sym 'inherits-from:)
+                           (set (make-local-variable var-sym)
+                                (eval (cdr option))))))))
            (nthcdr 3 setting))
           local-list))))
 
@@ -5077,9 +5077,9 @@ If menu binding was not done, calls `pr-menu-bind'."
 
 
 (defun pr-complete-alist (prompt alist default)
-  (let ((collection (mapcar #'(lambda (elt)
-                               (setq elt (car elt))
-                               (cons (symbol-name elt) elt))
+  (let ((collection (mapcar (lambda (elt)
+                              (setq elt (car elt))
+                              (cons (symbol-name elt) elt))
                            alist)))
     (cdr (assoc (completing-read (concat prompt ": ")
                                 collection nil t
@@ -5413,19 +5413,19 @@ If menu binding was not done, calls `pr-menu-bind'."
 
 
 (defun pr-file-list (dir file-regexp fun)
-  (mapcar #'(lambda (file)
-             (and (or pr-list-directory
-                      (not (file-directory-p file)))
-                  (let ((buffer (pr-find-buffer-visiting file))
-                        pop-up-windows
-                        pop-up-frames)
-                    (and (or buffer
-                             (file-readable-p file))
-                         (with-current-buffer (or buffer
-                                                   (find-file-noselect file))
-                           (funcall fun)
-                           (or buffer
-                               (kill-buffer (current-buffer))))))))
+  (mapcar (lambda (file)
+            (and (or pr-list-directory
+                     (not (file-directory-p file)))
+                 (let ((buffer (pr-find-buffer-visiting file))
+                       pop-up-windows
+                       pop-up-frames)
+                   (and (or buffer
+                            (file-readable-p file))
+                        (with-current-buffer (or buffer
+                                                 (find-file-noselect file))
+                          (funcall fun)
+                          (or buffer
+                              (kill-buffer (current-buffer))))))))
          (directory-files dir t file-regexp)))
 
 
@@ -5438,10 +5438,10 @@ If menu binding was not done, calls `pr-menu-bind'."
   (pr-delete-file-if-exists (setq filename (expand-file-name filename)))
   (let ((pr-spool-p t))
     (pr-file-list dir file-regexp
-                 #'(lambda ()
-                     (if (pr-auto-mode-p)
-                         (pr-ps-mode n-up filename)
-                       (pr-text2ps 'buffer n-up filename)))))
+                  (lambda ()
+                    (if (pr-auto-mode-p)
+                        (pr-ps-mode n-up filename)
+                      (pr-text2ps 'buffer n-up filename)))))
   (or pr-spool-p
       (pr-despool-print filename)))
 
@@ -5672,44 +5672,44 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
        (pr-insert-checkbox
        "\n               "
        'pr-i-region
-       #'(lambda (widget &rest _ignore)
-           (let ((region-p (pr-interface-save
-                            (ps-mark-active-p))))
-             (cond ((null (widget-value widget)) ; widget is nil
-                    (setq pr-i-region nil))
-                   (region-p           ; widget is true and there is a region
-                    (setq pr-i-region t)
-                    (widget-value-set widget t)
-                    (widget-setup))    ; MUST be called after widget-value-set
-                   (t                  ; widget is true and there is no region
-                    (ding)
-                    (message "There is no region active")
-                    (setq pr-i-region nil)
-                    (widget-value-set widget nil)
-                    (widget-setup))))) ; MUST be called after widget-value-set
+        (lambda (widget &rest _ignore)
+          (let ((region-p (pr-interface-save
+                           (ps-mark-active-p))))
+            (cond ((null (widget-value widget)) ; widget is nil
+                   (setq pr-i-region nil))
+                  (region-p            ; widget is true and there is a region
+                   (setq pr-i-region t)
+                   (widget-value-set widget t)
+                   (widget-setup))     ; MUST be called after widget-value-set
+                  (t                   ; widget is true and there is no region
+                   (ding)
+                   (message "There is no region active")
+                   (setq pr-i-region nil)
+                   (widget-value-set widget nil)
+                   (widget-setup)))))  ; MUST be called after widget-value-set
        " Region"))
   ;;    1a. Buffer: Mode
   (put 'pr-i-mode 'pr-widget
        (pr-insert-checkbox
        "    "
        'pr-i-mode
-       #'(lambda (widget &rest _ignore)
-           (let ((mode-p (pr-interface-save
-                          (pr-mode-alist-p))))
-             (cond
-              ((null (widget-value widget)) ; widget is nil
-               (setq pr-i-mode nil))
-              (mode-p                  ; widget is true and there is a `mode'
-               (setq pr-i-mode t)
-               (widget-value-set widget t)
-               (widget-setup))         ; MUST be called after widget-value-set
-              (t                       ; widget is true and there is no `mode'
-               (ding)
-               (message
-                "This buffer isn't in a mode that printing treats specially.")
-               (setq pr-i-mode nil)
-               (widget-value-set widget nil)
-               (widget-setup)))))      ; MUST be called after widget-value-set
+        (lambda (widget &rest _ignore)
+          (let ((mode-p (pr-interface-save
+                         (pr-mode-alist-p))))
+            (cond
+             ((null (widget-value widget)) ; widget is nil
+              (setq pr-i-mode nil))
+             (mode-p                   ; widget is true and there is a `mode'
+              (setq pr-i-mode t)
+              (widget-value-set widget t)
+              (widget-setup))          ; MUST be called after widget-value-set
+             (t                        ; widget is true and there is no `mode'
+              (ding)
+              (message
+               "This buffer isn't in a mode that printing treats specially.")
+              (setq pr-i-mode nil)
+              (widget-value-set widget nil)
+              (widget-setup)))))       ; MUST be called after widget-value-set
        " Mode\n"))
 
   ;;    1b. Directory:
@@ -5769,14 +5769,14 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
        (pr-insert-checkbox
        "    "
        'pr-i-despool
-       #'(lambda (widget &rest _ignore)
-           (if pr-spool-p
-               (setq pr-i-despool (not pr-i-despool))
-             (ding)
-             (message "Can despool only when spooling is actually selected")
-             (setq pr-i-despool nil))
-           (widget-value-set widget pr-i-despool)
-           (widget-setup))             ; MUST be called after widget-value-set
+        (lambda (widget &rest _ignore)
+          (if pr-spool-p
+              (setq pr-i-despool (not pr-i-despool))
+            (ding)
+            (message "Can despool only when spooling is actually selected")
+            (setq pr-i-despool nil))
+          (widget-value-set widget pr-i-despool)
+          (widget-setup))              ; MUST be called after widget-value-set
        " Despool   "))
   ;; 2. PostScript Printer: Preview    Print    Quit
   (pr-insert-button 'pr-interface-preview "Preview" "   ")
@@ -5835,9 +5835,9 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
   ;; 4. Settings:
   ;; 4. Settings: Landscape             Auto Region    Verbose
   (pr-insert-checkbox "\n\n  " 'ps-landscape-mode
-                     #'(lambda (&rest _ignore)
-                         (setq ps-landscape-mode (not ps-landscape-mode)
-                               pr-file-landscape ps-landscape-mode))
+                      (lambda (&rest _ignore)
+                        (setq ps-landscape-mode (not ps-landscape-mode)
+                              pr-file-landscape ps-landscape-mode))
                      " Landscape             ")
   (pr-insert-toggle 'pr-auto-region " Auto Region                ")
   (pr-insert-toggle 'pr-buffer-verbose " Verbose\n  ")
@@ -5857,28 +5857,28 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
   (pr-insert-toggle 'ps-zebra-stripes " Zebra Stripes")
   (pr-insert-checkbox "         "
                      'pr-spool-p
-                     #'(lambda (&rest _ignore)
-                         (setq pr-spool-p (not pr-spool-p))
-                         (unless pr-spool-p
-                           (setq pr-i-despool nil)
-                           (pr-update-checkbox 'pr-i-despool)))
+                      (lambda (&rest _ignore)
+                        (setq pr-spool-p (not pr-spool-p))
+                        (unless pr-spool-p
+                          (setq pr-i-despool nil)
+                          (pr-update-checkbox 'pr-i-despool)))
                      " Spool Buffer")
 
   ;; 4. Settings: Duplex                Print with faces
   (pr-insert-checkbox "\n  "
                      'ps-spool-duplex
-                     #'(lambda (&rest _ignore)
-                         (setq ps-spool-duplex (not ps-spool-duplex)
-                               pr-file-duplex  ps-spool-duplex))
+                      (lambda (&rest _ignore)
+                        (setq ps-spool-duplex (not ps-spool-duplex)
+                              pr-file-duplex  ps-spool-duplex))
                      " Duplex                ")
   (pr-insert-toggle 'pr-faces-p " Print with faces")
 
   ;; 4. Settings: Tumble                Print via Ghostscript
   (pr-insert-checkbox "\n  "
                      'ps-spool-tumble
-                     #'(lambda (&rest _ignore)
-                         (setq ps-spool-tumble (not ps-spool-tumble)
-                               pr-file-tumble  ps-spool-tumble))
+                      (lambda (&rest _ignore)
+                        (setq ps-spool-tumble (not ps-spool-tumble)
+                              pr-file-tumble  ps-spool-tumble))
                      " Tumble                ")
   (pr-insert-toggle 'pr-print-using-ghostscript " Print via Ghostscript\n  ")
 
@@ -5886,11 +5886,11 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
   (pr-insert-toggle 'ps-print-upside-down " Upside-Down")
   (pr-insert-italic "\n\nSelect Pages  :   " 2 14)
   (pr-insert-menu "Page Parity" 'ps-even-or-odd-pages
-                 (mapcar #'(lambda (alist)
-                              (list 'choice-item
-                                    :format "%[%t%]"
-                                    :tag (cdr alist)
-                                    :value (car alist)))
+                  (mapcar (lambda (alist)
+                            (list 'choice-item
+                                  :format "%[%t%]"
+                                  :tag (cdr alist)
+                                  :value (car alist)))
                          pr-even-or-odd-alist)))
 
 
@@ -5898,7 +5898,7 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
   ;; 5. Customize:
   (pr-insert-italic "\n\nCustomize     :   " 2 11)
   (pr-insert-button 'pr-customize "printing" "   ")
-  (pr-insert-button #'(lambda (&rest _ignore) (ps-print-customize))
+  (pr-insert-button (lambda (&rest _ignore) (ps-print-customize))
                    "ps-print" "   ")
   (pr-insert-button 'lpr-customize "lpr"))
 
@@ -6207,18 +6207,18 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
 
 
 (defun pr-choice-alist (alist)
-  (let ((max (apply #'max (mapcar #'(lambda (alist)
-                                      (length (symbol-name (car alist))))
+  (let ((max (apply #'max (mapcar (lambda (alist)
+                                    (length (symbol-name (car alist))))
                                   alist))))
-    (mapcar #'(lambda (alist)
-               (let* ((sym  (car alist))
-                      (name (symbol-name sym)))
-                  (list
-                   'choice-item
-                   :format "%[%t%]"
-                   :tag (concat name
-                                (make-string (- max (length name)) ?_))
-                   :value sym)))
+    (mapcar (lambda (alist)
+              (let* ((sym  (car alist))
+                     (name (symbol-name sym)))
+                (list
+                 'choice-item
+                 :format "%[%t%]"
+                 :tag (concat name
+                              (make-string (- max (length name)) ?_))
+                 :value sym)))
            alist)))
 
 
@@ -6227,5 +6227,4 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
 
 (provide 'printing)
 
-
 ;;; printing.el ends here