diff options
| author | Richard M. Stallman | 1992-07-28 02:14:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-07-28 02:14:03 +0000 |
| commit | 56dc48ff27aead1d92b44293bcffacb1d429c36a (patch) | |
| tree | 7c55249bf01aea1ef221b72de9b89a99c5017bb2 | |
| parent | aaa8a4bdec17af6e8f89bf96f9563b690ded969b (diff) | |
| download | emacs-56dc48ff27aead1d92b44293bcffacb1d429c36a.tar.gz emacs-56dc48ff27aead1d92b44293bcffacb1d429c36a.zip | |
entered into RCS
| -rw-r--r-- | lisp/isearch-old.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/isearch-old.el b/lisp/isearch-old.el index a030ba4f4c9..ee7a1b04476 100644 --- a/lisp/isearch-old.el +++ b/lisp/isearch-old.el | |||
| @@ -449,7 +449,7 @@ is treated as a regexp. See \\[isearch-forward] for more info." | |||
| 449 | (setq regexp-search-ring (cons (cons search-string uppercase-flag) | 449 | (setq regexp-search-ring (cons (cons search-string uppercase-flag) |
| 450 | regexp-search-ring) | 450 | regexp-search-ring) |
| 451 | regexp-search-ring-yank-pointer regexp-search-ring) | 451 | regexp-search-ring-yank-pointer regexp-search-ring) |
| 452 | (if (> (length regexp-search-ring) regexp-search-ring-max) | 452 | (if (> (length regexp-search-ring) search-ring-max) |
| 453 | (setcdr (nthcdr (1- search-ring-max) regexp-search-ring) nil))) | 453 | (setcdr (nthcdr (1- search-ring-max) regexp-search-ring) nil))) |
| 454 | (if (not (member search-string search-ring)) | 454 | (if (not (member search-string search-ring)) |
| 455 | (progn | 455 | (progn |