Changeset 11563 for trunk/source/lib/pathnames.lisp

Timestamp:

Dec 30, 2008, 1:33:17 PM (12 years ago)

Author:

gz

Message:

Propagate r11562 to trunk

File:

• trunk/source/lib/pathnames.lisp (modified) (1 diff)

trunk/source/lib/pathnames.lisp

@@ -396 +396 @@
           (when (and (or all (neq (%schar sub 0) #\.))
                      (or include-emacs-lockfiles
-                         (and (>= (length sub) 2)
-                              (not (string= sub ".#" :end1 2))))
+                         (< (length sub) 2)
+                         (not (string= sub ".#" :end1 2)))
                      (not (string= sub "."))
                      (not (string= sub ".."))