diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-04-07 01:49:21 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-04-07 02:40:31 +0200 |
| commit | c1173f231d46f14f71886fa343dbc7501f064919 (patch) | |
| tree | 385fd217bc0e1effceb0c62d5553fa3e5b02e6bd /lisp/shadowfile.el | |
| parent | 1ff7cde1027778e608acbe58a81fe08c1fd84189 (diff) | |
| download | emacs-c1173f231d46f14f71886fa343dbc7501f064919.tar.gz | |
; 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.
Diffstat (limited to 'lisp/shadowfile.el')
| -rw-r--r-- | lisp/shadowfile.el | 4 |
1 files 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") |