From a9e935a28484cb203e894ebdcec6232d8c5df0db Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Mon, 5 Apr 1999 14:15:44 +0000 Subject: [PATCH] (defface): Make face if 'faces is provided. --- tinycustom.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/tinycustom.el b/tinycustom.el index 8c996b5..0e4ee0a 100644 --- a/tinycustom.el +++ b/tinycustom.el @@ -52,12 +52,19 @@ This is a defcustom only for emulating purpose. Its effect is just as same as that of defvar." (` (defvar (, symbol) (, value) (, doc))) ) -(defmacro-maybe defface (face value doc &rest args) - "Declare FACE as a customizable face that defaults to SPEC. +(if (featurep 'faces) + (defmacro-maybe defface (face value doc &rest args) + "Declare FACE as a customizable face that defaults to SPEC. FACE does not need to be quoted. This is a defface which only makes face FACE for emulating purpose." - (` (make-face (, face))) ) + (` (make-face (, face))) ) + (defmacro-maybe defface (face value doc &rest args) + "Declare FACE as a customizable face that defaults to SPEC. +FACE does not need to be quoted. + +This is a nop defface only for emulating purpose." + nil ) ) (defmacro-maybe define-widget (name class doc) "Define a new widget type named NAME from CLASS. -- 1.7.10.4