diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2000-12-07 15:01:59 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2000-12-07 15:01:59 +0000 |
| commit | c4a40544038f36891032d1ba166626ca9bb679d7 (patch) | |
| tree | f76e964450ccc3997cbc10aa3c913e97319cb3c8 | |
| parent | 76a76a577fdec682fb4c05fa611670fe88b84e8c (diff) | |
| download | emacs-c4a40544038f36891032d1ba166626ca9bb679d7.tar.gz | |
(normal-top-level-add-subdirs-to-load-path): Ignore
the CVS and RCS subdirectories case-insensitively.
| -rw-r--r-- | lisp/startup.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index c63c0b15d1a..6978855bd93 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -360,7 +360,8 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (setq normal-top-level-add-subdirs-inode-list (cons attrs normal-top-level-add-subdirs-inode-list)) (while contents - (unless (member (car contents) '("." ".." "RCS" "CVS")) + ;; The lower-case variants of RCS and CVS are for DOS/Windows. + (unless (member (car contents) '("." ".." "RCS" "CVS" "rcs" "cvs")) (when (and (string-match "\\`[[:alnum:]]" (car contents)) ;; Avoid doing a `stat' when it isn't necessary ;; because that can cause trouble when an NFS server |