Remove redundant #' before lambda

* admin/unidata/unidata-gen.el (unidata-gen-table)
(unidata-gen-table-symbol, unidata-gen-table-integer)
(unidata-gen-table-numeric, unidata-gen-table-word-list)
(unidata-describe-decomposition):
* lisp/apropos.el (apropos-user-option):
* lisp/bookmark.el (bookmark-bmenu-search):
* lisp/composite.el (unicode-category-table):
* lisp/elec-pair.el (electric-pair--balance-info):
* lisp/electric.el (electric-quote-chars):
* lisp/emulation/cua-base.el (cua-rectangle-mark-key):
* lisp/epa-hook.el (epa-file-encrypt-to):
* lisp/faces.el (face-font-selection-order)
(face-font-family-alternatives, face-font-registry-alternatives)
(face-valid-attribute-values, tty-run-terminal-initialization):
* lisp/files.el (recover-file, file-expand-wildcards):
* lisp/frame.el (frames-on-display-list):
* lisp/help-at-pt.el (help-at-pt-display-when-idle):
* lisp/help-fns.el (help-fns--face-attributes):
* lisp/ido.el (ido-mode, ido-unc-hosts):
* lisp/isearch.el (isearch-highlight-regexp)
(isearch-highlight-lines-matching-regexp):
* lisp/language/indian.el (script-regexp-alist):
* lisp/language/lao.el:
* lisp/leim/quail/ipa.el (ipa-x-sampa-prepend-to-keymap-entry):
* lisp/mh-e/mh-folder.el (mh-process-commands):
* lisp/mh-e/mh-mime.el (mh-display-with-external-viewer):
* lisp/ps-mule.el (ps-mule-end-job):
* lisp/ps-print.el (ps-color-scale, ps-background-pages)
(ps-background-text, ps-background-image, ps-background)
(ps-begin-job, ps-print-translation-table):
* lisp/recentf.el (recentf-sort-ascending)
(recentf-sort-descending, recentf-sort-basenames-ascending)
(recentf-sort-basenames-descending)
(recentf-sort-directories-ascending)
(recentf-sort-directories-descending):
* lisp/replace.el (occur-engine-add-prefix):
* lisp/select.el (xselect--encode-string):
* lisp/server.el (server-use-tcp):
* lisp/ses.el (ses-sort-column):
* lisp/sort.el (sort-columns):
* lisp/term/ns-win.el (window-system-initialization):
* lisp/tree-widget.el (tree-widget-image-formats):
* lisp/whitespace.el (whitespace-report-region): Remove redundant #'
before lambda.

1 files changed, 28 insertions, 28 deletions

diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el
index abd41e34a48..fc397a9a6ca 100644
--- a/admin/unidata/unidata-gen.el
+++ b/admin/unidata/unidata-gen.el
@@ -583,17 +583,17 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
                 (aset vec (- range start) val-code))
             (setq tail (cdr tail)))
           (setq str "\002" val-code -1 count 0)
-          (mapc #'(lambda (x)
-                    (if (= val-code x)
-                        (setq count (1+ count))
-                      (if (> count 2)
-                          (setq str (concat str (string val-code
-                                                        (+ count 128))))
-                        (if (= count 2)
-                            (setq str (concat str (string val-code val-code)))
-                          (if (= count 1)
-                              (setq str (concat str (string val-code))))))
-                      (setq val-code x count 1)))
+          (mapc (lambda (x)
+                  (if (= val-code x)
+                      (setq count (1+ count))
+                    (if (> count 2)
+                        (setq str (concat str (string val-code
+                                                      (+ count 128))))
+                      (if (= count 2)
+                          (setq str (concat str (string val-code val-code)))
+                        (if (= count 1)
+                            (setq str (concat str (string val-code))))))
+                    (setq val-code x count 1)))
                 vec)
           (if (= count 128)
               (if val
@@ -613,8 +613,8 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
 
 (defun unidata-gen-table-symbol (prop index default-value val-list)
   (let ((table (unidata-gen-table prop index
-                                  #'(lambda (x) (and (> (length x) 0)
-                                                     (intern x)))
+                                  (lambda (x) (and (> (length x) 0)
+                                              (intern x)))
                                   default-value val-list)))
     (set-char-table-extra-slot table 1 0)
     (set-char-table-extra-slot table 2 1)
@@ -622,8 +622,8 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
 
 (defun unidata-gen-table-integer (prop index default-value val-list)
   (let ((table (unidata-gen-table prop index
-                                  #'(lambda (x) (and (> (length x) 0)
-                                                     (string-to-number x)))
+                                  (lambda (x) (and (> (length x) 0)
+                                              (string-to-number x)))
                                   default-value val-list)))
     (set-char-table-extra-slot table 1 0)
     (set-char-table-extra-slot table 2 1)
@@ -631,13 +631,13 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
 
 (defun unidata-gen-table-numeric (prop index default-value val-list)
   (let ((table (unidata-gen-table prop index
-                                  #'(lambda (x)
-                                      (if (string-match "/" x)
-                                          (/ (float (string-to-number x))
-                                             (string-to-number
-                                              (substring x (match-end 0))))
-                                        (if (> (length x) 0)
-                                            (string-to-number x))))
+                                  (lambda (x)
+                                    (if (string-match "/" x)
+                                        (/ (float (string-to-number x))
+                                           (string-to-number
+                                            (substring x (match-end 0))))
+                                      (if (> (length x) 0)
+                                          (string-to-number x))))
                                   default-value val-list)))
     (set-char-table-extra-slot table 1 0)
     (set-char-table-extra-slot table 2 2)
@@ -1000,7 +1000,7 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
                       (cl-incf (alist-get elt (cdr word-list) 0)))))
               (set-char-table-range table (cons start limit) vec))))))
     (setq word-list (sort (cdr word-list)
-                          #'(lambda (x y) (> (cdr x) (cdr y)))))
+                          (lambda (x y) (> (cdr x) (cdr y)))))
     (setq tail word-list idx 0)
     (while tail
       (setcdr (car tail) (unidata-encode-word idx))
@@ -1266,11 +1266,11 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
 
 (defun unidata-describe-decomposition (val)
   (mapconcat
-   #'(lambda (x)
-       (if (symbolp x) (symbol-name x)
-         (concat (string ?')
-                 (compose-string (string x) 0 1 (string ?\t x ?\t))
-                 (string ?'))))
+   (lambda (x)
+     (if (symbolp x) (symbol-name x)
+       (concat (string ?')
+               (compose-string (string x) 0 1 (string ?\t x ?\t))
+               (string ?'))))
    val " "))
 
 (defun unidata-describe-bidi-bracket-type (val)