diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-05-22 21:48:40 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-05-22 21:48:40 -0700 |
| commit | d361bc10dc5a45a3cb445c0fbca9e0d27fc9ee7a (patch) | |
| tree | 932444495ece519e24b374830b9219b49ef35b33 /lisp/eshell | |
| parent | d8a6e1afd33941647753f08350263d42626801f3 (diff) | |
| download | emacs-d361bc10dc5a45a3cb445c0fbca9e0d27fc9ee7a.tar.gz | |
* lisp/eshell/em-ls.el (eshell-ls-dir): Fix -A handling.
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/em-ls.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el index 73ed617b871..e087861d7d9 100644 --- a/lisp/eshell/em-ls.el +++ b/lisp/eshell/em-ls.el @@ -552,7 +552,7 @@ relative to that directory." (expand-file-name dir))) (cdr dirinfo))) ":\n")) (let ((entries (eshell-directory-files-and-attributes - dir nil (and (not show-all) + dir nil (and (not (or show-all show-almost-all)) eshell-ls-exclude-hidden "\\`[^.]") t ;; Asking for UID and GID as @@ -565,9 +565,9 @@ relative to that directory." (setq entries (cl-remove-if (lambda (entry) - (member (caar entry) '("." ".."))) + (member (car entry) '("." ".."))) entries))) - (when (and (not show-all) + (when (and (not (or show-all show-almost-all)) eshell-ls-exclude-regexp) (while (and entries (string-match eshell-ls-exclude-regexp (caar entries))) |