diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-10 01:50:22 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-10 01:50:22 -0400 |
| commit | 26f8a384978c6b1d1db1c6b091fa1e51d9ff5a5b (patch) | |
| tree | 1009712ed76be8785abbfa2cfb6ddc9359b46ced /lisp/ibuffer.el | |
| parent | 519489089197ce2d41c72e20773438d415ce8564 (diff) | |
| download | emacs-26f8a384978c6b1d1db1c6b091fa1e51d9ff5a5b.tar.gz emacs-26f8a384978c6b1d1db1c6b091fa1e51d9ff5a5b.tar.bz2 emacs-26f8a384978c6b1d1db1c6b091fa1e51d9ff5a5b.zip | |
cl-lib.el: Partial revert of "2015-04-05 Rationalize c[ad]+r"
* lisp/emacs-lisp/cl-lib.el: Partial revert of "2015-04-05 Rationalize
use of c[ad]+r", so as to keep the "cl-" prefix on all
cl-lib definitions.
Diffstat (limited to 'lisp/ibuffer.el')
| -rw-r--r-- | lisp/ibuffer.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 837fbaeea2c..f15e150f5d4 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -2162,7 +2162,7 @@ If optional arg SILENT is non-nil, do not display progress messages." (eq ibuffer-always-show-last-buffer :nomini) (minibufferp (cadr bufs))) - (caddr bufs) + (nth 2 bufs) (cadr bufs)) (ibuffer-current-buffers-with-marks bufs) ibuffer-display-maybe-show-predicates))) @@ -2194,7 +2194,7 @@ If optional arg SILENT is non-nil, do not display progress messages." (require 'ibuf-ext)) (let* ((sortdat (assq ibuffer-sorting-mode ibuffer-sorting-functions-alist)) - (func (caddr sortdat))) + (func (nth 2 sortdat))) (let ((result ;; actually sort the buffers (if (and sortdat func) |