mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Prefer cl-evenp/cl-oddp in some places

Browse source 
* lisp/erc/erc.el (erc-format-message):
* lisp/obsolete/thumbs.el (thumbs-emboss-image):
* lisp/org/org-capture.el (org-capture-escaped-%):
* lisp/org/org-element-ast.el (org-element-create):
* lisp/org/org-macro.el (org-macro-extract-arguments):
* lisp/org/org-persist.el (org-persist--get-collection):
* lisp/org/ox-odt.el (org-odt-get-table-cell-styles):
* lisp/org/ox.el (org-export--dispatch-ui):
* lisp/progmodes/cperl-mode.el (cperl-forward-re)
(cperl-find-pods-heres): Prefer 'cl-evenp/'cl-oddp' to free-coding them
in some files that already depend on cl-lib in run-time.
This commit is contained in:
Stefan Kangas 2025-02-17 01:57:22 +01:00
parent 35d4316101
commit 9efd11e5fd
9 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/erc/erc.el
View file

@ -9735,7 +9735,7 @@ if yet untried."
"Format MSG according to ARGS.
See also `format-spec'."
(when (eq (logand (length args) 1) 1) ; oddp
(unless (cl-evenp (length args))
(error "Obscure usage of this function appeared"))
(let ((entry (erc-retrieve-catalog-entry msg)))
(when (not entry)