Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Fix my previous change to shadowfile.el

Browse source 
* lisp/shadowfile.el (shadow-add-to-todo, shadow-union): Wrap call
to cl-union in nreverse for backwards-compatible ordering.
This commit is contained in:
Stefan Kangas 2021-04-07 01:49:21 +02:00
parent 1ff7cde102
commit c1173f231d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/shadowfile.el
View file

@ -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")