Modified Files:

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

diff --git a/egg-hilit.el b/egg-hilit.el
deleted file mode 100644 (file)
index b5568a5..0000000
--- a/egg-hilit.el
+++ /dev/null
@@ -1,33 +0,0 @@
-(defvar        egg-face-color-japanese  "Cyan")
-(defvar        egg-face-color-chinese   "Pink")
-(defvar        egg-face-color-taiwanise "Salmon")
-(defvar        egg-face-color-korean    "Yellow")
-
-(defun egg-set-fg-color (color)
-  (let ((face (make-face (intern (concat "fg:" color)))))
-    (set-face-foreground face color)
-    face))
-
-(defun egg-set-bg-color (color)
-  (let ((face (make-face (intern (concat "bg:" color)))))
-    (set-face-background face color)
-    face))
-
-(defun egg-make-face (color)
-  (list 'underline (egg-set-bg-color color)))
-
-(defconst its-fence-face
-  (and window-system
-       (list (cons "Japanese"    (egg-make-face egg-face-color-japanese))
-            (cons "Chinese-GB"  (egg-make-face egg-face-color-chinese))
-            (cons "Chinese-CNS" (egg-make-face egg-face-color-taiwanise))
-            (cons "Korean"      (egg-make-face egg-face-color-korean))
-            (cons t             'underline))))
-
-(defconst egg-conversion-face
-  (and window-system
-       (list (cons "Japanese"    (egg-make-face egg-face-color-japanese))
-            (cons "Chinese-GB"  (egg-make-face egg-face-color-chinese))
-            (cons "Chinese-CNS" (egg-make-face egg-face-color-taiwanise))
-            (cons "Korean"      (egg-make-face egg-face-color-korean))
-            (cons t             'underline))))