[nongnu] elpa/free-keys 8c9ea744c1 08/19: Move header help into header-line-format

[ELPA Syncer]

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

    Move header help into header-line-format
---
 free-keys.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/free-keys.el b/free-keys.el
index bc7a18fad5..1b19c76743 100644
--- a/free-keys.el
+++ b/free-keys.el
@@ -97,8 +97,6 @@
           (read-only-mode -1)
         (setq buffer-read-only nil))
       (erase-buffer)
-      (insert "Help: (b) change buffer (p) change prefix (q) quit\n"
-              "--------------------------------------------------\n\n")
       (insert "Free keys"
               (if (not (equal prefix "")) (format " with prefix %s" prefix) "")
               " in buffer "
@@ -136,7 +134,8 @@
 Display the free keybindings in current buffer.
 
 \\{free-keys-mode-map}"
-  (set (make-local-variable 'revert-buffer-function) 'free-keys-revert-buffer))
+  (set (make-local-variable 'revert-buffer-function) 'free-keys-revert-buffer)
+  (set (make-local-variable 'header-line-format) "Help: (b) change buffer (p) 
change prefix (q) quit"))
 
 (provide 'free-keys)
 ;;; free-keys.el ends here