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." |
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 |