Mercurial > emacs
comparison lisp/info.el @ 54809:b700f60328cd
(Info-follow-reference): Allow multiline reference name.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 12 Apr 2004 04:46:13 +0000 |
| parents | 3129d46cd5b6 |
| children | 50d070a98492 |
comparison
equal
deleted
inserted
replaced
| 54808:795d79cea402 | 54809:b700f60328cd |
|---|---|
| 1838 (and (looking-back "\\*note[ \n\t]+") | 1838 (and (looking-back "\\*note[ \n\t]+") |
| 1839 (goto-char (match-beginning 0))) | 1839 (goto-char (match-beginning 0))) |
| 1840 (if (and (save-excursion | 1840 (if (and (save-excursion |
| 1841 (goto-char (+ (point) 5)) ; skip a possible *note | 1841 (goto-char (+ (point) 5)) ; skip a possible *note |
| 1842 (re-search-backward "\\*note[ \n\t]+" nil t) | 1842 (re-search-backward "\\*note[ \n\t]+" nil t) |
| 1843 (looking-at (concat "\\*note[ \n\t]+" (Info-following-node-name-re)))) | 1843 (looking-at (concat "\\*note[ \n\t]+" |
| 1844 (Info-following-node-name-re "^.,\t")))) | |
| 1844 (<= (point) (match-end 0))) | 1845 (<= (point) (match-end 0))) |
| 1845 (goto-char (match-beginning 0)))) | 1846 (goto-char (match-beginning 0)))) |
| 1846 ;; Go to the reference closest to point | 1847 ;; Go to the reference closest to point |
| 1847 (let ((next-ref (save-excursion (and (re-search-forward str nil t) | 1848 (let ((next-ref (save-excursion (and (re-search-forward str nil t) |
| 1848 (+ (match-beginning 0) 5)))) | 1849 (+ (match-beginning 0) 5)))) |