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