# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 744956057 0
# Node ID 85426a9911c078f31a02d7556529be264fb72e29
# Parent  e64f012944e0748d1137fc90b5743ad7c8225072
Remove, since floor and mod
(caesar-region): Replace `%' by `mod' and simplify.

diff -r e64f012944e0 -r 85426a9911c0 lisp/mail/rnews.el
--- 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))