diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-07-04 18:44:03 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-07-04 18:44:03 -0400 |
| commit | edaa7780fd88ca6f184b2594a676af32eb4ade10 (patch) | |
| tree | c76c33ca875023fa5d492a9884bf977d65da5a61 | |
| parent | 6d415d5f0b616fc36f3e5c47a42b6af19eb3d82a (diff) | |
| download | emacs-edaa7780fd88ca6f184b2594a676af32eb4ade10.tar.gz emacs-edaa7780fd88ca6f184b2594a676af32eb4ade10.tar.bz2 emacs-edaa7780fd88ca6f184b2594a676af32eb4ade10.zip | |
(gnus-inverse-list-range-intersection): Update alias
* lisp/gnus/gnus-range.el (gnus-inverse-list-range-intersection):
Don't alias to an obsolete alias.
| -rw-r--r-- | lisp/gnus/gnus-range.el | 12 |
1 files 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") |