diff options
| author | Juri Linkov <juri@linkov.net> | 2020-12-09 21:30:47 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2020-12-09 21:30:47 +0200 |
| commit | b71be20eaff7b3b13c67515e7919d36ecbd7b22b (patch) | |
| tree | b67ea9ec405906a868002a5d18b4831798c155b9 /lisp/language/korea-util.el | |
| parent | 303f0a19cc6b819dd4dc750aa278ca8563d3b64b (diff) | |
| download | emacs-b71be20eaff7b3b13c67515e7919d36ecbd7b22b.tar.gz emacs-b71be20eaff7b3b13c67515e7919d36ecbd7b22b.tar.bz2 emacs-b71be20eaff7b3b13c67515e7919d36ecbd7b22b.zip | |
Remove isearch-input-method-local-p and always set buffer-local input-method
* lisp/isearch.el (isearch-input-method-local-p): Remove defvar.
(isearch-mode): Don't set isearch-input-method-local-p.
Set buffer-local input-method-function to nil.
(isearch-done): When isearch-input-method-function is still non-nil,
set the buffer-local value of input-method-function. (Bug#45005)
* lisp/international/isearch-x.el (isearch-toggle-specified-input-method)
(isearch-toggle-input-method, isearch-transient-input-method):
Don't set isearch-input-method-local-p to t. Set buffer-local
input-method-function to nil.
* lisp/language/korea-util.el (isearch-toggle-korean-input-method)
(isearch-hangul-switch-symbol-ksc, isearch-hangul-switch-hanja):
Don't set isearch-input-method-local-p to t. Set buffer-local
input-method-function to nil.
Diffstat (limited to 'lisp/language/korea-util.el')
| -rw-r--r-- | lisp/language/korea-util.el | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el index 3821785da73..36e1d20a22f 100644 --- a/lisp/language/korea-util.el +++ b/lisp/language/korea-util.el @@ -70,27 +70,24 @@ (interactive) (let ((overriding-terminal-local-map nil)) (toggle-korean-input-method)) - (setq isearch-input-method-function input-method-function - isearch-input-method-local-p t) - (setq input-method-function nil) + (setq isearch-input-method-function input-method-function) + (setq-local input-method-function nil) (isearch-update)) (defun isearch-hangul-switch-symbol-ksc () (interactive) (let ((overriding-terminal-local-map nil)) (quail-hangul-switch-symbol-ksc)) - (setq isearch-input-method-function input-method-function - isearch-input-method-local-p t) - (setq input-method-function nil) + (setq isearch-input-method-function input-method-function) + (setq-local input-method-function nil) (isearch-update)) (defun isearch-hangul-switch-hanja () (interactive) (let ((overriding-terminal-local-map nil)) (quail-hangul-switch-hanja)) - (setq isearch-input-method-function input-method-function - isearch-input-method-local-p t) - (setq input-method-function nil) + (setq isearch-input-method-function input-method-function) + (setq-local input-method-function nil) (isearch-update)) ;; Information for setting and exiting Korean environment. |