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 oddp/evenp to open-coding in a few more cases

Browse source 
* lisp/arc-mode.el (archive-zip-summarize):
* lisp/cus-edit.el (setopt):
* lisp/isearch.el (isearch-backslash):
* lisp/simple.el (blink-paren-post-self-insert-function):
* lisp/subr.el (setq-local, buffer-local-set-state):
* lisp/term.el (term-within-quotes):
* test/src/data-tests.el (test-bool-vector-bv-from-hex-string): Use
oddp/evenp instead of open-coding them.
Reported by Pip Cet <pipcet@protonmail.com>.
This commit is contained in:
Stefan Kangas 2025-02-17 23:00:54 +01:00
parent abd861ca26
commit 515542b653
7 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/isearch.el
View file

@ -2893,7 +2893,7 @@ The command accepts Unicode names like \"smiling face\" or
(defun isearch-backslash (str)
"Return t if STR ends in an odd number of backslashes."
(= (mod (- (length str) (string-match "\\\\*\\'" str)) 2) 1))
(oddp (- (length str) (string-match "\\\\*\\'" str))))
(defun isearch-fallback (want-backslash &optional allow-invalid to-barrier)
"Return point to previous successful match to allow regexp liberalization.