aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/ring.el4
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.
88and less than m." 88Answer 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