[Pspp-cvs] pspp/src/ui/gui psppire-var-store.c [simpler-proc]

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Branch:         simpler-proc
Changes by:     Ben Pfaff <blp> 07/05/31 18:14:27

Modified files:
        src/ui/gui     : psppire-var-store.c 

Log message:
        Use var_is_alpha.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/src/ui/gui/psppire-var-store.c?cvsroot=pspp&only_with_tag=simpler-proc&r1=1.22&r2=1.22.2.1

Patches:
Index: psppire-var-store.c
===================================================================
RCS file: /cvsroot/pspp/pspp/src/ui/gui/psppire-var-store.c,v
retrieving revision 1.22
retrieving revision 1.22.2.1
diff -u -b -r1.22 -r1.22.2.1
--- psppire-var-store.c 26 Jan 2007 10:57:15 -0000      1.22
+++ psppire-var-store.c 31 May 2007 18:14:26 -0000      1.22.2.1
@@ -154,7 +154,7 @@
   if ( !pv )
     return TRUE;
 
-  if ( VAR_STRING == var_get_type (pv) && column == COL_DECIMALS )
+  if ( var_is_alpha (pv) && column == COL_DECIMALS )
     return FALSE;
 
   write_spec =var_get_write_format (pv);