mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

Prefer '(oddp A)' to '(= 1 (logand A 1))'

Browse source 
* lisp/calendar/todo-mode.el (todo-padded-string):
* lisp/emacs-lisp/gv.el (setf):
* lisp/emacs-lisp/macroexp.el (macroexp--expand-all):
* lisp/hexl.el (hexl-insert-hex-string):
* lisp/play/gamegrid.el (gamegrid-xbm):
* lisp/play/hanoi.el (hanoi-internal):
* lisp/progmodes/ebnf2ps.el (ebnf-end-of-string):
* lisp/progmodes/elisp-mode.el (elisp--highlight-function-argument):
* lisp/progmodes/ruby-mode.el (ruby-backward-sexp):
* lisp/ps-print.el (ps-print-page-p):
(ps-print-sheet-p): Prefer '(oddp A)' to '(= 1 (logand A 1))' and
variations thereof.
This commit is contained in:
Stefan Kangas 2025-02-17 19:33:56 +01:00
parent 7c7cf3e8c8
commit fd5dbea21b
10 changed files with 13 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ps-print.el
View file

@ -4607,9 +4607,8 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
(cond ((eq ps-even-or-odd-pages 'even-page)
(evenp ps-page-postscript))
((eq ps-even-or-odd-pages 'odd-page)
(= (logand ps-page-postscript 1) 1))
(t)
))))
(oddp ps-page-postscript))
(t)))))
(defsubst ps-print-sheet-p ()
@ -4617,9 +4616,8 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
(cond ((eq ps-even-or-odd-pages 'even-sheet)
(evenp ps-page-sheet))
((eq ps-even-or-odd-pages 'odd-sheet)
(= (logand ps-page-sheet 1) 1))
(t)
)))
(oddp ps-page-sheet))
(t))))
(defun ps-output (&rest args)