From 3062480309b0d3bd66370265ed1a1dc79b6edeed Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 12 Apr 2021 16:42:01 +0200 Subject: [PATCH] * lisp/emacs-lisp/comp-cstr.el (comp-normalize-valset): Remove duplicates. --- lisp/emacs-lisp/comp-cstr.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el index 7f5d34b45c3..b2d34af66b4 100644 --- a/lisp/emacs-lisp/comp-cstr.el +++ b/lisp/emacs-lisp/comp-cstr.el @@ -186,12 +186,14 @@ Return them as multiple value." ;;; Value handling. (defun comp-normalize-valset (valset) - "Sort VALSET and return it." - (cl-sort valset (lambda (x y) - ;; We might want to use `sxhash-eql' for speed but - ;; this is safer to keep tests stable. - (< (sxhash-equal x) - (sxhash-equal y))))) + "Sort and remove duplicates from VALSET then return it." + (cl-remove-duplicates + (cl-sort valset (lambda (x y) + ;; We might want to use `sxhash-eql' for speed but + ;; this is safer to keep tests stable. + (< (sxhash-equal x) + (sxhash-equal y)))) + :test #'eq)) (defun comp-union-valsets (&rest valsets) "Union values present into VALSETS." -- 2.39.2