diff options
| author | Richard M. Stallman | 2002-01-12 21:00:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-01-12 21:00:17 +0000 |
| commit | 77144ebceb04ff63f284f470382f9e5e8747e416 (patch) | |
| tree | 046d31c8ac157b97609ee34e2c379755f23b81a9 | |
| parent | 9639be74eb4a08a72f8276adba4100a320be491e (diff) | |
| download | emacs-77144ebceb04ff63f284f470382f9e5e8747e416.tar.gz emacs-77144ebceb04ff63f284f470382f9e5e8747e416.zip | |
(help-xref-go-back): Restore POSITION in proper buffer and proper window.
| -rw-r--r-- | lisp/help-mode.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index e041f2f03e8..d424ff4db77 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el | |||
| @@ -560,8 +560,10 @@ help buffer." | |||
| 560 | method (cadr item) | 560 | method (cadr item) |
| 561 | args (cddr item)))) | 561 | args (cddr item)))) |
| 562 | (apply method args) | 562 | (apply method args) |
| 563 | ;; FIXME: are we sure we're in the right buffer ? | 563 | (with-current-buffer buffer |
| 564 | (goto-char position))) | 564 | (if (get-buffer-window buffer) |
| 565 | (set-window-point (get-buffer-window buffer) position) | ||
| 566 | (goto-char position))))) | ||
| 565 | 567 | ||
| 566 | (defun help-go-back () | 568 | (defun help-go-back () |
| 567 | "Invoke the [back] button (if any) in the Help mode buffer." | 569 | "Invoke the [back] button (if any) in the Help mode buffer." |