[Emacs-diffs] Changes to emacs/lisp/replace.el

[Colin Walters]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.145 emacs/lisp/replace.el:1.146
*** emacs/lisp/replace.el:1.145 Thu May 23 20:56:46 2002
--- emacs/lisp/replace.el       Sun May 26 16:42:51 2002
***************
*** 967,973 ****
  
  which will run faster and probably do exactly what you want.  Please
  see the documentation of `replace-match' to find out how to simulate
! `case-replace'."
    (or map (setq map query-replace-map))
    (and query-flag minibuffer-auto-raise
         (raise-frame (window-frame (minibuffer-window))))
--- 967,976 ----
  
  which will run faster and probably do exactly what you want.  Please
  see the documentation of `replace-match' to find out how to simulate
! `case-replace'.
! 
! This function returns nil if and only if there were no matches to
! make, or the user didn't cancel the call."
    (or map (setq map query-replace-map))
    (and query-flag minibuffer-auto-raise
         (raise-frame (window-frame (minibuffer-window))))
***************
*** 1123,1134 ****
                         (setq done t))
                        ((eq def 'backup)
                         (if stack
!                            (let ((elt (car stack)))
                               (goto-char (car elt))
                               (setq replaced (eq t (cdr elt)))
                               (or replaced
!                                  (set-match-data (cdr elt)))
!                              (setq stack (cdr stack)))
                           (message "No previous match")
                           (ding 'no-terminate)
                           (sit-for 1)))
--- 1126,1136 ----
                         (setq done t))
                        ((eq def 'backup)
                         (if stack
!                            (let ((elt (pop stack)))
                               (goto-char (car elt))
                               (setq replaced (eq t (cdr elt)))
                               (or replaced
!                                  (set-match-data (cdr elt))))
                           (message "No previous match")
                           (ding 'no-terminate)
                           (sit-for 1)))