mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 00:51:50 -08:00
Code Issues Projects Releases Wiki Activity

* xfaces.c (signal_error): Move to eval.c.

Browse source 
(resolve_face_name): Use xsignal1.
This commit is contained in:
Kim F. Storm 2006-07-18 13:30:04 +00:00
parent ba96a5cfd4
commit 8009eb445e
1 changed files with 1 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/xfaces.c
View file

@ -486,7 +486,6 @@ static int font_scalable_p P_ ((struct font_name *));
static int get_lface_attributes P_ ((struct frame *, Lisp_Object, Lisp_Object *, int));
static int load_pixmap P_ ((struct frame *, Lisp_Object, unsigned *, unsigned *));
static unsigned char *xstrlwr P_ ((unsigned char *));
static void signal_error P_ ((char *, Lisp_Object));
static struct frame *frame_or_selected_frame P_ ((Lisp_Object, int));
static void load_face_font P_ ((struct frame *, struct face *, int));
static void load_face_colors P_ ((struct frame *, struct face *, Lisp_Object *));
@ -855,17 +854,6 @@ xstrlwr (s)
}
/* Signal `error' with message S, and additional argument ARG. */
static void
signal_error (s, arg)
char *s;
Lisp_Object arg;
{
Fsignal (Qerror, Fcons (build_string (s), Fcons (arg, Qnil)));
}
/* If FRAME is nil, return a pointer to the selected frame.
Otherwise, check that FRAME is a live frame, and return a pointer
to it. NPARAM is the parameter number of FRAME, for
@ -3273,7 +3261,7 @@ resolve_face_name (face_name, signal_p)
if (EQ (hare, tortoise))
{
if (signal_p)
Fsignal (Qcircular_list, Fcons (orig_face, Qnil));
xsignal1 (Qcircular_list, orig_face);
return Qdefault;
}
}