Merge egg-980316.

[elisp/egg.git] / egg-face.el

diff --git a/egg-face.el b/egg-face.el
deleted file mode 100644 (file)
index 11d8fd4..0000000
--- a/egg-face.el
+++ /dev/null
@@ -1,33 +0,0 @@
-(setq debug-on-error t)
-
-(defvar        egg-face-color-Japanese    '("Blue"        . "Cyan"))
-(defvar        egg-face-color-Chinese-GB  '("Red"         . "OrangeRed"))
-(defvar        egg-face-color-Chinese-CNS '("Purple"      . "Violet"))
-(defvar        egg-face-color-Korean      '("ForestGreen" . "Green"))
-(defvar egg-face-color-other
-  (cons (frame-parameter (selected-frame) 'foreground-color)
-       (frame-parameter (selected-frame) 'foreground-color)))
-
-(defconst egg-face-lang-names
-  '("Japanese" "Chinese-GB" "Chinese-CNS" "Korean" "t"))
-
-(defun egg-make-face (lang)
-  (let ((mode (eq (frame-parameter (selected-frame) 'background-mode) 'light))
-       (face (make-face (intern (concat "egg-face-" lang))))
-       (color (intern (concat "egg-face-color-" lang))))
-    (setq color (and (boundp color) (symbol-value color)))
-    (set-face-foreground face
-                        (if (consp color)
-                            (if mode (car color) (cdr color))
-                          color))
-    face))
-
-(defconst its-fence-face
-  (if window-system
-      (mapcar (lambda (lang)
-               (let ((lang-name (if (equal lang "t") "other" lang)))
-                 (cons (intern lang)
-                       (egg-make-face lang-name))))
-             egg-face-lang-names)))
-
-(defconst egg-conversion-face its-fence-face)