/[emacs]/emacs/lisp/ibuffer.el
ViewVC logotype

Diff of /emacs/lisp/ibuffer.el

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

revision 1.48 by jpw, Fri Jan 24 04:53:31 2003 UTC revision 1.49 by lektu, Tue Feb 4 11:25:44 2003 UTC
# Line 364  directory, like `default-directory'." Line 364  directory, like `default-directory'."
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)
# Line 425  directory, like `default-directory'." Line 425  directory, like `default-directory'."
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)
# Line 433  directory, like `default-directory'." Line 433  directory, like `default-directory'."
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)
# Line 458  directory, like `default-directory'." Line 458  directory, like `default-directory'."
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    
# Line 683  directory, like `default-directory'." Line 683  directory, like `default-directory'."
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"))
# Line 744  directory, like `default-directory'." Line 744  directory, like `default-directory'."
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))))
# Line 1094  a new window in the current frame, split Line 1094  a new window in the current frame, split
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)
# Line 1338  If point is on a group name, this functi Line 1338  If point is on a group name, this functi
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))
# Line 1366  If point is on a group name, this functi Line 1366  If point is on a group name, this functi
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)
# Line 1566  If point is on a group name, this functi Line 1566  If point is on a group name, this functi
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!"))
# Line 1614  If point is on a group name, this functi Line 1614  If point is on a group name, this functi
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    
# Line 1698  If point is on a group name, this functi Line 1698  If point is on a group name, this functi
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)
# Line 1817  the value of point at the beginning of t Line 1817  the value of point at the beginning of t
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
# Line 2300  Filter group commands: Line 2300  Filter group commands:
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.

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

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