procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

* lisp/language/thai-util.el (thai-word-mode-map): Prefer defvar-keymap.

Browse source
This commit is contained in:
Stefan Kangas 2022-05-12 15:53:28 +02:00
parent d0975d7db0
commit 87eed07041
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/language/thai-util.el
View file

@ -244,15 +244,13 @@ positions (integers or markers) specifying the region."
;; Thai-word-mode requires functions in the feature `thai-word'.
(require 'thai-word)
(defvar thai-word-mode-map
(let ((map (make-sparse-keymap)))
(define-key map [remap forward-word] 'thai-forward-word)
(define-key map [remap backward-word] 'thai-backward-word)
(define-key map [remap kill-word] 'thai-kill-word)
(define-key map [remap backward-kill-word] 'thai-backward-kill-word)
(define-key map [remap transpose-words] 'thai-transpose-words)
map)
"Keymap for `thai-word-mode'.")
(defvar-keymap thai-word-mode-map
:doc "Keymap for `thai-word-mode'."
"<remap> <forward-word>" #'thai-forward-word
"<remap> <backward-word>" #'thai-backward-word
"<remap> <kill-word>" #'thai-kill-word
"<remap> <backward-kill-word>" #'thai-backward-kill-word
"<remap> <transpose-words>" #'thai-transpose-words)
(define-minor-mode thai-word-mode
"Minor mode to make word-oriented commands aware of Thai words.