make-local-variable should follow aliases

[Kalle Olavi Niemitalo]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the address@hidden mailing list.

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

make-local-variable and kill-local-variable don't seem to affect
variables that are aliases to other variables.

ELISP> (local-variable-p 'write-file-hooks)
nil
ELISP> write-file-hooks
nil
ELISP> (indirect-variable 'write-file-hooks)
write-file-functions
ELISP> (make-local-variable 'write-file-hooks)
write-file-hooks
ELISP> (local-variable-p 'write-file-hooks)
nil             ; should be t
ELISP> (make-local-variable 'write-file-functions)
write-file-functions
ELISP> (local-variable-p 'write-file-hooks)
t
ELISP> (kill-local-variable 'write-file-hooks)
write-file-hooks
ELISP> (local-variable-p 'write-file-hooks)
t               ; should be nil
ELISP> (kill-local-variable 'write-file-functions)
write-file-functions
ELISP> (local-variable-p 'write-file-hooks)
nil

This wrecks add-hook:

ELISP> write-file-hooks
nil
ELISP> (add-hook 'write-file-hooks '(lambda () "global" nil))
((lambda nil "global" nil))
ELISP> write-file-hooks
((lambda nil "global" nil))
ELISP> (local-variable-p 'write-file-hooks)
nil
ELISP> (add-hook 'write-file-hooks '(lambda () "local" nil) nil t)
((lambda nil "local" nil)
 t)
ELISP> write-file-hooks
((lambda nil "local" nil)
 t)
ELISP> (local-variable-p 'write-file-hooks)
nil             ; should be t
ELISP> (default-value 'write-file-hooks)
((lambda nil "local" nil)
 t)             ; should be ((lambda nil "global" nil))

In GNU Emacs 21.3.50.8 (i386-pc-linux-gnu)
 of 2003-08-24 on Astalo
configured using `configure '--prefix=/home/kalle' 
'--exec-prefix=/home/kalle/i386-pc-linux-gnu' '--host=i386-pc-linux-gnu' 
'--build=i386-pc-linux-gnu' '--enable-maintainer-mode' '--with-x-toolkit=gtk' 
'CFLAGS=-O2 -g -Wall -W' 'CPPFLAGS=-I/home/kalle/include' 
'LDFLAGS=-L/home/kalle/i386-pc-linux-gnu/lib' 'build_alias=i386-pc-linux-gnu' 
'host_alias=i386-pc-linux-gnu''

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: address@hidden
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Recent input:
v a r i a b l e SPC ' w r i t e - f i l e - h o o k 
s ) <return> ( m a k e - l o c a l - v a r i a b l 
e SPC ' w r i t e - f i l e - h o o k s ) C-a C-e <return> 
( <backspace> M-p M-p M-p M-p <return> M-x <up> <up> 
C-k r e p o r t SPC e m a c s SPC b u v <backspace> 
g <return>

Recent messages:
Loading tooltip...done
For information about the GNU Project and its goals, type C-h C-p.
Quit
Loading ielm...done
History item: 1
History item: 2
History item: 3
History item: 4
next-history-element: Beginning of history; no preceding item
Loading emacsbug...done