From 4edc5f34347efbc4422947bde97f95918d29229e Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Tue, 27 Jun 2023 09:34:11 +1000 Subject: dired and vc --- emacs/.emacs.d/lisp/my/my-dired.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'emacs/.emacs.d/lisp/my') diff --git a/emacs/.emacs.d/lisp/my/my-dired.el b/emacs/.emacs.d/lisp/my/my-dired.el index d80c1c8..c64d9d2 100644 --- a/emacs/.emacs.d/lisp/my/my-dired.el +++ b/emacs/.emacs.d/lisp/my/my-dired.el @@ -139,5 +139,17 @@ With a prefix-arg, call it without using `vc-rename-file'." (funcall rename-fun)) (funcall rename-fun))) +(defun my-dired-display-file (_) + (dired-display-file)) + +(define-minor-mode my-dired-follow-mode + "Diplay file at point in dired after a move." + :lighter " dired-f" + :global t + :group 'dired + (if my-dired-follow-mode + (advice-add 'dired-next-line :after #'my-dired-display-file) + (advice-remove 'dired-next-line #'my-dired-display-file))) + (provide 'my-dired) ;;; my-dired.el ends here -- cgit v1.2.3