[Emacs-diffs] Changes to emacs/lisp/info.el

[Eli Zaretskii]

Index: emacs/lisp/info.el
diff -u emacs/lisp/info.el:1.483 emacs/lisp/info.el:1.484
--- emacs/lisp/info.el:1.483    Sat Apr  8 10:10:35 2006
+++ emacs/lisp/info.el  Sat May 20 20:06:45 2006
@@ -2907,6 +2907,13 @@
          manuals matches node nodes)
       (let ((Info-fontify-maximum-menu-size nil))
        (Info-directory)
+       ;; current-node and current-file are nil when they invoke info-apropos
+       ;; as the first Info command, i.e. info-apropos loads info.el.  In that
+       ;; case, we use (DIR)Top instead, to avoid signalling an error after
+       ;; the search is complete.
+       (when (null current-node)
+         (setq current-file Info-current-file)
+         (setq current-node Info-current-node))
        (message "Searching indices...")
        (goto-char (point-min))
        (re-search-forward "\\* Menu: *\n" nil t)