From 3557df9912c22ca77a2fd6d678781a3afc46fb1a Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 27 Jan 2015 01:25:25 -0500 Subject: Rewrite diff advice as separate function --- lisp/init-external.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'lisp/init-external.el') diff --git a/lisp/init-external.el b/lisp/init-external.el index 3d44f64..10d0142 100644 --- a/lisp/init-external.el +++ b/lisp/init-external.el @@ -140,7 +140,10 @@ monitor setup)." (setq ediff-window-setup-function 'ediff-setup-windows-plain) -(defadvice diff (after diff-select-and-view activate) +(defun km/diff () + "Run `diff` and then select buffer and turn on View mode." + (interactive) + (call-interactively #'diff) (select-window (get-buffer-window "*Diff*")) (view-mode 1)) @@ -164,7 +167,7 @@ monitor setup)." (ediff file-a file-b) (user-error "At least one buffer is not visiting a file")))) -(define-key km/external-map "d" 'diff) +(define-key km/external-map "d" 'km/diff) (define-key km/external-map "e" 'ediff) (define-key km/external-map "o" 'km/ediff-with-other-window) -- cgit v1.2.3