summaryrefslogtreecommitdiff
path: root/lisp/help-mode.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2007-08-08 08:00:43 +0000
committerGlenn Morris <rgm@gnu.org>2007-08-08 08:00:43 +0000
commit123437b4c199fcd6fd2c7cd9489da721ebf1864d (patch)
treebf2435c337fdfe8eee307e317af8507604188947 /lisp/help-mode.el
parente6cd99dc691dce64e1878b426c59c58e31185627 (diff)
downloademacs-123437b4c199fcd6fd2c7cd9489da721ebf1864d.tar.gz
(help-make-xrefs): Search for symbol constituents, rather than just `-'.
Diffstat (limited to 'lisp/help-mode.el')
-rw-r--r--lisp/help-mode.el8
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
- ;; 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 @@ 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))))