summaryrefslogtreecommitdiff
path: root/lisp/international/quail.el
diff options
context:
space:
mode:
authorMichael Vehrs <Michael.Burschik@gmx.de>2015-05-02 17:08:54 +0300
committerEli Zaretskii <eliz@gnu.org>2015-05-02 17:08:54 +0300
commit08431a20c55bc9b7f3f1c489a481663633794420 (patch)
treeda9a7302133a347f18703246656e8ca2c2a5ce00 /lisp/international/quail.el
parent40e720d049693dfe0c5559a8a8285a0b5cc6c5e2 (diff)
downloademacs-08431a20c55bc9b7f3f1c489a481663633794420.tar.gz
Fix display of keyboard layouts for right-to-left scripts
* lisp/international/quail.el (quail-insert-kbd-layout): Force left-to-right paragraph direction.
Diffstat (limited to 'lisp/international/quail.el')
-rw-r--r--lisp/international/quail.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 5e422bf5fdb..90a540aae30 100644
--- 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)