(Info-default-directory-list): Use configdir twice.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/paths.el b/lisp/paths.el
index b2b32ac2e4f..f2284fc8443 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -51,7 +51,9 @@
                       (not (string= configure-info-directory usrdir))
                       (list usrdir)))
          (configdir (file-name-as-directory configure-info-directory)))
-    (setq start (nconc start sysdir (list configdir)))
+    ;; configdir comes last so that we can identify it as such, but we
+    ;; also we override sysdir, hence the two occurrences.
+    (setq start (nconc start (list configdir) sysdir (list configdir)))
     start)
   "Default list of directories to search for Info documentation files.
 They are searched in the order they are given in the list.