diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-08-25 01:05:53 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-08-25 01:05:53 +0000 |
| commit | e256170582d584e5d6d74610069c3d191652bc30 (patch) | |
| tree | c2de5a7bd791b78827f662b7197a93ec439deb9e | |
| parent | 1fd3057c1cdf7ddef9937d560fe711f6cd3e512e (diff) | |
| download | emacs-e256170582d584e5d6d74610069c3d191652bc30.tar.gz | |
(quail-japanese-kkc-mode-exit): Fix previous
change.
| -rw-r--r-- | leim/quail/japanese.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/leim/quail/japanese.el b/leim/quail/japanese.el index d0c7b684040..13115b7cf98 100644 --- a/leim/quail/japanese.el +++ b/leim/quail/japanese.el @@ -79,9 +79,10 @@ ;; exited normally, else ARG is a cons (FROM . TO) where FROM and TO ;; specify a region not yet processed. (defun quail-japanese-kkc-mode-exit (arg) - (setq overriding-terminal-local-map (quail-conversion-keymap)) (if arg - (move-overlay quail-conv-overlay (car arg) (cdr arg)) + (progn + (setq overriding-terminal-local-map (quail-conversion-keymap)) + (move-overlay quail-conv-overlay (car arg) (cdr arg))) (run-hooks 'input-method-after-insert-chunk-hook))) (defun quail-japanese-self-insert-and-switch-to-alpha (key idx) |