Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/17/84; site godot.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!mhuxr!ihnp4!godot!massar
From: massar@godot.UUCP (J.P. Massar)
Newsgroups: net.emacs
Subject: Elisp Bug Fix
Message-ID: <869@godot.UUCP>
Date: Sat, 2-Feb-85 14:29:24 EST
Article-I.D.: godot.869
Posted: Sat Feb  2 14:29:24 1985
Date-Received: Sun, 3-Feb-85 09:35:20 EST
Distribution: net
Organization: Thinking Machines, Cambridge, MA
Lines: 50

Following is a bug fix for the CCA Emacs extension language:

2/2/85
Fixed bug in Elisp which caused #\x to be printed out as #\X if Elisp
was set to uppercase and vice versa if set to lower case.  Diff appears
below:

*** /u/massar/usr.bin/emacs/elisp/output.c	Mon Sep  3 15:55:37 1984
--- /usr/src/local/cmd/emacs/src/elisp/output.c	Sat Feb  2 14:01:46 1985
***************
*** 187,192
  
  {
  	char buffer[100];
  	char_to_string(Get_the_char(achar),buffer,100);
  	return(af2_print_cased_c_string(buffer,pptr)); 
  }    

--- 187,193 -----
  
  {
  	char buffer[100];
+         int len;
  	char_to_string(Get_the_char(achar),buffer,100);
          len = strlen(buffer);
          if ((len == 3) || (len >= 5 && buffer[3] == '-'))
***************
*** 188,194
  {
  	char buffer[100];
  	char_to_string(Get_the_char(achar),buffer,100);
! 	return(af2_print_cased_c_string(buffer,pptr)); 
  }    
  
  

--- 189,199 -----
  	char buffer[100];
          int len;
  	char_to_string(Get_the_char(achar),buffer,100);
!         len = strlen(buffer);
!         if ((len == 3) || (len >= 5 && buffer[3] == '-'))
!            return(afd_print_c_string(buffer,pptr));
!         else
!        	   return(af2_print_cased_c_string(buffer,pptr)); 
  }    
  
JP Massar  
ihnp4!godot!massar
massar@cca-unix