diff options
| author | Kim F. Storm <storm@cua.dk> | 2003-01-26 18:04:55 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2003-01-26 18:04:55 +0000 |
| commit | ab5a535caafca5506f0fb34b2113b6ea849154a8 (patch) | |
| tree | b0bdaedf2b03d8f37e03d4b5cdf8217bc95689b2 /lisp | |
| parent | effc336efa0e5446cce0181e5f6f7e83512a0d35 (diff) | |
| download | emacs-ab5a535caafca5506f0fb34b2113b6ea849154a8.tar.gz emacs-ab5a535caafca5506f0fb34b2113b6ea849154a8.tar.bz2 emacs-ab5a535caafca5506f0fb34b2113b6ea849154a8.zip | |
(info-insert-file-contents) [!MSDOS]: Avoid byte-compiler warning.
(Info-find-node) [!MSDOS]: Avoid byte-compiler warning.
Diffstat (limited to 'lisp')
| -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.") "Insert the contents of an info file in the current buffer. Do the right thing if the file has been compressed or zipped." (let* ((tail Info-suffix-list) - (lfn (or (not (fboundp 'msdos-long-file-names)) - (msdos-long-file-names))) + (lfn (if (fboundp 'msdos-long-file-names) + (msdos-long-file-names) + t)) (check-short (and (fboundp 'msdos-long-file-names) lfn)) fullname decoder done) @@ -496,8 +497,9 @@ it says do not attempt further (recursive) error recovery." (expand-file-name (downcase filename) (car dirs))) ;; Try several variants of specified name. (let ((suffix-list Info-suffix-list) - (lfn (or (not (fboundp 'msdos-long-file-names)) - (msdos-long-file-names)))) + (lfn (if (fboundp 'msdos-long-file-names) + (msdos-long-file-names) + t))) (while (and suffix-list (not found)) (cond ((info-file-exists-p (info-insert-file-contents-1 |