(CommandList children: [ (C {(_Dbg_help_add)} {(undisplay)} { (DQ ("**undisplay** *display-number*...\n") ("\n") ( "Cancel some expressions to be displayed when program stops. Arguments are the code numbers\n" ) ("of the expressions to stop displaying.\n") ("\n") ("Examples:\n") ("---------\n") ("\n") (" undisplay 0 # Removes display statement 0\n") (" undisplay 0 3 4 # Removes display statements 0, 3, and 4\n") ("\n") ("See also:\n") ("---------\n") ("\n") ("*display* and *info display*.") ) } ) (FuncDef name: _Dbg_do_undisplay body: (BraceGroup children: [ (C {(typeset)} {(-i)} {(del)}) (If arms: [ (if_arm cond: [ (Sentence child: (DParen child: (ArithBinary op_id: Arith_DEqual left: (ArithWord w:{(Lit_Digits 0)}) right: (ArithWord w:{($ VSub_Pound "$#")}) ) ) terminator: <Op_Semi ";"> ) ] action: [ (C {(_Dbg_errmsg)} {(SQ <"You need to pass in some display numbers.">)}) (ControlFlow token:<ControlFlow_Return return> arg_word:{(0)}) ] spids: [-1 115] ) ] spids: [-1 130] ) (ForEach iter_name: del iter_words: [{($ VSub_At "$@")}] do_arg_iter: False body: (DoGroup children: [ (If arms: [ (if_arm cond: [ (Sentence child: (C {(Lit_Other "[")} {(-n)} { (DQ (BracedVarSub token: <VSub_Name _Dbg_disp_exp> bracket_op: (ArrayIndex expr: (ArithWord w:{($ VSub_Name "$del")}) ) spids: [154 159] ) ) } {(Lit_Other "]")} ) terminator: <Op_Semi ";"> ) ] action: [ (C {(_Dbg_write_journal_eval)} {(DQ ("unset _Dbg_disp_exp[") ($ VSub_Name "$del") ("]"))} ) (C {(_Dbg_write_journal_eval)} {(DQ ("unset _Dbg_disp_enable[") ($ VSub_Name "$del") ("]"))} ) (C {(_Dbg_msg)} {(DQ ("Display entry ") ($ VSub_Name "$del") (" unset."))}) ] spids: [-1 166] ) ] else_action: [ (C {(_Dbg_msg)} { (DQ ("Display entry ") ($ VSub_Name "$del") (" doesn't exist, so nothing done.") ) } ) ] spids: [196 208] ) ] spids: [144 211] ) spids: [139 142] ) (ControlFlow token:<ControlFlow_Return return> arg_word:{(0)}) ] spids: [89] ) spids: [85 88] ) ] )