Mercurial > emacs

comparison lisp/mail/rnews.el @ 4515:85426a9911c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)