[nongnu] elpa/free-keys 3b4a18417b 06/19: Add revert function

[ELPA Syncer]

branch: elpa/free-keys
commit 3b4a18417bbe9ff435d3d8d345b9bb30c1852039
Author: Matus Goljer <dota.keys@gmail.com>
Commit: Matus Goljer <dota.keys@gmail.com>

    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