From 975c3b347f39f1ced00d1e0701aac9234f232b7f Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 25 Feb 2016 22:40:54 -0500 Subject: Add diff-current-buffer-with-file command --- lisp/km-diff.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lisp') diff --git a/lisp/km-diff.el b/lisp/km-diff.el index b5d3c4b..9c2b143 100644 --- a/lisp/km-diff.el +++ b/lisp/km-diff.el @@ -33,6 +33,14 @@ (abbreviate-file-name (substring-no-properties (diff-find-file-name)))))) +;;;###autoload +(defun km/diff-current-buffer-with-file () + "Like `diff-buffer-with-file', but use current buffer without prompting." + (interactive) + (unless (buffer-file-name) + (user-error "Buffer isn't associated with a file")) + (diff-buffer-with-file (current-buffer))) + (defun km/diff--with-other-window (diff-func) (let ((windows (window-list))) (unless (= (length windows) 2) -- cgit v1.2.3