diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-02-08 07:34:28 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-02-08 07:34:28 +0000 |
commit | 9fafef59cef371d56fe71671c94316f9bd10585d (patch) | |
tree | 22be26525b22c4d12b3711a01b1a000b1340dfae /lisp | |
parent | fc20a041e5099cc07d4b923969e9f15758b934f3 (diff) | |
download | emacs-9fafef59cef371d56fe71671c94316f9bd10585d.tar.gz |
(occur): Apply default by hand after read-from-minibuffer.
No need to clear text props from the result.
(query-replace-read-args, map-query-replace-regexp):
Offer the FROM arg as the default for the TO arg.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/replace.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 0542b8df371..56dee79c44a 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -63,7 +63,7 @@ strings or patterns." nil t))) (setq to (read-from-minibuffer (format "%s %s with: " string from) nil nil nil - query-replace-to-history-variable nil t)) + query-replace-to-history-variable from t)) (list from to current-prefix-arg))) (defun query-replace (from-string to-string &optional arg) @@ -142,7 +142,7 @@ before rotating to the next." (format "Query replace %s with (space-separated strings): " from) nil nil nil - 'query-replace-history nil t)) + 'query-replace-history from t)) (list from to current-prefix-arg))) (let (replacements) (if (listp to-strings) @@ -423,7 +423,8 @@ the matching is case-sensitive." default) "List lines matching regexp: ") nil nil nil 'regexp-history default t))) - (set-text-properties 0 (length input) nil input) + (and (equal input "") default + (setq input default)) input) current-prefix-arg)) (let ((nlines (if nlines |