*** empty log message ***

1 files changed, 9 insertions, 9 deletions

diff --git a/lisp/info.el b/lisp/info.el
index 996c35152d6..a044aa77796 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -186,15 +186,16 @@ to read a file name from the minibuffer."
             (progn (setq Info-current-node nodename)
                    (Info-set-mode-line))
           ;; Search file for a suitable node.
-          ;; First get advice from tag table if file has one.
-          ;; Also, if this is an indirect info file,
-          ;; read the proper subfile into this buffer.
-          (let ((guesspos (point-min)))
+          (let ((guesspos (point-min))
+                (regexp (concat "Node: *" (regexp-quote nodename) " *[,\t\n\177]")))
+            ;; First get advice from tag table if file has one.
+            ;; Also, if this is an indirect info file,
+            ;; read the proper subfile into this buffer.
             (if (marker-position Info-tag-table-marker)
                 (save-excursion
                   (set-buffer (marker-buffer Info-tag-table-marker))
                   (goto-char Info-tag-table-marker)
-                  (if (search-forward (concat "Node: " nodename "\177") nil t)
+                  (if (re-search-forward regexp nil t)
                       (progn
                         (setq guesspos (read (current-buffer)))
                         ;; If this is an indirect file,
@@ -204,10 +205,9 @@ to read a file name from the minibuffer."
                             (setq guesspos
                                   (Info-read-subfile guesspos))))
                     (error "No such node: \"%s\"" nodename))))
-            (goto-char (max (point-min) (- guesspos 1000))))
-          ;; Now search from our advised position (or from beg of buffer)
-          ;; to find the actual node.
-          (let ((regexp (concat "Node: *" (regexp-quote nodename) " *[,\t\n]")))
+            (goto-char (max (point-min) (- guesspos 1000)))
+            ;; Now search from our advised position (or from beg of buffer)
+            ;; to find the actual node.
             (catch 'foo
               (while (search-forward "\n\^_" nil t)
                 (forward-line 1)