Mercurial > hg > xemacs-beta

comparison lisp/isearch-mode.el @ 321:19dcec799385 r21-0-58

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-58
author cvs
date Mon, 13 Aug 2007 10:46:44 +0200
parents afd57c14dfc8
children cc15677e0335
comparison
equal deleted inserted replaced
320:73c75c43c1f2 321:19dcec799385
585 (progn 585 (progn
586 (setq regexp-search-ring 586 (setq regexp-search-ring
587 (cons isearch-string regexp-search-ring) 587 (cons isearch-string regexp-search-ring)
588 regexp-search-ring-yank-pointer regexp-search-ring) 588 regexp-search-ring-yank-pointer regexp-search-ring)
589 (if (> (length regexp-search-ring) regexp-search-ring-max) 589 (if (> (length regexp-search-ring) regexp-search-ring-max)
590 (setcdr (nthcdr (1- search-ring-max) regexp-search-ring) 590 (setcdr (nthcdr (1- regexp-search-ring-max) regexp-search-ring)
591 nil)))) 591 nil))))
592 (if (not (setq search-ring-yank-pointer 592 (if (not (setq search-ring-yank-pointer
593 ;; really need equal test instead of eq. 593 ;; really need equal test instead of eq.
594 (member isearch-string search-ring))) 594 (member isearch-string search-ring)))
595 (progn 595 (progn