# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1186627750 0
# Node ID 740099935129b82e889ad005d7bd2b6b8306c801
# Parent  364329b928dc9fe72b583baec7a83503f79ff5aa
(help-make-xrefs): Fix previous change.

diff -r 364329b928dc -r 740099935129 lisp/help-mode.el
--- a/lisp/help-mode.el	Thu Aug 09 01:41:08 2007 +0000
+++ b/lisp/help-mode.el	Thu Aug 09 02:49:10 2007 +0000
@@ -438,7 +438,9 @@
                 (while (re-search-forward
                         ;; 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)
+                        ;; 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))))
                     (if (fboundp sym)
                         (help-xref-button 1 'help-function sym)))))