From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 14 Apr 1997 03:05:04 +0000 (+0000)
Subject: (make-frame): Call custom-initialize-frame
X-Git-Tag: emacs-20.1~2501
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b092a1345b850909a53f63373c4c1d18b641b243;p=emacs.git

(make-frame): Call custom-initialize-frame
only if cus-face is loaded.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index 1396aa11785..ddd565602b5 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -458,7 +458,8 @@ on `after-make-frame-functions' are run with one arg, the newly created frame."
   (interactive)
   (run-hooks 'before-make-frame-hook)
   (let ((frame (funcall frame-creation-function parameters)))
-    (custom-initialize-frame frame)
+    (if (featurep 'cus-face)
+	(custom-initialize-frame frame))
     (run-hook-with-args 'after-make-frame-functions frame)
     frame))