mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(quail-devanagari-compose-characters):

Browse Source 
Adjusted for the change of input method handling.
(quail-devanagari-hindi-compose-characters): Likewise.
This commit is contained in:
Kenichi Handa 1998-12-15 04:35:38 +00:00
parent 190ce63427
commit 7bbc9d9f7b
1 changed files with 14 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
leim/quail/devanagari.el
View File

@ -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