gnus-bookmark-mouse-available-p

gnus-bookmark-mouse-available-p

[Reiner Steib]

Hi,

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?
What's the purpose of the quotes before "and".

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: gnus-bookmark-mouse-available-p

[Katsumi Yamaoka]

> P.S.: I didn't receive any reply to ...
>       <http://thread.gmane.org/v93avv5jec.fsf%40marauder.physik.uni-ulm.de>

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)