;; -*- Mode: Emacs-Lisp -*- (setq options-file-xemacs-version '(20 4)) (setq-default case-fold-search t) (setq-default overwrite-mode nil) (setq-default case-fold-search t) (setq-default case-replace t) (setq-default zmacs-regions t) (setq-default mouse-yank-at-point nil) (setq-default require-final-newline t) (setq-default next-line-add-newlines nil) (setq-default teach-extended-commands-p t) (setq-default teach-extended-commands-timeout 4) (setq-default debug-on-error nil) (setq-default debug-on-quit nil) (setq-default lpr-switches nil) (setq-default ps-print-color-p nil) (setq-default ps-paper-type 'a4) (setq-default get-frame-for-buffer-default-instance-limit nil) (setq-default temp-buffer-show-function 'show-temp-buffer-in-current-frame) (setq-default font-lock-auto-fontify t) (setq-default font-lock-use-fonts nil) (setq-default font-lock-use-colors '(color)) (setq-default font-lock-maximum-decoration t) (setq-default font-lock-maximum-size 256000) (setq-default font-lock-mode-enable-list nil) (setq-default font-lock-mode-disable-list nil) (require 'font-lock) (remove-hook 'font-lock-mode-hook 'turn-on-fast-lock) (remove-hook 'font-lock-mode-hook 'turn-on-lazy-shot) (require 'paren) (paren-set-mode 'sexp) (if (featurep 'scrollbar) (progn (add-spec-list-to-specifier scrollbar-width 'nil) (add-spec-list-to-specifier scrollbar-height 'nil))) (add-spec-list-to-specifier modeline-shadow-thickness '((global (nil . 2)))) (setq-default truncate-lines nil) (setq-default bar-cursor nil) (blink-cursor-mode t) (setq-default buffers-menu-max-size 25) (setq-default complex-buffers-menu-p nil) (setq-default buffers-menu-sort-function 'sort-buffers-menu-by-mode-then-alphabetically) (setq-default buffers-menu-grouping-function 'group-buffers-menu-by-mode-then-alphabetically) (setq-default buffers-menu-submenus-for-groups-p nil) (setq-default font-menu-ignore-scaled-fonts nil) (setq-default font-menu-this-frame-only-p nil) (if (featurep 'toolbar) (progn (set-default-toolbar-position 'top) (add-spec-list-to-specifier default-toolbar-visible-p 'nil) (add-spec-list-to-specifier toolbar-buttons-captioned-p 'nil))) (setq-default mouse-avoidance-mode nil) (setq-default browse-url-browser-function 'browse-url-w3) (make-face 'custom-group-tag-face-1) (make-face 'modeline-buffer-id) (make-face 'html-helper-underline-face) (make-face 'left-margin) (make-face 'bold) (make-face 'list-mode-item-selected) (make-face 'paren-mismatch) (make-face 'custom-set-face) (make-face 'html-helper-bold-face) (make-face 'modeline-mousable-minor-mode) (make-face 'red) (make-face 'widget-documentation-face) (make-face 'speedbar-tag-face) (make-face 'custom-saved-face) (make-face 'widget-inactive-face) (make-face 'underline) (make-face 'text-cursor) (make-face 'xrdb-option-value-face) (make-face 'info-xref) (make-face 'custom-rogue-face) (make-face 'gui-button-face) (make-face 'font-lock-reference-face) (make-face 'speedbar-button-face) (make-face 'custom-variable-tag-face) (make-face 'widget-button-pressed-face) (make-face 'widget-button-face) (make-face 'pointer) (make-face 'font-lock-doc-string-face) (make-face 'cperl-pod-head-face) (make-face 'italic) (make-face 'custom-changed-face) (make-face 'modeline) (make-face 'font-lock-type-face) (make-face 'widget-field-face) (make-face 'blue) (make-face 'cperl-here-face) (make-face 'custom-button-face) (make-face 'custom-state-face) (make-face 'custom-group-tag-face) (make-face 'custom-invalid-face) (make-face 'yellow) (make-face 'xrdb-option-name-face) (make-face 'font-lock-preprocessor-face) (make-face 'font-lock-variable-name-face) (make-face 'font-lock-m4-face) (make-face 'paren-blink-off) (make-face 'bold-italic) (make-face 'secondary-selection) (make-face 'speedbar-file-face) (make-face 'custom-variable-button-face) (make-face 'makefile-space-face) (make-face 'highlight) (make-face 'cperl-pod-face) (make-face 'info-node) (make-face 'speedbar-directory-face) (make-face 'speedbar-selected-face) (make-face 'font-lock-function-name-face) (make-face 'right-margin) (make-face 'modeline-mousable) (make-face 'html-helper-italic-face) (make-face 'custom-documentation-face) (make-face 'custom-modified-face) (make-face 'speedbar-highlight-face) (make-face 'isearch) (make-face 'default) (make-face 'green) (make-face 'custom-face-tag-face) (add-spec-list-to-specifier (face-property 'custom-group-tag-face-1 'foreground) '((global (nil . "red")))) (add-spec-list-to-specifier (face-property 'custom-group-tag-face-1 'underline) '((global (nil . t)))) (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'foreground) '((global ((color x) . "blue4") (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'background) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'font) '((global (nil . "-*-Clean-Medium-R-*-*-*-120-*-*-*-*-*-*") ((tty) . [bold-italic]) ((grayscale x) . [bold-italic]) ((mono x) . [bold-italic])))) (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'background-pixmap) '((global ((x) . [inherit :face #s(face name modeline)]) ((tty) . [inherit :face #s(face name modeline)]) ((stream) . [inherit :face #s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'underline) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'strikethru) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'highlight) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'dim) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'blinking) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'reverse) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'html-helper-underline-face 'underline) '((global (nil . t)))) (add-spec-list-to-specifier (face-property 'bold 'font) '((global (nil . "-*-Clean-bold-R-*-*-*-120-*-*-*-*-*-*")))) (add-spec-list-to-specifier (face-property 'bold 'highlight) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'list-mode-item-selected 'foreground) '((global (nil . "green") ((mono x) . [default background])))) (add-spec-list-to-specifier (face-property 'list-mode-item-selected 'background) '((global (nil . "green4") ((mono x) . [default foreground]) ((grayscale) . "gray68") ((color) . "gray68")))) (add-spec-list-to-specifier (face-property 'list-mode-item-selected 'reverse) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'paren-mismatch 'foreground) '((global (nil . "black") ((grayscale x) . [modeline foreground]) ((mono x) . [modeline foreground])))) (add-spec-list-to-specifier (face-property 'paren-mismatch 'background) '((global (nil . "Red") ((grayscale x) . [modeline background]) ((mono x) . [modeline background]) ((color x) . "DeepPink")))) (add-spec-list-to-specifier (face-property 'paren-mismatch 'reverse) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'custom-set-face 'foreground) '((global (nil . "blue")))) (add-spec-list-to-specifier (face-property 'custom-set-face 'background) '((global (nil . "white")))) (add-spec-list-to-specifier (face-property 'html-helper-bold-face 'font) '((global (nil . "-*-Clean-bold-R-*-*-*-120-*-*-*-*-*-*")))) (add-spec-list-to-specifier (face-property 'html-helper-bold-face 'highlight) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'foreground) '((global ((color x) . "green4") ((color x) . "forestgreen") (nil . [#s(face name modeline-mousable)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'background) '((global (nil . [#s(face name modeline-mousable)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'font) '((global (nil . "-*-Clean-Medium-R-*-*-*-120-*-*-*-*-*-*")))) (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'background-pixmap) '((global ((x) . [inherit :face #s(face name modeline-mousable)]) ((tty) . [inherit :face #s(face name modeline-mousable)]) ((stream) . [inherit :face #s(face name modeline-mousable)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'underline) '((global (nil . [#s(face name modeline-mousable)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'strikethru) '((global (nil . [#s(face name modeline-mousable)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'highlight) '((global (nil . [#s(face name modeline-mousable)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'dim) '((global (nil . [#s(face name modeline-mousable)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'blinking) '((global (nil . [#s(face name modeline-mousable)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'reverse) '((global (nil . [#s(face name modeline-mousable)])))) (add-spec-list-to-specifier (face-property 'red 'foreground) '((global ((color) . "red")))) (add-spec-list-to-specifier (face-property 'widget-documentation-face 'foreground) '((global (nil . "dark green")))) (add-spec-list-to-specifier (face-property 'speedbar-tag-face 'foreground) '((global (nil . "brown")))) (add-spec-list-to-specifier (face-property 'speedbar-tag-face 'underline) '((global (nil)))) (add-spec-list-to-specifier (face-property 'custom-saved-face 'underline) '((global (nil . t)))) (add-spec-list-to-specifier (face-property 'widget-inactive-face 'foreground) '((global (nil . "dim gray")))) (add-spec-list-to-specifier (face-property 'underline 'underline) '((global (nil . t)))) (add-spec-list-to-specifier (face-property 'text-cursor 'foreground) '((global (nil . "black")))) (add-spec-list-to-specifier (face-property 'text-cursor 'background) '((global (nil . "green") ((x) . "Red3")))) (add-spec-list-to-specifier (face-property 'text-cursor 'reverse) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'xrdb-option-value-face 'foreground) '((global (nil . "forest green") ((color) . "green4") ((color) . "green")))) (add-spec-list-to-specifier (face-property 'info-xref 'font) '((global (nil . "-*-Clean-Medium-R-*-*-*-120-*-*-*-*-*-*") ((mule-fonts) . "-*-fixed-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-2") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-3") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-4") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-7") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-8") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-9") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-60-jisx0201.1976-0") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-120-jisx0208.1983-0") ((mule-fonts) . "-wadalab-gothic-medium-r-normal--14-120-75-75-c-120-jisx0212.1990-0") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0201.1976-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0208.1983-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0212*-*") ((mule-fonts) . "-*-*-medium-r-*--*-gb2312.1980-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-cns11643*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-big5*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-sisheng_cwnn-0") ((mule-fonts) . "-*-mincho-medium-r-*--*-ksc5601.1987-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-tis620.2529-1")))) (add-spec-list-to-specifier (face-property 'info-xref 'highlight) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'custom-rogue-face 'foreground) '((global (nil . "pink")))) (add-spec-list-to-specifier (face-property 'custom-rogue-face 'background) '((global (nil . "black")))) (add-spec-list-to-specifier (face-property 'gui-button-face 'foreground) '((global ((color x) . "black")))) (add-spec-list-to-specifier (face-property 'gui-button-face 'background) '((global ((color x) . "grey75")))) (add-spec-list-to-specifier (face-property 'gui-button-face 'reverse) '((global (nil . t)))) (add-spec-list-to-specifier (face-property 'font-lock-reference-face 'foreground) '((global (nil . "hotpink") ((color) . "red3") ((color) . "red")))) (add-spec-list-to-specifier (face-property 'speedbar-button-face 'foreground) '((global (nil . "green4")))) (add-spec-list-to-specifier (face-property 'speedbar-button-face 'underline) '((global (nil)))) (add-spec-list-to-specifier (face-property 'custom-variable-tag-face 'foreground) '((global (nil . "blue")))) (add-spec-list-to-specifier (face-property 'custom-variable-tag-face 'underline) '((global (nil . t)))) (add-spec-list-to-specifier (face-property 'widget-button-pressed-face 'foreground) '((global (nil . "red")))) (add-spec-list-to-specifier (face-property 'widget-button-face 'font) '((global (nil . "-*-Clean-Medium-R-*-*-*-120-*-*-*-*-*-*") ((mule-fonts) . "-*-fixed-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-2") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-3") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-4") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-7") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-8") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-9") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-60-jisx0201.1976-0") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-120-jisx0208.1983-0") ((mule-fonts) . "-wadalab-gothic-medium-r-normal--14-120-75-75-c-120-jisx0212.1990-0") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0201.1976-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0208.1983-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0212*-*") ((mule-fonts) . "-*-*-medium-r-*--*-gb2312.1980-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-cns11643*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-big5*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-sisheng_cwnn-0") ((mule-fonts) . "-*-mincho-medium-r-*--*-ksc5601.1987-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-tis620.2529-1")))) (add-spec-list-to-specifier (face-property 'widget-button-face 'highlight) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'pointer 'foreground) '((global (nil . "#000000")))) (add-spec-list-to-specifier (face-property 'pointer 'background) '((global (nil . "#ffffff")))) (add-spec-list-to-specifier (face-property 'font-lock-doc-string-face 'foreground) '((global (nil . "white") ((color) . "green4") ((color) . "green")))) (add-spec-list-to-specifier (face-property 'font-lock-doc-string-face 'font) '((global (nil . "-*-Clean-Medium-r-*-*-*-120-*-*-*-*-*-*")))) (add-spec-list-to-specifier (face-property 'font-lock-doc-string-face 'underline) '((global ((tty))))) (add-spec-list-to-specifier (face-property 'font-lock-doc-string-face 'highlight) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'cperl-pod-head-face 'foreground) '((global (nil . "steelblue")))) (add-spec-list-to-specifier (face-property 'italic 'font) '((global (nil . "-*-Clean-Medium-i-*-*-*-120-*-*-*-*-*-*")))) (add-spec-list-to-specifier (face-property 'italic 'underline) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'custom-changed-face 'foreground) '((global (nil . "white")))) (add-spec-list-to-specifier (face-property 'custom-changed-face 'background) '((global (nil . "blue")))) (add-spec-list-to-specifier (face-property 'modeline 'foreground) '((global ((x) . "Black")))) (add-spec-list-to-specifier (face-property 'modeline 'background) '((global ((x) . "Gray75")))) (add-spec-list-to-specifier (face-property 'modeline 'reverse) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'font-lock-type-face 'foreground) '((global (nil . "#cdb2fc") ((color) . "#6920ac")))) (add-spec-list-to-specifier (face-property 'widget-field-face 'background) '((global (nil . "gray85")))) (add-spec-list-to-specifier (face-property 'blue 'foreground) '((global ((color) . "blue")))) (add-spec-list-to-specifier (face-property 'blue 'font) '((global (nil . "-*-Clean-Medium-R-*-*-*-120-*-*-*-*-*-*")))) (add-spec-list-to-specifier (face-property 'cperl-here-face 'foreground) '((global (nil . "green4")))) (add-spec-list-to-specifier (face-property 'cperl-here-face 'background) '((global (nil . "grey85")))) (add-spec-list-to-specifier (face-property 'custom-button-face 'font) '((global (nil . "-*-Clean-Medium-R-*-*-*-120-*-*-*-*-*-*") ((mule-fonts) . "-*-fixed-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-2") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-3") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-4") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-7") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-8") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-9") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-60-jisx0201.1976-0") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-120-jisx0208.1983-0") ((mule-fonts) . "-wadalab-gothic-medium-r-normal--14-120-75-75-c-120-jisx0212.1990-0") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0201.1976-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0208.1983-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0212*-*") ((mule-fonts) . "-*-*-medium-r-*--*-gb2312.1980-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-cns11643*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-big5*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-sisheng_cwnn-0") ((mule-fonts) . "-*-mincho-medium-r-*--*-ksc5601.1987-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-tis620.2529-1")))) (add-spec-list-to-specifier (face-property 'custom-button-face 'highlight) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'custom-state-face 'foreground) '((global (nil . "dark green")))) (add-spec-list-to-specifier (face-property 'custom-group-tag-face 'foreground) '((global (nil . "blue")))) (add-spec-list-to-specifier (face-property 'custom-group-tag-face 'underline) '((global (nil . t)))) (add-spec-list-to-specifier (face-property 'custom-invalid-face 'foreground) '((global (nil . "yellow")))) (add-spec-list-to-specifier (face-property 'custom-invalid-face 'background) '((global (nil . "red")))) (add-spec-list-to-specifier (face-property 'yellow 'foreground) '((global ((color) . "yellow")))) (add-spec-list-to-specifier (face-property 'xrdb-option-name-face 'foreground) '((global ((color) . "orange")))) (add-spec-list-to-specifier (face-property 'font-lock-preprocessor-face 'foreground) '((global (nil . "blue3") ((color) . "blue3") ((color) . "blue")))) (add-spec-list-to-specifier (face-property 'font-lock-variable-name-face 'foreground) '((global ((color) . "blue3") ((color) . "blue")))) (add-spec-list-to-specifier (face-property 'font-lock-m4-face 'foreground) '((global (nil . "blue3")))) (add-spec-list-to-specifier (face-property 'paren-blink-off 'foreground) '((global ((x) . "#ffffff")))) (add-spec-list-to-specifier (face-property 'bold-italic 'font) '((global (nil . "-*-Clean-medium-i-*-*-*-120-*-*-*-*-*-*")))) (add-spec-list-to-specifier (face-property 'bold-italic 'underline) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'bold-italic 'highlight) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'secondary-selection 'foreground) '((global (nil . "darkseagreen")))) (add-spec-list-to-specifier (face-property 'secondary-selection 'background) '((global ((grayscale) . "gray53") ((color) . "paleturquoise") ((color) . "green")))) (add-spec-list-to-specifier (face-property 'secondary-selection 'underline) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'speedbar-file-face 'foreground) '((global (nil . "cyan4")))) (add-spec-list-to-specifier (face-property 'speedbar-file-face 'underline) '((global (nil)))) (add-spec-list-to-specifier (face-property 'custom-variable-button-face 'font) '((global (nil . "-*-Clean-Medium-R-*-*-*-120-*-*-*-*-*-*") ((mule-fonts) . "-*-fixed-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-2") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-3") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-4") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-7") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-8") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-9") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-60-jisx0201.1976-0") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-120-jisx0208.1983-0") ((mule-fonts) . "-wadalab-gothic-medium-r-normal--14-120-75-75-c-120-jisx0212.1990-0") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0201.1976-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0208.1983-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0212*-*") ((mule-fonts) . "-*-*-medium-r-*--*-gb2312.1980-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-cns11643*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-big5*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-sisheng_cwnn-0") ((mule-fonts) . "-*-mincho-medium-r-*--*-ksc5601.1987-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-tis620.2529-1")))) (add-spec-list-to-specifier (face-property 'custom-variable-button-face 'underline) '((global (nil . t)))) (add-spec-list-to-specifier (face-property 'custom-variable-button-face 'highlight) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'makefile-space-face 'background) '((global (nil . "hotpink")))) (add-spec-list-to-specifier (face-property 'highlight 'foreground) '((global (nil . "black")))) (add-spec-list-to-specifier (face-property 'highlight 'background) '((global (nil . "green") ((color) . "darkseagreen2") ((color) . "green") ((grayscale) . "gray53")))) (add-spec-list-to-specifier (face-property 'highlight 'highlight) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'cperl-pod-face 'foreground) '((global (nil . "brown4")))) (add-spec-list-to-specifier (face-property 'info-node 'font) '((global (nil . "-*-Clean-Medium-R-*-*-*-120-*-*-*-*-*-*") ((mule-fonts) . "-*-fixed-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-2") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-3") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-4") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-7") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-8") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-9") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-60-jisx0201.1976-0") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-120-jisx0208.1983-0") ((mule-fonts) . "-wadalab-gothic-medium-r-normal--14-120-75-75-c-120-jisx0212.1990-0") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0201.1976-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0208.1983-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0212*-*") ((mule-fonts) . "-*-*-medium-r-*--*-gb2312.1980-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-cns11643*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-big5*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-sisheng_cwnn-0") ((mule-fonts) . "-*-mincho-medium-r-*--*-ksc5601.1987-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-tis620.2529-1")))) (add-spec-list-to-specifier (face-property 'info-node 'underline) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'info-node 'highlight) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'speedbar-directory-face 'foreground) '((global (nil . "blue4")))) (add-spec-list-to-specifier (face-property 'speedbar-directory-face 'underline) '((global (nil)))) (add-spec-list-to-specifier (face-property 'speedbar-selected-face 'foreground) '((global (nil . "red")))) (add-spec-list-to-specifier (face-property 'speedbar-selected-face 'underline) '((global (nil . t)))) (add-spec-list-to-specifier (face-property 'font-lock-function-name-face 'foreground) '((global (nil . "cyan") ((color) . "blue3") ((color) . "blue")))) (add-spec-list-to-specifier (face-property 'modeline-mousable 'foreground) '((global ((color x) . "firebrick") (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable 'background) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable 'font) '((global (nil . "-*-Clean-Medium-R-*-*-*-120-*-*-*-*-*-*") ((grayscale x) . [bold]) ((mono x) . [bold])))) (add-spec-list-to-specifier (face-property 'modeline-mousable 'background-pixmap) '((global ((x) . [inherit :face #s(face name modeline)]) ((tty) . [inherit :face #s(face name modeline)]) ((stream) . [inherit :face #s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable 'underline) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable 'strikethru) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable 'highlight) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable 'dim) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable 'blinking) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'modeline-mousable 'reverse) '((global (nil . [#s(face name modeline)])))) (add-spec-list-to-specifier (face-property 'html-helper-italic-face 'font) '((global (nil . "-*-Clean-Medium-i-*-*-*-120-*-*-*-*-*-*")))) (add-spec-list-to-specifier (face-property 'html-helper-italic-face 'underline) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'custom-modified-face 'foreground) '((global (nil . "white")))) (add-spec-list-to-specifier (face-property 'custom-modified-face 'background) '((global (nil . "blue")))) (add-spec-list-to-specifier (face-property 'speedbar-highlight-face 'background) '((global (nil . "green")))) (add-spec-list-to-specifier (face-property 'speedbar-highlight-face 'underline) '((global (nil)))) (add-spec-list-to-specifier (face-property 'isearch 'foreground) '((global (nil . "purple4")))) (add-spec-list-to-specifier (face-property 'isearch 'background) '((global (nil . "#cdb2fc") ((color) . "paleturquoise") ((color) . "green")))) (add-spec-list-to-specifier (face-property 'isearch 'font) '((global (nil . "-*-Clean-medium-r-*-*-*-120-*-*-*-*-*-*") ((mule-fonts) . "-*-fixed-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-2") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-3") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-4") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-7") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-8") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-9") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-60-jisx0201.1976-0") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-120-jisx0208.1983-0") ((mule-fonts) . "-wadalab-gothic-medium-r-normal--14-120-75-75-c-120-jisx0212.1990-0") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0201.1976-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0208.1983-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0212*-*") ((mule-fonts) . "-*-*-medium-r-*--*-gb2312.1980-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-cns11643*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-big5*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-sisheng_cwnn-0") ((mule-fonts) . "-*-mincho-medium-r-*--*-ksc5601.1987-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-tis620.2529-1")))) (add-spec-list-to-specifier (face-property 'isearch 'highlight) '((global ((tty))))) (add-spec-list-to-specifier (face-property 'isearch 'reverse) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'default 'foreground) '((global (nil . "green") ((x) . "#000000")))) (add-spec-list-to-specifier (face-property 'default 'background) '((global (nil . "black") ((x) . "#ffffff")))) (add-spec-list-to-specifier (face-property 'default 'font) '((global (nil . "-*-Clean-medium-r-*-*-*-120-*-*-*-*-*-*") ((mule-fonts) . "-*-fixed-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-2") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-3") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-4") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-7") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-8") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-9") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-60-jisx0201.1976-0") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-120-jisx0208.1983-0") ((mule-fonts) . "-wadalab-gothic-medium-r-normal--14-120-75-75-c-120-jisx0212.1990-0") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0201.1976-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0208.1983-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0212*-*") ((mule-fonts) . "-*-*-medium-r-*--*-gb2312.1980-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-cns11643*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-big5*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-sisheng_cwnn-0") ((mule-fonts) . "-*-mincho-medium-r-*--*-ksc5601.1987-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-tis620.2529-1")))) (add-spec-list-to-specifier (face-property 'default 'underline) '((global ((tty))))) (add-spec-list-to-specifier (face-property 'default 'highlight) '((global ((tty))))) (add-spec-list-to-specifier (face-property 'green 'foreground) '((global ((color) . "green")))) (add-spec-list-to-specifier (face-property 'custom-face-tag-face 'underline) '((global (nil . t)))) (if (featurep 'mule) (set-language-environment '"English"))