diff options
| author | Paul Eggert | 1993-08-01 20:48:43 +0000 |
|---|---|---|
| committer | Paul Eggert | 1993-08-01 20:48:43 +0000 |
| commit | e00fcc05ecc69e9f0d74a25d021c43528c08004c (patch) | |
| tree | d9100bbd1e1593bd63027a2eca7454314696934a | |
| parent | db6730c7ad7341f93507f6e19e2184bdbc632247 (diff) | |
| download | emacs-e00fcc05ecc69e9f0d74a25d021c43528c08004c.tar.gz emacs-e00fcc05ecc69e9f0d74a25d021c43528c08004c.zip | |
(emerge-default-[AB]): Use (zerop (% A B)) instead of
(= (* (/ A B) B) A).
| -rw-r--r-- | lisp/emerge.el | 4 |
1 files changed, 2 insertions, 2 deletions
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." | |||
| 1798 | (emerge-select-A) | 1798 | (emerge-select-A) |
| 1799 | (aset diff-vector 6 'default-A)))) | 1799 | (aset diff-vector 6 'default-A)))) |
| 1800 | (setq n (1+ n)) | 1800 | (setq n (1+ n)) |
| 1801 | (if (= (* (/ n 10) 10) n) | 1801 | (if (zerop (% n 10)) |
| 1802 | (message "Setting default to A...%d" n))) | 1802 | (message "Setting default to A...%d" n))) |
| 1803 | (emerge-unselect-and-select-difference selected-difference))) | 1803 | (emerge-unselect-and-select-difference selected-difference))) |
| 1804 | (message "Default A set")) | 1804 | (message "Default A set")) |
| @@ -1820,7 +1820,7 @@ which there is no preference." | |||
| 1820 | (emerge-select-B) | 1820 | (emerge-select-B) |
| 1821 | (aset diff-vector 6 'default-B)))) | 1821 | (aset diff-vector 6 'default-B)))) |
| 1822 | (setq n (1+ n)) | 1822 | (setq n (1+ n)) |
| 1823 | (if (= (* (/ n 10) 10) n) | 1823 | (if (zerop (% n 10)) |
| 1824 | (message "Setting default to B...%d" n))) | 1824 | (message "Setting default to B...%d" n))) |
| 1825 | (emerge-unselect-and-select-difference selected-difference))) | 1825 | (emerge-unselect-and-select-difference selected-difference))) |
| 1826 | (message "Default B set")) | 1826 | (message "Default B set")) |