diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-05-19 00:56:46 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-05-19 00:56:46 +0000 |
| commit | 933cd61ed486b4900d8771c958f00cffad2f6c48 (patch) | |
| tree | cca2ccbc060aba48b3b317faebc75fd2a8dcbc0b /lisp/help-mode.el | |
| parent | b1e5937ca1bb2202e372e2d35122ad10077e5a61 (diff) | |
| download | emacs-933cd61ed486b4900d8771c958f00cffad2f6c48.tar.gz | |
(help-go-back): Don't depend on position of back button.
Diffstat (limited to 'lisp/help-mode.el')
| -rw-r--r-- | lisp/help-mode.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index 1f1b529c8ef..11656ec368c 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -577,12 +577,11 @@ help buffer." (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. |