# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1186560043 0
# Node ID b6f47ca099b7cf3c8febba6849ea6f8e3bd06508
# Parent  53b6f6eafb28f11645b88cea3d97d509f49daf6a
(help-make-xrefs): Search for symbol constituents, rather than just `-'.

diff -r 53b6f6eafb28 -r b6f47ca099b7 lisp/help-mode.el
--- a/lisp/help-mode.el	Tue Aug 07 21:06:29 2007 +0000
+++ b/lisp/help-mode.el	Wed Aug 08 08:00:43 2007 +0000
@@ -461,9 +461,9 @@
               ;; An obvious case of a key substitution:
               (save-excursion
                 (while (re-search-forward
-			;; Assume command name is only word characters
-			;; and dashes to get things like `use M-x foo.'.
-                        "\\<M-x\\s-+\\(\\sw\\(\\sw\\|-\\)+\\)" nil t)
+			;; Assume command name is only word and symbol
+                        ;; characters to get things like `use M-x foo->bar'.
+                        "\\<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 @@
 		      (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))))