# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 744238123 0
# Node ID 8080301bd1d92d40df49213f6b89ed9f1999a9d2
# Parent  67c9f8ba927a2fb8fc9f7828b383ac71c3eb8f4a
(emerge-default-[AB]): Use (zerop (% A B)) instead of
(= (* (/ A B) B) A).

diff -r 67c9f8ba927a -r 8080301bd1d9 lisp/emerge.el
--- a/lisp/emerge.el	Sun Aug 01 20:39:38 1993 +0000
+++ b/lisp/emerge.el	Sun Aug 01 20:48:43 1993 +0000
@@ -1798,7 +1798,7 @@
 		(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 @@
 		(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"))