diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-12-18 21:23:47 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-12-18 21:23:47 (GMT) |
| commit | 2cc77fb13283a1fb2330293fd0d7326b5569ec4c (patch) | |
| tree | a4cd0d4bb2516e89a05f2bc0ca288cb792d48991 /doc/Object.3 | |
| parent | 404238ca7e941ab1baf288c6b14b1f5acdec0643 (diff) | |
| download | tcl-2cc77fb13283a1fb2330293fd0d7326b5569ec4c.zip tcl-2cc77fb13283a1fb2330293fd0d7326b5569ec4c.tar.gz tcl-2cc77fb13283a1fb2330293fd0d7326b5569ec4c.tar.bz2 | |
Formatting cleanup.
Diffstat (limited to 'doc/Object.3')
| -rw-r--r-- | doc/Object.3 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/doc/Object.3 b/doc/Object.3 index 00b4cec..9992653 100644 --- a/doc/Object.3 +++ b/doc/Object.3 @@ -4,7 +4,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: Object.3,v 1.22 2008/10/15 10:43:37 dkf Exp $ +'\" RCS: @(#) $Id: Object.3,v 1.23 2008/12/18 21:23:47 dkf Exp $ '\" .so man.macros .TH Tcl_Obj 3 8.5 Tcl "Tcl Library Procedures" @@ -334,8 +334,8 @@ by inserting \fIobjc-3\fR new elements before \fIindex\fR. .PP .CS listPtr = objv[1]; -if (Tcl_IsShared(listPtr)) { - listPtr = Tcl_DuplicateObj(listPtr); +if (\fBTcl_IsShared\fR(listPtr)) { + listPtr = \fBTcl_DuplicateObj\fR(listPtr); } result = Tcl_ListObjReplace(interp, listPtr, index, 0, (objc-3), &(objv[3])); |