diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-09 14:29:12 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-09 17:58:15 +0200 |
| commit | 171b9314bf2b2ed1719f2451b527960e0a363a40 (patch) | |
| tree | 4b5aab2b03b2306bf3f953dafd8d950ea9d44290 /lisp/gnus/gnus-util.el | |
| parent | ee201bc77b37181bbb4378f360ee8dc94c231676 (diff) | |
| download | emacs-171b9314bf2b2ed1719f2451b527960e0a363a40.tar.gz emacs-171b9314bf2b2ed1719f2451b527960e0a363a40.tar.bz2 emacs-171b9314bf2b2ed1719f2451b527960e0a363a40.zip | |
Replace utility functions with seq-uniq
* lisp/gnus/gnus-util.el (gnus-delete-duplicates):
* lisp/ibuf-ext.el (ibuffer-remove-duplicates): Redefine as
obsolete function alias for 'seq-uniq'. Update callers.
Diffstat (limited to 'lisp/gnus/gnus-util.el')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 880192e3bb9..d1ad5bd7b2d 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -750,15 +750,6 @@ nil. See also `gnus-bind-print-variables'." (when (file-exists-p file) (delete-file file))) -(defun gnus-delete-duplicates (list) - "Remove duplicate entries from LIST." - (let ((result nil)) - (while list - (unless (member (car list) result) - (push (car list) result)) - (pop list)) - (nreverse result))) - (defun gnus-delete-directory (directory) "Delete files in DIRECTORY. Subdirectories remain. If there's no subdirectory, delete DIRECTORY as well." @@ -1550,6 +1541,8 @@ lists of strings." ;; gnus-util. (autoload 'gnus-output-to-rmail "gnus-rmail") +(define-obsolete-function-alias 'gnus-delete-duplicates #'seq-uniq "29.1") + (provide 'gnus-util) ;;; gnus-util.el ends here |