(Info-insert-dir): Ignore duplicate directories.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/info.el b/lisp/info.el
index e2079644102..ae97bf27048 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -313,7 +313,9 @@ to read a file name from the minibuffer."
                       (find-file-noselect temp)))))
               (setq dirs-done
                     (cons (file-truename (expand-file-name (car dirs)))
-                          dirs-done))
+                          (cons (directory-file-name
+                                 (file-truename (expand-file-name (car dirs))))
+                                dirs-done)))
               (if buffer (setq buffers (cons buffer buffers)))))
         (setq dirs (cdr dirs)))