Re: dolist?

[Lennart Borgman]

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)