[Emacs-diffs] Changes to emacs/lisp/help-mode.el,v [EMACS_22_BASE]

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Glenn Morris <gm>       07/08/08 08:03:53

Index: help-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help-mode.el,v
retrieving revision 1.51.2.2
retrieving revision 1.51.2.3
diff -u -b -r1.51.2.2 -r1.51.2.3
--- help-mode.el        25 Jul 2007 04:47:20 -0000      1.51.2.2
+++ help-mode.el        8 Aug 2007 08:03:53 -0000       1.51.2.3
@@ -436,9 +436,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)))))
@@ -464,7 +464,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))))