364 |
(define-key map (kbd "* e") 'ibuffer-mark-dissociated-buffers) |
(define-key map (kbd "* e") 'ibuffer-mark-dissociated-buffers) |
365 |
(define-key map (kbd "* h") 'ibuffer-mark-help-buffers) |
(define-key map (kbd "* h") 'ibuffer-mark-help-buffers) |
366 |
(define-key map (kbd ".") 'ibuffer-mark-old-buffers) |
(define-key map (kbd ".") 'ibuffer-mark-old-buffers) |
367 |
|
|
368 |
(define-key map (kbd "d") 'ibuffer-mark-for-delete) |
(define-key map (kbd "d") 'ibuffer-mark-for-delete) |
369 |
(define-key map (kbd "C-d") 'ibuffer-mark-for-delete-backwards) |
(define-key map (kbd "C-d") 'ibuffer-mark-for-delete-backwards) |
370 |
(define-key map (kbd "k") 'ibuffer-mark-for-delete) |
(define-key map (kbd "k") 'ibuffer-mark-for-delete) |
371 |
(define-key map (kbd "x") 'ibuffer-do-kill-on-deletion-marks) |
(define-key map (kbd "x") 'ibuffer-do-kill-on-deletion-marks) |
372 |
|
|
373 |
;; immediate operations |
;; immediate operations |
374 |
(define-key map (kbd "n") 'ibuffer-forward-line) |
(define-key map (kbd "n") 'ibuffer-forward-line) |
375 |
(define-key map (kbd "<down>") 'ibuffer-forward-line) |
(define-key map (kbd "<down>") 'ibuffer-forward-line) |
425 |
(define-key map (kbd "/ R") 'ibuffer-switch-to-saved-filter-groups) |
(define-key map (kbd "/ R") 'ibuffer-switch-to-saved-filter-groups) |
426 |
(define-key map (kbd "/ X") 'ibuffer-delete-saved-filter-groups) |
(define-key map (kbd "/ X") 'ibuffer-delete-saved-filter-groups) |
427 |
(define-key map (kbd "/ \\") 'ibuffer-clear-filter-groups) |
(define-key map (kbd "/ \\") 'ibuffer-clear-filter-groups) |
428 |
|
|
429 |
(define-key map (kbd "q") 'ibuffer-quit) |
(define-key map (kbd "q") 'ibuffer-quit) |
430 |
(define-key map (kbd "h") 'describe-mode) |
(define-key map (kbd "h") 'describe-mode) |
431 |
(define-key map (kbd "?") 'describe-mode) |
(define-key map (kbd "?") 'describe-mode) |
433 |
(define-key map (kbd "% n") 'ibuffer-mark-by-name-regexp) |
(define-key map (kbd "% n") 'ibuffer-mark-by-name-regexp) |
434 |
(define-key map (kbd "% m") 'ibuffer-mark-by-mode-regexp) |
(define-key map (kbd "% m") 'ibuffer-mark-by-mode-regexp) |
435 |
(define-key map (kbd "% f") 'ibuffer-mark-by-file-name-regexp) |
(define-key map (kbd "% f") 'ibuffer-mark-by-file-name-regexp) |
436 |
|
|
437 |
(define-key map (kbd "C-t") 'ibuffer-visit-tags-table) |
(define-key map (kbd "C-t") 'ibuffer-visit-tags-table) |
438 |
|
|
439 |
(define-key map (kbd "|") 'ibuffer-do-shell-command-pipe) |
(define-key map (kbd "|") 'ibuffer-do-shell-command-pipe) |
458 |
(define-key map (kbd "V") 'ibuffer-do-revert) |
(define-key map (kbd "V") 'ibuffer-do-revert) |
459 |
(define-key map (kbd "W") 'ibuffer-do-view-and-eval) |
(define-key map (kbd "W") 'ibuffer-do-view-and-eval) |
460 |
(define-key map (kbd "X") 'ibuffer-do-shell-command-pipe) |
(define-key map (kbd "X") 'ibuffer-do-shell-command-pipe) |
461 |
|
|
462 |
(define-key map (kbd "k") 'ibuffer-do-kill-lines) |
(define-key map (kbd "k") 'ibuffer-do-kill-lines) |
463 |
(define-key map (kbd "w") 'ibuffer-copy-filename-as-kill) |
(define-key map (kbd "w") 'ibuffer-copy-filename-as-kill) |
464 |
|
|
683 |
:help "Mark buffers which have not been viewed recently")) |
:help "Mark buffers which have not been viewed recently")) |
684 |
(define-key-after map [menu-bar mark unmark-all] |
(define-key-after map [menu-bar mark unmark-all] |
685 |
'(menu-item "Unmark All" ibuffer-unmark-all)) |
'(menu-item "Unmark All" ibuffer-unmark-all)) |
686 |
|
|
687 |
(define-key-after map [menu-bar mark dashes] |
(define-key-after map [menu-bar mark dashes] |
688 |
'("--")) |
'("--")) |
689 |
|
|
690 |
(define-key-after map [menu-bar mark mark-by-name-regexp] |
(define-key-after map [menu-bar mark mark-by-name-regexp] |
691 |
'(menu-item "Mark by buffer name (regexp)..." ibuffer-mark-by-name-regexp |
'(menu-item "Mark by buffer name (regexp)..." ibuffer-mark-by-name-regexp |
692 |
:help "Mark buffers whose name matches a regexp")) |
:help "Mark buffers whose name matches a regexp")) |
744 |
(define-key-after operate-map [do-view-and-eval] |
(define-key-after operate-map [do-view-and-eval] |
745 |
'(menu-item "Eval (viewing buffer)..." ibuffer-do-view-and-eval |
'(menu-item "Eval (viewing buffer)..." ibuffer-do-view-and-eval |
746 |
:help "Evaluate a Lisp form in each marked buffer while viewing it")) |
:help "Evaluate a Lisp form in each marked buffer while viewing it")) |
747 |
|
|
748 |
(setq ibuffer-mode-map map |
(setq ibuffer-mode-map map |
749 |
ibuffer-mode-operate-map operate-map |
ibuffer-mode-operate-map operate-map |
750 |
ibuffer-mode-groups-popup (copy-keymap groups-map)))) |
ibuffer-mode-groups-popup (copy-keymap groups-map)))) |
1094 |
;; Handle a failure |
;; Handle a failure |
1095 |
(if (or (> (incf attempts) 4) |
(if (or (> (incf attempts) 4) |
1096 |
(and (stringp (cadr err)) |
(and (stringp (cadr err)) |
1097 |
;; This definitely falls in the |
;; This definitely falls in the |
1098 |
;; ghetto hack category... |
;; ghetto hack category... |
1099 |
(not (string-match "too small" (cadr err))))) |
(not (string-match "too small" (cadr err))))) |
1100 |
(apply #'signal err) |
(apply #'signal err) |
1338 |
(if uncompiledp |
(if uncompiledp |
1339 |
ibuffer-filter-format-alist |
ibuffer-filter-format-alist |
1340 |
ibuffer-compiled-filter-formats)))))) |
ibuffer-compiled-filter-formats)))))) |
1341 |
|
|
1342 |
(defun ibuffer-current-format (&optional uncompiledp) |
(defun ibuffer-current-format (&optional uncompiledp) |
1343 |
(or ibuffer-current-format |
(or ibuffer-current-format |
1344 |
(setq ibuffer-current-format 0)) |
(setq ibuffer-current-format 0)) |
1366 |
elide nil)) |
elide nil)) |
1367 |
(list sym min max align elide))) |
(list sym min max align elide))) |
1368 |
form)) |
form)) |
1369 |
|
|
1370 |
(defun ibuffer-compile-make-eliding-form (strvar elide from-end-p) |
(defun ibuffer-compile-make-eliding-form (strvar elide from-end-p) |
1371 |
(let ((ellipsis (propertize ibuffer-eliding-string 'font-lock-face 'bold))) |
(let ((ellipsis (propertize ibuffer-eliding-string 'font-lock-face 'bold))) |
1372 |
(if (or elide ibuffer-elide-long-columns) |
(if (or elide ibuffer-elide-long-columns) |
1566 |
(ibuffer-awhen (and (consp form) |
(ibuffer-awhen (and (consp form) |
1567 |
(get (car form) 'ibuffer-column-summarizer)) |
(get (car form) 'ibuffer-column-summarizer)) |
1568 |
(put (car form) 'ibuffer-column-summary nil)))) |
(put (car form) 'ibuffer-column-summary nil)))) |
1569 |
|
|
1570 |
(defun ibuffer-check-formats () |
(defun ibuffer-check-formats () |
1571 |
(when (null ibuffer-formats) |
(when (null ibuffer-formats) |
1572 |
(error "No formats!")) |
(error "No formats!")) |
1614 |
'ibuffer-name-column t |
'ibuffer-name-column t |
1615 |
'help-echo "mouse-1: mark this buffer\nmouse-2: select this buffer\nmouse-3: operate on this buffer")) |
'help-echo "mouse-1: mark this buffer\nmouse-2: select this buffer\nmouse-3: operate on this buffer")) |
1616 |
(propertize (buffer-name) 'font-lock-face (ibuffer-buffer-name-face buffer mark))) |
(propertize (buffer-name) 'font-lock-face (ibuffer-buffer-name-face buffer mark))) |
1617 |
|
|
1618 |
(define-ibuffer-column size (:inline t) |
(define-ibuffer-column size (:inline t) |
1619 |
(format "%s" (buffer-size))) |
(format "%s" (buffer-size))) |
1620 |
|
|
1698 |
(ibuffer-current-format))) |
(ibuffer-current-format))) |
1699 |
(when ibuffer-shrink-to-minimum-size |
(when ibuffer-shrink-to-minimum-size |
1700 |
(ibuffer-shrink-to-fit))))))) |
(ibuffer-shrink-to-fit))))))) |
1701 |
|
|
1702 |
(defun ibuffer-map-on-mark (mark func) |
(defun ibuffer-map-on-mark (mark func) |
1703 |
(ibuffer-map-lines |
(ibuffer-map-lines |
1704 |
#'(lambda (buf mk) |
#'(lambda (buf mk) |
1817 |
(funcall pred buf)) |
(funcall pred buf)) |
1818 |
(setq hit t))) |
(setq hit t))) |
1819 |
hit)) |
hit)) |
1820 |
|
|
1821 |
(defun ibuffer-filter-buffers (ibuffer-buf last bmarklist all) |
(defun ibuffer-filter-buffers (ibuffer-buf last bmarklist all) |
1822 |
(let ((ext-loaded (featurep 'ibuf-ext))) |
(let ((ext-loaded (featurep 'ibuf-ext))) |
1823 |
(delq nil |
(delq nil |
2300 |
'\\[ibuffer-save-filter-groups]' - Save the current groups with a name. |
'\\[ibuffer-save-filter-groups]' - Save the current groups with a name. |
2301 |
'\\[ibuffer-switch-to-saved-filter-groups]' - Restore previously saved groups. |
'\\[ibuffer-switch-to-saved-filter-groups]' - Restore previously saved groups. |
2302 |
'\\[ibuffer-delete-saved-filter-groups]' - Delete previously saved groups. |
'\\[ibuffer-delete-saved-filter-groups]' - Delete previously saved groups. |
2303 |
|
|
2304 |
Sorting commands: |
Sorting commands: |
2305 |
|
|
2306 |
'\\[ibuffer-toggle-sorting-mode]' - Rotate between the various sorting modes. |
'\\[ibuffer-toggle-sorting-mode]' - Rotate between the various sorting modes. |