* lisp/info.el (Info-insert-dir): Also try "dir.gz".

Ref: http://lists.gnu.org/archive/html/emacs-devel/2012-03/msg00005.html

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b4d5a1464906fbafbab65b0e80c0674cb559c891..6a9b1808cdf355a042492f46fa17d4fbc03428bd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-03-06  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+       * info.el (Info-insert-dir): Also try "dir.gz".
+
 2012-03-06  Glenn Morris  <rgm@gnu.org>
 
        * files.el (dir-locals-find-file):

diff --git a/lisp/info.el b/lisp/info.el
index a8cb141114c26879de56a00d9fe860f0d35cfad3..8965b2c45c901e084c8118a5e4800da1c4666550 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1165,6 +1165,8 @@ a case-insensitive match is tried."
                       (progn (setq file (expand-file-name "dir.info" truename))
                              (file-attributes file))
                       (progn (setq file (expand-file-name "DIR.INFO" truename))
+                             (file-attributes file))
+                      (progn (setq file (expand-file-name "dir.gz" truename))
                              (file-attributes file)))))
                (setq dirs-done
                      (cons truename