From 66e0570cde6df61e4e1ec4ce54bac157770dc0b6 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 2 Dec 2011 12:35:17 +0200 Subject: [PATCH] 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. --- lisp/ChangeLog | 5 +++++ lisp/isearch.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 43c232bc375..b5b3eb0231d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-12-02 Eli Zaretskii + + * 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 * isearch.el (isearch-occur): Use `word-search-regexp' for diff --git a/lisp/isearch.el b/lisp/isearch.el index f8aa8e4adc3..1bebaef8a03 100644 --- 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)) -- 2.39.2