diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2003-12-30 23:34:08 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2003-12-30 23:34:08 +0000 |
| commit | 2e10efebcf7b6e6a5f30c26c4828583b1ad4e0b7 (patch) | |
| tree | a7580eae93f4989dd6db9f4f1a7bce0a58097ac8 /lisp/help-mode.el | |
| parent | c1bbeff0a3938e5cb423f00d78638b979a53e8b2 (diff) | |
| download | emacs-2e10efebcf7b6e6a5f30c26c4828583b1ad4e0b7.tar.gz | |
(help-xref-info-regexp): Make hyperlinks to Info documentation if the
anchor (or node) name is preceded by `info anchor' or `Info anchor' in
addition to earlier `info node' and `Info node'.
(help-make-xrefs): Adapt to new value of `help-xref-info-regexp'.
Diffstat (limited to 'lisp/help-mode.el')
| -rw-r--r-- | lisp/help-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index 087e4f159df..032509b9614 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -231,7 +231,7 @@ when help commands related to multilingual environment (e.g., (defconst help-xref-info-regexp - (purecopy "\\<[Ii]nfo[ \t\n]+node[ \t\n]+`\\([^']+\\)'") + (purecopy "\\<[Ii]nfo[ \t\n]+\\(node\\|anchor\\)[ \t\n]+`\\([^']+\\)'") "Regexp matching doc string references to an Info node.") ;;;###autoload @@ -310,11 +310,11 @@ that." ;; Info references (save-excursion (while (re-search-forward help-xref-info-regexp nil t) - (let ((data (match-string 1))) + (let ((data (match-string 2))) (save-match-data (unless (string-match "^([^)]+)" data) (setq data (concat "(emacs)" data)))) - (help-xref-button 1 'help-info data)))) + (help-xref-button 2 'help-info data)))) ;; Mule related keywords. Do this before trying ;; `help-xref-symbol-regexp' because some of Mule ;; keywords have variable or function definitions. |