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)) |