(emerge-default-[AB]): Use (zerop (% A B)) instead of

(= (* (/ A B) B) A).

diff --git a/lisp/emerge.el b/lisp/emerge.el
index d84812a..d96abb2 100644 (file)
--- 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"))