1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00

(help-follow): Make arg optional again and really default to point.

This commit is contained in:
Dave Love 1999-10-28 09:48:39 +00:00
parent 42f6a24af5
commit 400c12fd98

View file

@ -1165,11 +1165,13 @@ help buffer."
(interactive)
(help-follow (1- (point-max))))
(defun help-follow (pos)
(defun help-follow (&optional pos)
"Follow cross-reference at POS, defaulting to point.
For the cross-reference format, see `help-make-xrefs'."
(interactive "d")
(unless pos
(setq pos (point)))
(let* ((help-data
(or (and (not (= pos (point-max)))
(get-text-property pos 'help-xref))