Mercurial > octave-nkf

diff scripts/plot/__pltopt1__.m @ 4841:66fb9f8c66c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-03-12 23:02:54 by jwe]
author jwe
date Fri, 12 Mar 2004 23:03:00 +0000
parents 17826ec287bc
children c08cb1098afc
line wrap: on
line diff
--- a/scripts/plot/__pltopt1__.m	Fri Feb 01 20:59:27 2008 -0500
+++ b/scripts/plot/__pltopt1__.m	Fri Mar 12 23:03:00 2004 +0000
@@ -39,9 +39,10 @@
   set_boxes = 0;
   set_yerrbars = 0;
   set_xerrbars = 0;
-  set_key = 0;
   set_linestyle = "solid";
 
+  key_title = "";
+
   more_opts = 1;
 
   WITH = "w";
@@ -157,9 +158,7 @@
       set_symbol = 1;
       symbol = "4";
     elseif (strcmp (char, ";"))  # title mode.
-      set_key = 1;
       working = 1;
-      key_title = "";
       while (working)
         if (max (size (opt)) > 1)
           char = opt(1);
@@ -244,7 +243,6 @@
     fmt = strcat (fmt, " 1 ", symbol);
   endif
 
-  if (set_key)
-    fmt = sprintf ("%s %s \"%s\" ", fmt, TITLE, key_title);
-  endif
+  fmt = sprintf ("%s %s \"%s\" ", fmt, TITLE, key_title);
+
 endfunction