chris@umcp-cs.UUCP (01/21/84)
Index: Emacs #85 and #264, Fix Description: (set-default) cannot assign markers because DoSet evaluates the second argument as a string rather than a general argument even when called from MLisp. Repeat-By: Type ESC-ESC (set-default "mark-test" (dot)) CR Type ESC-x print mark-test CR You'll get back the name of the buffer, rather than a marker giving the buffer and position. Fix: This is for #264; in #85 EI.FuncName should be replaced by CurExec, assuming that the rest of DoSet is the same. Diff listing follows, line numbers certainly wrong. RCS file: RCS/mlisp.c,v retrieving revision 3.3 retrieving revision 3.5 diff -b -c1 -r3.3 -r3.5 *** /tmp/,RCSt1014247 Sat Jan 21 03:18:52 1984 --- /tmp/,RCSt2014247 Sat Jan 21 03:18:56 1984 *************** *** 730,731 } p = getstr (": set%s %s ", Default ? "-default" : "", v->v_name); --- 725,727 ----- } + if (EI.FuncName == 0) { p = getstr (": set%s %s ", Default ? "-default" : "", v->v_name); *************** *** 734,735 PerformSet (v, 0, p, Default); return 0; --- 730,734 ----- PerformSet (v, 0, p, Default); + } + else + PerformSet (v, 2, 0, Default); return 0; -- In-Real-Life: Chris Torek, Univ of MD Comp Sci UUCP: {seismo,allegra,brl-bmd}!umcp-cs!chris CSNet: chris@umcp-cs ARPA: chris.umcp-cs@CSNet-Relay