[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 55c5b12: Add test for Bug#29423 in Tramp.
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs-26 55c5b12: Add test for Bug#29423 in Tramp. |
Date: |
Sat, 25 Nov 2017 10:04:01 -0500 (EST) |
branch: emacs-26
commit 55c5b12fa040b0c4e1549207840fd6c84e5d2b19
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
Add test for Bug#29423 in Tramp.
* test/lisp/net/tramp-tests.el (tramp-test17-insert-directory):
Add test for Bug#29423.
---
lisp/ls-lisp.el | 2 +-
test/lisp/net/tramp-tests.el | 8 ++++++++
2 files changed, 9 insertions(+), 1 deletion(-)
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index cf3bff5..ad2a770 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -843,7 +843,7 @@ SWITCHES and TIME-INDEX give the full switch list and time
data."
" "
(ls-lisp-format-time file-attr time-index)
" "
- (if (not (memq ?F switches)) ; ls-lisp-classify already did that
+ (if (not (memq ?F switches)) ; ls-lisp-classify-file already did
that
(propertize file-name 'dired-filename t)
file-name)
(if (stringp file-type) ; is a symbolic link
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index ad9d460..08c58c8 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -2313,6 +2313,14 @@ This tests also `file-directory-p' and
`file-accessible-directory-p'."
(insert-directory tmp-name1 nil)
(goto-char (point-min))
(should (looking-at-p (regexp-quote tmp-name1))))
+ ;; This has been fixed in Emacs 26.1. See Bug#29423.
+ (when (tramp--test-emacs26-p)
+ (with-temp-buffer
+ (insert-directory (file-name-as-directory tmp-name1) nil)
+ (goto-char (point-min))
+ (should
+ (looking-at-p
+ (regexp-quote (file-name-as-directory tmp-name1))))))
(with-temp-buffer
(insert-directory tmp-name1 "-al")
(goto-char (point-min))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 55c5b12: Add test for Bug#29423 in Tramp.,
Michael Albinus <=