Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 5/3/83; site umcp-cs.UUCP
Path: utzoo!linus!philabs!seismo!rlgvax!cvl!umcp-cs!chris
From: chris@umcp-cs.UUCP
Newsgroups: net.emacs
Subject: Bug in DoSet in Gosling Emacs
Message-ID: <4841@umcp-cs.UUCP>
Date: Sat, 21-Jan-84 03:26:59 EST
Article-I.D.: umcp-cs.4841
Posted: Sat Jan 21 03:26:59 1984
Date-Received: Sat, 21-Jan-84 22:52:19 EST
Organization: Univ. of Maryland, Computer Science Dept.
Lines: 48

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