Mercurial > emacs

changeset 93660:96c69ebb9cfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(uniscribe_check_otf): Rearrange loop for counting features.
author Jason Rumney <jasonr@gnu.org>
date Fri, 04 Apr 2008 12:07:54 +0000
parents f606935ea4be
children 0e46418a00ea
files src/w32uniscribe.c
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/w32uniscribe.c	Fri Apr 04 11:59:09 2008 +0000
+++ b/src/w32uniscribe.c	Fri Apr 04 12:07:54 2008 +0000
@@ -612,7 +612,6 @@
       unsigned short script_table, langsys_table, n_langs;
       unsigned short feature_index, n_features;
       DWORD tbl = feature_tables[i];
-      Lisp_Object feature;
 
       /* Skip if no features requested from this table.  */
       if (NILP (features[i]))
@@ -680,10 +679,9 @@
       /* Check the features.  Features may contain nil according to
 	 documentation in font_prop_validate_otf, so count them.  */
       n_match_features = 0;
-      rest = features[i];
-      for (feature = XCAR (rest); CONSP (rest); feature = CAR_SAFE (rest))
+      for (rest = features[i]; CONSP (rest); rest = XCDR (rest))
 	{
-	  rest = XCDR (rest);
+	  Lisp_Object feature = XCAR (rest);
 	  if (!NILP (feature))
 	    n_match_features++;
 	}