diff options
author | Po Lu <luangruo@yahoo.com> | 2023-05-18 09:04:57 +0800 |
---|---|---|
committer | Po Lu <luangruo@yahoo.com> | 2023-05-18 09:04:57 +0800 |
commit | 074c0268fd32d6527e124cff386bb6b15cf90017 (patch) | |
tree | 62111c3c70d46a738f15514e988a707409ca45f4 /lisp/international | |
parent | db48eff8cf4a88393c0209f663ca194ee37fa747 (diff) | |
parent | 5ef169ed701fa4f850fdca5563cdd468207d5d4f (diff) | |
download | emacs-feature/android.tar.gz |
Merge remote-tracking branch 'origin/master' into feature/androidfeature/android
Diffstat (limited to 'lisp/international')
-rw-r--r-- | lisp/international/ja-dic-cnv.el | 4 | ||||
-rw-r--r-- | lisp/international/quail.el | 3 |
2 files changed, 3 insertions, 4 deletions
diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el index 9ce31f11d91..5477473ae8c 100644 --- a/lisp/international/ja-dic-cnv.el +++ b/lisp/international/ja-dic-cnv.el @@ -484,7 +484,7 @@ To get complete usage, invoke: (defmacro skkdic-set-postfix (&rest entries) `(defconst skkdic-postfix ',(let ((l entries) - (map '(nil)) + (map (list nil)) (longest 1) len entry) (while l @@ -507,7 +507,7 @@ To get complete usage, invoke: (defmacro skkdic-set-prefix (&rest entries) `(defconst skkdic-prefix ',(let ((l entries) - (map '(nil)) + (map (list nil)) (longest 1) len entry) (while l diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 317ea8495de..894378bda8b 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) |