# HG changeset patch # User Eli Zaretskii # Date 995799131 0 # Node ID e3a84598fe88ded431c00487c9d76b47222819c9 # Parent bc021306e72255eb23e4ca1e862b413bf6a2550d (normal-top-level-add-subdirs-to-load-path): On Windows, put into normal-top-level-add-subdirs-inode-list the canonicalized names of the directories instead of inode numbers. diff -r bc021306e722 -r e3a84598fe88 lisp/startup.el --- a/lisp/startup.el Sat Jul 21 08:21:55 2001 +0000 +++ b/lisp/startup.el Sun Jul 22 10:52:11 2001 +0000 @@ -352,9 +352,16 @@ (while pending (setq dirs (cons (car pending) dirs)) (setq pending (cdr pending)) - (setq attrs (nthcdr 10 (file-attributes (car dirs)))) - (let ((contents (directory-files (car dirs))) - (default-directory (car dirs))) + (let* ((this-dir (car dirs)) + (contents (directory-files this-dir)) + (default-directory this-dir) + (canonicalized (and (eq system-type 'windows-nt) + (untranslated-canonical-name this-dir)))) + ;; The Windows version doesn't report meaningful inode + ;; numbers, so use the canonicalized absolute file name of the + ;; directory instead. + (setq attrs (or canonicalized + (nthcdr 10 (file-attributes this-dir)))) (unless (member attrs normal-top-level-add-subdirs-inode-list) (setq normal-top-level-add-subdirs-inode-list (cons attrs normal-top-level-add-subdirs-inode-list))