comparison lisp/international/encoded-kb.el @ 37095:416e07ad047e

(encoded-kbd-self-insert-ccl): Reduce making temporary vector (suggested by by Dave Love).

37094:a2589ccb991e

(defun encoded-kbd-self-insert-ccl ()
  (interactive)
  (let ((str (char-to-string last-command-char))
	(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 result) unread-command-events))))

(defun encoded-kbd-setup-keymap (coding)
  ;; At first, reset the keymap.

37095:416e07ad047e

(defun encoded-kbd-self-insert-ccl ()
  (interactive)
  (let ((str (char-to-string last-command-char))
	(ccl (car (aref (coding-system-spec (keyboard-coding-system)) 4)))
	(vec [nil nil nil nil nil nil nil nil nil])
	result)
    (while (= (length (setq result (ccl-execute-on-string ccl vec str t))) 0)
      (dotimes (i 9) (aset vec i nil))
      (setq str (format "%s%c" str (read-char-exclusive))))
    (setq unread-command-events
	  (append (string-to-list result) unread-command-events))))

(defun encoded-kbd-setup-keymap (coding)
  ;; At first, reset the keymap.