Mercurial > emacs

changeset 21972:9c71660c0a8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-function-1): Use find-function-noselect instead of find-function.
author Richard M. Stallman <rms@gnu.org>
date Thu, 07 May 1998 05:30:07 +0000
parents 23bf812d4937
children f3d29552e393
files lisp/help.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help.el	Thu May 07 04:51:41 1998 +0000
+++ b/lisp/help.el	Thu May 07 05:30:07 1998 +0000
@@ -628,7 +628,12 @@
 	  (with-current-buffer "*Help*"
 	    (save-excursion
 	      (re-search-backward "`\\([^`']+\\)'" nil t)
-	      (help-xref-button 1 #'find-function function)))))
+	      (help-xref-button 1 #'(lambda (arg)
+				      (let ((location
+					     (find-function-noselect arg)))
+					(display-buffer (nth 0 location))
+					(goto-char (nth 1 location))))
+				function)))))
     (if need-close (princ ")"))
     (princ ".")
     (terpri)