[nongnu] elpa/wfnames 7cb60691c8 69/98: Change some bindings and add wfnames-abort

[ELPA Syncer]

branch: elpa/wfnames
commit 7cb60691c89ca33223570aca922c6583448e8ca8
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Change some bindings and add wfnames-abort
---
 wfnames.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/wfnames.el b/wfnames.el
index f1c03c2f3f..8dfaf0358e 100644
--- a/wfnames.el
+++ b/wfnames.el
@@ -76,8 +76,9 @@
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "C-c C-c") #'wfnames-commit-buffer)
     (define-key map (kbd "C-x C-s") #'wfnames-commit-buffer)
-    (define-key map (kbd "C-c C-k") #'wfnames-revert-changes)
-    (define-key map (kbd "TAB") #'completion-at-point)
+    (define-key map (kbd "C-c R")   #'wfnames-revert-changes)
+    (define-key map (kbd "C-c C-k") #'wfnames-abort)
+    (define-key map (kbd "TAB")     #'completion-at-point)
     map))
 
 (defun wfnames-capf ()
@@ -99,6 +100,10 @@ Special commands:
   (make-local-variable 'wfnames--modified)
   (set (make-local-variable 'completion-at-point-functions) #'wfnames-capf))
 
+(defun wfnames-abort ()
+  (interactive)
+  (quit-window t))
+
 (defun wfnames-after-change-hook (beg end _len)
   (with-current-buffer wfnames-buffer
     (save-excursion