diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-05-18 11:11:47 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-05-18 11:11:47 +0200 |
| commit | b12b2e5cbe0baf23785f9dad342e3bb936549728 (patch) | |
| tree | 8e5d6d67a6c43f86dcae90213ee95bca0d7abf8d | |
| parent | e8c9f3bbd38a4d045b75cfde7669f5e2efe30bd8 (diff) | |
compat-30: Ensure that list is not sorted destructively on Emacs 24.4
| -rw-r--r-- | compat-30.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compat-30.el b/compat-30.el index edbfd9a..570ba46 100644 --- a/compat-30.el +++ b/compat-30.el @@ -321,11 +321,12 @@ in this case, sorting is always done in-place." (if key (lambda (a b) (funcall < (funcall key a) (funcall key b))) <)) - seq (if (or (eval-when-compile (< emacs-major-version 25)) in-place) + seq (if (or (and (eval-when-compile (< emacs-major-version 25)) (vectorp orig-seq)) + in-place) seq (copy-sequence seq)))) ;; Emacs 24 does not support vectors. Convert to list. - (when (and (eval-when-compile (< emacs-major-version 25)) (vectorp seq)) + (when (and (eval-when-compile (< emacs-major-version 25)) (vectorp orig-seq)) (setq seq (append seq nil))) (setq seq (if reverse (nreverse (sort (nreverse seq) lessp)) |