From: Kenichi Handa <handa@m17n.org>
Date: Mon, 18 Aug 1997 10:54:31 +0000 (+0000)
Subject: (quail-devanagari-compose-characters): Do
X-Git-Tag: emacs-20.1~535
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19d0c7aad40f6e44fb7c9635a432175abaf0e3c6;p=emacs.git

(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 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