branch: elpa/free-keys
commit 8c9ea744c1ebe246567a5b7a36e1a388e18809a7
Author: Matus Goljer <[email protected]>
Commit: Matus Goljer <[email protected]>
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
