* lisp/language/thai-util.el (thai-word-mode-map): Prefer defvar-keymap.
This commit is contained in:
parent
d0975d7db0
commit
87eed07041
1 changed files with 7 additions and 9 deletions
|
@ -244,15 +244,13 @@ positions (integers or markers) specifying the region."
|
||||||
;; Thai-word-mode requires functions in the feature `thai-word'.
|
;; Thai-word-mode requires functions in the feature `thai-word'.
|
||||||
(require 'thai-word)
|
(require 'thai-word)
|
||||||
|
|
||||||
(defvar thai-word-mode-map
|
(defvar-keymap thai-word-mode-map
|
||||||
(let ((map (make-sparse-keymap)))
|
:doc "Keymap for `thai-word-mode'."
|
||||||
(define-key map [remap forward-word] 'thai-forward-word)
|
"<remap> <forward-word>" #'thai-forward-word
|
||||||
(define-key map [remap backward-word] 'thai-backward-word)
|
"<remap> <backward-word>" #'thai-backward-word
|
||||||
(define-key map [remap kill-word] 'thai-kill-word)
|
"<remap> <kill-word>" #'thai-kill-word
|
||||||
(define-key map [remap backward-kill-word] 'thai-backward-kill-word)
|
"<remap> <backward-kill-word>" #'thai-backward-kill-word
|
||||||
(define-key map [remap transpose-words] 'thai-transpose-words)
|
"<remap> <transpose-words>" #'thai-transpose-words)
|
||||||
map)
|
|
||||||
"Keymap for `thai-word-mode'.")
|
|
||||||
|
|
||||||
(define-minor-mode thai-word-mode
|
(define-minor-mode thai-word-mode
|
||||||
"Minor mode to make word-oriented commands aware of Thai words.
|
"Minor mode to make word-oriented commands aware of Thai words.
|
||||||
|
|
Loading…
Reference in a new issue