(display-screens): Use x-display-screens also on Mac.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fbd8b74..18f785b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2005-10-21  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+
+       * cus-face.el (custom-declare-face): Make face from X resources
+       also on Mac.
+
+       * disp-table.el (standard-display-g1, standard-display-graphic):
+       Refuse to use string glyphs also on Mac.
+       (standard-display-european): Don't set terminal coding system also
+       on Mac.
+
+       * frame.el (display-screens): Use x-display-screens also on Mac.
+
 2005-10-21  Romain Francoise  <romain@orebokech.com>
 
        * net/rcirc.el: Now part of GNU Emacs.  Update FSF's address.

diff --git a/lisp/frame.el b/lisp/frame.el
index bd4d7ad..46e6e74 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1053,9 +1053,9 @@ frame's display)."
   "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)