From adb47462305061249b4aa35a6ea9be0a68625fb4 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 10 Aug 1993 04:14:17 +0000 Subject: [PATCH] Remove, since floor and mod (caesar-region): Replace `%' by `mod' and simplify. --- lisp/mail/rnews.el | 3 +-- 1 file changed, 1 insertion(+), 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)) -- 2.39.5