Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 04:21:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

Restore use of cl-member-if and cl-plusp to flymake.el

Browse source 
* lisp/progmodes/flymake.el (flymake-goto-next-error): Use
cl-member-if not member-if and cl-plusp not plusp because this
is a `:core' ELPA package (bug#79930).
This commit is contained in:
Sean Whitton 2026-03-09 11:37:24 +00:00
parent 320e33a85f
commit 89dbc92137
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/progmodes/flymake.el
View file

@ -1624,13 +1624,15 @@ default) no filter is applied."
finally (cl-return
(cl-sort retval (if (cl-plusp n) #'< #'>)
:key #'overlay-start))))
(tail (member-if (lambda (ov)
(if (plusp n)
(> (overlay-start ov)
(point))
(< (overlay-start ov)
(point))))
ovs))
(tail ;; For compatibility with older Emacs.
(with-suppressed-warnings ((obsolete cl-member-if))
(cl-member-if (lambda (ov)
(if (cl-plusp n)
(> (overlay-start ov)
(point))
(< (overlay-start ov)
(point))))
ovs)))
(chain (if flymake-wrap-around
(if tail
(progn (setcdr (last tail) ovs) tail)