comparison lisp/help-mode.el @ 82334:081f1ab64053

(help-make-xrefs): Fix previous change.

82333:ad137165d9cc

			 ((fboundp sym)
			  (help-xref-button 8 'help-function sym)))))))
              ;; An obvious case of a key substitution:
              (save-excursion
                (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)
                  (let ((sym (intern-soft (match-string 1))))
                    (if (fboundp sym)
                        (help-xref-button 1 'help-function sym)))))
              ;; Look for commands in whole keymap substitutions:
              (save-excursion

82334:081f1ab64053

			 ((fboundp sym)
			  (help-xref-button 8 'help-function sym)))))))
              ;; An obvious case of a key substitution:
              (save-excursion
                (while (re-search-forward
                        ;; Assume command name is only word and symbol
                        ;; characters to get things like `use M-x foo->bar'.
                        ;; 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)))))
              ;; Look for commands in whole keymap substitutions:
              (save-excursion