2 files changed, 9 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5bbfe1a6ff7..3839375c6dc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-09  Jan Djärv  <jan.h.d@swipnet.se>
+
+        * frame.el (display-monitor-attributes-list): Add NS case.
+        (ns-display-monitor-attributes-list): Declare.
+
 2013-05-09  Ulrich Mueller  <ulm@gentoo.org>
 
         * descr-text.el (describe-char): Fix %d/%x typo.  (Bug#14360)
diff --git a/lisp/frame.el b/lisp/frame.el
index 94a4842fc4e..e1a55bdffc4 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1495,6 +1495,8 @@ The value is one of the symbols `static-gray', `gray-scale',
 
 (declare-function x-display-monitor-attributes-list "xfns.c"
                   (&optional terminal))
+(declare-function ns-display-monitor-attributes-list "nsfns.c"
+                  (&optional terminal))
 
 (defun display-monitor-attributes-list (&optional display)
   "Return a list of physical monitor attributes on DISPLAY.
@@ -1528,6 +1530,8 @@ monitors."
     (cond
      ((eq frame-type 'x)
       (x-display-monitor-attributes-list display))
+     ((eq frame-type 'ns)
+      (ns-display-monitor-attributes-list display))
      (t
       (let ((geometry (list 0 0 (display-pixel-width display)
                             (display-pixel-height display))))