Mercurial > emacs

changeset 49467:c057b532bd92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 387683a11f0b
children f2be5cd8262f
files lisp/info.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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