branch: externals/compat
commit b12b2e5cbe0baf23785f9dad342e3bb936549728
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
compat-30: Ensure that list is not sorted destructively on Emacs 24.4
---
compat-30.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/compat-30.el b/compat-30.el
index edbfd9af03..570ba46d1e 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))
