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

[Stefan Monnier]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.287 emacs/src/lread.c:1.288
*** emacs/src/lread.c:1.287     Wed May 29 14:58:38 2002
--- emacs/src/lread.c   Tue Jun 11 11:13:58 2002
***************
*** 1461,1467 ****
       Lisp_Object stream;
  {
    extern Lisp_Object Fread_minibuffer ();
-   Lisp_Object tem;
    if (NILP (stream))
      stream = Vstandard_input;
    if (EQ (stream, Qt))
--- 1461,1466 ----
***************
*** 2513,2519 ****
              /* Kind of a hack; this will probably fail if characters
                 in the symbol name were escaped.  Not really a big
                 deal, though.  */
!             Fcons (Fcons (result, readchar_count - Flength (Fsymbol_name 
(result))),
                     Vread_symbol_positions_list);
          return result;
        }
--- 2512,2520 ----
              /* Kind of a hack; this will probably fail if characters
                 in the symbol name were escaped.  Not really a big
                 deal, though.  */
!             Fcons (Fcons (result,
!                           make_number (readchar_count
!                                        - XFASTINT (Flength (Fsymbol_name 
(result))))),
                     Vread_symbol_positions_list);
          return result;
        }