diff options
| author | Colin Walters <walters@gnu.org> | 2002-03-18 21:21:31 +0000 |
|---|---|---|
| committer | Colin Walters <walters@gnu.org> | 2002-03-18 21:21:31 +0000 |
| commit | 1915493bda217714a0e37cb34137d62fff4a1db3 (patch) | |
| tree | 5f376a3703ecc76808ed9c6079da8a47d6fdbe73 /lisp/ibuf-ext.el | |
| parent | 6e668118f0d829221d06c4801d61c89005d166ea (diff) | |
| download | emacs-1915493bda217714a0e37cb34137d62fff4a1db3.tar.gz | |
(ibuffer-toggle-sorting-mode): Remove `find-if' so we don't require
`cl' at runtime.
(sorting mode mode-name): Don't take the symbol-name of a string.
Diffstat (limited to 'lisp/ibuf-ext.el')
| -rw-r--r-- | lisp/ibuf-ext.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 1c3f6c74930..58240deb162 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -669,8 +669,7 @@ Default sorting modes are: (let ((modes (mapcar 'car ibuffer-sorting-functions-alist))) (add-to-list 'modes 'recency) (setq modes (sort modes 'string-lessp)) - (let ((next (or (find-if - (lambda (x) (string-lessp ibuffer-sorting-mode x)) modes) + (let ((next (or (car-safe (cdr-safe (memq ibuffer-sorting-mode modes))) (car modes)))) (setq ibuffer-sorting-mode next) (message "Sorting by %s" next))) @@ -705,13 +704,13 @@ Ordering is lexicographic." Ordering is lexicographic." (:description "mode name") (string-lessp (downcase - (symbol-name (with-current-buffer - (car a) - mode-name))) + (with-current-buffer + (car a) + mode-name)) (downcase - (symbol-name (with-current-buffer - (car b) - mode-name))))) + (with-current-buffer + (car b) + mode-name)))) (define-ibuffer-sorter alphabetic "Sort the buffers by their names. |