diff options
| author | Tino Calancha | 2017-07-26 16:42:30 +0900 |
|---|---|---|
| committer | Tino Calancha | 2017-07-26 16:52:00 +0900 |
| commit | d5c41e99a2071e3ee491a53a0f9506f62fa6ae54 (patch) | |
| tree | cbd69979f3b940101045842dcec87e059ac6878f /test/lisp | |
| parent | 4d30cf6be29a5a5503f8f2f2c20c7241c15be5d5 (diff) | |
| download | emacs-d5c41e99a2071e3ee491a53a0f9506f62fa6ae54.tar.gz emacs-d5c41e99a2071e3ee491a53a0f9506f62fa6ae54.zip | |
Dired: Support eshell-ls from the beginning if the user wants to
* lisp/dired.el (dired-insert-directory): Check for eshell-ls
as well (Bug#27817).
* test/lisp/dired-tests.el (dired-test-bug27817): Add test.
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/dired-tests.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/lisp/dired-tests.el b/test/lisp/dired-tests.el index 69331457c0e..601d65768bd 100644 --- a/test/lisp/dired-tests.el +++ b/test/lisp/dired-tests.el | |||
| @@ -175,5 +175,18 @@ | |||
| 175 | (should (looking-at "src"))) | 175 | (should (looking-at "src"))) |
| 176 | (when (buffer-live-p buf) (kill-buffer buf))))) | 176 | (when (buffer-live-p buf) (kill-buffer buf))))) |
| 177 | 177 | ||
| 178 | (ert-deftest dired-test-bug27817 () | ||
| 179 | "Test for http://debbugs.gnu.org/27817 ." | ||
| 180 | (require 'em-ls) | ||
| 181 | (let ((orig eshell-ls-use-in-dired) | ||
| 182 | (dired-use-ls-dired 'unspecified) | ||
| 183 | buf insert-directory-program) | ||
| 184 | (unwind-protect | ||
| 185 | (progn | ||
| 186 | (customize-set-variable 'eshell-ls-use-in-dired t) | ||
| 187 | (should (setq buf (dired source-directory)))) | ||
| 188 | (customize-set-variable 'eshell-ls-use-in-dired orig) | ||
| 189 | (and (buffer-live-p buf) (kill-buffer))))) | ||
| 190 | |||
| 178 | (provide 'dired-tests) | 191 | (provide 'dired-tests) |
| 179 | ;; dired-tests.el ends here | 192 | ;; dired-tests.el ends here |