mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Revert recent add-to-ordered-list changes

Browse source 
* doc/lispref/lists.texi (List Variables): Revert.

* lisp/subr.el (add-to-ordered-list): Revert recent changes
because the semantics are too muddled.
This commit is contained in:
Lars Ingebrigtsen 2021-01-01 05:48:02 +01:00
parent 58bdfd7c54
commit d22e74795d
3 changed files with 18 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

20
test/lisp/subr-tests.el
View file

@ -617,26 +617,6 @@ See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=19350."
(add-to-ordered-list 'subr--ordered 'b 5)
(should (equal subr--ordered '(a c d b e))))
(defvar subr--ordered-s nil)
(ert-deftest subr--add-to-ordered-list-equal ()
(setq subr--ordered-s nil)
(add-to-ordered-list 'subr--ordered-s "b" 2 #'equal)
(should (equal subr--ordered-s '("b")))
(add-to-ordered-list 'subr--ordered-s "c" 3)
(should (equal subr--ordered-s '("b" "c")))
(add-to-ordered-list 'subr--ordered-s "a" 1)
(should (equal subr--ordered-s '("a" "b" "c")))
(add-to-ordered-list 'subr--ordered-s "e")
(should (equal subr--ordered-s '("a" "b" "c" "e")))
(add-to-ordered-list 'subr--ordered-s "d" 4)
(should (equal subr--ordered-s '("a" "b" "c" "d" "e")))
(add-to-ordered-list 'subr--ordered-s "e")
(should (equal subr--ordered-s '("a" "b" "c" "d" "e")))
(add-to-ordered-list 'subr--ordered-s "b" 5)
(should (equal subr--ordered-s '("a" "c" "d" "b" "e")))
(should-error (add-to-ordered-list 'subr--ordered-s "b" 5 #'eql)))
;;; Apropos.