# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 744956057 0
# Node ID 0563affb6b38c6a56beef30ebb53733db178e689
# Parent  ed1f6abba5c54391e1adc71629a60c77d15d4113
ring-mod -> mod

diff -r ed1f6abba5c5 -r 0563affb6b38 lisp/comint.el
--- a/lisp/comint.el	Tue Aug 10 04:14:17 1993 +0000
+++ b/lisp/comint.el	Tue Aug 10 04:14:17 1993 +0000
@@ -413,7 +413,7 @@
 		     (if (> arg 0) -1
 			 (if (< arg 0) 1 0))))
 	   (setq comint-input-ring-index
-		 (ring-mod (+ comint-input-ring-index arg) len))
+		 (mod (+ comint-input-ring-index arg) len))
 	   (message "%d" (1+ comint-input-ring-index))
 	   (insert (ring-ref comint-input-ring comint-input-ring-index))))))
 
@@ -450,11 +450,11 @@
     (while (/= arg 0)
       (let ((prev n))
 	;; Step once.
-	(setq n (ring-mod (+ n motion) len))
+	(setq n (mod (+ n motion) len))
 	;; If we haven't reached a match, step some more.
 	(while (and (< n len)
 		    (not (string-match regexp (ring-ref comint-input-ring n))))
-	  (setq n (ring-mod (+ n motion) len))
+	  (setq n (mod (+ n motion) len))
 	  ;; If we have gone all the way around in this search, error.
 	  (if (= n prev)
 	      (error "Not found"))))