From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/66081 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: gnus-bookmark-mouse-available-p Date: Tue, 08 Jan 2008 11:11:14 +0900 Organization: Emacsen advocacy group Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1199758335 28384 80.91.229.12 (8 Jan 2008 02:12:15 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 8 Jan 2008 02:12:15 +0000 (UTC) Cc: ding@gnus.org To: Bastien Guerry Original-X-From: ding-owner+M14574@lists.math.uh.edu Tue Jan 08 03:12:34 2008 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1JC3xA-0004I7-6t for ding-account@gmane.org; Tue, 08 Jan 2008 03:12:32 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1JC3wL-0003MK-FW; Mon, 07 Jan 2008 20:11:41 -0600 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1JC3wK-0003M3-6c for ding@lists.math.uh.edu; Mon, 07 Jan 2008 20:11:40 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.67) (envelope-from ) id 1JC3wI-0008SK-Va for ding@lists.math.uh.edu; Mon, 07 Jan 2008 20:11:40 -0600 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1JC3wJ-0005IW-00 for ; Tue, 08 Jan 2008 03:11:39 +0100 Original-Received: from [66.225.201.151] (port=42907 helo=mail.jpl.org) by orlando.hostforweb.net with esmtpa (Exim 4.68) (envelope-from ) id 1JC3w7-0001xy-VU; Mon, 07 Jan 2008 20:11:29 -0600 X-Hashcash: 1:20:080108:bzg@altern.org::JP4gBT0QEaXTs0ZY:0005Gce X-Hashcash: 1:20:080108:ding@gnus.org::hH5BtU73FAHr2NjI:00000Bi3 X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110007 (No Gnus v0.7) Emacs/23.0.50 (gnu/linux) Cancel-Lock: sha1:ynWQzvo87dIgsOdK94CV1DQYT5U= X-Antivirus-Scanner: Clean mail though you should still use an Antivirus X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - orlando.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -2.5 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:66081 Archived-At: > P.S.: I didn't receive any reply to ... > I noticed right now that the macro you pointed to is what I introduced. Sorry for my laziness. >>>>> Reiner Steib wrote: > in `gnus-bookmark.el': > (defmacro gnus-bookmark-mouse-available-p () > "Return non-nil if a mouse is available." > (if (featurep 'xemacs) > '(and (eq (device-class) 'color) (device-on-window-system-p)) > '(and (display-color-p) (display-mouse-p)))) > Why do you test for display-color-p? I don't recall why I used it but now I believe it is useless. So, I removed it in CVS. > What's the purpose of the quotes before "and". Because it is a macro. In other words, it will be expanded into the constant nil if the form is not quoted since the byte compilation is normally done in the batch mode. emacs -batch -Q -eval '(progn (defmacro x nil (display-mouse-p)) (message "%s" (macroexpand (quote (x)))))' => nil emacs -batch -Q -eval '(progn (defmacro x () (quote (display-mouse-p))) (message "%s" (macroexpand (quote (x)))))' => (display-mouse-p)