* src/lread.c (read1): Fix up last change to not mess up `c'.

Fixes: debbugs:6490

src/ChangeLog

+2010-07-04  Tetsurou Okazaki  <okazaki@be.to>  (tiny change)
+	        Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* lread.c (read1): Fix up last change to not mess up `c'.
+
 2010-07-04  Juanma Barranquero  <lekktu@gmail.com>
 	* strftime.c: Revert conversion to standard C (2010-07-04T07:50:25Z!dann@ics.uci.edu).

src/lread.c

@@ -2645,6 +2645,9 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list)
       }
 
     case '`':
+      {
+	int next_char = READCHAR;
+	UNREAD (next_char);
 	/* Transition from old-style to new-style:
 	   If we see "(`" it used to mean old-style, which usually works
 	   fine because ` should almost never appear in such a position
@@ -2655,7 +2658,7 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list)
 	   old-style.  For Emacs-25, we should completely remove this
 	   first_in_list exception (old-style can still be obtained via
 	   "(\`" anyway).  */
-      if (first_in_list && (c = READCHAR, UNREAD (c), c == ' '))
+	if (first_in_list && next_char == ' ')
 	  {
 	    Vold_style_backquotes = Qt;
 	    goto default_label;
@@ -2670,7 +2673,7 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list)
 
 	    return Fcons (Qbackquote, Fcons (value, Qnil));
 	  }
-
+      }
     case ',':
       if (new_backquote_flag)
 	{