From: Kenichi Handa 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