Mercurial > emacs

changeset 23891:db21a8833d0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 fa4839661777
children f05e983b8486
files leim/quail/devanagari.el
diffstat 1 files changed, 14 insertions(+), 20 deletions(-) [+]
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