diff options
| -rw-r--r-- | lisp/info.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/info.el b/lisp/info.el index 42c9889d8e3..c404bd51651 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -281,8 +281,9 @@ be last in the list.") | |||
| 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) |
| @@ -496,8 +497,9 @@ it says do not attempt further (recursive) error recovery." | |||
| 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 |