bug in setting line width: _Dbg_linewidth -> _Dbg_set_linewidth

command/set.sh

@@ -23,7 +23,7 @@
 # If yes, always show. If auto, show only if the same line is to be run
 # but the command is different.
 
-typeset -i _Dbg_linewidth; _Dbg_linewidth=${COLUMNS:-80} 
+typeset -i _Dbg_set_linewidth; _Dbg_set_linewidth=${COLUMNS:-80} 
 typeset -i _Dbg_linetrace_expand=0 # expand variables in linetrace output
 typeset -f _Dbg_linetrace_delay=0  # sleep after linetrace
 

command/set_sub/width.sh

@@ -27,7 +27,7 @@ typeset -i _Dbg_set_linewidth; _Dbg_set_linewidth=${COLUMNS:-80}
 
 _Dbg_do_set_width() {
     if [[ $1 == [0-9]* ]] ; then 
-	_Dbg_write_journal_eval "_Dbg_linewidth=$1"
+	_Dbg_write_journal_eval "_Dbg_set_linewidth=$1"
     else
 	_Dbg_msg "Integer argument expected; got: $1"
 	return 1

lib/frame.sh

@@ -135,6 +135,7 @@ _Dbg_frame_save_frames() {
     # Frame_t -a ._Dbg_frame_stack gives SEGV
     while((--.level>=0)); do
 	((.sh.level = .level))
+	.fn+=("${.sh.fun}")
 	.files+=("${.sh.file}")
 	.linenos+=(${.sh.lineno})  # optimization bug unless done this way
 	.fns+=($0)

lib/list.sh

@@ -105,7 +105,7 @@ _Dbg_list_columns() {
 	msg=_Dbg_msg
     fi
     (($# != 0)) && return 1
-    typeset -a columnized=(); columnize $to_do $_Dbg_linewidth "$colsep"
+    typeset -a columnized=(); columnize $to_do $_Dbg_set_linewidth "$colsep"
     typeset -i i
     for ((i=0; i<${#columnized[@]}; i++)) ; do 
 	$msg "  ${columnized[i]}"

test/data/setshow.cmd

@@ -1,13 +1,13 @@
 set trace-commands on
 # Test of miscellaneous commands: 
 # 'source', 'info args', 'show args', 'show warranty', 'show copying', etc.
+set width 80
 #### Invalid commands...
 show badcommand
 another-bad-command
 #### *** GNU things...
 # show warranty
 show copying
-set width 80
 show
 #### and show...
 show args

test/data/setshow.right

@@ -2,6 +2,7 @@
 set -xv
 +# Test of miscellaneous commands:
 +# 'source', 'info args', 'show args', 'show warranty', 'show copying', etc.
++set width 80
 +#### Invalid commands...
 +show badcommand
 ** Unknown show subcommand: badcommand
@@ -272,7 +273,6 @@ make exceptions for this.  Our decision will be guided by the two goals
 of preserving the free status of all derivatives of our free software and
 of promoting the sharing and reuse of software generally.
 
-+set width 80
 +show 
 annotate    : Annotation_level is 0.
 args        :     Argument list to give script when debugged program starts is: