[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f466bf3 4/6: Remove the gnus-union alias
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master f466bf3 4/6: Remove the gnus-union alias |
Date: |
Sat, 13 Feb 2016 06:44:24 +0000 |
branch: master
commit f466bf32d943a41abb964d839ddf8a27c380920e
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Remove the gnus-union alias
* lisp/gnus/gnus-util.el (gnus-union): Remove.
---
lisp/gnus/gnus-group.el | 2 +-
lisp/gnus/gnus-util.el | 23 -----------------------
lisp/gnus/mml-sec.el | 2 +-
3 files changed, 2 insertions(+), 25 deletions(-)
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 7e48fbf..a7c3ebb 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -1369,7 +1369,7 @@ if it is a string, only list groups matching REGEXP."
(when (or gnus-group-listed-groups
(and (>= level gnus-level-killed) (<= lowest gnus-level-killed)))
(gnus-group-prepare-flat-list-dead
- (gnus-union
+ (cl-union
not-in-list
(setq gnus-killed-list (sort gnus-killed-list 'string<))
:test 'equal)
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index ff98041..eadf04d 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -1265,29 +1265,6 @@ If HASH-TABLE-P is non-nil, regards SEQUENCE as a hash
table."
(put 'gnus-with-output-to-file 'lisp-indent-function 1)
(put 'gnus-with-output-to-file 'edebug-form-spec '(form body))
-(if (fboundp 'union)
- (defalias 'gnus-union 'union)
- (defun gnus-union (l1 l2 &rest keys)
- "Set union of lists L1 and L2.
-If KEYS contains the `:test' and `equal' pair, use `equal' to compare
-items in lists, otherwise use `eq'."
- (cond ((null l1) l2)
- ((null l2) l1)
- ((equal l1 l2) l1)
- (t
- (or (>= (length l1) (length l2))
- (setq l1 (prog1 l2 (setq l2 l1))))
- (if (eq 'equal (plist-get keys :test))
- (while l2
- (or (member (car l2) l1)
- (push (car l2) l1))
- (pop l2))
- (while l2
- (or (memq (car l2) l1)
- (push (car l2) l1))
- (pop l2)))
- l1))))
-
(declare-function gnus-add-text-properties "gnus"
(start end properties &optional object))
diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index b441750..4744187 100644
--- a/lisp/gnus/mml-sec.el
+++ b/lisp/gnus/mml-sec.el
@@ -557,7 +557,7 @@ Return keys."
(let* ((usage-prefs (mml-secure-cust-usage-lookup context usage))
(curr-fprs (cdr (assoc name (cdr usage-prefs))))
(key-fprs (mapcar 'mml-secure-fingerprint keys))
- (new-fprs (gnus-union curr-fprs key-fprs :test 'equal)))
+ (new-fprs (cl-union curr-fprs key-fprs :test 'equal)))
(if curr-fprs
(setcdr (assoc name (cdr usage-prefs)) new-fprs)
(setcdr usage-prefs (cons (cons name new-fprs) (cdr usage-prefs))))
- [Emacs-diffs] master updated (51ed8d5 -> 9efc29a), Lars Ingebrigtsen, 2016/02/13
- [Emacs-diffs] master 2443e38 1/6: Remove compat code from gnus-srvr, start and sum, Lars Ingebrigtsen, 2016/02/13
- [Emacs-diffs] master bfee9fa 2/6: Remove the gnus-float-time alias, Lars Ingebrigtsen, 2016/02/13
- [Emacs-diffs] master 6d47613 3/6: Remove the gnus-delete-alist alias, Lars Ingebrigtsen, 2016/02/13
- [Emacs-diffs] master f466bf3 4/6: Remove the gnus-union alias,
Lars Ingebrigtsen <=
- [Emacs-diffs] master 9bcefcf 5/6: Remove the gnus-merge alias, Lars Ingebrigtsen, 2016/02/13
- [Emacs-diffs] master 9efc29a 6/6: Remove several gnus-util compat functions, Lars Ingebrigtsen, 2016/02/13