/[emacs]/emacs/lisp/replace.el
ViewVC logotype

Diff of /emacs/lisp/replace.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.123 by rms, Tue Nov 20 23:25:34 2001 UTC revision 1.124 by rms, Sun Dec 2 04:45:54 2001 UTC
# Line 69  strings or patterns." Line 69  strings or patterns."
69        (setq from (read-from-minibuffer (format "%s: " string)        (setq from (read-from-minibuffer (format "%s: " string)
70                                         nil nil nil                                         nil nil nil
71                                         query-replace-from-history-variable                                         query-replace-from-history-variable
72                                         nil t)))                                         nil t))
73          ;; Warn if user types \n or \t, but don't reject the input.
74          (if (string-match "\\\\[nt]" from)
75              (let ((match (match-string 0 from)))
76                (cond
77                 ((string= match "\\n")
78                  (message "Note: `\\n' here doesn't match a newline; to do that, type C-q C-j instead"))
79                 ((string= match "\\t")
80                  (message "Note: `\\t' here doesn't match a tab; to do that, just type TAB")))
81                (sit-for 2))))
82    
83      (setq to (read-from-minibuffer (format "%s %s with: " string from)      (setq to (read-from-minibuffer (format "%s %s with: " string from)
84                                     nil nil nil                                     nil nil nil
85                                     query-replace-to-history-variable from t))                                     query-replace-to-history-variable from t))

Legend:
Removed from v.1.123  
changed lines
  Added in v.1.124

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26