[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: dolist?

From: Lennart Borgman
Subject: Re: dolist?
Date: Sat, 02 Jul 2005 22:09:33 +0200
User-agent: Mozilla Thunderbird 1.0.2 (Windows/20050317)

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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]