* lisp/rect.el (string-rectangle): Inherit input method in minibuffer

diff --git a/lisp/rect.el b/lisp/rect.el
index 34f79e3ed3c72e5cf2d44e4b29254c5ac44c7cf9..4d4d6146f217735e8d327f880d3272492e958e77 100644 (file)
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -520,7 +520,8 @@ Called from a program, takes three args; START, END and STRING."
                (read-string (format "String rectangle (default %s): "
                                     (or (car string-rectangle-history) ""))
                             nil 'string-rectangle-history
-                            (car string-rectangle-history)))))))
+                            (car string-rectangle-history)
+                            'inherit-input-method))))))
   ;; If we undo this change, we want to have the point back where we
   ;; are now, and not after the first line in the rectangle (which is
   ;; the first line to be changed by the following command).
@@ -613,7 +614,7 @@ with a prefix argument, prompt for START-AT and FORMAT."
     (apply-on-rectangle 'rectangle-number-line-callback
                        start end format)))
 
-;;; New rectangle integration with kill-ring.
+;;; Rectangle integration with kill-ring.
 
 ;; FIXME: known problems with the new rectangle support:
 ;; - lots of commands handle the region without paying attention to its