diff options
Diffstat (limited to 'lisp/obsolete/vc-arch.el')
| -rw-r--r-- | lisp/obsolete/vc-arch.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/obsolete/vc-arch.el b/lisp/obsolete/vc-arch.el index bcdefac5187..93bd991eb3a 100644 --- a/lisp/obsolete/vc-arch.el +++ b/lisp/obsolete/vc-arch.el @@ -597,20 +597,21 @@ CALLBACK expects (ENTRIES &optional MORE-TO-COME); see (unless (file-writable-p rl-dir) (error "No writable revlib directory found")) (message "Revlib at %s" rl-dir) - (let* ((archives (directory-files rl-dir 'full (rx (or (not ".") "...")))) + (let* ((archives (directory-files rl-dir 'full + directory-files-no-dot-files-regexp)) (categories (apply 'append (mapcar (lambda (dir) (when (file-directory-p dir) - (directory-files dir 'full - (rx (or (not ".") "..."))))) + (directory-files + dir 'full directory-files-no-dot-files-regexp))) archives))) (branches (apply 'append (mapcar (lambda (dir) (when (file-directory-p dir) - (directory-files dir 'full - (rx (or (not ".") "..."))))) + (directory-files + dir 'full directory-files-no-dot-files-regexp))) categories))) (versions (apply 'append |