fix problem with scripting

SCCS-vsn: usr.bin/tip/cmds.c 4.4

diff --git a/usr/src/usr.bin/tip/cmds.c b/usr/src/usr.bin/tip/cmds.c
index 3556fe8..7ce244d 100644 (file)
--- a/usr/src/usr.bin/tip/cmds.c
+++ b/usr/src/usr.bin/tip/cmds.c
@@ -1,4 +1,4 @@
-/*     cmds.c  4.3     81/06/02        */
+/*     cmds.c  4.4     81/06/09        */

 #include "tip.h"
 /*
  * tip
 #include "tip.h"
 /*
  * tip


@@ -595,6 +595,12 @@ variable()
        if (vtable[SCRIPT].v_access&CHANGED) {
                vtable[SCRIPT].v_access &= ~CHANGED;
                setscript();
        if (vtable[SCRIPT].v_access&CHANGED) {
                vtable[SCRIPT].v_access &= ~CHANGED;
                setscript();

+               /*
+                * So that "set record=blah script" doesn't
+                *  cause two transactions to occur.
+                */
+               if (vtable[RECORD].v_access&CHANGED)
+                       vtable[RECORD].v_access &= ~CHANGED;

        }
        if (vtable[RECORD].v_access&CHANGED) {
                vtable[RECORD].v_access &= ~CHANGED;
        }
        if (vtable[RECORD].v_access&CHANGED) {
                vtable[RECORD].v_access &= ~CHANGED;