<br />
<b>Deprecated</b>:  The each() function is deprecated. This message will be suppressed on further calls in <b>/home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php</b> on line <b>456</b><br />
;;; faces-config.el --- faces general config file

;; Copyright (C) 2001 YAMASHITA Junji

;; Author: YAMASHITA Junji <ysjj@unixuser.org>
;; Keywords: config, faces
;; Version: $Id: faces-config.el,v 1.2 2002/01/08 06:25:22 ysjj Exp $
;; Content-Type: text/plain; charset=iso-2022-jp

;;; Commentary:

;;; Code:

(and (boundp 'list-faces-sample-text)
     (setq list-faces-sample-text
	   (concat "abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ"
		   " "
		   "あいうえお アイウエオ")))

;;; newline/space/tab for blank-mode/whitespace
(defface my-newline-face
  '((((type x) (background light))
     (:foreground "black" :stipple "newline")))
  "Face used to visualize NEWLINE.")

(defface my-space-face
  '((((type x) (background light))
     (:foreground "orange" :stipple "space"))
    (((class color) (background light))
     (:background "light cyan"))
    (t
     (:inverse-video t)))
  "Face used to visualize SPACE.")

(defface my-wspace-face
  '((((type x) (background light))
     (:foreground "purple" :stipple "space"))
    (((class color) (background light))
     (:background "cyan"))
    (t
     (:inverse-video t)))
  "Face used to visualize FULL-WIDTH SPACE (JISX0208).")

(defface my-tab-face
  `((((type x) (background light))
     (:foreground "light coral"
		  ,@(if my-emacs21-p
			'(:strike-through t)
		      '(:stipple "tab"))))
    (((class color) (background light))
     (:background "lavender"))
    (t
     (:inverse-video t)))
  "Face used to visualize TAB.")

(when (facep 'trailing-whitespace)
  (set-face-attribute 'trailing-whitespace nil
		      :foreground (face-attribute 'trailing-whitespace
						  :background)
		      :background (face-attribute 'default
						  :background)
		      :stipple "space"))

;; 
(when (and my-emacs20-p window-system)
  (defface my-truncation-face
    '((t (:stipple "truncation")))
    "Face used to truncation slot of `standard-display-table'.")

  (defface my-wrap-face
    '((t (:stipple "wrap")))
    "Face used to wrap slot of `standard-display-table'.")

  (defface my-control-face
    '((t (:stipple "control")))
    "Face used to control slot of `standard-display-table'.")

  (defface my-escape-face
    '((t (:stipple "escape")))
    "Face used to escape slot of `standard-display-table'.")

  (defsubst set-standard-display-slot (slot glyph)
    (set-display-table-slot standard-display-table slot glyph))

   (let ((slot-alist '(truncation wrap escape control))
	 slot glyph)
     (while (setq slot (pop slot-alist))
       ;; info:elisp#Glyphs (524288 is 2**19.)
       (setq glyph (+ ?\  (* (face-id (intern (format "my-%s-face" slot))) 524288)))
       (set-standard-display-slot slot glyph)
       (set-jisx0201-display-slot slot glyph))))

;;; faces-config.el ends here