[Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el

[Colin Walters]

Index: emacs/lisp/ibuf-ext.el
diff -c emacs/lisp/ibuf-ext.el:1.9 emacs/lisp/ibuf-ext.el:1.10
*** emacs/lisp/ibuf-ext.el:1.9  Thu Mar  7 23:06:18 2002
--- emacs/lisp/ibuf-ext.el      Mon Mar 18 16:21:31 2002
***************
*** 669,676 ****
    (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)
                      (car modes))))
        (setq ibuffer-sorting-mode next)
        (message "Sorting by %s" next)))
--- 669,675 ----
    (let ((modes (mapcar 'car ibuffer-sorting-functions-alist)))
      (add-to-list 'modes 'recency)
      (setq modes (sort modes 'string-lessp))
!     (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,717 ****
  Ordering is lexicographic."
    (:description "mode name")
    (string-lessp (downcase
!                (symbol-name (with-current-buffer
!                                 (car a)
!                               mode-name)))
                (downcase
!                (symbol-name (with-current-buffer
!                                 (car b)
!                               mode-name)))))
  
  (define-ibuffer-sorter alphabetic
    "Sort the buffers by their names.
--- 704,716 ----
  Ordering is lexicographic."
    (:description "mode name")
    (string-lessp (downcase
!                 (with-current-buffer
!                     (car a)
!                   mode-name))
                (downcase
!                (with-current-buffer
!                    (car b)
!                  mode-name))))
  
  (define-ibuffer-sorter alphabetic
    "Sort the buffers by their names.