diff options
| author | Paul Eggert | 1993-08-10 04:14:17 +0000 |
|---|---|---|
| committer | Paul Eggert | 1993-08-10 04:14:17 +0000 |
| commit | adb47462305061249b4aa35a6ea9be0a68625fb4 (patch) | |
| tree | 25e9fb9dee178784b2af3bac8c31c21c2683b54b | |
| parent | 9cd77daade4e206037b9aee8e4a035e1d70b1f10 (diff) | |
| download | emacs-adb47462305061249b4aa35a6ea9be0a68625fb4.tar.gz emacs-adb47462305061249b4aa35a6ea9be0a68625fb4.zip | |
Remove, since floor and mod
(caesar-region): Replace `%' by `mod' and simplify.
| -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: ") | |||
| 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)) |