From 2ff55eb5efb4f1a4116d92ff25cd1d71831d1c33 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 14 Feb 2016 12:41:47 -0500
Subject: diff: Add command to lock buffer name

---
 init.el         | 4 +++-
 lisp/km-diff.el | 9 +++++++++
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 8c3cbc0..e7d7e99 100644
--- a/init.el
+++ b/init.el
@@ -1444,7 +1444,9 @@
 (use-package km-diff
   :defer t
   :init
-  (define-key km/external-map "o" #'km/ediff-with-other-window))
+  (define-key km/external-map "o" #'km/ediff-with-other-window)
+  (after 'diff-mode
+    (define-key diff-mode-map (kbd "C-c C-l") #'km/diff-lock-buffer)))
 
 
 ;;; Text modes
diff --git a/lisp/km-diff.el b/lisp/km-diff.el
index 371d1c9..05a8d0b 100644
--- a/lisp/km-diff.el
+++ b/lisp/km-diff.el
@@ -23,6 +23,15 @@
 (require 'dash)
 (require 'ediff)
 
+;;;###autoload
+(defun km/diff-lock-buffer ()
+  "Rename current diff buffer to include new file name."
+  (interactive)
+  (rename-buffer
+   (format "*Diff: %s*"
+           (abbreviate-file-name
+            (substring-no-properties (diff-find-file-name))))))
+
 ;;;###autoload
 (defun km/ediff-with-other-window ()
   "Run `ediff' on current window's file and other window's file."
-- 
cgit v1.2.3