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 | b97237b3da15bee1e58a5db2af32fc6062ceeb32 (patch) | |
| tree | 0cc3791cb2c96d9af85ab9062a710c3d5d8cc416 /lisp/=gnus.el | |
| parent | aa21a8cb7de33722cdbd0b1c59f25996aba4324f (diff) | |
| download | emacs-b97237b3da15bee1e58a5db2af32fc6062ceeb32.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)) |