More minor doc fixes

1 files changed, 9 insertions, 9 deletions

diff --git a/doc/proc.n b/doc/proc.n
index 81d0170..cfaeca7 100644
--- a/doc/proc.n
+++ b/doc/proc.n
@@ -5,7 +5,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: proc.n,v 1.4 2004/05/24 23:31:42 dkf Exp $
+'\" RCS: @(#) $Id: proc.n,v 1.5 2004/10/27 14:24:37 dkf Exp $
 '\" 
 .so man.macros
 .TH proc n "" Tcl "Tcl Built-In Commands"
@@ -73,20 +73,20 @@ body, then the procedure-as-a-whole will return that same error.
 This is a procedure that accepts arbitrarily many arguments and prints
 them out, one by one.
 .CS
-proc printArguments args {
-    foreach arg $args {
-        puts $arg
-    }
+\fBproc\fR printArguments args {
+   foreach arg $args {
+      puts $arg
+   }
 }
 .CE
-
+.PP
 This procedure is a bit like the \fBincr\fR command, except it
 multiplies the contents of the named variable by the value, which
 defaults to \fB2\fR:
 .CS
-proc mult {varName {multiplier 2}} {
-    upvar 1 $varName var
-    set var [expr {$var * $multiplier}]
+\fBproc\fR mult {varName {multiplier 2}} {
+   upvar 1 $varName var
+   set var [expr {$var * $multiplier}]
 }
 .CE