* 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)
(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)
(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)
(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)