(dired-view-command-alist): New variable.

[gnu-emacs] / lisp / help-mode.el

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index e041f2f03e8d285ae02a34a9de8bb1a18ba25031..d424ff4db77406e1b7239dd4135f5e4b83d6f07d 100644 (file)
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -560,8 +560,10 @@ help buffer."
              method (cadr item)
              args (cddr item))))
     (apply method args)
-    ;; FIXME: are we sure we're in the right buffer ?
-    (goto-char position)))
+    (with-current-buffer buffer
+      (if (get-buffer-window buffer)
+         (set-window-point (get-buffer-window buffer) position)
+       (goto-char position)))))
 
 (defun help-go-back ()
   "Invoke the [back] button (if any) in the Help mode buffer."