emacs/lisp/ibuffer.el

11 ;; This file is part of GNU Emacs.
24 ;; along with this program ; see the file COPYING.  If not, write to
129 to your ~/.emacs file.
145     (15 (and buffer-file-name
146 	     (string-match ibuffer-compressed-file-name-regexp
147 			   buffer-file-name))
151 	     (null buffer-file-name))
170 (defcustom ibuffer-use-other-window nil
171   "If non-nil, display Ibuffer in another window by default."
176   "If non-nil, minimize the size of the Ibuffer window by default."
230 						   (null buffer-file-name))))
327 (defcustom ibuffer-compressed-file-name-regexp
329   "Regexp to match compressed file names."
373   "An alist of file name abbreviations like `directory-abbrev-alist'."
402     (define-key map (kbd "=") 'ibuffer-diff-with-file)
416     (define-key map (kbd "* z") 'ibuffer-mark-compressed-file-buffers)
486     (define-key map (kbd "% f") 'ibuffer-mark-by-file-name-regexp)
491     (define-key map (kbd "!") 'ibuffer-do-shell-command-file)
497     (define-key map (kbd "F") 'ibuffer-do-shell-command-file)
499     (define-key map (kbd "H") 'ibuffer-do-view-other-frame)
519     (define-key map (kbd "C-x C-f") 'ibuffer-find-file)
520     (define-key map (kbd "o") 'ibuffer-visit-buffer-other-window)
521     (define-key map (kbd "C-o") 'ibuffer-visit-buffer-other-window-noselect)
522     (define-key map (kbd "M-o") 'ibuffer-visit-buffer-1-window)
526     (define-key map (kbd "C-x 4 RET") 'ibuffer-visit-buffer-other-window)
527     (define-key map (kbd "C-x 5 RET") 'ibuffer-visit-buffer-other-frame)
534     (define-key-after map [menu-bar view visit-buffer-other-window]
535       '(menu-item "View (other window)" ibuffer-visit-buffer-other-window))
536     (define-key-after map [menu-bar view visit-buffer-other-frame]
537       '(menu-item "View (other frame)" ibuffer-visit-buffer-other-frame))
686     (define-key-after map [menu-bar view diff-with-file]
687       '(menu-item "Diff with file" ibuffer-diff-with-file
688 		  :help "View the differences between this buffer and its file"))
716 		  :help "Mark all buffers which have a file and are modified"))
728 		  :help "Mark buffers with a non-existent associated file"))
732     (define-key-after map [menu-bar mark mark-compressed-file-buffers]
733       '(menu-item "Mark compressed file buffers" ibuffer-mark-compressed-file-buffers
734 		  :help "Mark buffers which have a file that is compressed"))
750     (define-key-after map [menu-bar mark mark-by-file-name-regexp]
751       '(menu-item "Mark by file name (regexp)..." ibuffer-mark-by-file-name-regexp
752 		  :help "Mark buffers whose file name matches a regexp"))
758     (define-key-after operate-map [do-view-other-frame]
759       '(menu-item "View (separate frame)" ibuffer-do-view-other-frame))
777 		  :help "Revert marked buffers to their associated file"))
792     (define-key-after operate-map [do-shell-command-file]
793       '(menu-item "Shell command on buffer's file..." ibuffer-do-shell-command-file
794 		  :help "For each marked buffer, run a shell command with its file as argument"))
853 (defvar ibuffer-restore-window-config-on-quit nil
854   "If non-nil, restore previous window configuration upon exiting `ibuffer'.")
856 (defvar ibuffer-prev-window-config nil
881 The maximum number of columns is determined by the current window
885   (let ((width (window-width))
921 (defun ibuffer-find-file (file &optional wildcards)
922   "Like `find-file', but default to the directory of the buffer at point."
929      (list (read-file-name "Find file: " default-directory)
931   (find-file file wildcards))
1037 one window."
1043       (delete-other-windows))))
1045 (defun ibuffer-visit-buffer-other-window (&optional noselect)
1046   "Visit the buffer on this line in another window."
1051 	(let ((curwin (selected-window)))
1053 	  (select-window curwin))
1054       (switch-to-buffer-other-window buf))))
1056 (defun ibuffer-visit-buffer-other-window-noselect ()
1057   "Visit the buffer on this line in another window, but don't select it."
1059   (ibuffer-visit-buffer-other-window t))
1061 (defun ibuffer-visit-buffer-other-frame ()
1066     (switch-to-buffer-other-frame buf)))
1068 (defun ibuffer-visit-buffer-1-window ()
1069   "Visit the buffer on this line, and delete other windows."
1085   (let ((file (buffer-file-name (ibuffer-current-buffer t))))
1086     (if file
1087 	(visit-tags-table file)
1088       (error "Specified buffer has no file"))))
1090 (defun ibuffer-do-view (&optional other-frame)
1094 a new window in the current frame, splitting vertically."
1096   (ibuffer-do-view-1 (if other-frame 'other-frame 'vertically)))
1098 (defun ibuffer-do-view-horizontally (&optional other-frame)
1101   (ibuffer-do-view-1 (if other-frame 'other-frame 'horizontally)))
1107     (unless (and (eq type 'other-frame)
1113       (delete-other-windows)
1118 	(mapcar (if (eq type 'other-frame)
1125 		      (split-window nil height (eq type 'horizontally))
1126 		      (other-window 1)
1130 (defun ibuffer-do-view-other-frame ()
1140   (fit-window-to-buffer nil (when owin (/ (frame-height)
1141 					  (length (window-list (selected-frame)))))))
1155 	  (let ((lastwin (car (last (window-list nil 'nomini)))))
1157 	    (save-window-excursion
1158 	      (select-window lastwin)
1159 	      ;; The window might be too small to split; in that case,
1166 			(split-window)
1176 		       (enlarge-window 3))))))
1177 	      (select-window (next-window))
1181 		    (fit-window-to-buffer)
1229 	       buffer-file-name))
1231 	;; for a file name
1232 	(save-window-excursion
1300 In other words, unmarked buffers become marked, and marked buffers
1736 	     ((= 1 total) "1 file")
1739     (abbreviate-file-name
1740      (or buffer-file-name
1761 		     ((= 1 files) "1 file")
2270 Try to restore the previous window configuration iff
2271 `ibuffer-restore-window-config-on-quit' is non-nil."
2273   (if ibuffer-restore-window-config-on-quit
2277 	  (set-window-configuration ibuffer-prev-window-config)))
2282   "Display a list of buffers, in another window.
2284 buffers which are visiting a file."
2290 (defun ibuffer-other-window (&optional files-only)
2291   "Like `ibuffer', but displayed in another window by default.
2293 buffers which are visiting a file."
2299 (defun ibuffer (&optional other-window-p name qualifiers noselect
2305 OTHER-WINDOW-P says to use another window.
2311   value `onewindow' means always use another window.
2318   (when ibuffer-use-other-window
2319     (setq other-window-p t))
2320   (setq ibuffer-prev-window-config (current-window-configuration))
2322     (if other-window-p
2326       (save-selected-window
2327 	;; We switch to the buffer's window in order to be able
2329 	(select-window (get-buffer-window buf 0))
2332 	(setq ibuffer-restore-window-config-on-quit other-window-p)
2365   '\\[ibuffer-do-view-other-frame]' - View the marked buffers in another frame.
2380   '\\[ibuffer-do-shell-command-file]' - Run a shell command with the
2381           buffer's file as an argument.
2403           This means that the buffer is modified, and has an associated file.
2405           regardless of whether or not they have an associated file.
2409           an associated file, but that file doesn't currently exist.
2417   '\\[ibuffer-mark-by-file-name-regexp]' - Mark buffers by their filename, using a regexp.
2469   '\\[ibuffer-diff-with-file]' - View the differences between this buffer
2470           and its associated file.
2472   '\\[ibuffer-visit-buffer-other-window]' - As above, but in another window.
2473   '\\[ibuffer-visit-buffer-other-window-noselect]' - As both above, but don't select
2474           the new window.
2564   (set (make-local-variable 'ibuffer-restore-window-config-on-quit) nil)