Mercurial > emacs
comparison lisp/help-mode.el @ 53455:0e3e62b0f4f2
(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'.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Tue, 30 Dec 2003 23:34:08 +0000 |
| parents | 8221f516da37 |
| children | a0b481c8f7d5 |
comparison
equal
deleted
inserted
replaced
| 53454:bedee14106b1 | 53455:0e3e62b0f4f2 |
|---|---|
| 229 when help commands related to multilingual environment (e.g., | 229 when help commands related to multilingual environment (e.g., |
| 230 `describe-coding-system') are invoked.") | 230 `describe-coding-system') are invoked.") |
| 231 | 231 |
| 232 | 232 |
| 233 (defconst help-xref-info-regexp | 233 (defconst help-xref-info-regexp |
| 234 (purecopy "\\<[Ii]nfo[ \t\n]+node[ \t\n]+`\\([^']+\\)'") | 234 (purecopy "\\<[Ii]nfo[ \t\n]+\\(node\\|anchor\\)[ \t\n]+`\\([^']+\\)'") |
| 235 "Regexp matching doc string references to an Info node.") | 235 "Regexp matching doc string references to an Info node.") |
| 236 | 236 |
| 237 ;;;###autoload | 237 ;;;###autoload |
| 238 (defun help-setup-xref (item interactive-p) | 238 (defun help-setup-xref (item interactive-p) |
| 239 "Invoked from commands using the \"*Help*\" buffer to install some xref info. | 239 "Invoked from commands using the \"*Help*\" buffer to install some xref info. |
| 308 (unwind-protect | 308 (unwind-protect |
| 309 (progn | 309 (progn |
| 310 ;; Info references | 310 ;; Info references |
| 311 (save-excursion | 311 (save-excursion |
| 312 (while (re-search-forward help-xref-info-regexp nil t) | 312 (while (re-search-forward help-xref-info-regexp nil t) |
| 313 (let ((data (match-string 1))) | 313 (let ((data (match-string 2))) |
| 314 (save-match-data | 314 (save-match-data |
| 315 (unless (string-match "^([^)]+)" data) | 315 (unless (string-match "^([^)]+)" data) |
| 316 (setq data (concat "(emacs)" data)))) | 316 (setq data (concat "(emacs)" data)))) |
| 317 (help-xref-button 1 'help-info data)))) | 317 (help-xref-button 2 'help-info data)))) |
| 318 ;; Mule related keywords. Do this before trying | 318 ;; Mule related keywords. Do this before trying |
| 319 ;; `help-xref-symbol-regexp' because some of Mule | 319 ;; `help-xref-symbol-regexp' because some of Mule |
| 320 ;; keywords have variable or function definitions. | 320 ;; keywords have variable or function definitions. |
| 321 (if help-xref-mule-regexp | 321 (if help-xref-mule-regexp |
| 322 (save-excursion | 322 (save-excursion |