Make locate-user-emacs-file accept a list too

This can be used to migrate to a new name, while also keeping
backwards-compatible support for an old name.

* lisp/files.el (locate-user-emacs-file): Accept a list as the
NEW-NAME argument.
* test/lisp/files-tests.el (files-test-locate-user-emacs-file): New
test for the above.

1 files changed, 12 insertions, 1 deletions

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index ed63b6f6fb4..9f17747da1f 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -68,7 +68,18 @@
           (should (equal (locate-user-emacs-file basename)
                          in-edir))
           (should (equal (locate-user-emacs-file basename "anything")
-                         in-edir)))))))
+                         in-edir)))
+        ;; NEW-FILE is a list.
+        (should (equal (locate-user-emacs-file '("first" "second"))
+                       (expand-file-name "first" user-emacs-directory)))
+        (should (equal (locate-user-emacs-file '("first" "second") "never")
+                       (expand-file-name "first" user-emacs-directory)))
+        (let ((exists (expand-file-name "exists" user-emacs-directory)))
+          (write-region "data" nil exists nil 'quietly)
+          (should (equal (locate-user-emacs-file '("missing" "exists"))
+                         exists))
+          (should (equal (locate-user-emacs-file '("missing1" "exists") "missing2")
+                         exists)))))))
 
 ;; Test combinations:
 ;; `enable-local-variables' t, nil, :safe, :all, or something else.