diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-12-15 04:35:38 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-12-15 04:35:38 +0000 |
| commit | 7bbc9d9f7b964ccbf12139bc1e6735743e238db5 (patch) | |
| tree | 7de61a2a53b41af0cff6060a011ae9c1ec0ad809 /leim | |
| parent | 190ce6342775b55ebb1df7ca0ac63425a39b4bca (diff) | |
| download | emacs-7bbc9d9f7b964ccbf12139bc1e6735743e238db5.tar.gz | |
(quail-devanagari-compose-characters):
Adjusted for the change of input method handling.
(quail-devanagari-hindi-compose-characters): Likewise.
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 |