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 | 37ba5cd6973d967bda070b0b93ee8bbe4801eb30 (patch) | |
| tree | 9b873334d2b7e046aba39109d9c7c9cf577d1615 /lisp/help-mode.el | |
| parent | cb03ed6221c2237ca2017e8f50441ed9e3b73401 (diff) | |
| download | emacs-37ba5cd6973d967bda070b0b93ee8bbe4801eb30.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. |