1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 28ac693f870..fd17a93a29f 100644
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -461,9 +461,9 @@ that."
              ;; An obvious case of a key substitution:
              (save-excursion
                (while (re-search-forward
-                        ;; Assume command name is only word characters
+                        ;; Assume command name is only word and symbol
-                        ;; and dashes to get things like `use M-x foo.'.
+                        ;; characters to get things like `use M-x foo->bar'.
-                        "\\<M-x\\s-+\\(\\sw\\(\\sw\\|-\\)+\\)" nil t)
+                        "\\<M-x\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)" nil t)
                  (let ((sym (intern-soft (match-string 1))))
                    (if (fboundp sym)
                        (help-xref-button 1 'help-function sym)))))
@@ -489,7 +489,7 @@ that."
                      (end-of-line)
                      (skip-chars-backward "^ \t\n")
                      (if (and (>= (current-column) col)
-                               (looking-at "\\(\\sw\\|-\\)+$"))
+                               (looking-at "\\(\\sw\\|\\s_\\)+$"))
                          (let ((sym (intern-soft (match-string 0))))
                            (if (fboundp sym)
                                (help-xref-button 0 'help-function sym))))

diff --git a/lisp/help-mode.el b/lisp/help-mode.el index 28ac693f870..fd17a93a29f 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el
@@ -461,9 +461,9 @@ that."
461	;; An obvious case of a key substitution:	461	;; An obvious case of a key substitution:
462	(save-excursion	462	(save-excursion
463	(while (re-search-forward	463	(while (re-search-forward
464	;; Assume command name is only word characters	464	;; Assume command name is only word and symbol
465	;; and dashes to get things like `use M-x foo.'.	465	;; characters to get things like `use M-x foo->bar'.
466	"\\<M-x\\s-+\\(\\sw\\(\\sw\\\|-\\)+\\)" nil t)	466	"\\<M-x\\s-+\\(\\sw\\(\\sw\\\|\\s_\\)+\\)" nil t)
467	(let ((sym (intern-soft (match-string 1))))	467	(let ((sym (intern-soft (match-string 1))))
468	(if (fboundp sym)	468	(if (fboundp sym)
469	(help-xref-button 1 'help-function sym)))))	469	(help-xref-button 1 'help-function sym)))))
@@ -489,7 +489,7 @@ that."
489	(end-of-line)	489	(end-of-line)
490	(skip-chars-backward "^ \t\n")	490	(skip-chars-backward "^ \t\n")
491	(if (and (>= (current-column) col)	491	(if (and (>= (current-column) col)
492	(looking-at "\\(\\sw\\\|-\\)+$"))	492	(looking-at "\\(\\sw\\\|\\s_\\)+$"))
493	(let ((sym (intern-soft (match-string 0))))	493	(let ((sym (intern-soft (match-string 0))))
494	(if (fboundp sym)	494	(if (fboundp sym)
495	(help-xref-button 0 'help-function sym))))	495	(help-xref-button 0 'help-function sym))))