[Emacs-diffs] /srv/bzr/emacs/trunk r106576: Fix part 3 of bug #10183 with input-method prompt in I-search.

[Eli Zaretskii]

------------------------------------------------------------
revno: 106576
fixes bug(s): http://debbugs.gnu.org/10183
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Fri 2011-12-02 12:35:17 +0200
message:
  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.
modified:
  lisp/ChangeLog
  lisp/isearch.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-12-02 10:19:49 +0000
+++ b/lisp/ChangeLog    2011-12-02 10:35:17 +0000
@@ -1,3 +1,8 @@
+2011-12-02  Eli Zaretskii  <address@hidden>
+
+       * 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  <address@hidden>
 
        * isearch.el (isearch-occur): Use `word-search-regexp' for

=== modified file 'lisp/isearch.el'
--- a/lisp/isearch.el   2011-12-02 10:19:49 +0000
+++ b/lisp/isearch.el   2011-12-02 10:35:17 +0000
@@ -2225,7 +2225,11 @@
                   (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))