Mercurial > hg > octave-nkf

diff src/ls-oct-ascii.cc @ 7744:14b841c47a5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
handle load/save for handles to built-in functions
author John W. Eaton <jwe@octave.org>
date Wed, 30 Apr 2008 14:32:41 -0400
parents 745a8299c2b5
children 0ef13e15319b
line wrap: on
line diff
--- a/src/ls-oct-ascii.cc
+++ b/src/ls-oct-ascii.cc
@@ -81,6 +81,10 @@
 {
   std::string retval;
 
+  int ch = is.peek ();
+  if (next_only && ch != '%' && ch != '#')
+    return retval;
+
   char c;
   while (is.get (c))
     {
@@ -255,11 +259,8 @@
       return std::string ();
     }
 
-  if (name == CELL_ELT_TAG)
-    {
-      // This is OK -- name won't be used.
-    }
-  else if (! valid_identifier (name))
+  if (! (name == ".nargin." || name == ".nargout."
+	 || name == CELL_ELT_TAG || valid_identifier (name)))
     {
       error ("load: bogus identifier `%s' found in file `%s'",
 	     name.c_str (), filename.c_str ());