diff options
author | Tino Calancha <tino.calancha@gmail.com> | 2017-08-01 23:31:35 +0900 |
---|---|---|
committer | Tino Calancha <tino.calancha@gmail.com> | 2017-08-01 23:31:43 +0900 |
commit | f3ad15933a0d104b099d640d5c43fce99ece0003 (patch) | |
tree | 17ef5f20e9b5457f8cecf081d10d10c0b2f3747c /test/lisp/dired-tests.el | |
parent | 4ddc5645606478725ae0c27c85aa3c5dca6360d6 (diff) | |
download | emacs-f3ad15933a0d104b099d640d5c43fce99ece0003.tar.gz |
Insert subdir content if dir-or-list is a string w/o wildcards
* lisp/eshell/em-ls.el (eshell-ls--insert-directory):
Append '("-d") into 'eshell-ls-dired-initial-args'
if 'dired-directory' is a cons or there are wildcars (Bug#27843).
* test/lisp/dired-tests.el (dired-test-bug27843): Add test.
Diffstat (limited to 'test/lisp/dired-tests.el')
-rw-r--r-- | test/lisp/dired-tests.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/lisp/dired-tests.el b/test/lisp/dired-tests.el index 0ee4e137836..5900fead7d1 100644 --- a/test/lisp/dired-tests.el +++ b/test/lisp/dired-tests.el @@ -325,6 +325,21 @@ (delete-directory dir 'recursive) (when (buffer-live-p buf) (kill-buffer buf))))) +(ert-deftest dired-test-bug27843 () + "Test for http://debbugs.gnu.org/27843 ." + (require 'em-ls) + (let ((orig eshell-ls-use-in-dired) + (dired-use-ls-dired 'unspecified) + buf insert-directory-program) + (unwind-protect + (progn + (customize-set-variable 'eshell-ls-use-in-dired t) + (setq buf (dired (list source-directory "lisp"))) + (dired-toggle-marks) + (should-not (cdr (dired-get-marked-files)))) + (customize-set-variable 'eshell-ls-use-in-dired orig) + (unload-feature 'em-ls 'force) + (and (buffer-live-p buf) (kill-buffer))))) (provide 'dired-tests) ;; dired-tests.el ends here |