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

(encoded-kbd-self-insert-ccl): Call ccl-execute-on-string directly so

Browse Source 
that CCL program handling multibyte sequence can work correctly.
(encoded-kbd-setup-keymap): Fix the default value of `valid-codes'
property of the coding system.
This commit is contained in:
Kenichi Handa 2001-03-23 10:45:20 +00:00
parent e0ecbf5c16
commit 4c8d5b4b78
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/international/encoded-kb.el
View File

@ -237,10 +237,14 @@ The following key sequence may cause multilingual text insertion."
(defun encoded-kbd-self-insert-ccl ()
(interactive)
(let ((str (char-to-string last-command-char))
(coding (keyboard-coding-system)))
(setq str (decode-coding-string str coding))
(ccl (car (aref (coding-system-spec (keyboard-coding-system)) 4)))
(vec (make-vector 9 nil))
result)
(while (= (length (setq result (ccl-execute-on-string ccl vec str t))) 0)
(setq str (format "%s%c" str (read-char-exclusive))
vec (make-vector 9 nil)))
(setq unread-command-events
(append (string-to-list str) unread-command-events))))
(append (string-to-list result) unread-command-events))))
(defun encoded-kbd-setup-keymap (coding)
;; At first, reset the keymap.
@ -277,7 +281,7 @@ The following key sequence may cause multilingual text insertion."
((eq encoded-kbd-coding 'ccl)
(let ((valid-codes (or (coding-system-get coding 'valid-codes)
'((128 255))))
'((128 . 255))))
elt from to)
(while valid-codes
(setq elt (car valid-codes) valid-codes (cdr valid-codes))