Skip to content

Instantly share code, notes, and snippets.

@rmcm
Created August 9, 2010 00:13
Show Gist options
  • Save rmcm/514716 to your computer and use it in GitHub Desktop.
Save rmcm/514716 to your computer and use it in GitHub Desktop.
externally visited files
;; -----------------------------------------
;; List of visited files - for reversion (V)
;; eg when external process visits files.
;; -----------------------------------------
(require 'ibuffer)
(require 'ibuf-ext)
(define-ibuffer-filter my-revisited-buffers
"Filter buffers that have been revisited"
(:description "revisited buffers"
:reader (ido-read-directory-name "dname"))
(with-current-buffer buf
(not (verify-visited-file-modtime buf))))
;; ----------------------------------------
;; use ibuffer to list revisited buffers
;; (eg git checkouts)
;; ----------------------------------------
(defun my-revert-files ()
"Revert files which have been visited externally."
(interactive)
(ibuffer nil "*Buffers Visited Externally*"
(list (cons 'my-revisited-buffers ""))))
(global-set-key (kbd "C-c e z") 'my-revert-files)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment