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

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

diff --git a/lisp/emerge.el b/lisp/emerge.el
index d84812a2032fc5e67e51d689ac65c0e57fc6d2c7..d96abb21bc945d2abd9c65361332ceda1cf2997d 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"))