X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/cf950e6bbdeec3f6aab3e119f26f9cd5d962ac2e..98cd6c18c57c031d8c0a0d13284375b8ccf60439:/lisp/info.el

diff --git a/lisp/info.el b/lisp/info.el
index cbdc8cc7ab..447c86b3e9 100644
--- 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)