From a1f600f51e37fbb44bc524440ee5702590dd7164 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Fri, 26 Jan 2018 16:31:39 -0500 Subject: [PATCH] Also test and fix file-newer-than-file-p with 2nd arg "/:" quoted * test/lisp/files-tests.el (files-file-name-non-special-handlers): Test "/:" quoted files in both positions of multi-file operations. * lisp/files.el (file-name-non-special): Handle "/:" quoted file names for both arguments of file-newer-than-file-p. --- lisp/files.el | 1 + test/lisp/files-tests.el | 4 ++++ 2 files changed, 5 insertions(+) diff --git a/lisp/files.el b/lisp/files.el index 576640393f2..932b319587d 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -7026,6 +7026,7 @@ only these files will be asked to be saved." (file-name-completion 0 1) (file-name-all-completions 0 1) (file-equal-p 0 1) + (file-newer-than-file-p 0 1) (write-region 2 5) (rename-file 0 1) (copy-file 0 1) diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index 98a8f9a070b..e90b26041c3 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el @@ -389,11 +389,13 @@ be invoked with the right arguments." (file-directory-p tmpdir))) (should (file-equal-p nospecial tmpfile)) (should (file-equal-p tmpfile nospecial)) + (should (file-equal-p nospecial nospecial)) (should-not (file-executable-p nospecial)) (should (file-exists-p nospecial)) (should (file-in-directory-p nospecial temporary-file-directory)) (should-not (file-in-directory-p nospecial nospecial-dir)) (should-not (file-in-directory-p tmpfile nospecial-dir)) + (should-not (file-in-directory-p nospecial nospecial-dir)) (should-not (file-local-copy nospecial)) ; Already local. (should (equal (file-modes nospecial) (file-modes tmpfile))) @@ -411,6 +413,8 @@ be invoked with the right arguments." (should (equal (file-name-sans-versions nospecial) nospecial)) (should-not (file-newer-than-file-p nospecial tmpfile)) + (should-not (file-newer-than-file-p tmpfile nospecial)) + (should-not (file-newer-than-file-p nospecial nospecial)) (should (equal (file-ownership-preserved-p nospecial) (file-ownership-preserved-p tmpfile))) (should (file-readable-p nospecial)) -- 2.39.5