Mercurial > emacs
changeset 4515:85426a9911c0
Remove, since floor and mod
(caesar-region): Replace `%' by `mod' and simplify.
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Tue, 10 Aug 1993 04:14:17 +0000 |
| parents | e64f012944e0 |
| children | 95b9760d19e3 |
| files | lisp/mail/rnews.el |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rnews.el Tue Aug 10 04:14:17 1993 +0000 +++ b/lisp/mail/rnews.el Tue Aug 10 04:14:17 1993 +0000 @@ -929,8 +929,7 @@ (list (prefix-numeric-value current-prefix-arg)) (list nil))) (cond ((not (numberp n)) (setq n 13)) - ((< n 0) (setq n (- 26 (% (- n) 26)))) - (t (setq n (% n 26)))) ;canonicalize N + (t (setq n (mod n 26)))) ;canonicalize N (if (not (zerop n)) ; no action needed for a rot of 0 (progn (if (or (not (boundp 'caesar-translate-table))