Mercurial > emacs

changeset 4399:8080301bd1d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(emerge-default-[AB]): Use (zerop (% A B)) instead of (= (* (/ A B) B) A).
author Paul Eggert <eggert@twinsun.com>
date Sun, 01 Aug 1993 20:48:43 +0000
parents 67c9f8ba927a
children a549089c0d15
files lisp/emerge.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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"))