Mercurial > emacs
comparison lisp/info.el @ 49467:c057b532bd92
(info-insert-file-contents) [!MSDOS]: Avoid byte-compiler warning.
(Info-find-node) [!MSDOS]: Avoid byte-compiler warning.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 26 Jan 2003 18:04:55 +0000 |
| parents | e97c1fa39f09 |
| children | 692aaddf484f |
comparison
equal
deleted
inserted
replaced
| 49466:387683a11f0b | 49467:c057b532bd92 |
|---|---|
| 279 | 279 |
| 280 (defun info-insert-file-contents (filename &optional visit) | 280 (defun info-insert-file-contents (filename &optional visit) |
| 281 "Insert the contents of an info file in the current buffer. | 281 "Insert the contents of an info file in the current buffer. |
| 282 Do the right thing if the file has been compressed or zipped." | 282 Do the right thing if the file has been compressed or zipped." |
| 283 (let* ((tail Info-suffix-list) | 283 (let* ((tail Info-suffix-list) |
| 284 (lfn (or (not (fboundp 'msdos-long-file-names)) | 284 (lfn (if (fboundp 'msdos-long-file-names) |
| 285 (msdos-long-file-names))) | 285 (msdos-long-file-names) |
| 286 t)) | |
| 286 (check-short (and (fboundp 'msdos-long-file-names) | 287 (check-short (and (fboundp 'msdos-long-file-names) |
| 287 lfn)) | 288 lfn)) |
| 288 fullname decoder done) | 289 fullname decoder done) |
| 289 (if (info-file-exists-p filename) | 290 (if (info-file-exists-p filename) |
| 290 ;; FILENAME exists--see if that name contains a suffix. | 291 ;; FILENAME exists--see if that name contains a suffix. |
| 494 (setq temp (expand-file-name filename (car dirs))) | 495 (setq temp (expand-file-name filename (car dirs))) |
| 495 (setq temp-downcase | 496 (setq temp-downcase |
| 496 (expand-file-name (downcase filename) (car dirs))) | 497 (expand-file-name (downcase filename) (car dirs))) |
| 497 ;; Try several variants of specified name. | 498 ;; Try several variants of specified name. |
| 498 (let ((suffix-list Info-suffix-list) | 499 (let ((suffix-list Info-suffix-list) |
| 499 (lfn (or (not (fboundp 'msdos-long-file-names)) | 500 (lfn (if (fboundp 'msdos-long-file-names) |
| 500 (msdos-long-file-names)))) | 501 (msdos-long-file-names) |
| 502 t))) | |
| 501 (while (and suffix-list (not found)) | 503 (while (and suffix-list (not found)) |
| 502 (cond ((info-file-exists-p | 504 (cond ((info-file-exists-p |
| 503 (info-insert-file-contents-1 | 505 (info-insert-file-contents-1 |
| 504 temp (car (car suffix-list)) lfn)) | 506 temp (car (car suffix-list)) lfn)) |
| 505 (setq found temp)) | 507 (setq found temp)) |