* help-mode.el (help-xref-interned): End on point-min.

Fixes: debbugs:12737

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0570703b11d62fd0c479adffe79f31ebc9c86cdc..72192bc79e5b84ca8d5718891d4c645759c402f0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-11-17  Chong Yidong  <cyd@gnu.org>
 
+       * help-mode.el (help-xref-interned): End on point-min (Bug#12737).
+
        * filecache.el (file-cache-add-file): Handle relative file name in
        the argument (Bug#12694).
 

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index c1ce5a521be0dd640ee1f384361c0e320024513f..48c5849d301990291e7290abd94627db0a263a21 100644 (file)
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -677,7 +677,8 @@ help buffer."
                    " is also a " "face." "\n\n" facedoc))
          ;; Don't record the `describe-function' item in the stack.
          (setq help-xref-stack-item nil)
-         (help-setup-xref (list #'help-xref-interned symbol) nil)))))))
+         (help-setup-xref (list #'help-xref-interned symbol) nil))))
+      (goto-char (point-min)))))
 
 \f
 ;; Navigation/hyperlinking with xrefs