Fix part 3 of bug #10183 with input-method prompt in I-search.

 lisp/isearch.el (isearch-message-prefix): Run the input method part
 of the prompt through bidi-string-mark-left-to-right.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43c232bc375c72b0029e7802f0f7f7bc9fbce8ef..b5b3eb0231d760c5f4bc412f36d0cc2809d5d84c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-02  Eli Zaretskii  <eliz@gnu.org>
+
+       * isearch.el (isearch-message-prefix): Run the input method part
+       of the prompt through bidi-string-mark-left-to-right.  (Bug#10183)
+
 2011-12-02  Juri Linkov  <juri@jurta.org>
 
        * isearch.el (isearch-occur): Use `word-search-regexp' for

diff --git a/lisp/isearch.el b/lisp/isearch.el
index f8aa8e4adc342090470e7b127e477d405868d6ce..1bebaef8a03b262d8c11c9c0dbba555a6ca0e9f3 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2225,7 +2225,11 @@ If there is no completion possible, say so and continue searching."
                   (if nonincremental "search" "I-search")
                   (if isearch-forward "" " backward")
                   (if current-input-method
-                      (concat " [" current-input-method-title "]: ")
+                      ;; Input methods for RTL languages use RTL
+                      ;; characters for their title, and that messes
+                      ;; up the display of the prompt.
+                      (bidi-string-mark-left-to-right
+                       (concat " [" current-input-method-title "]: "))
                     ": ")
                   )))
     (propertize (concat (upcase (substring m 0 1)) (substring m 1))