XEmacs 21.2.12

[chise/xemacs-chise.git.1] / lisp / info.el

diff --git a/lisp/info.el b/lisp/info.el
index bc245ff..dc40409 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1542,6 +1542,7 @@ annotation for any node of any file.  (See `a' and `x' commands.)"
       (let ((compl (Info-build-annotation-completions)))
        (save-excursion
          (save-restriction
       (let ((compl (Info-build-annotation-completions)))
        (save-excursion
          (save-restriction

+           (widen)

            (if (marker-buffer Info-tag-table-marker)
                (progn
                  (set-buffer (marker-buffer Info-tag-table-marker))
            (if (marker-buffer Info-tag-table-marker)
                (progn
                  (set-buffer (marker-buffer Info-tag-table-marker))

@@ -1551,7 +1552,6 @@ annotation for any node of any file.  (See `a' and `x' commands.)"
                          (cons (list (buffer-substring (match-beginning 1)
                                                        (match-end 1)))
                                compl))))
                          (cons (list (buffer-substring (match-beginning 1)
                                                        (match-end 1)))
                                compl))))

-             (widen)

              (goto-char (point-min))
              (while (search-forward "\n\^_" nil t)
                (forward-line 1)
              (goto-char (point-min))
              (while (search-forward "\n\^_" nil t)
                (forward-line 1)