Mercurial > emacs
changeset 4512:ed1f6abba5c5
(isearch-ring-adjust1, isearch-ring-advance-edit): Replace `%' by `mod' and simplify.
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Tue, 10 Aug 1993 04:14:17 +0000 |
| parents | db555f6edd6b |
| children | 0563affb6b38 |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 6 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Tue Aug 10 04:14:17 1993 +0000 +++ b/lisp/isearch.el Tue Aug 10 04:14:17 1993 +0000 @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> -;; |$Date: 1993/07/15 03:46:02 $|$Revision: 1.46 $ +;; |$Date: 1993/07/31 18:39:09 $|$Revision: 1.47 $ ;; This file is not yet part of GNU Emacs, but it is based almost ;; entirely on isearch.el which is part of GNU Emacs. @@ -1090,9 +1090,9 @@ () (set yank-pointer-name (setq yank-pointer - (% (+ (or yank-pointer 0) - (if advance (1- length) 1)) - length))) + (mod (+ (or yank-pointer 0) + (if advance -1 1)) + length))) (setq isearch-string (nth yank-pointer ring) isearch-message (mapconcat 'isearch-text-char-description isearch-string ""))))) @@ -1134,11 +1134,8 @@ () (set yank-pointer-name (setq yank-pointer - (% (+ (or yank-pointer 0) - ;; Add LENGTH here to ensure a positive result. - length - (% (- n) length)) - length))) + (mod (- (or yank-pointer 0) n) + length))) (erase-buffer) (insert (nth yank-pointer ring))