(ns-reg-to-script): Define for compiler.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1d5cf220ca19bb0d7fd32f429ebef272324497b8..0a15075cc2fafb39b6fba4371c175a798ba98df7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-09-24  Glenn Morris  <rgm@gnu.org>
 
+       * term/ns-win.el (ns-reg-to-script): Define for compiler.
+
        * mail/rmailmm.el (rmail-mime-multipart-handler): Accept the case where
        there is no newline after the final mime boundary.  (Bug#4539)
        Move markers on insertion so that any buttons inserted don't end up in

diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 410b85d180b05c006b4743eb89f58b78adb522bc..e4093811ad3f39c3fce8df433a5f815e8c2b6b98 100644 (file)
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -966,6 +966,8 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
                (format "Creation of the standard fontset failed: %s" err)
                :error)))))
 
+(defvar ns-reg-to-script)               ; nsfont.m
+
 ;; This maps font registries (not exposed by NS APIs for font selection) to
 ;; unicode scripts (which can be mapped to unicode character ranges which are).
 ;; See ../international/fontset.el