--- a/scripts/plot/bar.m
+++ b/scripts/plot/bar.m
@@ -17,29 +17,29 @@
 ### Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ### 02111-1307, USA.
 
-function [xb, yb] = bar (x, y)
+## usage: [xb, yb] = bar (x, y)
+##
+## Given two vectors of x-y data, bar produces a `bar' graph.
+##
+## If only one argument is given, it is taken as a vector of y-values
+## and the x coordinates are taken to be the indices of the elements.
+##
+## If two output arguments are specified, the data are generated but
+## not plotted.  For example,
+##
+##   bar (x, y);
+##
+## and
+##
+##   [xb, yb] = bar (x, y);
+##   plot (xb, yb);
+##
+## are equivalent.
+##
+## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour,
+##           stairs, gplot, gsplot, replot, xlabel, ylabel, title 
 
-  ## usage: [xb, yb] = bar (x, y)
-  ##
-  ## Given two vectors of x-y data, bar produces a `bar' graph.
-  ##
-  ## If only one argument is given, it is taken as a vector of y-values
-  ## and the x coordinates are taken to be the indices of the elements.
-  ##
-  ## If two output arguments are specified, the data are generated but
-  ## not plotted.  For example,
-  ##
-  ##   bar (x, y);
-  ##
-  ## and
-  ##
-  ##   [xb, yb] = bar (x, y);
-  ##   plot (xb, yb);
-  ##
-  ## are equivalent.
-  ##
-  ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour,
-  ##           stairs, gplot, gsplot, replot, xlabel, ylabel, title 
+function [xb, yb] = bar (x, y)
 
   if (nargin == 1)
     if (is_vector (x))