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 | b12a02f064e87180670a8ab49275c4d01729df67 (patch) | |
| tree | 9422e8c3faa05adb591a8545ba819eaf27a926a8 /lisp/emerge.el | |
| parent | 6d6aeb9dc44e4a310ddc2df9a61b9cc725a66fcb (diff) | |
| download | emacs-b12a02f064e87180670a8ab49275c4d01729df67.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")) |