; Another fix fore dired-tests.el

This commit is contained in:
Eli Zaretskii
2026-03-28 09:32:27 +03:00
parent d5a3a43745
commit 5ec2940e38

View File

@@ -738,6 +738,7 @@ hence another buffer should be returned."
(dired name))))
;; This is for MS-Windows and MS-DOS in the default configuration.
(when (and (featurep 'ls-lisp)
(boundp 'ls-lisp-use-insert-directory-program)
(null ls-lisp-use-insert-directory-program))
(should (bufferp buf))
(should (equal (buffer-name buf) (file-name-nondirectory name)))
@@ -748,6 +749,7 @@ hence another buffer should be returned."
(should (= 3 (line-number-at-pos (buffer-size) t)))))
;; This is for Posix systems and for MS-Windows/DOS when they use 'ls'.
(unless (and (featurep 'ls-lisp)
(boundp 'ls-lisp-use-insert-directory-program)
(null ls-lisp-use-insert-directory-program))
(let ((errbuf (get-buffer "*ls error*")))
(should (get-buffer-window errbuf))