577 |
(goto-char position))))) |
(goto-char position))))) |
578 |
|
|
579 |
(defun help-go-back () |
(defun help-go-back () |
580 |
"Invoke the [back] button (if any) in the Help mode buffer." |
"Go back to previous topic in this help buffer." |
581 |
(interactive) |
(interactive) |
582 |
(let ((back-button (button-at (1- (point-max))))) |
(if help-xref-stack |
583 |
(if back-button |
(help-xref-go-back (current-buffer)) |
584 |
(button-activate back-button) |
(error "No previous help buffer."))) |
|
(error "No [back] button")))) |
|
585 |
|
|
586 |
(defun help-do-xref (pos function args) |
(defun help-do-xref (pos function args) |
587 |
"Call the help cross-reference function FUNCTION with args ARGS. |
"Call the help cross-reference function FUNCTION with args ARGS. |