22.1.50; function (keyboard-coding-system) doesn't consistent with variable keyboard-coding-system

[Zhang Wei <id.brep@gmail.com>]

In my system (Windows XP, cp936 locale), function
(keyboard-coding-system) returns nil, while variable
keyboard-coding-system has a value of "cp936", this result in that
chinese characters can't be inputed with system input method, I have to
add (set-keyboard-coding-system 'cp936) in my ~/.emacs to make the
system input method work, which was not necessary some days ago.



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-09-03 on BREPHOME
modified by Zhangwei <id.brep@gmail.com>.
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: Lisp Interaction

Minor modes in effect:
  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:
<help-echo> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> C-x 1 M-x r e p o r t - e m a c d s <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
C-g C-g C-g M-x r e p o r t e C-g M-x r e p o a r t 
C-g C-h v k e y b o a r d - c o d i n g - s y s t e 
m <return> ( k e y b o a r d M-/ ) C-j M-x r e p o 
a r t <backspace> <backspace> <backspace> o r <backspace> 
<backspace> r t - e m a c s - b u g <return>

Recent messages:
Loading image-file...done
For information about the GNU system and GNU/Linux, type C-h C-p.
Quit [5 times]
Loading pp...done
Type C-x 1 to remove help window.  
Loading dabbrev...done
Scanning for dabbrevs...100%
Expansion found in '*Help*'
Loading emacsbug...done
Scanning for dabbrevs...100%