comparison lisp/help-mode.el @ 78505:480b6a56b1bf

(help-make-xrefs): Search for symbol constituents, rather than just `-'.

78504:0203a38a9036

			 ((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 characters
			;; and dashes to get things like `use M-x foo.'.
                        "\\<M-x\\s-+\\(\\sw\\(\\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

		      ;; Skip a single blank line.
		      (and (eolp) (forward-line))
		      (end-of-line)
		      (skip-chars-backward "^ \t\n")
		      (if (and (>= (current-column) col)
			       (looking-at "\\(\\sw\\|-\\)+$"))
			  (let ((sym (intern-soft (match-string 0))))
			    (if (fboundp sym)
				(help-xref-button 0 'help-function sym))))
		      (forward-line))))))
	  (set-syntax-table stab))

78505:480b6a56b1bf

			 ((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

		      ;; Skip a single blank line.
		      (and (eolp) (forward-line))
		      (end-of-line)
		      (skip-chars-backward "^ \t\n")
		      (if (and (>= (current-column) col)
			       (looking-at "\\(\\sw\\|\\s_\\)+$"))
			  (let ((sym (intern-soft (match-string 0))))
			    (if (fboundp sym)
				(help-xref-button 0 'help-function sym))))
		      (forward-line))))))
	  (set-syntax-table stab))