diff options
| author | Paul Eggert <eggert@twinsun.com> | 1993-08-10 04:14:17 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1993-08-10 04:14:17 +0000 |
| commit | 7fa8a8981fe0cf960e901622fa4acfc7717ced8a (patch) | |
| tree | c8c402bc5055a64d3df4ba5aecd77b5eeebaed53 /lisp/gnus.el | |
| parent | 632f9a0ea0d00dc1d7c9224b6e0f0ee1f7a6204e (diff) | |
| download | emacs-7fa8a8981fe0cf960e901622fa4acfc7717ced8a.tar.gz | |
(gnus-caesar-region): Replace `%' by `mod' and simplify.
Diffstat (limited to 'lisp/gnus.el')
| -rw-r--r-- | lisp/gnus.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index 7ae7bf5213a..64cc2262665 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> -;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnus.el,v 1.25 1993/07/27 23:12:22 rms Exp rms $ +;; Version: $Header: /home/gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.26 1993/07/28 08:35:38 rms Exp eggert $ ;; Keywords: news ;; This file is part of GNU Emacs. @@ -5157,8 +5157,7 @@ ROT47 will be performed for Japanese text in any case." (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)) |