bug#669: 23.0.60; defalias is not taken into account by C-h k

["Drew Adams" <drew.adams@oracle.com>]

emacs -Q
 
(defun foo (&optional predicate)
  "" (interactive) (message "FOO"))
 
(defalias 'lisp-complete-symbol (symbol-function 'foo))
 
C-h k then shows this, which is 100% wrong:
 
M-TAB (translated from <escape> <tab>) runs the command
lisp-complete-symbol, which is an interactive Lisp function in
`lisp.el'.
 
It is bound to M-TAB.
 
(lisp-complete-symbol &optional predicate)
 
 
 
In GNU Emacs 23.0.60.1 (i386-mingw-nt5.1.2600)
 of 2008-08-01 on LENNART-69DE564
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --no-opt --cflags -Ic:/g/include
-fno-crossjumping'
 
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: ENU
  value of $XMODIFIERS: nil
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t
 
Major mode: Emacs-Lisp
 
Minor modes in effect:
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  global-auto-composition-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t
 
Recent input:
<help-echo> C-x C-f t h r o w - r r r r . e l <return> 
<down-mouse-1> <mouse-1> ( d e f u n SPC f o o SPC 
( <backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <help-echo> C-h f l i s p - 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<help-echo> <help-echo> l i s p - c o m p l e t e - 
s y m b o l <return> <help-echo> <help-echo> <help-echo>