Mercurial > emacs
diff leim/quail/devanagari.el @ 23891:db21a8833d0f
(quail-devanagari-compose-characters):
Adjusted for the change of input method handling.
(quail-devanagari-hindi-compose-characters): Likewise.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 15 Dec 1998 04:35:38 +0000 |
parents | 0f690a5476fe |
children | 519983161a46 |
line wrap: on
line diff
--- a/leim/quail/devanagari.el Tue Dec 15 04:35:38 1998 +0000 +++ b/leim/quail/devanagari.el Tue Dec 15 04:35:38 1998 +0000 @@ -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 @@ (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