[Emacs-diffs] Changes to emacs/src/alloc.c

[Ken Raeburn]

Index: emacs/src/alloc.c
diff -c emacs/src/alloc.c:1.276 emacs/src/alloc.c:1.277
*** emacs/src/alloc.c:1.276     Sun Jul 14 20:00:35 2002
--- emacs/src/alloc.c   Tue Jul 16 11:48:47 2002
***************
*** 2701,2710 ****
      result = Fmake_string (make_number (nargs), make_number (0));
      for (i = 0; i < nargs; i++)
        {
!       SREF (result, i) = XINT (args[i]);
        /* Move the meta bit to the right place for a string char.  */
        if (XINT (args[i]) & CHAR_META)
!         SREF (result, i) |= 0x80;
        }
      
      return result;
--- 2701,2710 ----
      result = Fmake_string (make_number (nargs), make_number (0));
      for (i = 0; i < nargs; i++)
        {
!       SSET (result, i, XINT (args[i]));
        /* Move the meta bit to the right place for a string char.  */
        if (XINT (args[i]) & CHAR_META)
!         SSET (result, i, SREF (result, i) | 0x80);
        }
      
      return result;