]> git.eshelyaron.com Git - emacs.git/commitdiff
Prefer '(evenp A)' to '(= 0 (logand A 1))'
authorStefan Kangas <stefankangas@gmail.com>
Mon, 17 Feb 2025 18:30:44 +0000 (19:30 +0100)
committerEshel Yaron <me@eshelyaron.com>
Tue, 18 Feb 2025 08:53:25 +0000 (09:53 +0100)
* lisp/calc/calc-arith.el (calcFunc-dint):
* lisp/calculator.el (calculator-expt):
* lisp/emacs-lisp/bytecomp.el (byte-compile-unfold-bcf):
* lisp/emacs-lisp/elint.el (elint-check-defcustom-form):
* lisp/ps-print.el (ps-print-page-p):
(ps-print-sheet-p): Prefer '(evenp A)' to '(= 0 (logand A 1))' and
variations thereof.

(cherry picked from commit 7c7cf3e8c88de6af91b110584f3aa8aff8011409)

lisp/calc/calc-arith.el
lisp/ps-print.el

index 1bb76c390ba05100d2bd50d3639e95cc488e23ab..ac90d6b28edc6caf7d4d1e6caf594704c3c469fb 100644 (file)
 (defun calcFunc-dint (expr)
   (let ((types (math-possible-types expr)))
     (if (= types 1) 1
-      (if (= (logand types 1) 0) 0
+      (if (evenp types) 0
        (math-reject-arg expr 'integerp 'quiet)))))
 
 (defun calcFunc-dnumint (expr)
index d133e0bad67a141e75650be64a2a5f2971139c19..0908eeb7b50ae7ede737e77d9967f1409b32f586 100644 (file)
@@ -4605,7 +4605,7 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
                   (t
                    nil))
             (cond ((eq ps-even-or-odd-pages 'even-page)
-                   (= (logand ps-page-postscript 1) 0))
+                   (evenp ps-page-postscript))
                   ((eq ps-even-or-odd-pages 'odd-page)
                    (= (logand ps-page-postscript 1) 1))
                   (t)
@@ -4615,7 +4615,7 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
 (defsubst ps-print-sheet-p ()
   (setq ps-print-page-p
        (cond ((eq ps-even-or-odd-pages 'even-sheet)
-              (= (logand ps-page-sheet 1) 0))
+              (evenp ps-page-sheet))
              ((eq ps-even-or-odd-pages 'odd-sheet)
               (= (logand ps-page-sheet 1) 1))
              (t)