Mercurial > emacs

changeset 6516:8278049ee7a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add_properties, remove_properties): Use assignment, not initialization.
author Karl Heuer <kwzh@gnu.org>
date Fri, 25 Mar 1994 00:40:44 +0000
parents df7438605e1e
children 8f5f79c3091a
files src/textprop.c
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/textprop.c	Fri Mar 25 00:40:16 1994 +0000
+++ b/src/textprop.c	Fri Mar 25 00:40:44 1994 +0000
@@ -341,8 +341,9 @@
       for (tail2 = i->plist; ! NILP (tail2); tail2 = Fcdr (Fcdr (tail2)))
 	if (EQ (sym1, Fcar (tail2)))
 	  {
-	    register Lisp_Object this_cdr = Fcdr (tail2);
+	    register Lisp_Object this_cdr;
 
+	    this_cdr = Fcdr (tail2);
 	    /* Found the property.  Now check its value. */
 	    found = 1;
 
@@ -396,10 +397,10 @@
      INTERVAL i;
      Lisp_Object object;
 {
-  register Lisp_Object tail1, tail2, sym;
-  register Lisp_Object current_plist = i->plist;
+  register Lisp_Object tail1, tail2, sym, current_plist;
   register int changed = 0;
 
+  current_plist = i->plist;
   /* Go through each element of plist. */
   for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1)))
     {
@@ -426,7 +427,8 @@
       tail2 = current_plist;
       while (! NILP (tail2))
 	{
-	  register Lisp_Object this = Fcdr (Fcdr (tail2));
+	  register Lisp_Object this;
+	  this = Fcdr (Fcdr (tail2));
 	  if (EQ (sym, Fcar (this)))
 	    {
 	      if (XTYPE (object) == Lisp_Buffer)