[Emacs-diffs] Changes to emacs/lisp/info.el

[Kim F. Storm]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.334 emacs/lisp/info.el:1.335
*** emacs/lisp/info.el:1.334    Sun Jan 26 12:51:53 2003
--- emacs/lisp/info.el  Sun Jan 26 13:04:55 2003
***************
*** 281,288 ****
    "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)))
         (check-short (and (fboundp 'msdos-long-file-names)
                           lfn))
         fullname decoder done)
--- 281,289 ----
    "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 (if (fboundp 'msdos-long-file-names)
!                 (msdos-long-file-names)
!               t))
         (check-short (and (fboundp 'msdos-long-file-names)
                           lfn))
         fullname decoder done)
***************
*** 496,503 ****
                      (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))))
                  (while (and suffix-list (not found))
                    (cond ((info-file-exists-p
                            (info-insert-file-contents-1
--- 497,505 ----
                      (expand-file-name (downcase filename) (car dirs)))
                ;; Try several variants of specified name.
                (let ((suffix-list Info-suffix-list)
!                   (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