Fix display of keyboard layouts for right-to-left scripts

* lisp/international/quail.el (quail-insert-kbd-layout): Force
left-to-right paragraph direction.

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 5e422bf5fdb162433f124a991e97152ddef13a15..90a540aae304b793d8149cf45b00d2011cf54180 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -793,9 +793,10 @@ you type is correctly handled."
                 keyseq)))
 
 (defun quail-insert-kbd-layout (kbd-layout)
-"Insert the visual keyboard layout table according to KBD-LAYOUT.
+  "Insert the visual keyboard layout table according to KBD-LAYOUT.
 The format of KBD-LAYOUT is the same as `quail-keyboard-layout'."
   (let (done-list layout i ch)
+    (setq bidi-paragraph-direction 'left-to-right)
     ;; At first, convert KBD-LAYOUT to the same size vector that
     ;; contains translated character or string.
     (setq layout (string-to-vector kbd-layout)