Re: dolist? - same result on 21.3

[Lennart Borgman <lennart.borgman.073@student.lu.se>]

Lennart Borgman wrote:

> Lennart Borgman wrote:
>
>> Here is a better example for testing. Please test this with the 
>> marked message commented out and not commented out. Just put it in a 
>> buffer and eval it.
>>
>> Am I doing something seriously silly? Has someone checked this or 
>> should I file a bug?
>
>
> Got some time to make an even simpler test, see below:
>
>
>
> (defconst assoc-list nil)
> (setq assoc-list
>      '((description . "CEDET")
>        (install-function . "cedet-setup")))
>
> (defvar callmsg nil)
> (defun check-detail(consdet)
>  (when callmsg (message "    *****")) ;; <---- works only if message 
> is called
>  (let ((detname (car consdet)))
>    (message (concat "    ... checking detail \"" (symbol-name detname) 
> "\""))))
>
> (message "\n-----------------------Single, NO marked message call:")
> (setq callmsg nil)
> (mapc 'check-detail assoc-list)
> (message "\n-----------------------Single, WITH marked message call:")
> (setq callmsg t)
> (mapc 'check-detail assoc-list) 


I just tested on 21.3 and got the same result.