Subject: Re: Emacs 19.25 & 8-bit characters....

From: [email-masked] (Peter Eriksson)
Date: 7 Jul 1994 22:43:17 GMT

[email-masked] (Trond Myklebust) writes:

>Has anybody managed to get 'standard-display-european' mode to work
>properly on Emacs 19.25 (it worked fine on v19.22) ?

Yes. If you apply this patch (it also fixes another bug with
suspending it (atleast on some Unixes)

/Peter

*** emacs.c.orig	Sat May 28 06:44:47 1994
--- emacs.c	Mon Jun 20 17:40:21 1994
***************
*** 409,429 ****
  
    clearerr (stdin);
  
-   if (! noninteractive1)
-     {
- #ifdef BSD_PGRPS
-       if (initialized)
- 	{
- 	  inherited_pgroup = EMACS_GETPGRP (0);
- 	  setpgrp (0, getpid ());
- 	}
- #else
- #if defined (USG5) && defined (INTERRUPT_INPUT)
-       setpgrp ();
- #endif
- #endif
-     }
- 
  #ifdef APOLLO
  #ifndef APOLLO_SR10
    /* If USE_DOMAIN_ACLS environment variable exists,
--- 409,414 ----
***************
*** 506,511 ****
--- 491,511 ----
        skip_args += 1;
        noninteractive = 1;
      }
+ 
+   if (! noninteractive)
+     {
+ #ifdef BSD_PGRPS
+       if (initialized)
+ 	{
+ 	  inherited_pgroup = EMACS_GETPGRP (0);
+ 	  setpgrp (0, getpid ());
+ 	}
+ #else
+ #if defined (USG5) && defined (INTERRUPT_INPUT)
+       setpgrp ();
+ #endif
+ #endif
+     }
  
  #ifdef POSIX_SIGNALS
    init_signals ();
*** keyboard.c.orig	Mon May 30 13:02:53 1994
--- keyboard.c	Mon Jun 20 17:40:16 1994
***************
*** 1162,1174 ****
  			  Lisp_Object obj;
  
  			  obj = DISP_CHAR_VECTOR (dp, lose);
! 			  if (NILP (obj)
! 			      || (XTYPE (obj) == Lisp_Vector
! 				  && XVECTOR (obj)->size == 1
! 				  && (XTYPE (obj = XVECTOR (obj)->contents[0])
! 				      == Lisp_Int)
! 				  /* Insist face not specified in glyph.  */
! 				  && (XINT (obj) & ((-1) << 8)) == 0))
  			    no_redisplay
  			      = direct_output_for_insert (XINT (obj));
  			}
--- 1162,1175 ----
  			  Lisp_Object obj;
  
  			  obj = DISP_CHAR_VECTOR (dp, lose);
! 			  if (NILP (obj))
! 			    no_redisplay = direct_output_for_insert (lose);
! 			  else if (XTYPE (obj) == Lisp_Vector
! 				   && XVECTOR (obj)->size == 1
! 				   && (XTYPE (obj = XVECTOR (obj)->contents[0])
! 				       == Lisp_Int)
! 				   /* Insist face not specified in glyph.  */
! 				   && (XINT (obj) & ((-1) << 8)) == 0)
  			    no_redisplay
  			      = direct_output_for_insert (XINT (obj));
  			}

--
Peter Eriksson <[email-masked]>		Linköping University,
Systems Administrator				Department of Physics, 
Phone: +46 13 282786	(Fax: +46 13 137568)	S-581 83 Linköping, Sweden