(load "emacs-lisp/float-sup")))
(message "%s" (garbage-collect))
+;; Load auxiliary settings for X displays if we support them.
+(when (fboundp 'x-create-frame)
+ (load "mouse")
+ (load "international/fontset")
+ (load "dnd")
+ (load "x-dnd")
+ (load "term/x-win"))
+
+(message "%s" (garbage-collect))
+
(load "vc-hooks")
+ (load "jka-comp-hook")
(load "ediff-hook")
(if (fboundp 'x-show-tip) (load "tooltip"))
(message "%s" (garbage-collect))
\f
+static Lisp_Object
+internal_resolve_face_name (nargs, args)
+ int nargs;
+ Lisp_Object *args;
+{
+ Fget (args[0], args[1]);
+}
+
+static Lisp_Object
+resolve_face_name_error (ignore)
+ Lisp_Object ignore;
+{
+ return Qnil;
+}
/* Resolve face name FACE_NAME. If FACE_NAME is a string, intern it
- to make it a symvol. If FACE_NAME is an alias for another face,
- return that face's name. */
+ to make it a symbol. If FACE_NAME is an alias for another face,
+ return that face's name.
+
+ Return default face in case of errors. */
static Lisp_Object
- resolve_face_name (face_name)
+ resolve_face_name (face_name, signal_p)
Lisp_Object face_name;
+ int signal_p;
{
- Lisp_Object aliased;
- int alias_loop_max = 10;
+ Lisp_Object orig_face;
+ Lisp_Object tortoise, hare;
if (STRINGP (face_name))
face_name = intern (SDATA (face_name));