emacs/lisp/ibuf-ext.el

11 ;; This file is part of GNU Emacs.
24 ;; along with this program ; see the file COPYING.  If not, write to
304       (goto-char (next-single-property-change
307     (goto-char (next-single-property-change
355 ;;;###autoload (autoload 'ibuffer-do-shell-command-file "ibuf-ext")
356 (define-ibuffer-op shell-command-file (command)
358   (:interactive "sShell command on buffer's file: "
363 			  (if buffer-file-name
364 			      buffer-file-name
365 			    (make-temp-file
629 		  (setq pos (next-single-property-change
635 	(goto-char (next-single-property-change
1043 		   (or buffer-file-name
1050 				   (expand-file-name dired-dir))))))
1103     (let ((next (or (car-safe (cdr-safe (memq ibuffer-sorting-mode modes)))
1105       (setq ibuffer-sorting-mode next)
1106       (message "Sorting by %s" next)))
1208 (defun ibuffer-forward-next-marked (&optional count mark direction)
1237 (defun ibuffer-backwards-next-marked (&optional count mark)
1243    (ibuffer-forward-next-marked count mark -1))
1315 (defun ibuffer-diff-with-file ()
1316   "View the differences between this buffer and its associated file.
1317 This requires the external program \"diff\" to be in your `exec-path'."
1322     (diff-buffer-with-file buf)))
1331 With no prefix arg, use the filename sans its directory of each marked file.
1332 With a zero prefix arg, use the complete filename of each marked file.
1333 With \\[universal-argument], use the filename of each marked file relative
1336 You can then feed the file name(s) to other commands with \\[yank]."
1351 			 (let ((name (buffer-file-name buf)))
1357 				  (file-relative-name
1361 				  (file-name-nondirectory name)))
1397 (defun ibuffer-mark-by-file-name-regexp (regexp)
1398   "Mark all buffers whose file name matches REGEXP."
1399   (interactive "sMark by file name (regexp): ")
1402        (let ((name (or (buffer-file-name buf)
1442   "Mark all modified buffers that have an associated file."
1445    #'(lambda (buf) (and (with-current-buffer buf buffer-file-name)
1450   "Mark all buffers whose associated file does not exist."
1456 	  (and buffer-file-name
1457 	       (not (file-exists-p buffer-file-name)))
1461 	       (not (file-exists-p (file-name-directory dired-directory)))))))))
1473 (defun ibuffer-mark-compressed-file-buffers ()
1474   "Mark buffers whose associated file is compressed."
1479 	 (and buffer-file-name
1480 	      (string-match ibuffer-compressed-file-name-regexp
1481 			   buffer-file-name))))))