diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-19 16:48:59 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-19 16:48:59 -0700 |
commit | 07fcbb558d797272b9f43547da60beda485873a3 (patch) | |
tree | 77d5da14e9f9d9d8b1d877c70c01296fd3893796 /lisp/ibuf-macs.el | |
parent | c9bdeff3e45a7ac84a74a81bb048046f82dddc91 (diff) | |
parent | fb81c8c3adf8633f2f617c82f6019aef630860c7 (diff) | |
download | emacs-07fcbb558d797272b9f43547da60beda485873a3.tar.gz |
Merge remote-tracking branch 'origin/master' into athena/unstable
Diffstat (limited to 'lisp/ibuf-macs.el')
-rw-r--r-- | lisp/ibuf-macs.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el index be09c6582ce..fcc4f9e751c 100644 --- a/lisp/ibuf-macs.el +++ b/lisp/ibuf-macs.el @@ -66,8 +66,8 @@ During evaluation of body, bind `it' to the value returned by TEST." (ibuffer-redisplay-engine ;; Get rid of dead buffers (delq nil - (mapcar #'(lambda (e) (when (buffer-live-p (car e)) - e)) + (mapcar (lambda (e) (when (buffer-live-p (car e)) + e)) ibuffer-save-marks-tmp-mark-list))) (ibuffer-redisplay t)))))) @@ -154,8 +154,8 @@ value if and only if `a' is \"less than\" `b'. (ibuffer-redisplay t) (setq ibuffer-last-sorting-mode ',name)) (push (list ',name ,description - #'(lambda (a b) - ,@body)) + (lambda (a b) + ,@body)) ibuffer-sorting-functions-alist) :autoload-end)) @@ -259,18 +259,18 @@ buffer object. 'ibuffer-map-deletion-lines) (_ 'ibuffer-map-marked-lines)) - #'(lambda (buf mark) - ;; Silence warning for code that doesn't - ;; use `mark'. - (ignore mark) - ,(if (eq modifier-p :maybe) - `(let ((ibuffer-tmp-previous-buffer-modification - (buffer-modified-p buf))) - (prog1 ,inner-body - (when (not (eq ibuffer-tmp-previous-buffer-modification - (buffer-modified-p buf))) - (setq ibuffer-did-modification t)))) - inner-body))))) + (lambda (buf mark) + ;; Silence warning for code that doesn't + ;; use `mark'. + (ignore mark) + ,(if (eq modifier-p :maybe) + `(let ((ibuffer-tmp-previous-buffer-modification + (buffer-modified-p buf))) + (prog1 ,inner-body + (when (not (eq ibuffer-tmp-previous-buffer-modification + (buffer-modified-p buf))) + (setq ibuffer-did-modification t)))) + inner-body))))) ,finish))) (if dangerous `(when (ibuffer-confirm-operation-on ,active-opstring marked-names) |