diff options
| author | Stefan Kangas | 2025-02-17 23:00:54 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2025-02-18 00:00:31 +0100 |
| commit | 515542b653c438014eda844eacc96cf23cfaaa2d (patch) | |
| tree | c3be3d691104d1a038d85e2f38cb03376d1c7a21 /test/src | |
| parent | abd861ca2694898b347b94251710da38c687dd68 (diff) | |
| download | emacs-515542b653c438014eda844eacc96cf23cfaaa2d.tar.gz emacs-515542b653c438014eda844eacc96cf23cfaaa2d.zip | |
Prefer oddp/evenp to open-coding in a few more cases
* 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>.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/data-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/src/data-tests.el b/test/src/data-tests.el index abbc88dea4c..44c786ac579 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el | |||
| @@ -184,7 +184,7 @@ this is exactly representable and is greater than | |||
| 184 | (let ((i 0)) | 184 | (let ((i 0)) |
| 185 | (dolist (n (nreverse nibbles)) | 185 | (dolist (n (nreverse nibbles)) |
| 186 | (dotimes (_ 4) | 186 | (dotimes (_ 4) |
| 187 | (aset bv i (> (logand 1 n) 0)) | 187 | (aset bv i (oddp n)) |
| 188 | (cl-incf i) | 188 | (cl-incf i) |
| 189 | (setf n (ash n -1))))) | 189 | (setf n (ash n -1))))) |
| 190 | bv)) | 190 | bv)) |