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)