mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Remove redundant #' before lambda

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2021-10-21 23:35:07 +02:00
parent 6352e0a555
commit 357d273d2e
31 changed files with 385 additions and 388 deletions
Download patch file Download diff file Expand all files Collapse all files

12
admin/unidata/unidata-gen.el
View file

@ -583,7 +583,7 @@ 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)
(mapc (lambda (x)
(if (= val-code x)
(setq count (1+ count))
(if (> count 2)
@ -613,7 +613,7 @@ 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)
(lambda (x) (and (> (length x) 0)
(intern x)))
default-value val-list)))
(set-char-table-extra-slot table 1 0)
@ -622,7 +622,7 @@ 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)
(lambda (x) (and (> (length x) 0)
(string-to-number x)))
default-value val-list)))
(set-char-table-extra-slot table 1 0)
@ -631,7 +631,7 @@ 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)
(lambda (x)
(if (string-match "/" x)
(/ (float (string-to-number x))
(string-to-number
@ -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,7 +1266,7 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
(defun unidata-describe-decomposition (val)
(mapconcat
#'(lambda (x)
(lambda (x)
(if (symbolp x) (symbol-name x)
(concat (string ?')
(compose-string (string x) 0 1 (string ?\t x ?\t))

2
lisp/apropos.el
View file

@ -515,7 +515,7 @@ variables, not just user options."
current-prefix-arg))
(apropos-command pattern nil
(if (or do-all apropos-do-all)
#'(lambda (symbol)
(lambda (symbol)
(and (boundp symbol)
(get symbol 'variable-documentation)))
#'custom-variable-p)))

2
lisp/bookmark.el
View file

@ -2314,7 +2314,7 @@ Prompt with completion for the new path."
(lambda ()
(setq timer (run-with-idle-timer
bookmark-search-delay 'repeat
#'(lambda (buf)
(lambda (buf)
(with-current-buffer buf
(bookmark-bmenu-filter-alist-by-regexp
(minibuffer-contents))))

4
lisp/composite.el
View file

@ -739,7 +739,7 @@ All non-spacing characters have this function in
(let ((elt `([,(purecopy "\\c.\\c^+") 1 compose-gstring-for-graphic]
[nil 0 compose-gstring-for-graphic])))
(map-char-table
#'(lambda (key val)
(lambda (key val)
(if (memq val '(Mn Mc Me))
(set-char-table-range composition-function-table key elt)))
unicode-category-table))
@ -901,6 +901,4 @@ For more information on Auto Composition mode, see
(provide 'composite)
;;; composite.el ends here

4
lisp/elec-pair.el
View file

@ -308,7 +308,7 @@ If point is not enclosed by any lists, return ((t) . (t))."
;; called when `scan-sexps' ran perfectly, when it found
;; a parenthesis pointing in the direction of travel.
;; Also when travel started inside a comment and exited it.
#'(lambda ()
(lambda ()
(setq outermost (list t))
(unless innermost
(setq innermost (list t)))))
@ -318,7 +318,7 @@ If point is not enclosed by any lists, return ((t) . (t))."
;; traversing that character, the idea is to travel one sexp
;; in the opposite direction looking for a matching
;; delimiter.
#'(lambda ()
(lambda ()
(let* ((pos (point))
(matched
(save-excursion

2
lisp/electric.el
View file

@ -506,7 +506,7 @@ This list's members correspond to left single quote, right single
quote, left double quote, and right double quote, respectively."
:version "26.1"
:type '(list character character character character)
:safe #'(lambda (x)
:safe (lambda (x)
(pcase x
(`(,(pred characterp) ,(pred characterp)
,(pred characterp) ,(pred characterp))

2
lisp/emulation/cua-base.el
View file

@ -396,7 +396,7 @@ and after the region marked by the rectangle to search."
(defcustom cua-rectangle-mark-key [(control return)]
"Global key used to toggle the cua rectangle mark."
:set #'(lambda (symbol value)
:set (lambda (symbol value)
(set symbol value)
(when (and (boundp 'cua--keymaps-initialized)
cua--keymaps-initialized)

2
lisp/epa-hook.el
View file

@ -56,7 +56,7 @@ through Custom does that automatically."
May either be a string or a list of strings.")
(put 'epa-file-encrypt-to 'safe-local-variable
#'(lambda (val)
(lambda (val)
(or (stringp val)
(and (listp val)
(catch 'safe

28
lisp/faces.el
View file

@ -88,7 +88,7 @@ a font height that isn't optimal."
:tag "Font selection order"
:type '(list symbol symbol symbol symbol)
:group 'font-selection
:set #'(lambda (symbol value)
:set (lambda (symbol value)
(set-default symbol value)
(internal-set-font-selection-order value)))
@ -140,7 +140,7 @@ ALTERNATIVE2 etc."
:tag "Alternative font families to try"
:type '(repeat (repeat string))
:group 'font-selection
:set #'(lambda (symbol value)
:set (lambda (symbol value)
(set-default symbol value)
(internal-set-alternative-font-family-alist value)))
@ -167,7 +167,7 @@ REGISTRY, ALTERNATIVE1, ALTERNATIVE2, and etc."
:type '(repeat (repeat string))
:version "21.1"
:group 'font-selection
:set #'(lambda (symbol value)
:set (lambda (symbol value)
(set-default symbol value)
(internal-set-alternative-font-registry-alist value)))
@ -1147,27 +1147,27 @@ an integer value."
(:foundry
(list nil))
(:width
(mapcar #'(lambda (x) (cons (symbol-name (aref x 1)) (aref x 1)))
(mapcar (lambda (x) (cons (symbol-name (aref x 1)) (aref x 1)))
font-width-table))
(:weight
(mapcar #'(lambda (x) (cons (symbol-name (aref x 1)) (aref x 1)))
(mapcar (lambda (x) (cons (symbol-name (aref x 1)) (aref x 1)))
font-weight-table))
(:slant
(mapcar #'(lambda (x) (cons (symbol-name (aref x 1)) (aref x 1)))
(mapcar (lambda (x) (cons (symbol-name (aref x 1)) (aref x 1)))
font-slant-table))
((or :inverse-video :extend)
(mapcar #'(lambda (x) (cons (symbol-name x) x))
(mapcar (lambda (x) (cons (symbol-name x) x))
(internal-lisp-face-attribute-values attribute)))
((or :underline :overline :strike-through :box)
(if (window-system frame)
(nconc (mapcar #'(lambda (x) (cons (symbol-name x) x))
(nconc (mapcar (lambda (x) (cons (symbol-name x) x))
(internal-lisp-face-attribute-values attribute))
(mapcar #'(lambda (c) (cons c c))
(mapcar (lambda (c) (cons c c))
(defined-colors frame)))
(mapcar #'(lambda (x) (cons (symbol-name x) x))
(mapcar (lambda (x) (cons (symbol-name x) x))
(internal-lisp-face-attribute-values attribute))))
((or :foreground :background)
(mapcar #'(lambda (c) (cons c c))
(mapcar (lambda (c) (cons c c))
(defined-colors frame)))
(:height
'integerp)
@ -1182,7 +1182,7 @@ an integer value."
x-bitmap-file-path)))))
(:inherit
(cons '("none" . nil)
(mapcar #'(lambda (c) (cons (symbol-name c) c))
(mapcar (lambda (c) (cons (symbol-name c) c))
(face-list))))
(_
(error "Internal error")))))
@ -2286,7 +2286,7 @@ If you set `term-file-prefix' to nil, this function does nothing."
(let* (term-init-func)
;; First, load the terminal initialization file, if it is
;; available and it hasn't been loaded already.
(tty-find-type #'(lambda (type)
(tty-find-type (lambda (type)
(let ((file (locate-library (concat term-file-prefix type))))
(and file
(or (assoc file load-history)
@ -2296,7 +2296,7 @@ If you set `term-file-prefix' to nil, this function does nothing."
t t)))))
type)
;; Next, try to find a matching initialization function, and call it.
(tty-find-type #'(lambda (type)
(tty-find-type (lambda (type)
(fboundp (setq term-init-func
(intern (concat "terminal-init-" type)))))
type)

6
lisp/files.el
View file

@ -6682,7 +6682,7 @@ auto-save file, if that is more recent than the visited file."
(abbreviate-file-name file-name)))
((with-temp-buffer-window
"*Directory*" nil
#'(lambda (window _value)
(lambda (window _value)
(with-selected-window window
(unwind-protect
(yes-or-no-p (format "Recover auto save file %s? " file-name))
@ -7130,7 +7130,7 @@ default directory. However, if FULL is non-nil, they are absolute."
(let ((this-dir-contents
;; Filter out "." and ".."
(delq nil
(mapcar #'(lambda (name)
(mapcar (lambda (name)
(unless (string-match "\\`\\.\\.?\\'"
(file-name-nondirectory name))
name))
@ -7139,7 +7139,7 @@ default directory. However, if FULL is non-nil, they are absolute."
(setq contents
(nconc
(if (and dir (not full))
(mapcar #'(lambda (name) (concat dir name))
(mapcar (lambda (name) (concat dir name))
this-dir-contents)
this-dir-contents)
contents)))))

4
lisp/frame.el
View file

@ -987,7 +987,7 @@ HOST:SERVER.SCREEN).
If DEVICE is omitted or nil, it defaults to the selected
frame's terminal device."
(let* ((terminal (get-device-terminal device))
(func #'(lambda (frame)
(func (lambda (frame)
(eq (frame-terminal frame) terminal))))
(filtered-frame-list func)))
@ -1165,7 +1165,7 @@ If you change this without using customize, you should use
`frame-set-background-mode' to update existing frames;
e.g. (mapc \\='frame-set-background-mode (frame-list))."
:group 'faces
:set #'(lambda (var value)
:set (lambda (var value)
(set-default var value)
(mapc #'frame-set-background-mode (frame-list)))
:initialize #'custom-initialize-changed

2
lisp/help-at-pt.el
View file

@ -229,7 +229,7 @@ this option, or use \"In certain situations\" and specify no text
properties, to enable buffer local values."
never))
:initialize 'custom-initialize-default
:set #'(lambda (variable value)
:set (lambda (variable value)
(set-default variable value)
(if (eq value 'never)
(help-at-pt-cancel-timer)

2
lisp/help-fns.el
View file

@ -1561,7 +1561,7 @@ If FRAME is omitted or nil, use the selected frame."
(:fontset . "Fontset")
(:extend . "Extend")
(:inherit . "Inherit")))
(max-width (apply #'max (mapcar #'(lambda (x) (length (cdr x)))
(max-width (apply #'max (mapcar (lambda (x) (length (cdr x)))
attrs))))
(dolist (a attrs)
(let ((attr (face-attribute face (car a) frame)))

4
lisp/ido.el
View file

@ -354,7 +354,7 @@ The following values are possible:
Setting this variable directly does not take effect;
use either \\[customize] or the function `ido-mode'."
:set #'(lambda (_symbol value)
:set (lambda (_symbol value)
(ido-mode (or value 0)))
:initialize #'custom-initialize-default
:require 'ido
@ -620,7 +620,7 @@ hosts on first use of UNC path."
(function-item :tag "Use `NET VIEW'"
:value ido-unc-hosts-net-view)
(function :tag "Your own function"))
:set #'(lambda (symbol value)
:set (lambda (symbol value)
(set symbol value)
(setq ido-unc-hosts-cache t)))

4
lisp/isearch.el
View file

@ -2478,7 +2478,7 @@ The arguments passed to `highlight-regexp' are the regexp from
the last search and the face from `hi-lock-read-face-name'."
(interactive)
(isearch--highlight-regexp-or-lines
#'(lambda (regexp face lighter)
(lambda (regexp face lighter)
(highlight-regexp regexp face nil lighter))))
(defun isearch-highlight-lines-matching-regexp ()
@ -2487,7 +2487,7 @@ The arguments passed to `highlight-lines-matching-regexp' are the
regexp from the last search and the face from `hi-lock-read-face-name'."
(interactive)
(isearch--highlight-regexp-or-lines
#'(lambda (regexp face _lighter)
(lambda (regexp face _lighter)
(highlight-lines-matching-regexp regexp face))))

2
lisp/language/indian.el
View file

@ -376,7 +376,7 @@ South Indian language Malayalam is supported in this language environment."))
(kannada . ,kannada-composable-pattern)
(malayalam . ,malayalam-composable-pattern))))
(map-char-table
#'(lambda (key val)
(lambda (key val)
(let ((slot (assq val script-regexp-alist)))
(if slot
(set-char-table-range

2
lisp/language/lao.el
View file

@ -59,7 +59,7 @@
(let* ((chars (car l))
(len (length chars))
;; Replace `c', `t', `v' to consonant, tone, and vowel.
(regexp (mapconcat #'(lambda (c)
(regexp (mapconcat (lambda (c)
(cond ((= c ?c) consonant)
((= c ?t) tone)
((= c ?v) vowel-upper-lower)

2
lisp/leim/quail/ipa.el
View file

@ -278,7 +278,7 @@ string."
(list
(apply #'vector
(mapcar
#'(lambda (entry)
(lambda (entry)
(cl-assert (char-or-string-p entry) t)
(format "%s%s" to-prepend
(if (integerp entry) (string entry) entry)))

4
lisp/mh-e/mh-folder.el
View file

@ -1543,7 +1543,7 @@ after the commands are processed."
(append folders-changed (mh-index-execute-commands))))
;; Then refile messages
(mapc #'(lambda (folder-msg-list)
(mapc (lambda (folder-msg-list)
(let* ((dest-folder (symbol-name (car folder-msg-list)))
(last (car (mh-translate-range dest-folder "last")))
(msgs (cdr folder-msg-list)))
@ -1614,7 +1614,7 @@ after the commands are processed."
do (cl-loop for seq-name in (gethash msg seq-map)
do (push i (gethash seq-name allow-map))))
(maphash
#'(lambda (seq msgs)
(lambda (seq msgs)
;; Can't be run in background, since the current
;; folder is changed by mark this could lead to a
;; race condition with the next refile/allowlist.

2
lisp/mh-e/mh-mime.el
View file

@ -238,7 +238,7 @@ usually reads the file \"/etc/mailcap\"."
(when (consp part-index) (setq part-index (car part-index)))
(mh-folder-mime-action
part-index
#'(lambda ()
(lambda ()
(let* ((part (get-text-property (point) 'mh-data))
(type (mm-handle-media-type part))
(methods (mapcar (lambda (x) (list (cdr (assoc 'viewer x))))

2
lisp/ps-mule.el
View file

@ -1209,7 +1209,7 @@ V%s 0 /%s-latin1 /%s Latin1Encoding put\n"
(ps-output-prologue (format "ETOP%d %d %d put\n" i (car font) index))
(setq index (1+ index))))
(ps-output-prologue (format "/VTOP%d [%s] def\n" i
(mapconcat #'(lambda (x)
(mapconcat (lambda (x)
(format "F%02X" (cdr x)))
font-list " ")))))

16
lisp/ps-print.el
View file

@ -3855,7 +3855,7 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'."
(defun ps-color-scale (color)
;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval.
(mapcar #'(lambda (value) (/ value ps-print-color-scale))
(mapcar (lambda (value) (/ value ps-print-color-scale))
(color-values color)))
@ -4747,7 +4747,7 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
(defun ps-background-pages (page-list func)
(if page-list
(mapcar
#'(lambda (pages)
(lambda (pages)
(let ((start (if (consp pages) (car pages) pages))
(end (if (consp pages) (cdr pages) pages)))
(and (integerp start) (integerp end) (<= start end)
@ -4789,7 +4789,7 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
(defun ps-background-text ()
(mapcar
#'(lambda (text)
(lambda (text)
(setq ps-background-text-count (1+ ps-background-text-count))
(ps-output (format "/ShowBackText-%d{\n" ps-background-text-count))
(ps-output-string (nth 0 text)) ; text
@ -4811,7 +4811,7 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
(defun ps-background-image ()
(mapcar
#'(lambda (image)
(lambda (image)
(let ((image-file (expand-file-name (nth 0 image))))
(when (file-readable-p image-file)
(setq ps-background-image-count (1+ ps-background-image-count))
@ -4851,7 +4851,7 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
(defun ps-background (page-number)
(let (has-local-background)
(mapc #'(lambda (range)
(mapc (lambda (range)
(and (<= (aref range 0) page-number)
(<= page-number (aref range 1))
(if has-local-background
@ -5697,7 +5697,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
(> (car page) 0)
(<= (car page) (cdr page))
(setq new (cons page new))))))
(setq ps-selected-pages (sort new #'(lambda (one other)
(setq ps-selected-pages (sort new (lambda (one other)
(< (car one) (car other))))
ps-last-selected-pages ps-selected-pages
ps-first-page nil
@ -5782,7 +5782,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
"unspecified-fg"
0.0)
ps-foreground-list (mapcar
#'(lambda (arg)
(lambda (arg)
(ps-rgb-color arg "unspecified-fg" 0.0))
(append (and (not (member ps-print-color-p
'(nil black-white)))
@ -6012,7 +6012,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
(if (and (boundp 'ucs-mule-8859-to-mule-unicode)
(char-table-p ucs-mule-8859-to-mule-unicode))
(map-char-table
#'(lambda (k v)
(lambda (k v)
(if (and v (eq (char-charset v) 'latin-iso8859-1) (/= k v))
(aset tbl k v)))
ucs-mule-8859-to-mule-unicode))

14
lisp/recentf.el
View file

@ -674,7 +674,7 @@ Return nil if file NAME is not one of the ten more recent."
"Sort the list of menu elements L in ascending order.
The MENU-ITEM part of each menu element is compared."
(sort (copy-sequence l)
#'(lambda (e1 e2)
(lambda (e1 e2)
(recentf-string-lessp
(recentf-menu-element-item e1)
(recentf-menu-element-item e2)))))
@ -683,7 +683,7 @@ The MENU-ITEM part of each menu element is compared."
"Sort the list of menu elements L in descending order.
The MENU-ITEM part of each menu element is compared."
(sort (copy-sequence l)
#'(lambda (e1 e2)
(lambda (e1 e2)
(recentf-string-lessp
(recentf-menu-element-item e2)
(recentf-menu-element-item e1)))))
@ -692,7 +692,7 @@ The MENU-ITEM part of each menu element is compared."
"Sort the list of menu elements L in ascending order.
Only filenames sans directory are compared."
(sort (copy-sequence l)
#'(lambda (e1 e2)
(lambda (e1 e2)
(recentf-string-lessp
(file-name-nondirectory (recentf-menu-element-value e1))
(file-name-nondirectory (recentf-menu-element-value e2))))))
@ -701,7 +701,7 @@ Only filenames sans directory are compared."
"Sort the list of menu elements L in descending order.
Only filenames sans directory are compared."
(sort (copy-sequence l)
#'(lambda (e1 e2)
(lambda (e1 e2)
(recentf-string-lessp
(file-name-nondirectory (recentf-menu-element-value e2))
(file-name-nondirectory (recentf-menu-element-value e1))))))
@ -710,7 +710,7 @@ Only filenames sans directory are compared."
"Sort the list of menu elements L in ascending order.
Compares directories then filenames to order the list."
(sort (copy-sequence l)
#'(lambda (e1 e2)
(lambda (e1 e2)
(recentf-directory-compare
(recentf-menu-element-value e1)
(recentf-menu-element-value e2)))))
@ -719,7 +719,7 @@ Compares directories then filenames to order the list."
"Sort the list of menu elements L in descending order.
Compares directories then filenames to order the list."
(sort (copy-sequence l)
#'(lambda (e1 e2)
(lambda (e1 e2)
(recentf-directory-compare
(recentf-menu-element-value e2)
(recentf-menu-element-value e1)))))
@ -1382,5 +1382,5 @@ buffers you switch to a lot, you can say something like the following:
(provide 'recentf)
(run-hooks 'recentf-load-hook)
;;; recentf.el ends here

2
lisp/replace.el
View file

@ -2263,7 +2263,7 @@ See also `multi-occur'."
(defun occur-engine-add-prefix (lines &optional prefix-face)
(mapcar
#'(lambda (line)
(lambda (line)
(concat (if prefix-face
(propertize " :" 'font-lock-face prefix-face)
" :")

2
lisp/select.el
View file

@ -440,7 +440,7 @@ two markers or an overlay. Otherwise, it is nil."
(setq type 'C_STRING))
(t
(let (non-latin-1 non-unicode eight-bit)
(mapc #'(lambda (x)
(mapc (lambda (x)
(if (>= x #x100)
(if (< x #x110000)
(setq non-latin-1 t)

2
lisp/server.el
View file

@ -90,7 +90,7 @@
(defcustom server-use-tcp nil
"If non-nil, use TCP sockets instead of local sockets."
:set #'(lambda (sym val)
:set (lambda (sym val)
(unless (featurep 'make-network-process '(:family local))
(setq val t)
(unless load-in-progress

2
lisp/ses.el
View file

@ -3554,7 +3554,7 @@ With prefix, sorts in REVERSE order."
(push (cons (buffer-substring-no-properties (point) end)
(+ minrow x))
keys))
(setq keys (sort keys #'(lambda (x y) (string< (car x) (car y)))))
(setq keys (sort keys (lambda (x y) (string< (car x) (car y)))))
;;Extract the lines in reverse sorted order
(or reverse
(setq keys (nreverse keys)))

4
lisp/sort.el
View file

@ -540,8 +540,8 @@ Use \\[untabify] to convert tabs to spaces before sorting."
(narrow-to-region beg1 end1)
(goto-char beg1)
(sort-subr reverse 'forward-line 'end-of-line
#'(lambda () (move-to-column col-start) nil)
#'(lambda () (move-to-column col-end) nil))))))))
(lambda () (move-to-column col-start) nil)
(lambda () (move-to-column col-end) nil))))))))
;;;###autoload
(defun reverse-region (beg end)

2
lisp/term/ns-win.el
View file

@ -867,7 +867,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
;; For Darwin nothing except UTF-8 makes sense.
(when (eq system-type 'darwin)
(add-hook 'before-init-hook
#'(lambda ()
(lambda ()
(setq locale-coding-system 'utf-8-unix)
(setq default-process-coding-system
'(utf-8-unix . utf-8-unix)))))

2
lisp/tree-widget.el
View file

@ -214,7 +214,7 @@ Give the image the specified properties PROPS."
See also the option `widget-image-conversion'."
(delq nil
(mapcar
#'(lambda (fmt)
(lambda (fmt)
(and (image-type-available-p (car fmt)) fmt))
widget-image-conversion)))

3
lisp/whitespace.el
View file

@ -1687,7 +1687,7 @@ cleaning up these problems."
(or whitespace-active-style whitespace-style)))
(bogus-list
(mapcar
#'(lambda (option)
(lambda (option)
(when force
(push (car option) style))
(goto-char rstart)
@ -2463,5 +2463,4 @@ It should be added buffer-locally to `write-file-functions'."
"use `with-eval-after-load' instead." "28.1")
(run-hooks 'whitespace-load-hook)
;;; whitespace.el ends here