branch: elpa/free-keys
commit 3b4a18417bbe9ff435d3d8d345b9bb30c1852039
Author: Matus Goljer <[email protected]>
Commit: Matus Goljer <[email protected]>
Add revert function
---
free-keys.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/free-keys.el b/free-keys.el
index 902eeb16e2..fa7e6b4509 100644
--- a/free-keys.el
+++ b/free-keys.el
@@ -81,6 +81,9 @@
(interactive "bShow free bindings for buffer: ")
(free-keys nil (get-buffer-create buffer)))
+(defun free-keys-revert-buffer (_ _)
+ (free-keys nil free-keys-original-buffer))
+
;;;###autoload
(defun free-keys (&optional prefix buffer)
(interactive (list (when current-prefix-arg
@@ -131,7 +134,8 @@
Display the free keybindings in current buffer.
-\\{free-keys-mode-map}")
+\\{free-keys-mode-map}"
+ (set (make-local-variable 'revert-buffer-function) 'free-keys-revert-buffer))
(provide 'free-keys)
;;; free-keys.el ends here
