[Emacs-diffs] emacs/src process.c

[Ken Raeburn]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Ken Raeburn <raeburn>   09/06/20 23:23:48

Modified files:
        src            : process.c 

Log message:
        (status_message): Pass Faset index argument as a lisp object, so as to 
work
        with USE_LISP_UNION_TYPE.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/process.c?cvsroot=emacs&r1=1.586&r2=1.587

Patches:
Index: process.c
===================================================================
RCS file: /sources/emacs/emacs/src/process.c,v
retrieving revision 1.586
retrieving revision 1.587
diff -u -b -r1.586 -r1.587
--- process.c   15 Jun 2009 13:20:53 -0000      1.586
+++ process.c   20 Jun 2009 23:23:48 -0000      1.587
@@ -479,7 +479,7 @@
          c1 = STRING_CHAR ((char *) SDATA (string), 0);
          c2 = DOWNCASE (c1);
          if (c1 != c2)
-           Faset (string, 0, make_number (c2));
+           Faset (string, make_number (0), make_number (c2));
        }
       string2 = build_string (coredump ? " (core dumped)\n" : "\n");
       return concat2 (string, string2);