Mercurial > emacs

changeset 4513:0563affb6b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ring-mod -> mod
author Paul Eggert <eggert@twinsun.com>
date Tue, 10 Aug 1993 04:14:17 +0000
parents ed1f6abba5c5
children e64f012944e0
files lisp/comint.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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"))))