mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-13 01:20:28 -08:00
Code Issues Projects Releases Wiki Activity

Mark unused Gnus util function as obsolete

Browse source 
* lisp/gnus/gnus-util.el (gnus-test-list): Mark utility function
as obsolete -- there are no in-tree usage.
This commit is contained in:
Lars Ingebrigtsen 2020-08-04 18:52:31 +02:00
parent b0e828da4f
commit 9eb04d8740
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/gnus/gnus-util.el
View file

@ -1654,6 +1654,7 @@ The first found will be returned if a file has hard or symbolic links."
"To each element of LIST apply PREDICATE. "To each element of LIST apply PREDICATE.
Return nil if LIST is no list or is empty or some test returns nil; Return nil if LIST is no list or is empty or some test returns nil;
otherwise, return t." otherwise, return t."
(declare (obsolete nil "28.1"))
(when (and list (listp list)) (when (and list (listp list))
(let ((result (mapcar predicate list))) (let ((result (mapcar predicate list)))
(not (memq nil result))))) (not (memq nil result)))))