Mercurial > hg > xemacs-beta
comparison lisp/replace.el @ 442:abe6d1db359e r21-2-36
Import from CVS: tag r21-2-36
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:35:02 +0200 |
parents | 3ecd8885ac67 |
children | 576fb035e263 |
comparison
equal
deleted
inserted
replaced
441:72a7cfa4a488 | 442:abe6d1db359e |
---|---|
602 ;; isearch-mode is dumped, so don't autoload. | 602 ;; isearch-mode is dumped, so don't autoload. |
603 ;(autoload 'isearch-highlight "isearch") | 603 ;(autoload 'isearch-highlight "isearch") |
604 | 604 |
605 ;; XEmacs | 605 ;; XEmacs |
606 (defun perform-replace-next-event (event) | 606 (defun perform-replace-next-event (event) |
607 (if isearch-highlight | 607 (if search-highlight |
608 (let ((aborted t)) | 608 (let ((aborted t)) |
609 (unwind-protect | 609 (unwind-protect |
610 (progn | 610 (progn |
611 (if (match-beginning 0) | 611 (if (match-beginning 0) |
612 (isearch-highlight (match-beginning 0) (match-end 0))) | 612 (isearch-highlight (match-beginning 0) (match-end 0))) |