(quail-devanagari-compose-characters): Do

not call throw.
(quail-devanagari-hindi-compose-characters): Likewise.

diff --git a/leim/quail/devanagari.el b/leim/quail/devanagari.el
index 675bea0e1242b4d97e698fcfa593aafcf45039c4..ec35cd705b36db5ea96a8b9e1cdbf07aa96a9f86 100644 (file)
--- 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