procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix evaluation of negated argument predicates in Eshell

Browse source 
* lisp/eshell/em-pred.el (eshell-add-pred-func): Let-bind 'pred' so
the lambdas see the original value (bug#54369).
This commit is contained in:
Jim Porter 2022-03-13 15:36:37 +01:00 • committed by Lars Ingebrigtsen
parent edb8481ce1
commit ea3c147d2d
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/eshell/em-pred.el
View file

@ -360,12 +360,12 @@ resultant list of strings."
(defun eshell-add-pred-func (pred funcs negate follow)
"Add the predicate function PRED to FUNCS."
(if negate
(setq pred (lambda (file)
(not (funcall pred file)))))
(if follow
(setq pred (lambda (file)
(funcall pred (file-truename file)))))
(when negate
(setq pred (let ((pred pred))
(lambda (file) (not (funcall pred file))))))
(when follow
(setq pred (let ((pred pred))
(lambda (file) (funcall pred (file-truename file))))))
(cons pred funcs))
(defun eshell-pred-user-or-group (mod-char mod-type attr-index get-id-func)