Mercurial > emacs
comparison lisp/help-mode.el @ 78515:740099935129
(help-make-xrefs): Fix previous change.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 09 Aug 2007 02:49:10 +0000 |
parents | 480b6a56b1bf |
children | 73661ddc7ac7 |
comparison
equal
deleted
inserted
replaced
78514:364329b928dc | 78515:740099935129 |
---|---|
436 ;; An obvious case of a key substitution: | 436 ;; An obvious case of a key substitution: |
437 (save-excursion | 437 (save-excursion |
438 (while (re-search-forward | 438 (while (re-search-forward |
439 ;; Assume command name is only word and symbol | 439 ;; Assume command name is only word and symbol |
440 ;; characters to get things like `use M-x foo->bar'. | 440 ;; characters to get things like `use M-x foo->bar'. |
441 "\\<M-x\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)" nil t) | 441 ;; Command required to end with word constituent |
442 ;; to avoid `.' at end of a sentence. | |
443 "\\<M-x\\s-+\\(\\sw\\(\\sw\\|\\s_\\)*\\sw\\)" nil t) | |
442 (let ((sym (intern-soft (match-string 1)))) | 444 (let ((sym (intern-soft (match-string 1)))) |
443 (if (fboundp sym) | 445 (if (fboundp sym) |
444 (help-xref-button 1 'help-function sym))))) | 446 (help-xref-button 1 'help-function sym))))) |
445 ;; Look for commands in whole keymap substitutions: | 447 ;; Look for commands in whole keymap substitutions: |
446 (save-excursion | 448 (save-excursion |