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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fbd8b74ec3c7002b3fa54aaf8b6a885990e99a6c..18f785b2c150ff41e7b140132dbe313ed24564fb 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 bd4d7ad5288ff94f1366ffbd3b3abf058b64c287..46e6e742d7cd8b51690192d38f669f45bdc36e2a 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)