mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(sorter mode-name): New.

Browse Source 
(ibuffer-do-occur): Don't quote ibuffer-marked-char.
This commit is contained in:
Colin Walters 2002-02-26 19:53:56 +00:00
parent 688c8ec5a9
commit 10cf9a4305
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/ibuf-ext.el
View File

@ -697,6 +697,19 @@ Ordering is lexicographic."
(car b)
major-mode)))))
(define-ibuffer-sorter mode-name
"Sort the buffers by their mode name.
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.
Ordering is lexicographic."
@ -1139,7 +1152,7 @@ defaults to one."
(< nlines 0))
(setq nlines 1))
(when (zerop (ibuffer-count-marked-lines))
(ibuffer-set-mark 'ibuffer-marked-char))
(ibuffer-set-mark ibuffer-marked-char))
(let ((ibuffer-do-occur-bufs nil))
;; Accumulate a list of marked buffers
(ibuffer-map-marked-lines