Re: display-mm-width return value off on Windows

[Ralf Angeli <angeli@caeruleus.net>]

[-- Attachment #1: Type: text/plain, Size: 407 bytes --]

* Ralf Angeli (2006-07-16) writes:

> So one rather needs screen-dependent or display-dependent values for
> screen width and height.  (Obviously.)  A pragmatic way for specifying
> this would be an alist with (DISPLAY . LENGTH) elements as suggested
> by Kim (assuming display is equivalent to screen).

Here is a patch implementing that approach.  I can provide an change
log entry once this is settled.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 2308 bytes --]

*** frame.el	06 Apr 2006 19:46:36 +0200	1.236
--- frame.el	16 Jul 2006 18:16:16 +0200	
***************
*** 1081,1097 ****
       (t
        (frame-width (if (framep display) display (selected-frame)))))))
  
  (defun display-mm-height (&optional display)
    "Return the height of DISPLAY's screen in millimeters.
  If the information is unavailable, value is nil."
!   (and (memq (framep-on-display display) '(x w32 mac))
!        (x-display-mm-height display)))
  
  (defun display-mm-width (&optional display)
    "Return the width of DISPLAY's screen in millimeters.
  If the information is unavailable, value is nil."
!   (and (memq (framep-on-display display) '(x w32 mac))
!        (x-display-mm-width display)))
  
  (defun display-backing-store (&optional display)
    "Return the backing store capability of DISPLAY's screen.
--- 1081,1115 ----
       (t
        (frame-width (if (framep display) display (selected-frame)))))))
  
+ (defcustom display-mm-dimensions-alist nil
+   "Alist for specifying screen dimensions in millimeters.
+ Each element of the alist has the form (display . (width . height)),
+ e.g. (\":0.0\" . (287 . 215)).
+ 
+ The dimensions will be used for `display-mm-height' and
+ `display-mm-width' if defined for the respective display."
+   :version "22.1"
+   :type '(alist :key-type (string :tag "Display")
+ 		:value-type (cons :tag "Dimensions"
+ 				  (integer :tag "Width")
+ 				  (integer :tag "Height")))
+   :group 'frames)
+ 
  (defun display-mm-height (&optional display)
    "Return the height of DISPLAY's screen in millimeters.
  If the information is unavailable, value is nil."
!   (or (cddr (assoc (or display (frame-parameter nil 'display))
! 		   display-mm-dimensions-alist))
!       (and (memq (framep-on-display display) '(x w32 mac))
! 	   (x-display-mm-height display))))
  
  (defun display-mm-width (&optional display)
    "Return the width of DISPLAY's screen in millimeters.
  If the information is unavailable, value is nil."
!   (or (cadr (assoc (or display (frame-parameter nil 'display))
! 		   display-mm-dimensions-alist))
!       (and (memq (framep-on-display display) '(x w32 mac))
! 	   (x-display-mm-width display))))
  
  (defun display-backing-store (&optional display)
    "Return the backing store capability of DISPLAY's screen.

[-- Attachment #3: Type: text/plain, Size: 360 bytes --]


Does somebody have a multi-screen setup for testing this patch?  With
my local X server `(display-screens)' returns (":0.0").  I assume an
additional screen would show up as ":0.1" in that list.  But I don't
know about Windows and Mac OS.  On Windows `(display-screens)' returns
("") and I am wondering what would show up with a multi-screen setup.

-- 
Ralf

[-- Attachment #4: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel