# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1043604295 0
# Node ID c057b532bd92f8d0c487a09973fad19abf946647
# Parent  387683a11f0b9f1fd129027187c1bc7ff3f28a3e
(info-insert-file-contents) [!MSDOS]: Avoid byte-compiler warning.
(Info-find-node) [!MSDOS]: Avoid byte-compiler warning.

diff -r 387683a11f0b -r c057b532bd92 lisp/info.el
--- a/lisp/info.el	Sun Jan 26 18:04:26 2003 +0000
+++ b/lisp/info.el	Sun Jan 26 18:04:55 2003 +0000
@@ -281,8 +281,9 @@
   "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 @@
                     (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