Mercurial > emacs
comparison lisp/mail/rnews.el @ 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 | 213978acbc1e |
children | ec740be1ce7b |
comparison
equal
deleted
inserted
replaced
4514:e64f012944e0 | 4515:85426a9911c0 |
---|---|
927 "Caesar rotation of region by N, default 13, for decrypting netnews." | 927 "Caesar rotation of region by N, default 13, for decrypting netnews." |
928 (interactive (if current-prefix-arg ; Was there a prefix arg? | 928 (interactive (if current-prefix-arg ; Was there a prefix arg? |
929 (list (prefix-numeric-value current-prefix-arg)) | 929 (list (prefix-numeric-value current-prefix-arg)) |
930 (list nil))) | 930 (list nil))) |
931 (cond ((not (numberp n)) (setq n 13)) | 931 (cond ((not (numberp n)) (setq n 13)) |
932 ((< n 0) (setq n (- 26 (% (- n) 26)))) | 932 (t (setq n (mod n 26)))) ;canonicalize N |
933 (t (setq n (% n 26)))) ;canonicalize N | |
934 (if (not (zerop n)) ; no action needed for a rot of 0 | 933 (if (not (zerop n)) ; no action needed for a rot of 0 |
935 (progn | 934 (progn |
936 (if (or (not (boundp 'caesar-translate-table)) | 935 (if (or (not (boundp 'caesar-translate-table)) |
937 (/= (aref caesar-translate-table ?a) (+ ?a n))) | 936 (/= (aref caesar-translate-table ?a) (+ ?a n))) |
938 (let ((i 0) (lower "abcdefghijklmnopqrstuvwxyz") upper) | 937 (let ((i 0) (lower "abcdefghijklmnopqrstuvwxyz") upper) |