Mercurial > emacs
comparison lisp/informat.el @ 923:9f3cc03dae67
entered into RCS
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 04 Aug 1992 04:15:43 +0000 |
| parents | 20674ae6bf52 |
| children | 36ec0bfbb2c2 |
comparison
equal
deleted
inserted
replaced
| 922:52cd80cb5be1 | 923:9f3cc03dae67 |
|---|---|
| 396 (cond ((search-backward "\n\^_\^L\nTag table:\n" nil t) | 396 (cond ((search-backward "\n\^_\^L\nTag table:\n" nil t) |
| 397 (message "%s already tagified" file)) | 397 (message "%s already tagified" file)) |
| 398 ((< (point-max) 30000) | 398 ((< (point-max) 30000) |
| 399 (message "%s too small to bother tagifying" file)) | 399 (message "%s too small to bother tagifying" file)) |
| 400 (t | 400 (t |
| 401 (Info-tagify file)))) | 401 (Info-tagify)))) |
| 402 (let ((loss-name " *problems in info file*")) | 402 (let ((loss-name " *problems in info file*")) |
| 403 (message "Checking validity of info file %s..." file) | 403 (message "Checking validity of info file %s..." file) |
| 404 (if (get-buffer loss-name) | 404 (if (get-buffer loss-name) |
| 405 (kill-buffer loss-name)) | 405 (kill-buffer loss-name)) |
| 406 (Info-validate) | 406 (Info-validate) |