Mercurial > emacs

changeset 19551:256843b0f804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(query-replace-read-args): Locally bind minibuffer-inherit-input-method to t to make a minibuffer inherit the current input method. (map-query-replace-regexp, keep-lines, flush-lines): Likewise. (how-many, occur): Likewise.
author Kenichi Handa <handa@m17n.org>
date Tue, 26 Aug 1997 11:45:49 +0000
parents 0e09a1cec19d
children c8a5bd70b9cd
files lisp/replace.el
diffstat 1 files changed, 10 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Tue Aug 26 11:42:33 1997 +0000
+++ b/lisp/replace.el	Tue Aug 26 11:45:49 1997 +0000
@@ -43,10 +43,10 @@
 	(setq from (car (if regexp-flag regexp-search-ring search-ring)))
       (setq from (read-from-minibuffer (format "%s: " string)
 				       nil nil nil
-				       'query-replace-history)))
+				       'query-replace-history nil t)))
     (setq to (read-from-minibuffer (format "%s %s with: " string from)
 				   nil nil nil
-				   'query-replace-history))
+				   'query-replace-history nil t))
     (list from to current-prefix-arg)))
 
 (defun query-replace (from-string to-string &optional arg)
@@ -110,12 +110,12 @@
 		    (car regexp-search-ring)
 		  (read-from-minibuffer "Map query replace (regexp): "
 					nil nil nil
-					'query-replace-history)))
+					'query-replace-history nil t)))
      (setq to (read-from-minibuffer
 	       (format "Query replace %s with (space-separated strings): "
 		       from)
 	       nil nil nil
-	       'query-replace-history))
+	       'query-replace-history nil t))
      (list from to current-prefix-arg)))
   (let (replacements)
     (if (listp to-strings)
@@ -187,7 +187,7 @@
 Applies to all lines after point."
   (interactive (list (read-from-minibuffer
 		      "Keep lines (containing match for regexp): "
-		      nil nil nil 'regexp-history)))
+		      nil nil nil 'regexp-history nil t)))
   (save-excursion
     (or (bolp) (forward-line 1))
     (let ((start (point)))
@@ -214,7 +214,7 @@
 Applies to lines after point."
   (interactive (list (read-from-minibuffer
 		      "Flush lines (containing match for regexp): "
-		      nil nil nil 'regexp-history)))
+		      nil nil nil 'regexp-history nil t)))
   (save-excursion
     (while (and (not (eobp))
 		(re-search-forward regexp nil t))
@@ -226,9 +226,9 @@
 (defalias 'count-matches 'how-many)
 (defun how-many (regexp)
   "Print number of matches for REGEXP following point."
-  (interactive (list (read-from-minibuffer
-		      "How many matches for (regexp): "
-		      nil nil nil 'regexp-history)))
+  (interactive (list(read-from-minibuffer
+		     "How many matches for (regexp): "
+		     nil nil nil 'regexp-history nil t)))
   (let ((count 0) opoint)
     (save-excursion
      (while (and (not (eobp))
@@ -389,7 +389,7 @@
 		      (format "List lines matching regexp (default `%s'): "
 			      default)
 		    "List lines matching regexp: ")
-		  nil nil nil 'regexp-history)))
+		  nil nil nil 'regexp-history nil t)))
 	   (if (string-equal input "")
 	       default
 	     (set-text-properties 0 (length input) nil input)