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.

diff --git a/lisp/files.el b/lisp/files.el
index 576640393f2934ee4ec3c1059f31a348cf6205f9..932b319587dc67767082319502ec6bca70e6415c 100644 (file)
--- 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 98a8f9a070b5c9af6bc86c47b928b0180d8cfd98..e90b26041c322d6d0b469fd9ed916502273ccecd 100644 (file)
--- 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))