(ftfont_get_open_type_spec): Check spec->script, not val.

2 files changed, 5 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 663d61bc91a..9d326e29880 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-03  Jason Rumney  <jasonr@gnu.org>
+
+        * ftfont.c (ftfont_get_open_type_spec): Check spec->script, not val.
+
 2008-04-02  Chong Yidong  <cyd@stupidchicken.com>
 
         * callint.c (Vshift_select_mode): New var.
diff --git a/src/ftfont.c b/src/ftfont.c
index aac267b2095..a3ce243f369 100644
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -355,7 +355,7 @@ ftfont_get_open_type_spec (Lisp_Object otf_spec)
   if (! spec)
     return NULL;
   spec->script = XCAR (otf_spec);
-  if (! NILP (val))
+  if (! NILP (spec->script))
     {
       OTF_SYM_TAG (spec->script, spec->script_tag);
       val = assq_no_quit (spec->script, Votf_script_alist);