mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(ibuffer-interactive-filter-by-mode)

Browse Source 
(ibuffer-set-filter-groups-by-mode, ibuffer-list-buffer-modes)
(define-ibuffer-filter mode, define-ibuffer-filter used-mode)
(define-ibuffer-sorter major-mode, ibuffer-mark-unsaved-buffers)
(ibuffer-mark-read-only-buffers)
(ibuffer-mark-dired-buffers): Use `buffer-local-value'.
This commit is contained in:
John Paul Wallington 2008-05-15 01:14:41 +00:00
parent 6986e5c978
commit 95e8ab353b
1 changed files with 16 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
lisp/ibuf-ext.el
View File

@ -260,9 +260,7 @@ With numeric ARG, enable auto-update if and only if ARG is positive."
(if (assq 'mode ibuffer-filtering-qualifiers)
(setq ibuffer-filtering-qualifiers
(ibuffer-delete-alist 'mode ibuffer-filtering-qualifiers))
(ibuffer-push-filter (cons 'mode
(with-current-buffer buf
major-mode)))))
(ibuffer-push-filter (cons 'mode (buffer-local-value 'major-mode buf)))))
(ibuffer-update nil t))
;;;###autoload
@ -562,7 +560,7 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
(let ((modes
(ibuffer-remove-duplicates
(mapcar (lambda (buf)
(with-current-buffer buf major-mode))
(buffer-local-value 'major-mode buf))
(buffer-list)))))
(if ibuffer-view-ibuffer
modes
@ -966,10 +964,7 @@ The list returned will be of the form (\"MODE-NAME\" . MODE-SYMBOL)."
(modes)
(this-mode))
(while bufs
(setq this-mode
(with-current-buffer
(car bufs)
major-mode)
(setq this-mode (buffer-local-value 'major-mode (car bufs))
bufs (cdr bufs))
(add-to-list
'modes
@ -993,10 +988,9 @@ The list returned will be of the form (\"MODE-NAME\" . MODE-SYMBOL)."
t
(let ((buf (ibuffer-current-buffer)))
(if (and buf (buffer-live-p buf))
(with-current-buffer buf
(symbol-name major-mode))
(symbol-name (buffer-local-value 'major-mode buf))
"")))))
(eq qualifier (with-current-buffer buf major-mode)))
(eq qualifier (buffer-local-value 'major-mode buf)))
;;;###autoload (autoload 'ibuffer-filter-by-used-mode "ibuf-ext")
(define-ibuffer-filter used-mode
@ -1012,10 +1006,10 @@ currently used by buffers."
t
(let ((buf (ibuffer-current-buffer)))
(if (and buf (buffer-live-p buf))
(with-current-buffer buf
(symbol-name major-mode))
(symbol-name (buffer-local-value
'major-mode buf))
"")))))
(eq qualifier (with-current-buffer buf major-mode)))
(eq qualifier (buffer-local-value 'major-mode buf)))
;;;###autoload (autoload 'ibuffer-filter-by-name "ibuf-ext")
(define-ibuffer-filter name
@ -1106,13 +1100,9 @@ Default sorting modes are:
Ordering is lexicographic."
(:description "major mode")
(string-lessp (downcase
(symbol-name (with-current-buffer
(car a)
major-mode)))
(symbol-name (buffer-local-value 'major-mode (car a))))
(downcase
(symbol-name (with-current-buffer
(car b)
major-mode)))))
(symbol-name (buffer-local-value 'major-mode (car b))))))
;;;###autoload (autoload 'ibuffer-do-sort-by-mode-name "ibuf-ext")
(define-ibuffer-sorter mode-name
@ -1120,9 +1110,9 @@ Ordering is lexicographic."
Ordering is lexicographic."
(:description "major mode name")
(string-lessp (downcase
(with-current-buffer
(car a)
(format-mode-line mode-name)))
(with-current-buffer
(car a)
(format-mode-line mode-name)))
(downcase
(with-current-buffer
(car b)
@ -1439,7 +1429,7 @@ You can then feed the file name(s) to other commands with \\[yank]."
"Mark all modified buffers that have an associated file."
(interactive)
(ibuffer-mark-on-buffer
#'(lambda (buf) (and (with-current-buffer buf buffer-file-name)
#'(lambda (buf) (and (buffer-local-value 'buffer-file-name buf)
(buffer-modified-p buf)))))
;;;###autoload
@ -1508,18 +1498,14 @@ You can then feed the file name(s) to other commands with \\[yank]."
"Mark all read-only buffers."
(interactive)
(ibuffer-mark-on-buffer
#'(lambda (buf)
(with-current-buffer buf
buffer-read-only))))
#'(lambda (buf) (buffer-local-value 'buffer-read-only buf))))
;;;###autoload
(defun ibuffer-mark-dired-buffers ()
"Mark all `dired' buffers."
(interactive)
(ibuffer-mark-on-buffer
#'(lambda (buf)
(with-current-buffer buf
(eq major-mode 'dired-mode)))))
#'(lambda (buf) (eq (buffer-local-value 'major-mode buf) 'dired-mode))))
;;;###autoload
(defun ibuffer-do-occur (regexp &optional nlines)