Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/17/84; site think.ARPA
Path: utzoo!watmath!clyde!cbosgd!ihnp4!think!massar
From: massar@think.ARPA (J.P. Massar)
Newsgroups: net.emacs
Subject: CCA Emacs Elisp bug fix
Message-ID: <1401@think.ARPA>
Date: Fri, 19-Apr-85 15:32:16 EST
Article-I.D.: think.1401
Posted: Fri Apr 19 15:32:16 1985
Date-Received: Sat, 20-Apr-85 07:02:13 EST
Distribution: net
Organization: Thinking Machines, Cambridge, MA
Lines: 26

Following is a simple one-line fix which makes UNREAD-CHAR work
when given its optional stream argument.


*** bio.c~	Wed Apr  3 22:50:11 1985
--- bio.c	Fri Apr 19 14:42:27 1985
***************
*** 430,435
  			}   
  		} 
  		else {  
  			if (!acn_is_open_stream(arg1,MUST_BE_IN)) {
  				goto bad_arg;
  			} 

--- 430,436 -----
  			}   
  		} 
  		else {  
+                         arg1 = Get_Nth_Arg(1,nargs);
  			if (!acn_is_open_stream(arg1,MUST_BE_IN)) {
  				goto bad_arg;
  			} 
-- 
-- JP Massar, Thinking Machines Corporation, Cambridge, MA
-- mit-eddie!godot!massar, ihnp4!godot!massar, massar@think, massar@cca-unix