aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDave Love1999-10-28 09:48:39 +0000
committerDave Love1999-10-28 09:48:39 +0000
commit400c12fd9831fa06739ecd3e24b68d051d9c138c (patch)
tree7ad9c6063d9869c1faaf08c4127f020b31336b29
parent42f6a24af579b7ed500a23b9de096ab1f1a4c8c8 (diff)
downloademacs-400c12fd9831fa06739ecd3e24b68d051d9c138c.tar.gz
emacs-400c12fd9831fa06739ecd3e24b68d051d9c138c.zip
(help-follow): Make arg optional again and really default to point.
-rw-r--r--lisp/help.el4
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
1171For the cross-reference format, see `help-make-xrefs'." 1171For 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))