? man.macros
Index: tabify.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/textutil/tabify.tcl,v
retrieving revision 1.5
diff -c -r1.5 tabify.tcl
*** tabify.tcl	18 Sep 2001 17:52:44 -0000	1.5
--- tabify.tcl	22 Feb 2002 20:27:16 -0000
***************
*** 262,267 ****
--- 262,268 ----
      set inLst [split $string \n]
  
      # now work on each line
+     set outLst [list]
      foreach line $inLst {
  	lappend outLst [tabifyLine $line $num]
      }
***************
*** 282,287 ****
--- 283,289 ----
  
      set inLst [split $string \n]
  
+     set outLst [list]
      foreach line $inLst {
  	lappend outLst [untabifyLine $line $num]
      }
Index: tabify.test
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/textutil/tabify.test,v
retrieving revision 1.2
diff -c -r1.2 tabify.test
*** tabify.test	17 Sep 2001 21:40:50 -0000	1.2
--- tabify.test	22 Feb 2002 20:27:16 -0000
***************
*** 137,139 ****
--- 137,148 ----
  test tabify-3.7 {version 2: untabify, tab size 8, multi line} {
      ::textutil::untabify2 "line 1\t\n\tline 2\nline 3\t\n\tline 4\n"
  } "line 1  \n        line 2\nline 3  \n        line 4\n"
+ 
+ #
+ # Edge cases: test for empty string
+ #
+ test tabify-4.1 {tabify empty string}   	{ textutil::tabify "" } ""
+ test tabify-4.2 {untabify empty string}  	{ textutil::untabify ""} ""
+ test tabify-4.3 {tabify2 empty string}   	{ textutil::tabify2 "" } ""
+ test tabify-4.4 {untabify2 empty string}	{ textutil::untabify2 ""} ""
+ 
