From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 23 Mar 1994 22:55:01 +0000 (+0000)
Subject: (read_filtered_event, intern): Use assignment instead of initialization.
X-Git-Tag: emacs-19.34~9349
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=153a17b788f3f9ae2eba606fcc2fce2db542e589;p=emacs.git

(read_filtered_event, intern): Use assignment instead of initialization.
---

diff --git a/src/lread.c b/src/lread.c
index 760cb462483..d6fa228a674 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -213,8 +213,9 @@ read_filtered_event (no_switch_frame, ascii_required, error_nonascii)
 #ifdef standalone
   return make_number (getchar ());
 #else
-  register Lisp_Object val;
-  register Lisp_Object delayed_switch_frame = Qnil;
+  register Lisp_Object val, delayed_switch_frame;
+
+  delayed_switch_frame = Qnil;
 
   /* Read until we get an acceptable event.  */
  retry:
@@ -1520,8 +1521,9 @@ intern (str)
 {
   Lisp_Object tem;
   int len = strlen (str);
-  Lisp_Object obarray = Vobarray;
+  Lisp_Object obarray;
 
+  obarray = Vobarray;
   if (XTYPE (obarray) != Lisp_Vector || XVECTOR (obarray)->size == 0)
     obarray = check_obarray (obarray);
   tem = oblookup (obarray, str, len);