Mercurial > octave-nkf

diff src/ls-mat-ascii.cc @ 4867:c7f9ea142fda

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-04-20 19:41:11 by jwe]
author jwe
date Tue, 20 Apr 2004 19:41:11 +0000
parents 14dc2267c343
children 23b37da9fd5b
line wrap: on
line diff
--- a/src/ls-mat-ascii.cc	Tue Apr 20 16:03:47 2004 +0000
+++ b/src/ls-mat-ascii.cc	Tue Apr 20 19:41:11 2004 +0000
@@ -49,6 +49,7 @@
 #include "defun.h"
 #include "error.h"
 #include "gripes.h"
+#include "lex.h"
 #include "load-save.h"
 #include "oct-obj.h"
 #include "oct-map.h"
@@ -209,7 +210,7 @@
   else
     varname = filename;
 
-  pos = varname.find ('.');
+  pos = varname.rfind ('.');
 
   if (pos != NPOS)
     varname = varname.substr (0, pos);
@@ -222,7 +223,7 @@
 	varname[i] = '_';
     }
 
-  if (! isalpha (varname[0]))
+  if (is_keyword (varname) || ! isalpha (varname[0]))
     varname.insert (0, "X");
 
   if (valid_identifier (varname))