diff options
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index be73cab8d2a..37e97e2c215 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -209,9 +209,9 @@ wants to replace FROM with TO." | |||
| 209 | (let ((match (match-string 3 from))) | 209 | (let ((match (match-string 3 from))) |
| 210 | (cond | 210 | (cond |
| 211 | ((string= match "\\n") | 211 | ((string= match "\\n") |
| 212 | (message "Note: ‘\\n’ here doesn't match a newline; to do that, type C-q C-j instead")) | 212 | (message "Note: `\\n' here doesn't match a newline; to do that, type C-q C-j instead")) |
| 213 | ((string= match "\\t") | 213 | ((string= match "\\t") |
| 214 | (message "Note: ‘\\t’ here doesn't match a tab; to do that, just type TAB"))) | 214 | (message "Note: `\\t' here doesn't match a tab; to do that, just type TAB"))) |
| 215 | (sit-for 2))) | 215 | (sit-for 2))) |
| 216 | (if (not to) | 216 | (if (not to) |
| 217 | from | 217 | from |
| @@ -1140,7 +1140,7 @@ To return to ordinary Occur mode, use \\[occur-cease-edit]." | |||
| 1140 | (goto-char m) | 1140 | (goto-char m) |
| 1141 | (recenter line) | 1141 | (recenter line) |
| 1142 | (if readonly | 1142 | (if readonly |
| 1143 | (message "Buffer ‘%s’ is read only." buf) | 1143 | (message "Buffer `%s' is read only." buf) |
| 1144 | (delete-region (line-beginning-position) (line-end-position)) | 1144 | (delete-region (line-beginning-position) (line-end-position)) |
| 1145 | (insert text)) | 1145 | (insert text)) |
| 1146 | (move-to-column col))))))) | 1146 | (move-to-column col))))))) |
| @@ -1496,7 +1496,7 @@ See also `multi-occur'." | |||
| 1496 | ;; it is longer than window-width. | 1496 | ;; it is longer than window-width. |
| 1497 | (if (> (+ (length regexp) 42) (window-width)) | 1497 | (if (> (+ (length regexp) 42) (window-width)) |
| 1498 | "" (format-message | 1498 | "" (format-message |
| 1499 | " for ‘%s’" (query-replace-descr regexp))))) | 1499 | " for `%s'" (query-replace-descr regexp))))) |
| 1500 | (setq occur-revert-arguments (list regexp nlines bufs)) | 1500 | (setq occur-revert-arguments (list regexp nlines bufs)) |
| 1501 | (if (= count 0) | 1501 | (if (= count 0) |
| 1502 | (kill-buffer occur-buf) | 1502 | (kill-buffer occur-buf) |