--- a/scripts/plot/__area__.m
+++ b/scripts/plot/__area__.m
@@ -19,15 +19,21 @@
 ## Undocumented internal function.
 
 function retval = __area__ (ax, x, y, bv, varargin)
+
   colors = [1, 0, 0; 0, 1, 0; 0, 0, 1; 1, 1, 0; 1, 0, 1; 0, 1, 1];
-  x = [x(1,:) ; x ; x(end,:)];
-  y = cumsum ([[bv, ones(1, size (y, 2) - 1)] ; y ; ...
+
+  x = [x(1,:); x; x(end,:)];
+
+  y = cumsum ([[bv, ones(1, size (y, 2) - 1)]; y;
 	       [bv, ones(1, size (y, 2) - 1)]], 2);
 
-  retval = patch (ax, x(:, 1), y (:, 1), colors (1,:), varargin{:});
-  for i = 2 : size(y, 2)
-    retval = [retval; patch(ax, [x(:,i); flipud(x(:,i))], ...
-			    [y(:, i) ; flipud(y(:, i-1))], colors(i,:),
-			    varargin{:})];
+  retval = patch (ax, x(:,1), y(:,1), colors(1,:), varargin{:});
+
+  for i = 2:size(y,2)
+    tmp = patch (ax, [x(:,i); flipud(x(:,i))],
+		 [y(:,i) ; flipud(y(:, i-1))], colors(i,:), varargin{:});
+
+    retval = [retval; tmp];
   endfor
+
 endfunction

--- a/scripts/plot/area.m
+++ b/scripts/plot/area.m
@@ -38,7 +38,7 @@
 ## @seealso{plot, patch}
 ## @end deftypefn
 
-function [ h ] = area (varargin)
+function h = area (varargin)
 
   if (nargin > 0)
     idx = 1;
@@ -46,13 +46,13 @@
     x = y = [];
     bv = 0;
     args = {};
-    # check for axes parent
-    if (ishandle (varargin{idx}) &&
-	strcmp (get (varargin{idx}, "type"), "axes"))
+    ## Check for axes parent.
+    if (ishandle (varargin{idx})
+	&& strcmp (get (varargin{idx}, "type"), "axes"))
       ax = varargin{idx};
       idx++;
     endif
-    # check for (X) or (X,Y) arguments and possible base value
+    ## Check for (X) or (X,Y) arguments and possible base value.
     if (nargin >= idx && ismatrix (varargin{idx}))
       y = varargin{idx};
       idx++;
@@ -73,7 +73,7 @@
     else
       print_usage ();
     endif
-    # check for additional args
+    ## Check for additional args.
     if (nargin >= idx)
       args = {varargin{idx:end}};
     endif