Mercurial > emacs

changeset 19413:81fe2432f1a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-devanagari-compose-characters): Do not call throw. (quail-devanagari-hindi-compose-characters): Likewise.
author Kenichi Handa <handa@m17n.org>
date Mon, 18 Aug 1997 10:54:31 +0000
parents 82240aaf7ab6
children d1aed74cff5e
files leim/quail/devanagari.el
diffstat 1 files changed, 4 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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