diff options
Diffstat (limited to 'lisp/international/quail.el')
-rw-r--r-- | lisp/international/quail.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index b2f4adce4a3..48d2ccb8828 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -804,13 +804,12 @@ The format of KBD-LAYOUT is the same as `quail-keyboard-layout'." (setq i (1+ i))) (let ((pos (point)) - (bar "|") + (bar (propertize "|" 'face 'bold)) lower upper row) ;; Make table without horizontal lines. Each column for a key ;; has the form "| LU |" where L is for lower key and U is ;; for a upper key. If width of L (U) is greater than 1, ;; preceding (following) space is not inserted. - (put-text-property 0 1 'face 'bold bar) (setq i 0) (while (< i quail-keyboard-layout-len) (when (= (% i 30) 0) @@ -1325,9 +1324,11 @@ If STR has `advice' text property, append the following special event: ;; binding in `universal-argument-map' just return ;; (list KEY), otherwise act as if there was no ;; overriding map. - (or (not (eq (cadr overriding-terminal-local-map) - universal-argument-map)) - (lookup-key overriding-terminal-local-map (vector key)))) + ;; We used to do that only for `universal-argument-map', + ;; but according to bug#68338 this should also apply to + ;; other transient maps. Let's hope it's OK to apply it + ;; to all `overriding-terminal-local-map's. + (lookup-key overriding-terminal-local-map (vector key))) overriding-local-map) (list key) (quail-setup-overlays (quail-conversion-keymap)) |