22.1.50; `encoded-kbd-self-insert-ccl' fails on windows-xp

[Zhang Wei]

>From mule.el:

--8<---------------cut here---------------start------------->8---
(defun encoded-kbd-self-insert-ccl (ignore)
  (let ((str (char-to-string (encoded-kbd-last-key)))
        (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))))
    (vector (aref result 0))))
--8<---------------cut here---------------end--------------->8---

In my system, variable `keyboard-coding-system' gives cp936, but
function (keyboard-coding-system) return nil, this makes above function
failed, because

 (aref (coding-system-spec (keyboard-coding-system)) 4) 

gives a "Wrong type argument: arrayp, nil" error message.



If Emacs crashed, and you have the Emacs process in the gdb debugger,
please include the output from the following gdb commands:
    `bt full' and `xbacktrace'.
If you would like to further debug the crash, please read the file
c:/Emacs/etc/DEBUG for instructions.


In GNU Emacs 22.1.50.1 (i386-mingw-nt5.1.2600)
 of 2007-08-30 on BREPHOME
modified by Zhangwei <address@hidden>.
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4)'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: CHS
  locale-coding-system: cp936
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  shell-dirtrack-mode: t
  auto-image-file-mode: t
  display-time-mode: t
  show-paren-mode: t
  delete-selection-mode: t
  pc-selection-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f 
C-f C-f C-f C-f C-f C-f C-h f <return> C-x o C-e C-b 
C-b C-b C-b C-b <return> <down> <down> C-x b C-s <return> 
<return> <return> ( d o <backspace> <backspace> c o 
d i n g - s y s t e m - s p e c SPC ' c p 9 3 6 ) C-j 
C-x b <return> C-x b C-s <return> C-f C-f C-f C-f C-f 
C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f 
C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f 
C-f C-f C-f C-x C-e C-b C-b C-b C-b C-b C-b C-b C-b 
C-b C-b C-b C-h v <return> C-h f k e y b o <backspace> 
<backspace> <backspace> <backspace> <backspace> <return> 
C-x o C-e C-b C-b C-b C-b <return> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> C-x b <return> 
C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-x 
C-e C-f C-f C-f C-x C-e q C-a C-f C-f C-f C-f C-f C-f 
C-f C-f C-f C-f C-f C-f C-f <up> <up> <down> <down> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> C-x 
C-e C-f C-x C-e C-f C-f C-f C-x C-e q C-g C-g C-a <up> 
<up> <down> C-x C-g <up> C-@ C-n C-n C-n C-n C-n C-n 
C-n C-n C-n M-w M-x g n <backspace> <backspace> r e 
p o r t - e m a c s - b u g <return>

Recent messages:
Back to top level.
nil [2 times]
Entering debugger...
Back to top level.
Quit [2 times]
Mark set
Region saved
Loading emacsbug...done
Loading dabbrev...done
Scanning for dabbrevs...100%