When running under emacs -q, always refuse to save the customisations, even if the...

[gnu-emacs] / lisp / info.el

diff --git a/lisp/info.el b/lisp/info.el
index cbdc8cc7ab360582417d5e7d9014d73152191230..447c86b3e9ec1a40f360418f261cf9ae5d7c2bee 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -32,7 +32,7 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'jka-compr) (require 'cl))
+(eval-when-compile (require 'cl))
 
 (defgroup info nil
   "Info subsystem."
@@ -3672,6 +3672,7 @@ If FORK is non-nil, it is passed to `Info-goto-node'."
     (define-key map "<" 'Info-top-node)
     (define-key map ">" 'Info-final-node)
     (define-key map "b" 'beginning-of-buffer)
+    (put 'beginning-of-buffer :advertised-binding "b")
     (define-key map "d" 'Info-directory)
     (define-key map "e" 'Info-edit)
     (define-key map "f" 'Info-follow-reference)