Re: Lisp indentation.

[Lute Kamstra <Lute.Kamstra.lists@xs4all.nl>]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>> However, if (declare (indent ...)) is used to specify indentation,
>> then the macro is defined during startup, but its
>> lisp-indent-property will not be set.
>
> Huh?  That's not the behavior I see.

[...]

>> This should probably be fixed somehow, or else documented.
>
> It'd be a blatant bug that needs urgent fixing.  Can you show us
> some recipe that demonstrates the problem?

I tried it with eval-when-compile in byte-run.el.  With current CVS
and "emacs -Q", I see:

(symbol-plist 'eval-when-compile)
  => (lisp-indent-function 0)
(symbol-function 'eval-when-compile)
  => (macro . #[(&rest body) "\301\bB\207" [body progn] 2 600648])
(load (symbol-file 'eval-when-compile))
(symbol-plist 'eval-when-compile)
  => (lisp-indent-function 0 edebug-form-spec t)
(symbol-function 'eval-when-compile)
  => (macro . #[(&rest body) "\301\bB\207" [body progn] 2
  ("/soft/careful/emacs/lisp/emacs-lisp/byte-run.elc" . 3048)])

However, when I remove the (put 'eval-when-compile
'lisp-indent-function 0) and use (declare (debug t) (indent 0))
instead, do a make bootstrap, and then use "emacs -Q", I see:

(symbol-plist 'eval-when-compile)
  => nil
(symbol-function 'eval-when-compile)
  => (macro . #[(&rest body) "\301\bB\207" [body progn] 2 600648])
(load (symbol-file 'eval-when-compile))
(symbol-plist 'eval-when-compile)
  => (edebug-form-spec t lisp-indent-function 0)
(symbol-function 'eval-when-compile)
  => (macro . #[(&rest body) "\301\bB\207" [body progn] 2 ("/soft/careful/emacs/lisp/emacs-lisp/byte-run.elc" . 3010)])

Lute.