Avoid aborting due to errors in arguments of 'set-face-attribute'
* src/xfaces.c (Finternal_set_lisp_face_attribute): Check the FRAME argument before using it. This avoids gratuitous aborts in Emacs built with --enable-checking when the luser was unlucky enough to get the argument list in wrong order.
This commit is contained in:
parent
bdfbe6deff
commit
fbfd4787fb
1 changed files with 2 additions and 1 deletions
|
@ -2678,9 +2678,10 @@ FRAME 0 means change the face on all frames, and change the default
|
||||||
{
|
{
|
||||||
if (NILP (frame))
|
if (NILP (frame))
|
||||||
frame = selected_frame;
|
frame = selected_frame;
|
||||||
f = XFRAME (frame);
|
|
||||||
|
|
||||||
CHECK_LIVE_FRAME (frame);
|
CHECK_LIVE_FRAME (frame);
|
||||||
|
f = XFRAME (frame);
|
||||||
|
|
||||||
lface = lface_from_face_name (f, face, false);
|
lface = lface_from_face_name (f, face, false);
|
||||||
|
|
||||||
/* If a frame-local face doesn't exist yet, create one. */
|
/* If a frame-local face doesn't exist yet, create one. */
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue