diff options
Diffstat (limited to 'leim')
| -rw-r--r-- | leim/quail/devanagari.el | 34 |
1 files changed, 14 insertions, 20 deletions
diff --git a/leim/quail/devanagari.el b/leim/quail/devanagari.el index 9fd25c8f1af..9d840b91bf7 100644 --- a/leim/quail/devanagari.el +++ b/leim/quail/devanagari.el @@ -55,16 +55,13 @@ (let* ((from (overlay-start quail-conv-overlay)) (to (overlay-end quail-conv-overlay)) (dstr (buffer-substring from to))) - (delete-overlay quail-overlay) - (delete-overlay quail-conv-overlay) - (save-restriction - (narrow-to-region from to) - (goto-char (point-min)) - (delete-region (point-min) (point-max)) - (insert (devanagari-compose-string dstr 'sanskrit)) - (goto-char (point-max))) - (setq overriding-terminal-local-map nil))) - (setq unread-command-events (list last-command-event))) + (setq overriding-terminal-local-map nil + quail-converting nil + quail-conversion-str + (concat (devanagari-compose-string dstr 'sanskrit) + (list (if (numberp last-command-char) + last-command-char + (get last-command-char 'ascii-character)))))))) (quail-define-package "devanagari-keyboard-a" "Devanagari" "DevK" t @@ -467,16 +464,13 @@ Special Keys : Anuswar n' (let* ((from (overlay-start quail-conv-overlay)) (to (overlay-end quail-conv-overlay)) (dstr (buffer-substring from to))) - (delete-overlay quail-overlay) - (delete-overlay quail-conv-overlay) - (save-restriction - (narrow-to-region from to) - (goto-char (point-min)) - (delete-region (point-min) (point-max)) - (insert (devanagari-compose-string dstr)) - (goto-char (point-max))) - (setq overriding-terminal-local-map nil))) - (setq unread-command-events (list last-command-event))) + (setq overriding-terminal-local-map nil + quail-converting nil + quail-conversion-str + (concat (devanagari-compose-string dstr) + (list (if (numberp last-command-char) + last-command-char + (get last-command-char 'ascii-character)))))))) (eval-when-compile |