Mercurial > emacs

changeset 55679:839ccd7aaee0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-go-back): Don't depend on position of back button.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 19 May 2004 00:56:46 +0000
parents f328087732d3
children 197b3ee77f2c
files lisp/help-mode.el
diffstat 1 files changed, 4 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help-mode.el	Wed May 19 00:30:43 2004 +0000
+++ b/lisp/help-mode.el	Wed May 19 00:56:46 2004 +0000
@@ -577,12 +577,11 @@
 	(goto-char position)))))
 
 (defun help-go-back ()
-  "Invoke the [back] button (if any) in the Help mode buffer."
+  "Go back to previous topic in this help buffer."
   (interactive)
-  (let ((back-button (button-at (1- (point-max)))))
-    (if back-button
-	(button-activate back-button)
-      (error "No [back] button"))))
+  (if help-xref-stack
+      (help-xref-go-back (current-buffer))
+    (error "No previous help buffer.")))
 
 (defun help-do-xref (pos function args)
   "Call the help cross-reference function FUNCTION with args ARGS.