Mercurial > emacs
comparison lisp/info.el @ 74719:8782777c2f1a
(Info-build-node-completions): Signal error if tag-table marker is not
found.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 18 Dec 2006 05:16:48 +0000 |
| parents | 2584fedc2373 |
| children | 2ae1c7a27a0a |
comparison
equal
deleted
inserted
replaced
| 74718:0b1ce0b9c2a4 | 74719:8782777c2f1a |
|---|---|
| 1549 ;; Bind this in case the user sets it to nil. | 1549 ;; Bind this in case the user sets it to nil. |
| 1550 (case-fold-search t) | 1550 (case-fold-search t) |
| 1551 (node-regexp "Node: *\\([^,\n]*\\) *[,\n\t]")) | 1551 (node-regexp "Node: *\\([^,\n]*\\) *[,\n\t]")) |
| 1552 (save-excursion | 1552 (save-excursion |
| 1553 (save-restriction | 1553 (save-restriction |
| 1554 (or Info-tag-table-marker | |
| 1555 (error "No Info tags found")) | |
| 1554 (if (marker-buffer Info-tag-table-marker) | 1556 (if (marker-buffer Info-tag-table-marker) |
| 1555 (let ((marker Info-tag-table-marker)) | 1557 (let ((marker Info-tag-table-marker)) |
| 1556 (set-buffer (marker-buffer marker)) | 1558 (set-buffer (marker-buffer marker)) |
| 1557 (widen) | 1559 (widen) |
| 1558 (goto-char marker) | 1560 (goto-char marker) |