Changeset 3589

Show
Ignore:
Timestamp:
01/15/05 16:49:39 (4 years ago)
Author:
miyoshi
Message:

(x-display-visual-class): Call
x-display-planes() instead of x-display-pixel-planes(). Check if
n' is full' or not with `eq'.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/2.1/lisp/ChangeLog.Meadow

    r3585 r3589  
     12005-01-15  MIYOSHI Masanori  <miyoshi@meadowy.org> 
     2 
     3        * international/meadow.el (x-display-visual-class): Call 
     4        x-display-planes() instead of x-display-pixel-planes().  Check if 
     5        `n' is `full' or not with `eq'. 
     6 
    172005-01-15  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp> 
    28 

  • branches/2.1/lisp/international/meadow.el

    r3386 r3589  
    561561   (mw32-emulate-x-display-argument display))) 
    562562(defun x-display-visual-class (&optional display) 
    563   (let ((c (x-display-pixel-planes display)) 
     563  (let ((c (x-display-planes display)) 
    564564        (n (mw32-get-device-capability 
    565565            'colors))) 
    566     (cond ((= n full) 'true-color) 
     566    (cond ((eq n 'full) 'true-color) 
    567567          ((= n 1) 'static-gray) 
    568568          ((> c (log c n)) 'pseudo-color)