diff options
author | Paul Eggert <eggert@twinsun.com> | 1993-08-10 04:14:17 +0000 |
---|---|---|
committer | Paul Eggert <eggert@twinsun.com> | 1993-08-10 04:14:17 +0000 |
commit | 609564cd1c33d4bad55002268030b6c342cdaf12 (patch) | |
tree | e33d05d8519ab5bd3aeb568471a16613b3d069aa /lisp/mail/rnews.el | |
parent | 833c250c1a348d26962d4521ad4aef42189fb3c2 (diff) | |
download | emacs-609564cd1c33d4bad55002268030b6c342cdaf12.tar.gz |
Remove, since floor and mod
(caesar-region): Replace `%' by `mod' and simplify.
Diffstat (limited to 'lisp/mail/rnews.el')
-rw-r--r-- | lisp/mail/rnews.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mail/rnews.el b/lisp/mail/rnews.el index d699bc55f7f..5af007dd040 100644 --- a/lisp/mail/rnews.el +++ b/lisp/mail/rnews.el @@ -929,8 +929,7 @@ FName to link to message: ") (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)) |