From 1915493bda217714a0e37cb34137d62fff4a1db3 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Mon, 18 Mar 2002 21:21:31 +0000 Subject: [PATCH] (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. --- lisp/ibuf-ext.el | 15 +++++++-------- 1 file 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. -- 2.39.2