diff options
| -rw-r--r-- | lisp/comint.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 6881f6acd64..7670ae65265 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -413,7 +413,7 @@ buffer. The hook `comint-exec-hook' is run after each exec." (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 @@ If N is negative, find the next or Nth next match." (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")))) |