From c1173f231d46f14f71886fa343dbc7501f064919 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 7 Apr 2021 01:49:21 +0200 Subject: [PATCH] ; Fix my previous change to shadowfile.el * lisp/shadowfile.el (shadow-add-to-todo, shadow-union): Wrap call to cl-union in nreverse for backwards-compatible ordering. --- lisp/shadowfile.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el index a03965cf6c7..b5e7d444c51 100644 --- a/lisp/shadowfile.el +++ b/lisp/shadowfile.el @@ -639,7 +639,7 @@ Consider them as regular expressions if third arg REGEXP is true." shadows shadow-files-to-copy (with-output-to-string (backtrace)))) (when shadows (setq shadow-files-to-copy - (cl-union shadows shadow-files-to-copy :test #'equal)) + (nreverse (cl-union shadows shadow-files-to-copy :test #'equal))) (when (not shadow-inhibit-message) (message "%s" (substitute-command-keys "Use \\[shadow-copy-files] to update shadows.")) @@ -832,7 +832,7 @@ look for files that have been changed and need to be copied to other systems." (defun shadow-union (a b) "Add members of list A to list B if not equal to items already in B." (declare (obsolete cl-union "28.1")) - (cl-union a b :test #'equal)) + (nreverse (cl-union a b :test #'equal))) (define-obsolete-function-alias 'shadow-find #'seq-find "28.1") -- 2.39.5