Mercurial > emacs

comparison lisp/help.el @ 23291:15b83e8bd4da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-make-xrefs): Fix typo affecting Info references.
author Dave Love <fx@gnu.org>
date Mon, 21 Sep 1998 17:39:54 +0000
parents cd79894839e7
children d0403c974cac
comparison
equal deleted inserted replaced
23290:9917b9a0024d 23291:15b83e8bd4da
947 ((fboundp sym) 947 ((fboundp sym)
948 (help-xref-button 6 #'describe-function sym))))))) 948 (help-xref-button 6 #'describe-function sym)))))))
949 ;; Info references 949 ;; Info references
950 (save-excursion 950 (save-excursion
951 (while (re-search-forward help-xref-info-regexp nil t) 951 (while (re-search-forward help-xref-info-regexp nil t)
952 (help-xref-button 1 #'Info-goto-node (list (match-data 1))))) 952 (help-xref-button 1 #'Info-goto-node (match-string 1))))
953 ;; An obvious case of a key substitution: 953 ;; An obvious case of a key substitution:
954 (save-excursion 954 (save-excursion
955 (while (re-search-forward 955 (while (re-search-forward
956 "\\<M-x\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)" nil t) 956 "\\<M-x\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)" nil t)
957 (let ((sym (intern-soft (match-string 1)))) 957 (let ((sym (intern-soft (match-string 1))))