comparison src/frame.c @ 109853:fe07c47cf7a7

merge and fixes
author Joakim <joakim@localhost.localdomain>
date Thu, 13 May 2010 15:13:52 +0200
parents bef5d1738c0b
children c4638d45dada
comparison
equal deleted inserted replaced
109852:e56f669f17ce 109853:fe07c47cf7a7
2296 and it is set up based on this frame, switch to the global 2296 and it is set up based on this frame, switch to the global
2297 binding. That way, we can create or alter the frame-local binding 2297 binding. That way, we can create or alter the frame-local binding
2298 without messing up the symbol's status. */ 2298 without messing up the symbol's status. */
2299 if (SYMBOLP (prop)) 2299 if (SYMBOLP (prop))
2300 { 2300 {
2301 Lisp_Object valcontents; 2301 struct Lisp_Symbol *sym = XSYMBOL (prop);
2302 valcontents = SYMBOL_VALUE (prop); 2302 start:
2303 if ((BUFFER_LOCAL_VALUEP (valcontents)) 2303 switch (sym->redirect)
2304 && XBUFFER_LOCAL_VALUE (valcontents)->check_frame 2304 {
2305 && XBUFFER_LOCAL_VALUE (valcontents)->found_for_frame 2305 case SYMBOL_VARALIAS: sym = indirect_variable (sym); goto start;
2306 && XFRAME (XBUFFER_LOCAL_VALUE (valcontents)->frame) == f) 2306 case SYMBOL_PLAINVAL: case SYMBOL_FORWARDED: break;
2307 swap_in_global_binding (prop); 2307 case SYMBOL_LOCALIZED:
2308 { struct Lisp_Buffer_Local_Value *blv = sym->val.blv;
2309 if (blv->frame_local && BLV_FOUND (blv) && XFRAME (blv->where) == f)
2310 swap_in_global_binding (sym);
2311 break;
2312 }
2313 default: abort ();
2314 }
2308 } 2315 }
2309 2316
2310 /* The tty color needed to be set before the frame's parameter 2317 /* The tty color needed to be set before the frame's parameter
2311 alist was updated with the new value. This is not true any more, 2318 alist was updated with the new value. This is not true any more,
2312 but we still do this test early on. */ 2319 but we still do this test early on. */
2518 } 2525 }
2519 else if (EQ (parameter, Qdisplay_type) 2526 else if (EQ (parameter, Qdisplay_type)
2520 || EQ (parameter, Qbackground_mode)) 2527 || EQ (parameter, Qbackground_mode))
2521 value = Fcdr (Fassq (parameter, f->param_alist)); 2528 value = Fcdr (Fassq (parameter, f->param_alist));
2522 else 2529 else
2530 /* FIXME: Avoid this code path at all (as well as code duplication)
2531 by sharing more code with Fframe_parameters. */
2523 value = Fcdr (Fassq (parameter, Fframe_parameters (frame))); 2532 value = Fcdr (Fassq (parameter, Fframe_parameters (frame)));
2524 } 2533 }
2525 2534
2526 return value; 2535 return value;
2527 } 2536 }