summaryrefslogtreecommitdiff
path: root/leim
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>1997-08-18 10:54:31 +0000
committerKenichi Handa <handa@m17n.org>1997-08-18 10:54:31 +0000
commit0d90569b84c067edfb4a7b4eb7810d50db542cd3 (patch)
tree4dd8c8ef7339958adbe7a249d1fc85852ea88d36 /leim
parentb4195d3a085c4928fb6906b7b0d85dd2dd5a5f69 (diff)
downloademacs-0d90569b84c067edfb4a7b4eb7810d50db542cd3.tar.gz
(quail-devanagari-compose-characters): Do
not call throw. (quail-devanagari-hindi-compose-characters): Likewise.
Diffstat (limited to 'leim')
-rw-r--r--leim/quail/devanagari.el14
1 files changed, 4 insertions, 10 deletions
diff --git a/leim/quail/devanagari.el b/leim/quail/devanagari.el
index 675bea0e124..ec35cd705b3 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