Changeset 3099

Show
Ignore:
Timestamp:
05/30/03 20:57:05 (6 years ago)
Author:
miyoshi
Message:

(x-display-pixel-width): Set the
argument optional.
(x-display-pixel-height): Ditto.
(x-display-mm-height): Ditto.
(x-display-mm-width): Ditto.
(x-display-visual-class): Ditto.
(x-server-max-request-size): Ditto.
(x-server-vendor): Ditto.
(x-server-version): Ditto.
(x-display-screens): Ditto.
(x-display-backing-store): Ditto.
(x-display-save-under): Ditto.
(x-display-planes): Ditto.
Renamed from x-display-pixel-planes.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • work/cvs2svn/lisp/ChangeLog.Meadow

    r3094 r3099  
     12003-05-30  MIYOSHI Masanori  <miyoshi@boreas.dti.ne.jp> 
     2 
     3        * international/meadow.el (x-display-pixel-width): Set the 
     4        argument optional. 
     5        (x-display-pixel-height): Ditto. 
     6        (x-display-mm-height): Ditto. 
     7        (x-display-mm-width): Ditto. 
     8        (x-display-visual-class): Ditto. 
     9        (x-server-max-request-size): Ditto. 
     10        (x-server-vendor): Ditto. 
     11        (x-server-version): Ditto. 
     12        (x-display-screens): Ditto. 
     13        (x-display-backing-store): Ditto. 
     14        (x-display-save-under): Ditto. 
     15        (x-display-planes): Ditto. 
     16        Renamed from x-display-pixel-planes. 
     17 
    1182003-05-28  MIYASHITA Hisashi  <himi@meadowy.org> 
    219 

  • work/cvs2svn/lisp/international/meadow.el

    r3093 r3099  
    506506         (error "%S must be STRING or FRAME" display)))) 
    507507 
    508 (defun x-display-pixel-width (display) 
     508(defun x-display-pixel-width (&optional display) 
    509509  (mw32-get-device-capability 
    510510   'width 
    511511   (mw32-emulate-x-display-argument display))) 
    512 (defun x-display-pixel-height (display) 
     512(defun x-display-pixel-height (&optional display) 
    513513  (mw32-get-device-capability 
    514514   'height 
    515515   (mw32-emulate-x-display-argument display))) 
    516 (defun x-display-pixel-planes (display) 
     516(defun x-display-planes (&optional display) 
    517517  (mw32-get-device-capability 
    518518   ;; Notice that the meaning of "PLANES" in X are different 
    …… 
    520520   'color-bits 
    521521   (mw32-emulate-x-display-argument display))) 
    522 (defun x-display-mm-height (display) 
     522(defun x-display-mm-height (&optional display) 
    523523  (mw32-get-device-capability 
    524524   'height-in-mm 
    525525   (mw32-emulate-x-display-argument display))) 
    526 (defun x-display-mm-width (display) 
     526(defun x-display-mm-width (&optional display) 
    527527  (mw32-get-device-capability 
    528528   'width-in-mm 
    529529   (mw32-emulate-x-display-argument display))) 
    530 (defun x-display-visual-class (display) 
     530(defun x-display-visual-class (&optional display) 
    531531  (let ((c (x-display-pixel-planes display)) 
    532532        (n (mw32-get-device-capability 
    …… 
    538538 
    539539;; dummy vals. 
    540 (defun x-server-max-request-size (display) 65535) 
    541 (defun x-server-vendor (display) "MW32") 
    542 (defun x-server-version (display) (list 11 0 1)) 
     540(defun x-server-max-request-size (&optional display) 65535) 
     541(defun x-server-vendor (&optional display) "MW32") 
     542(defun x-server-version (&optional display) (list 11 0 1)) 
    543543;; We should use multi-monitor APIs in the future. 
    544 (defun x-display-screens (display) 1) 
    545 (defun x-display-backing-store (display) 'not-useful) 
    546 (defun x-display-save-under (display) nil) 
     544(defun x-display-screens (&optional display) 1) 
     545(defun x-display-backing-store (&optional display) 'not-useful) 
     546(defun x-display-save-under (&optional display) nil) 
    547547 
    548548;;;