Commit 22ce475b authored by Glenn Morris's avatar Glenn Morris
Browse files

(help-make-xrefs): Fix previous change.

parent 0ba39347
...@@ -461,9 +461,11 @@ that." ...@@ -461,9 +461,11 @@ that."
;; An obvious case of a key substitution: ;; An obvious case of a key substitution:
(save-excursion (save-excursion
(while (re-search-forward (while (re-search-forward
;; Assume command name is only word and symbol ;; Assume command name is only word and symbol
;; characters to get things like `use M-x foo->bar'. ;; characters to get things like `use M-x foo->bar'.
"\\<M-x\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)" nil t) ;; Command required to end with word constituent
;; to avoid `.' at end of a sentence.
"\\<M-x\\s-+\\(\\sw\\(\\sw\\|\\s_\\)*\\sw\\)" nil t)
(let ((sym (intern-soft (match-string 1)))) (let ((sym (intern-soft (match-string 1))))
(if (fboundp sym) (if (fboundp sym)
(help-xref-button 1 'help-function sym))))) (help-xref-button 1 'help-function sym)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment