# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 871901671 0
# Node ID 81fe2432f1a62a12fb05c50b37b7fa3139adbbca
# Parent  82240aaf7ab67579d10cd1f2cad9a282e4d4191e
(quail-devanagari-compose-characters): Do
not call throw.
(quail-devanagari-hindi-compose-characters): Likewise.

diff -r 82240aaf7ab6 -r 81fe2432f1a6 leim/quail/devanagari.el
--- a/leim/quail/devanagari.el	Mon Aug 18 10:54:31 1997 +0000
+++ b/leim/quail/devanagari.el	Mon Aug 18 10:54:31 1997 +0000
@@ -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 @@
 	  (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