diff options
| author | David Kastrup <dak@gnu.org> | 2015-07-25 18:54:42 +0200 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2015-08-04 14:34:15 +0200 |
| commit | 5022e27dac4c13651941e425dbec5b3a2cecdae4 (patch) | |
| tree | 696d748c8abc3aea1bfd5305a8e71dc985053496 /lisp/leim/quail/hangul.el | |
| parent | 227e996946d4629fa8f6d665564a37668290c87f (diff) | |
| download | emacs-5022e27dac4c13651941e425dbec5b3a2cecdae4.tar.gz emacs-5022e27dac4c13651941e425dbec5b3a2cecdae4.tar.bz2 emacs-5022e27dac4c13651941e425dbec5b3a2cecdae4.zip | |
; Do not overwrite preexisting contents of unread-command-events
Diffstat (limited to 'lisp/leim/quail/hangul.el')
| -rw-r--r-- | lisp/leim/quail/hangul.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/leim/quail/hangul.el b/lisp/leim/quail/hangul.el index 12d7358841b..56a244f4574 100644 --- a/lisp/leim/quail/hangul.el +++ b/lisp/leim/quail/hangul.el @@ -410,7 +410,9 @@ When a Korean input method is off, convert the following hangul character." ((commandp cmd) (call-interactively cmd)) (t - (setq unread-command-events (listify-key-sequence seq)) + (setq unread-command-events + (nconc (listify-key-sequence seq) + unread-command-events)) (throw 'exit-input-loop nil)))))) (quail-delete-overlays))))) @@ -454,7 +456,9 @@ When a Korean input method is off, convert the following hangul character." ((commandp cmd) (call-interactively cmd)) (t - (setq unread-command-events (listify-key-sequence seq)) + (setq unread-command-events + (nconc (listify-key-sequence seq) + unread-command-events)) (throw 'exit-input-loop nil)))))) (quail-delete-overlays))))) @@ -499,7 +503,9 @@ When a Korean input method is off, convert the following hangul character." ((commandp cmd) (call-interactively cmd)) (t - (setq unread-command-events (listify-key-sequence seq)) + (setq unread-command-events + (nconc (listify-key-sequence seq) + unread-command-events)) (throw 'exit-input-loop nil)))))) (quail-delete-overlays))))) |