diff options
| author | Dave Love | 1999-10-28 09:48:39 +0000 |
|---|---|---|
| committer | Dave Love | 1999-10-28 09:48:39 +0000 |
| commit | 400c12fd9831fa06739ecd3e24b68d051d9c138c (patch) | |
| tree | 7ad9c6063d9869c1faaf08c4127f020b31336b29 | |
| parent | 42f6a24af579b7ed500a23b9de096ab1f1a4c8c8 (diff) | |
| download | emacs-400c12fd9831fa06739ecd3e24b68d051d9c138c.tar.gz 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." | |||
| 1165 | (interactive) | 1165 | (interactive) |
| 1166 | (help-follow (1- (point-max)))) | 1166 | (help-follow (1- (point-max)))) |
| 1167 | 1167 | ||
| 1168 | (defun help-follow (pos) | 1168 | (defun help-follow (&optional pos) |
| 1169 | "Follow cross-reference at POS, defaulting to point. | 1169 | "Follow cross-reference at POS, defaulting to point. |
| 1170 | 1170 | ||
| 1171 | For the cross-reference format, see `help-make-xrefs'." | 1171 | For the cross-reference format, see `help-make-xrefs'." |
| 1172 | (interactive "d") | 1172 | (interactive "d") |
| 1173 | (unless pos | ||
| 1174 | (setq pos (point))) | ||
| 1173 | (let* ((help-data | 1175 | (let* ((help-data |
| 1174 | (or (and (not (= pos (point-max))) | 1176 | (or (and (not (= pos (point-max))) |
| 1175 | (get-text-property pos 'help-xref)) | 1177 | (get-text-property pos 'help-xref)) |