mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Avoid aborting due to errors in arguments of 'set-face-attribute'

Browse Source 
* 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:
Eli Zaretskii 2016-05-24 19:04:16 +03:00
parent bdfbe6deff
commit fbfd4787fb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/xfaces.c
View File

@ -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. */