diff options
| author | Kenichi Handa <[email protected]> | 1997-08-18 10:54:31 +0000 |
|---|---|---|
| committer | Kenichi Handa <[email protected]> | 1997-08-18 10:54:31 +0000 |
| commit | 19d0c7aad40f6e44fb7c9635a432175abaf0e3c6 (patch) | |
| tree | 0ed3ad909315a46f28fe04cb2387a8e475b8695b /leim | |
| parent | dcae89291db40b741c3c0fcb3ee52cfccd8bfd6a (diff) | |
(quail-devanagari-compose-characters): Do
not call throw.
(quail-devanagari-hindi-compose-characters): Likewise.
Diffstat (limited to 'leim')
| -rw-r--r-- | leim/quail/devanagari.el | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/leim/quail/devanagari.el b/leim/quail/devanagari.el index 675bea0e12..ec35cd705b 100644 --- a/leim/quail/devanagari.el +++ b/leim/quail/devanagari.el @@ -63,11 +63,8 @@ (delete-region (point-min) (point-max)) (insert (devanagari-compose-string dstr 'sanskrit)) (goto-char (point-max))) - (move-overlay quail-conv-overlay from (point)) - (setq unread-command-events (list last-command-event)) - (throw 'exit nil)) - (setq unread-command-events (list last-command-event)) - (throw 'exit nil))) + (move-overlay quail-conv-overlay from (point)))) + (setq unread-command-events (list last-command-event))) (quail-define-package "devanagari-keyboard-a" "Devanagari" "DevK" t @@ -478,11 +475,8 @@ Special Keys : Anuswar n' (delete-region (point-min) (point-max)) (insert (devanagari-compose-string dstr)) (goto-char (point-max))) - (move-overlay quail-conv-overlay from (point)) - (setq unread-command-events (list last-command-event)) - (throw 'exit nil)) - (setq unread-command-events (list last-command-event)) - (throw 'exit nil))) + (move-overlay quail-conv-overlay from (point)))) + (setq unread-command-events (list last-command-event))) (eval-when-compile |