Mercurial > emacs
comparison lisp/help.el @ 23291:15b83e8bd4da
(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)))) |