xemacs-beta: src/buffer.c comparison

Import from CVS: tag r19-15b91

comparison

equal deleted inserted replaced

-:ad457d5f7d04
+:0293115a14e9
 Lisp_Object valcontents = XSYMBOL (sym)->value;
 if (SYMBOL_VALUE_MAGIC_P (valcontents))
 	{
 	  /* Just reference the variable
 	     to cause it to become set for this buffer.  */
-	  (void) find_symbol_value (sym);
+	  /* Use find_symbol_value_quickly to avoid an unnecessary O(n)
+	     lookup. */
+	  (void) find_symbol_value_quickly (XCAR (tail), 1);
 	}
 }
 /* Do the same with any others that were local to the previous buffer */
 if (old_buf)
 {
-for (tail = old_buf->local_var_alist;
+LIST_LOOP (tail, old_buf->local_var_alist)
-!NILP (tail);
-tail = XCDR (tail))
 	{
 	  Lisp_Object sym = XCAR (XCAR (tail));
 	  Lisp_Object valcontents = XSYMBOL (sym)->value;
 	  if (SYMBOL_VALUE_MAGIC_P (valcontents))
 	    {
 	      /* Just reference the variable
 		 to cause it to become set for this buffer.  */
-	      (void) find_symbol_value (sym);
+	      /* Use find_symbol_value_quickly with find_it_p as 0 to avoid an
+		 unnecessary O(n) lookup which is guaranteed to be worst case.
+		 Any symbols which are local are guaranteed to have been
+		 handled in the previous loop, above. */
+	      (void) find_symbol_value_quickly (sym, 0);
 	    }
 	}
 }
 }

Mercurial > hg > xemacs-beta