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 in Gnus

Browse source 
* lisp/gnus/gnus-group.el (gnus-group-list-cached)
(gnus-group-list-dormant, gnus-group-list-ticked):
* lisp/gnus/gnus-registry.el (gnus-registry-remove-extra-data):
* lisp/gnus/gnus-score.el (gnus-score-edit-file-at-point):
* lisp/gnus/gnus-sum.el (gnus-fetch-headers):
* lisp/gnus/mm-partial.el (mm-inline-partial):
* lisp/gnus/nnselect.el (nnselect-uncompress-artlist)
(numbers-by-group, nnselect-request-expire-articles)
(nnselect-request-update-info, nnselect-request-thread):
* lisp/gnus/nnvirtual.el (nnvirtual-request-expire-articles):
* lisp/gnus/spam-stat.el (spam-stat-score-buffer): Remove redundant #'
before lambda.
This commit is contained in:
Stefan Kangas 2021-04-01 10:23:21 +02:00
parent 168d2628b2
commit 41f37c8c82
8 changed files with 73 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/gnus-group.el
View file

@ -4697,11 +4697,11 @@ This command may read the active file."
(gnus-cache-open))
(funcall gnus-group-prepare-function
(or level gnus-level-subscribed)
#'(lambda (info)
(lambda (info)
(let ((marks (gnus-info-marks info)))
(assq 'cache marks)))
lowest
#'(lambda (group)
(lambda (group)
(or (gethash group
gnus-cache-active-hashtb)
;; Cache active file might use "."
@ -4728,7 +4728,7 @@ This command may read the active file."
(gnus-cache-open))
(funcall gnus-group-prepare-function
(or level gnus-level-subscribed)
#'(lambda (info)
(lambda (info)
(let ((marks (gnus-info-marks info)))
(assq 'dormant marks)))
lowest
@ -4750,7 +4750,7 @@ This command may read the active file."
(gnus-cache-open))
(funcall gnus-group-prepare-function
(or level gnus-level-subscribed)
#'(lambda (info)
(lambda (info)
(let ((marks (gnus-info-marks info)))
(assq 'tick marks)))
lowest

2
lisp/gnus/gnus-registry.el
View file

@ -1290,7 +1290,7 @@ from your existing entries."
(registry-reindex db)
(cl-loop for k being the hash-keys of (oref db data)
using (hash-value v)
do (let ((newv (delq nil (mapcar #'(lambda (entry)
do (let ((newv (delq nil (mapcar (lambda (entry)
(unless (member (car entry) extra)
entry))
v))))

2
lisp/gnus/gnus-score.el
View file

@ -1182,7 +1182,7 @@ If FORMAT, also format the current score file."
(when (consp rule) ;; the rule exists
(setq rule (if (symbolp (car rule))
(format "(%S)" (car rule))
(mapconcat #'(lambda (obj)
(mapconcat (lambda (obj)
(regexp-quote (format "%S" obj)))
rule
sep)))

2
lisp/gnus/gnus-sum.el
View file

@ -5676,7 +5676,7 @@ or a straight list of headers."
(or dependencies
(with-current-buffer gnus-summary-buffer
gnus-newsgroup-dependencies))))
(delq nil (mapcar #'(lambda (header)
(delq nil (mapcar (lambda (header)
(gnus-dependencies-add-header
header dependencies force-new))
gnus-headers-retrieved-by)))))

2
lisp/gnus/mm-partial.el
View file

@ -72,7 +72,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
id
(with-current-buffer gnus-summary-buffer
(gnus-summary-article-number))))
#'(lambda (a b)
(lambda (a b)
(let ((anumber (string-to-number
(cdr (assq 'number
(cdr (mm-handle-type a))))))

20
lisp/gnus/nnselect.el
View file

@ -100,7 +100,7 @@
(setq selection
(vconcat
(cl-map 'vector
#'(lambda (art)
(lambda (art)
(vector artgroup art artrsv))
(gnus-uncompress-sequence artseq)) selection)))
selection)))
@ -211,9 +211,9 @@ as `(keyfunc member)' and the corresponding element is just
#'nnselect-article-group #'nnselect-article-number))
((eq ,type 'tuple)
(nnselect-categorize ,articles
#'(lambda (elem)
(lambda (elem)
(nnselect-article-group (car elem)))
#'(lambda (elem)
(lambda (elem)
(cons (nnselect-article-number
(car elem))
(cdr elem)))))
@ -464,7 +464,7 @@ If this variable is nil, or if the provided function returns nil,
(error "Group %s does not support article expiration" artgroup))
(unless (gnus-check-server (gnus-find-method-for-group artgroup))
(error "Couldn't open server for group %s" artgroup))
(push (mapcar #'(lambda (art)
(push (mapcar (lambda (art)
(car (rassq art artids)))
(let ((nnimap-expunge 'immediately))
(gnus-request-expire-articles
@ -549,7 +549,7 @@ If this variable is nil, or if the provided function returns nil,
(gnus-add-to-range
(gnus-info-read info)
(delq nil (mapcar
#'(lambda (art)
(lambda (art)
(unless (memq (cdr art) unread) (car art)))
artids))))
(pcase-dolist (`(,type . ,mark-list) marks)
@ -560,7 +560,7 @@ If this variable is nil, or if the provided function returns nil,
(cond
((eq mark-type 'tuple)
(mapcar
#'(lambda (id)
(lambda (id)
(let (mark)
(when
(setq mark (assq (cdr id) mark-list))
@ -570,7 +570,7 @@ If this variable is nil, or if the provided function returns nil,
(setq mark-list
(gnus-uncompress-range mark-list))
(mapcar
#'(lambda (id)
(lambda (id)
(when (memq (cdr id) mark-list)
(car id))) artids)))))
(let ((previous (alist-get type newmarks)))
@ -607,7 +607,7 @@ If this variable is nil, or if the provided function returns nil,
(let ((thread
(gnus-id-to-thread (mail-header-id header))))
(when thread
(cl-some #'(lambda (x)
(cl-some (lambda (x)
(when (and x (> x 0)) x))
(gnus-articles-in-thread thread)))))))))
;; Check if search-based thread referral is permitted, and
@ -642,7 +642,7 @@ If this variable is nil, or if the provided function returns nil,
old-arts seq
headers)
(mapc
#'(lambda (article)
(lambda (article)
(if
(setq seq
(cl-position article
@ -671,7 +671,7 @@ If this variable is nil, or if the provided function returns nil,
(when (setq new-marks
(delq nil
(mapcar
#'(lambda (art)
(lambda (art)
(when (memq (cdr art) marked)
(car art)))
artids)))

2
lisp/gnus/nnvirtual.el
View file

@ -362,7 +362,7 @@ It is computed from the marks of individual component groups.")
(dolist (group nnvirtual-component-groups)
(setq unexpired (nconc unexpired
(mapcar
#'(lambda (article)
(lambda (article)
(nnvirtual-reverse-map-article
group article))
(gnus-uncompress-range

2
lisp/gnus/spam-stat.el
View file

@ -492,7 +492,7 @@ Add user supplied modifications if supplied."
(let* ((probs (mapcar #'cadr spam-stat-score-data))
(prod (apply #'* probs))
(score0
(/ prod (+ prod (apply #'* (mapcar #'(lambda (x) (- 1 x))
(/ prod (+ prod (apply #'* (mapcar (lambda (x) (- 1 x))
probs)))))
(score1s
(condition-case nil