From 19d0c7aad40f6e44fb7c9635a432175abaf0e3c6 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 18 Aug 1997 10:54:31 +0000 Subject: [PATCH] (quail-devanagari-compose-characters): Do not call throw. (quail-devanagari-hindi-compose-characters): Likewise. --- leim/quail/devanagari.el | 14 ++++---------- 1 file 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 -- 2.39.2