Warn if the new custom library is not found at the compile time.

[elisp/apel.git] / poe.el

diff --git a/poe.el b/poe.el
index 3fdc151..1059128 100644 (file)
--- a/poe.el
+++ b/poe.el
@@ -204,6 +204,12 @@ See also the function `defconst'."
 ;;; `eval-when-compile' is defined in "poe-18" under v18 with old compiler.
 (eval-when-compile (require 'static))
 
+;; `file-coding' was appeared in the spring of 1998, just before XEmacs
+;; 21.0.  Therefore it is not provided in XEmacs with MULE versions 20.4
+;; or earlier.
+(if (and (featurep 'xemacs) (featurep 'mule))
+    (provide 'file-coding))
+
 ;; imported from emacs-20.3/lisp/emacs-lisp/edebug.el.
 ;; `def-edebug-spec' is an autoloaded macro in v19 and later.
 (defmacro-maybe def-edebug-spec (symbol spec)
@@ -215,6 +221,17 @@ Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol
 (def-edebug-spec defun-maybe defun)
 (def-edebug-spec defmacro-maybe defmacro)
 (def-edebug-spec defsubst-maybe defun)
+(def-edebug-spec defun-maybe-cond
+  (&define name lambda-list
+          [&optional stringp]
+          [&rest ([&not eval] [&rest sexp])]
+          [&optional (eval [&optional ("interactive" interactive)] def-body)]
+          &rest (&rest sexp)))
+(def-edebug-spec defmacro-maybe-cond
+  (&define name lambda-list
+          [&rest ([&not eval] [&rest sexp])]
+          [&optional (eval def-body)]
+          &rest (&rest sexp)))
 
 ;;; Emacs 20.1 emulation
 
@@ -230,13 +247,6 @@ Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol
   (cons 'if (cons cond (cons nil body))))
 ;; (def-edebug-spec unless (&rest form))
 
-(defvar-maybe frame-background-mode nil
-  "*The brightness of the background.
-Set this to the symbol dark if your background color is dark, light if
-your background is light, or nil (default) if you want Emacs to
-examine the brightness for you.  However, the old Emacsen might not
-examine the brightness, so you should set this value definitely.")
-
 
 ;;; @ Emacs 19.23 emulation
 ;;;