diff options
| -rw-r--r-- | lisp/info.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/info.el b/lisp/info.el index 8965b2c45c9..b7e2d1eedbe 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -1166,6 +1166,10 @@ a case-insensitive match is tried." | |||
| 1166 | (file-attributes file)) | 1166 | (file-attributes file)) |
| 1167 | (progn (setq file (expand-file-name "DIR.INFO" truename)) | 1167 | (progn (setq file (expand-file-name "DIR.INFO" truename)) |
| 1168 | (file-attributes file)) | 1168 | (file-attributes file)) |
| 1169 | ;; Shouldn't really happen, but sometimes does, | ||
| 1170 | ;; eg on Debian systems with buggy packages; | ||
| 1171 | ;; so may as well try it. | ||
| 1172 | ;; http://lists.gnu.org/archive/html/emacs-devel/2012-03/msg00005.html | ||
| 1169 | (progn (setq file (expand-file-name "dir.gz" truename)) | 1173 | (progn (setq file (expand-file-name "dir.gz" truename)) |
| 1170 | (file-attributes file))))) | 1174 | (file-attributes file))))) |
| 1171 | (setq dirs-done | 1175 | (setq dirs-done |