diff options
| author | Brian Preble | 1991-04-23 00:08:11 +0000 |
|---|---|---|
| committer | Brian Preble | 1991-04-23 00:08:11 +0000 |
| commit | 3666f39cfd666e72a5ff04d0ca02c106afd70e19 (patch) | |
| tree | 85a19c49ecf198404347951369bea54a47219429 | |
| parent | 0101ec2ad0d1746857bb5aa13a9a8e2afe964aef (diff) | |
| download | emacs-3666f39cfd666e72a5ff04d0ca02c106afd70e19.tar.gz emacs-3666f39cfd666e72a5ff04d0ca02c106afd70e19.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/emacs-lisp/ring.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el index 69b1d1995ac..95b993001fa 100644 --- a/lisp/emacs-lisp/ring.el +++ b/lisp/emacs-lisp/ring.el | |||
| @@ -84,8 +84,8 @@ item to make room." | |||
| 84 | (set-car (cdr ring) tl))))) | 84 | (set-car (cdr ring) tl))))) |
| 85 | 85 | ||
| 86 | (defun comint-mod (n m) | 86 | (defun comint-mod (n m) |
| 87 | "Returns N mod M. M is positive. Answer is guaranteed to be non-negative, | 87 | "Returns N mod M. M is positive. |
| 88 | and less than m." | 88 | Answer is guaranteed to be non-negative, and less than m." |
| 89 | (let ((n (% n m))) | 89 | (let ((n (% n m))) |
| 90 | (if (>= n 0) n | 90 | (if (>= n 0) n |
| 91 | (+ n | 91 | (+ n |