/[emacs]/emacs/lisp/ibuf-ext.el
ViewVC logotype

Diff of /emacs/lisp/ibuf-ext.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by walters, Sat Feb 23 21:33:49 2002 UTC revision 1.8 by walters, Tue Feb 26 19:53:56 2002 UTC
# Line 697  Ordering is lexicographic." Line 697  Ordering is lexicographic."
697                                    (car b)                                    (car b)
698                                  major-mode)))))                                  major-mode)))))
699    
700    (define-ibuffer-sorter mode-name
701      "Sort the buffers by their mode name.
702    Ordering is lexicographic."
703      (:description "mode name")
704      (string-lessp (downcase
705                     (symbol-name (with-current-buffer
706                                      (car a)
707                                    mode-name)))
708                    (downcase
709                     (symbol-name (with-current-buffer
710                                      (car b)
711                                    mode-name)))))
712    
713  (define-ibuffer-sorter alphabetic  (define-ibuffer-sorter alphabetic
714    "Sort the buffers by their names.    "Sort the buffers by their names.
715  Ordering is lexicographic."  Ordering is lexicographic."
# Line 1139  defaults to one." Line 1152  defaults to one."
1152            (< nlines 0))            (< nlines 0))
1153        (setq nlines 1))        (setq nlines 1))
1154    (when (zerop (ibuffer-count-marked-lines))    (when (zerop (ibuffer-count-marked-lines))
1155      (ibuffer-set-mark 'ibuffer-marked-char))      (ibuffer-set-mark ibuffer-marked-char))
1156    (let ((ibuffer-do-occur-bufs nil))    (let ((ibuffer-do-occur-bufs nil))
1157      ;; Accumulate a list of marked buffers      ;; Accumulate a list of marked buffers
1158      (ibuffer-map-marked-lines      (ibuffer-map-marked-lines

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26