[net.emacs] Elisp Bug Fix

massar@godot.UUCP (J.P. Massar) (02/02/85)

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