mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

Remove redundant #' before lambda in progmodes/*.el

Browse source 
* lisp/progmodes/cc-styles.el (c-set-offset):
* lisp/progmodes/ebnf-yac.el (ebnf-yac-token-table):
* lisp/progmodes/ebnf2ps.el (ebnf-format-float, ebnf-map-name):
* lisp/progmodes/grep.el (lgrep, rgrep-default-command):
* lisp/progmodes/inf-lisp.el:
* lisp/progmodes/octave.el (octave-lookfor):
* lisp/progmodes/python.el (python-pdbtrack-tracking-finish): Remove
redundant #' before lambda.
This commit is contained in:
Stefan Kangas 2021-04-01 16:24:12 +02:00
parent 8129998deb
commit 4a538c4861
7 changed files with 31 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/progmodes/cc-styles.el
View file

@ -476,7 +476,7 @@ and exists only for compatibility reasons."
(if current-prefix-arg " or add" "")
": ")
(mapcar
#'(lambda (langelem)
(lambda (langelem)
(cons (format "%s" (car langelem)) nil))
(get 'c-offsets-alist 'c-stylevar-fallback))
nil (not current-prefix-arg)

4
lisp/progmodes/ebnf-yac.el
View file

@ -271,12 +271,12 @@
(let ((table (make-vector 256 'error)))
;; upper & lower case letters:
(mapc
#'(lambda (char)
(lambda (char)
(aset table char 'non-terminal))
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")
;; printable characters:
(mapc
#'(lambda (char)
(lambda (char)
(aset table char 'character))
"!#$&()*+-.0123456789=?@[\\]^_`~")
;; Override space characters:

4
lisp/progmodes/ebnf2ps.el
View file

@ -4398,7 +4398,7 @@ end
(defun ebnf-format-float (&rest floats)
(mapconcat
#'(lambda (float)
(lambda (float)
(format ebnf-format-float float))
floats
" "))
@ -4959,7 +4959,7 @@ killed after process termination."
(defvar ebnf-map-name
(let ((map (make-vector 256 ?\_)))
(mapc #'(lambda (char)
(mapc (lambda (char)
(aset map char char))
(concat "#$%&+-.0123456789=?@~"
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"

4
lisp/progmodes/grep.el
View file

@ -1134,7 +1134,7 @@ command before it's run."
(and grep-find-ignored-files
(concat " --exclude="
(mapconcat
#'(lambda (ignore)
(lambda (ignore)
(cond ((stringp ignore)
(shell-quote-argument ignore))
((consp ignore)
@ -1274,7 +1274,7 @@ command before it's run."
;; we should use shell-quote-argument here
" -name "
(mapconcat
#'(lambda (ignore)
(lambda (ignore)
(cond ((stringp ignore)
(shell-quote-argument ignore))
((consp ignore)

2
lisp/progmodes/inf-lisp.el
View file

@ -442,7 +442,7 @@ With argument, positions cursor at end of buffer."
;;; (let ((name-start (point)))
;;; (forward-sexp 1)
;;; (process-send-string "inferior-lisp"
;;; (format "(compile '%s #'(lambda "
;;; (format "(compile '%s (lambda "
;;; (buffer-substring name-start
;;; (point)))))
;;; (let ((body-start (point)))

2
lisp/progmodes/octave.el
View file

@ -1769,7 +1769,7 @@ sentence."
(insert "\nRetry with ")
(insert-text-button "'-all'"
'follow-link t
'action #'(lambda (_b)
'action (lambda (_b)
(octave-lookfor str '-all)))
(insert ".\n"))
(octave-help-mode)))))

4
lisp/progmodes/python.el
View file

@ -241,7 +241,7 @@
;; 2) Add the following hook in your .emacs:
;; (add-hook 'python-mode-hook
;; #'(lambda ()
;; (lambda ()
;; (define-key python-mode-map "\C-m" 'newline-and-indent)))
;; I'd recommend the first one since you'll get the same behavior for
@ -3976,7 +3976,7 @@ Returns the tracked buffer."
"Finish tracking."
(python-pdbtrack-unset-tracked-buffer)
(when python-pdbtrack-kill-buffers
(mapc #'(lambda (buffer)
(mapc (lambda (buffer)
(ignore-errors (kill-buffer buffer)))
python-pdbtrack-buffers-to-kill))
(setq python-pdbtrack-buffers-to-kill nil))