[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Eli Zaretskii
Subject: [Emacs-diffs] Changes to emacs/lisp/info.el
Date: Sat, 20 May 2006 20:06:45 +0000

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))
+       ;; 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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]