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

[Drew Adams]

If you use (defalias 'lisp-complete-symbol 'foo) instead, then this is output:

M-TAB (translated from <escape> <tab>) runs the command
lisp-complete-symbol, which is an alias for `foo' in `lisp.el'.

It is bound to M-TAB.

(lisp-complete-symbol &optional predicate)

This is still wrong, because `foo' is not in `lisp.el' (and the defalias is not
in `lisp.el').

This bug appears as far back as Emacs 20.7.


> From: Drew Adams Sent: Thursday, August 07, 2008 11:23 AM
> 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> 
> 
> 
> 
> 
> 
> 
>