diff options
| author | Paul Eggert <eggert@twinsun.com> | 1993-08-01 20:48:43 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1993-08-01 20:48:43 +0000 |
| commit | e00fcc05ecc69e9f0d74a25d021c43528c08004c (patch) | |
| tree | d9100bbd1e1593bd63027a2eca7454314696934a /lisp/emerge.el | |
| parent | db6730c7ad7341f93507f6e19e2184bdbc632247 (diff) | |
| download | emacs-e00fcc05ecc69e9f0d74a25d021c43528c08004c.tar.gz | |
(emerge-default-[AB]): Use (zerop (% A B)) instead of
(= (* (/ A B) B) A).
Diffstat (limited to 'lisp/emerge.el')
| -rw-r--r-- | lisp/emerge.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emerge.el b/lisp/emerge.el index d84812a2032..d96abb21bc9 100644 --- a/lisp/emerge.el +++ b/lisp/emerge.el @@ -1798,7 +1798,7 @@ which there is no preference." (emerge-select-A) (aset diff-vector 6 'default-A)))) (setq n (1+ n)) - (if (= (* (/ n 10) 10) n) + (if (zerop (% n 10)) (message "Setting default to A...%d" n))) (emerge-unselect-and-select-difference selected-difference))) (message "Default A set")) @@ -1820,7 +1820,7 @@ which there is no preference." (emerge-select-B) (aset diff-vector 6 'default-B)))) (setq n (1+ n)) - (if (= (* (/ n 10) 10) n) + (if (zerop (% n 10)) (message "Setting default to B...%d" n))) (emerge-unselect-and-select-difference selected-difference))) (message "Default B set")) |