From e00fcc05ecc69e9f0d74a25d021c43528c08004c Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 1 Aug 1993 20:48:43 +0000 Subject: (emerge-default-[AB]): Use (zerop (% A B)) instead of (= (* (/ A B) B) A). --- lisp/emerge.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emerge.el') 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")) -- cgit v1.2.1