diff options
| author | Dave Love <fx@gnu.org> | 1999-10-28 09:48:39 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-10-28 09:48:39 +0000 |
| commit | 400c12fd9831fa06739ecd3e24b68d051d9c138c (patch) | |
| tree | 7ad9c6063d9869c1faaf08c4127f020b31336b29 | |
| parent | 42f6a24af579b7ed500a23b9de096ab1f1a4c8c8 (diff) | |
| download | emacs-400c12fd9831fa06739ecd3e24b68d051d9c138c.tar.gz emacs-400c12fd9831fa06739ecd3e24b68d051d9c138c.tar.bz2 emacs-400c12fd9831fa06739ecd3e24b68d051d9c138c.zip | |
(help-follow): Make arg optional again and really default to point.
| -rw-r--r-- | lisp/help.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index c9c1821c732..40cc1dc089a 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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)) |