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)))