From edaa7780fd88ca6f184b2594a676af32eb4ade10 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 4 Jul 2022 18:44:03 -0400 Subject: [PATCH] (gnus-inverse-list-range-intersection): Update alias * lisp/gnus/gnus-range.el (gnus-inverse-list-range-intersection): Don't alias to an obsolete alias. --- lisp/gnus/gnus-range.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/gnus/gnus-range.el b/lisp/gnus/gnus-range.el index 23a71bda209..2b9d7fac1db 100644 --- a/lisp/gnus/gnus-range.el +++ b/lisp/gnus/gnus-range.el @@ -36,10 +36,10 @@ (car list)) (make-obsolete 'gnus-last-element "use `car' of `last' instead." "27.1") -(define-obsolete-function-alias 'gnus-copy-sequence 'copy-tree "27.1") +(define-obsolete-function-alias 'gnus-copy-sequence #'copy-tree "27.1") -;;; We could be using `seq-difference' here, but it's much slower -;;; on these data sets. See bug#50877. +;; We could be using `seq-difference' here, but it's much slower +;; on these data sets. See bug#50877. (defun gnus-set-difference (list1 list2) "Return a list of elements of LIST1 that do not appear in LIST2." (let ((hash2 (make-hash-table :test 'eq)) @@ -163,7 +163,7 @@ LIST1 and LIST2 have to be sorted over <." #'range-intersection "29.1") ;;;###autoload -(defalias 'gnus-set-sorted-intersection 'gnus-sorted-nintersection) +(defalias 'gnus-set-sorted-intersection #'gnus-sorted-nintersection) ;;;###autoload (defun gnus-sorted-nintersection (list1 list2) @@ -241,7 +241,7 @@ ranges." (range-compress-list numbers) (range-denormalize (range-compress-list numbers)))) -(defalias 'gnus-uncompress-sequence 'gnus-uncompress-range) +(defalias 'gnus-uncompress-sequence #'gnus-uncompress-range) (define-obsolete-function-alias 'gnus-uncompress-range #'range-uncompress "29.1") @@ -256,7 +256,7 @@ ranges." (define-obsolete-function-alias 'gnus-list-range-intersection #'range-list-intersection "29.1") -(defalias 'gnus-inverse-list-range-intersection 'gnus-list-range-difference) +(defalias 'gnus-inverse-list-range-intersection #'range-list-difference) (define-obsolete-function-alias 'gnus-list-range-difference #'range-list-difference "29.1") -- 2.39.2