From: Kim F. Storm <storm@cua.dk>
Date: Sun, 26 Jan 2003 18:04:55 +0000 (+0000)
Subject: (info-insert-file-contents) [!MSDOS]: Avoid byte-compiler warning.
X-Git-Tag: ttn-vms-21-2-B4~11461
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab5a535caafca5506f0fb34b2113b6ea849154a8;p=emacs.git

(info-insert-file-contents) [!MSDOS]: Avoid byte-compiler warning.
(Info-find-node) [!MSDOS]: Avoid byte-compiler warning.
---

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