# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1129883224 0
# Node ID 737f713709affab6d5e04ba970af44b330799fd1
# Parent  8e3aeb72b4d21f158fc8b809b94c944678d67ef2
(display-screens): Use x-display-screens also on Mac.

diff -r 8e3aeb72b4d2 -r 737f713709af lisp/frame.el
--- a/lisp/frame.el	Fri Oct 21 08:26:54 2005 +0000
+++ b/lisp/frame.el	Fri Oct 21 08:27:04 2005 +0000
@@ -1053,9 +1053,9 @@
   "Return the number of screens associated with DISPLAY."
   (let ((frame-type (framep-on-display display)))
     (cond
-     ((memq frame-type '(x w32))
+     ((memq frame-type '(x w32 mac))
       (x-display-screens display))
-     (t	;; FIXME: is this correct for the Mac?
+     (t
       1))))
 
 (defun display-pixel-height (&optional display)