procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(occur): Apply default by hand after read-from-minibuffer.

Browse source 
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.
This commit is contained in:
Richard M. Stallman 1998-02-08 07:34:28 +00:00
parent 8845349022
commit 4a8f3b3db0
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/replace.el
View file

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