From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,c1b4b86c91ace6ed
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-06-11 06:11:43 PST
Date: Tue, 11 Jun 2002 21:10:46 +0800
From: Adrian Hoe <mailbox@*nospam*adrianhoe.com>
User-Agent: Mozilla/5.0 (X11; U; Linux i586; en-US;
 rv:0.9.4.1) Gecko/20020314 Netscape6/6.2.2
X-Accept-Language: en-us
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Ada Mode for Emacs
References: <phxM8.3503$A62.600726@news11-gui.server.ntli.net>
 <pan.2002.06.08.22.29.45.789120.21891@cowgar.com>
 <3D02E558.15D7BA7B@sympatico.ca> <1023786932.251614@edh3>
 <3d05e4b6.14523053@news.demon.co.uk>
Content-Type: multipart/mixed;
 boundary="------------060300040704090604000504"
NNTP-Posting-Host: mlk-195-142.tm.net.my
X-Original-NNTP-Posting-Host: mlk-195-142.tm.net.my
Message-ID: <3d05f5ac_1@news.tm.net.my>
X-Trace: news.tm.net.my 1023800748 mlk-195-142.tm.net.my (11 Jun 2002 21:05:48
 +0800)
Organization: TMnet Malaysia
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!newsfeed.cwix.com!news1.tm.net.my
Xref: archiver1.google.com comp.lang.ada:25737
Date: 2002-06-11T21:10:46+08:00
List-Id: <comp.lang.ada>

This is a multi-part message in MIME format.
--------------060300040704090604000504
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit

John McCabe wrote:

> On 11 Jun 2002 09:12:10 GMT, Frode Tenneboe <ft@alne.edh.ericsson.se>
> wrote:
> 
> 
>>David Marceau <davidmarceau@sympatico.ca> wrote:
>>
>>>Jeremy wrote:
>>>
>>>>Emacs is the best for Ada!
>>>>
>>>Someone once said: "Great minds think alike" :)
>>>
>>[Emacs features deleted]
>>
>>My problem is that every time I'd like a specific feature I don't have
>>time to delve into elisp and hack around, so....would anyone who happen
>>to have a nicely commented .emacs, which works farily well with both 
>>emacs and Xemacs, be willing to share their file[s] with equal minded?
>>
> 
> Are you aware that the XEmacs lot have changed their default init file
> fairly recently?
> 

Nope. I am not.

I would love to share my .emacs hack with everyone in cla who has 
interests in it. My hack is not neat and nice. Just quick and dirty. 
Improvements are very welcome.
-- 
Remove *nospam* to email.              -- Adrian Hoe
                                        -- http://adrianhoe.com


--------------060300040704090604000504
Content-Type: text/plain;
 name=".emacs"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename=".emacs"


;; Options Menu Settings
;; =====================
(cond
 ((and (string-match "XEmacs" emacs-version)
       (boundp 'emacs-major-version)
       (or (and
            (= emacs-major-version 19)
            (>= emacs-minor-version 14))
           (= emacs-major-version 20))
       (fboundp 'load-options-file))
  (load-options-file "/home/byhoe/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
(custom-set-variables
 '(init-face-from-resources nil)
 '(lazy-shot-verbose nil)
 '(filladapt-mode nil nil (filladapt))
 '(display-time-24hr-format t)
 '(column-number-mode t)
 '(c-tab-always-indent nil)
 '(change-log-default-name "")
 '(ada-language-version (quote ada95))
 '(lazy-shot-stealth-verbose nil)
 '(add-log-mailing-address "")
 '(add-log-time-format (quote iso8601-time-string))
 '(line-number-mode t)
 '(compilation-always-signal-completion t)
 '(add-log-full-name "")
 '(user-mail-address "byhoe@neptune.greenlime.com" t)
 '(query-user-mail-address nil))
(custom-set-faces
 '(font-lock-string-face ((t (:foreground "white"))) t)
 '(paren-match ((t (:background "green3" :family ""))) t)
 '(font-lock-keyword-face ((t (:foreground "orange"))) t)
 '(primary-selection ((t (:background "darkseagreen2" :family ""))) t)
 '(font-lock-comment-face ((t (:foreground "yellow"))) t)
 '(zmacs-region ((t (:foreground "white" :background "blue" :family ""))) t))
(setq options-save-faces t)
(setq-default font-lock-maximum-decoration t)
(setq ada-which-compiler 'generic)

;;; ***************************
;;; Syntax highlighting
;;;
(cond (running-xemacs

       (setq font-lock-use-default-fonts nil)
       (setq font-lock-use-default-colors t)

       (require 'font-lock)

       ;; string face is green
       (set-face-foreground 'font-lock-string-face "white")

       ;; comments are italic and red; doc strings are italic
       ;;
       ;; (I use copy-face instead of make-face-italic/make-face-bold
       ;; because the startup code does intelligent things to the
       ;; 'italic and 'bold faces to ensure that they are different
       ;; from the default face.  For example, if the default face
       ;; is bold, then the 'bold face will be unbold.)
;;       (copy-face 'italic 'font-lock-comment-face)
       ;; Underlining comments looks terrible on tty's
;;       (set-face-underline-p 'font-lock-comment-face nil 'global 'tty)
;;       (set-face-highlight-p 'font-lock-comment-face t 'global 'tty)
;;       (copy-face 'font-lock-comment-face 'font-lock-doc-string-face)
;;       (set-face-foreground 'font-lock-comment-face "cyan3")

       ;; function names are bold and blue
       (copy-face 'font-lock-function-name-face)
       (set-face-foreground 'font-lock-function-name-face "blue")

       ;; misc. faces
       (and (find-face 'font-lock-preprocessor-face) ; 19.13 and above
            (copy-face 'bold 'font-lock-preprocessor-face))
       (copy-face 'italic 'font-lock-type-face)
       (copy-face 'bold 'font-lock-keyword-face)
       (set-face-foreground 'font-lock-keyword-face "orange")
       ))

;;; ********************
;;; func-menu is a package that scans your source file for function
;;; definitions and makes a menubar entry that lets you jump to any
;;; particular function definition by selecting it from the menu.  The
;;; following code turns this on for all of the recognized languages.
;;; Scanning the buffer takes some time, but not much.
;;;
;;; Send bug reports, enhancements etc to:
;;; David Hughes <ukchugd@ukpmr.cs.philips.nl>
;;;
(cond (running-xemacs
       (require 'func-menu)
       (define-key global-map 'f8 'function-menu)
       (add-hook 'find-file-hooks 'fume-add-menubar-entry)
       (define-key global-map "\C-cl" 'fume-list-functions)
       (define-key global-map "\C-cg" 'fume-prompt-function-goto)

       ;; The Hyperbole information manager package uses (shift button2) and
       ;; (shift button3) to provide context-sensitive mouse keys.  If you
       ;; use this next binding, it will conflict with Hyperbole's setup.
       ;; Choose another mouse key if you use Hyperbole.
       (define-key global-map '(shift button3) 'mouse-function-menu)

       ;; For descriptions of the following user-customizable variables,
       ;; type C-h v <variable>
       (setq fume-max-items 25
             fume-fn-window-position 3
             fume-auto-position-popup t
             fume-display-in-modeline-p t
             fume-menubar-menu-location "File"
             fume-buffer-name "*Function List*"
             fume-no-prompt-on-valid-default nil)
       ))

--------------060300040704090604000504
Content-Type: text/plain;
 name=".xemacs-options"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline;
 filename=".xemacs-options"

;; -*- 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-fr=
ame)
    (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-the=
n-alphabetically)
  (setq-default buffers-menu-grouping-function 'group-buffers-menu-by-mod=
e-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 'fo=
reground) '((global (nil . "red"))))
  (add-spec-list-to-specifier (face-property 'custom-group-tag-face-1 'un=
derline) '((global (nil . t))))
  (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'foregro=
und) '((global ((color x) . "blue4") (nil . [#s(face name modeline)]))))
  (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'backgro=
und) '((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 'backgro=
und-pixmap) '((global ((x) . [inherit :face #s(face name modeline)]) ((tt=
y) . [inherit :face #s(face name modeline)]) ((stream) . [inherit :face #=
s(face name modeline)]))))
  (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'underli=
ne) '((global (nil . [#s(face name modeline)]))))
  (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'striket=
hru) '((global (nil . [#s(face name modeline)]))))
  (add-spec-list-to-specifier (face-property 'modeline-buffer-id 'highlig=
ht) '((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 'blinkin=
g) '((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 =
=2E "-*-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 'fo=
reground) '((global (nil . "green") ((mono x) . [default background]))))
  (add-spec-list-to-specifier (face-property 'list-mode-item-selected 'ba=
ckground) '((global (nil . "green4") ((mono x) . [default foreground]) ((=
grayscale) . "gray68") ((color) . "gray68"))))
  (add-spec-list-to-specifier (face-property 'list-mode-item-selected 're=
verse) '((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 'high=
light) '((global ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mod=
e 'foreground) '((global ((color x) . "green4") ((color x) . "forestgreen=
") (nil . [#s(face name modeline-mousable)]))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mod=
e 'background) '((global (nil . [#s(face name modeline-mousable)]))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mod=
e 'font) '((global (nil . "-*-Clean-Medium-R-*-*-*-120-*-*-*-*-*-*"))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mod=
e 'background-pixmap) '((global ((x) . [inherit :face #s(face name modeli=
ne-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-mod=
e 'underline) '((global (nil . [#s(face name modeline-mousable)]))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mod=
e 'strikethru) '((global (nil . [#s(face name modeline-mousable)]))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mod=
e 'highlight) '((global (nil . [#s(face name modeline-mousable)]))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mod=
e 'dim) '((global (nil . [#s(face name modeline-mousable)]))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mod=
e 'blinking) '((global (nil . [#s(face name modeline-mousable)]))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mod=
e '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 'foregrou=
nd) '((global (nil . "brown"))))
  (add-spec-list-to-specifier (face-property 'speedbar-tag-face 'underlin=
e) '((global (nil))))
  (add-spec-list-to-specifier (face-property 'custom-saved-face 'underlin=
e) '((global (nil . t))))
  (add-spec-list-to-specifier (face-property 'widget-inactive-face 'foreg=
round) '((global (nil . "dim gray"))))
  (add-spec-list-to-specifier (face-property 'underline 'underline) '((gl=
obal (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) '((gl=
obal ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'xrdb-option-value-face 'for=
eground) '((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) . "-*-fix=
ed-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-i=
so8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-2") ((mule-fon=
ts) . "-*-fixed-medium-r-*--*-iso8859-3") ((mule-fonts) . "-*-fixed-mediu=
m-r-*--*-iso8859-4") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-7") =
((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-8") ((mule-fonts) . "-*-f=
ixed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-medium-r-*--*-is=
o8859-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-7=
5-75-c-120-jisx0208.1983-0") ((mule-fonts) . "-wadalab-gothic-medium-r-no=
rmal--14-120-75-75-c-120-jisx0212.1990-0") ((mule-fonts) . "-*-fixed-medi=
um-r-*--*-jisx0201.1976-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0=
208.1983-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0212*-*") ((mule=
-fonts) . "-*-*-medium-r-*--*-gb2312.1980-*") ((mule-fonts) . "-*-fixed-m=
edium-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-m=
edium-r-*--*-tis620.2529-1"))))
  (add-spec-list-to-specifier (face-property 'info-xref 'highlight) '((gl=
obal ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'custom-rogue-face 'foregrou=
nd) '((global (nil . "pink"))))
  (add-spec-list-to-specifier (face-property 'custom-rogue-face 'backgrou=
nd) '((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 'f=
oreground) '((global (nil . "hotpink") ((color) . "red3") ((color) . "red=
"))))
  (add-spec-list-to-specifier (face-property 'speedbar-button-face 'foreg=
round) '((global (nil . "green4"))))
  (add-spec-list-to-specifier (face-property 'speedbar-button-face 'under=
line) '((global (nil))))
  (add-spec-list-to-specifier (face-property 'custom-variable-tag-face 'f=
oreground) '((global (nil . "blue"))))
  (add-spec-list-to-specifier (face-property 'custom-variable-tag-face 'u=
nderline) '((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) =
=2E "-*-fixed-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medi=
um-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-*--*-i=
so8859-7") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-8") ((mule-fon=
ts) . "-*-fixed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-mediu=
m-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-norma=
l--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 'highlig=
ht) '((global ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'pointer 'foreground) '((glo=
bal (nil . "#000000"))))
  (add-spec-list-to-specifier (face-property 'pointer 'background) '((glo=
bal (nil . "#ffffff"))))
  (add-spec-list-to-specifier (face-property 'font-lock-doc-string-face '=
foreground) '((global (nil . "white") ((color) . "green4") ((color) . "gr=
een"))))
  (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 'foregr=
ound) '((global (nil . "steelblue"))))
  (add-spec-list-to-specifier (face-property 'italic 'font) '((global (ni=
l . "-*-Clean-Medium-i-*-*-*-120-*-*-*-*-*-*"))))
  (add-spec-list-to-specifier (face-property 'italic 'underline) '((globa=
l ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'custom-changed-face 'foregr=
ound) '((global (nil . "white"))))
  (add-spec-list-to-specifier (face-property 'custom-changed-face 'backgr=
ound) '((global (nil . "blue"))))
  (add-spec-list-to-specifier (face-property 'modeline 'foreground) '((gl=
obal ((x) . "Black"))))
  (add-spec-list-to-specifier (face-property 'modeline 'background) '((gl=
obal ((x) . "Gray75"))))
  (add-spec-list-to-specifier (face-property 'modeline 'reverse) '((globa=
l ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'font-lock-type-face 'foregr=
ound) '((global (nil . "#cdb2fc") ((color) . "#6920ac"))))
  (add-spec-list-to-specifier (face-property 'widget-field-face 'backgrou=
nd) '((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 =
=2E "-*-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) =
=2E "-*-fixed-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medi=
um-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-*--*-i=
so8859-7") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-8") ((mule-fon=
ts) . "-*-fixed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-mediu=
m-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-norma=
l--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 'highlig=
ht) '((global ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'custom-state-face 'foregrou=
nd) '((global (nil . "dark green"))))
  (add-spec-list-to-specifier (face-property 'custom-group-tag-face 'fore=
ground) '((global (nil . "blue"))))
  (add-spec-list-to-specifier (face-property 'custom-group-tag-face 'unde=
rline) '((global (nil . t))))
  (add-spec-list-to-specifier (face-property 'custom-invalid-face 'foregr=
ound) '((global (nil . "yellow"))))
  (add-spec-list-to-specifier (face-property 'custom-invalid-face 'backgr=
ound) '((global (nil . "red"))))
  (add-spec-list-to-specifier (face-property 'yellow 'foreground) '((glob=
al ((color) . "yellow"))))
  (add-spec-list-to-specifier (face-property 'xrdb-option-name-face 'fore=
ground) '((global ((color) . "orange"))))
  (add-spec-list-to-specifier (face-property 'font-lock-preprocessor-face=
 'foreground) '((global (nil . "blue3") ((color) . "blue3") ((color) . "b=
lue"))))
  (add-spec-list-to-specifier (face-property 'font-lock-variable-name-fac=
e 'foreground) '((global ((color) . "blue3") ((color) . "blue"))))
  (add-spec-list-to-specifier (face-property 'font-lock-m4-face 'foregrou=
nd) '((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) '((globa=
l (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 'foregr=
ound) '((global (nil . "darkseagreen"))))
  (add-spec-list-to-specifier (face-property 'secondary-selection 'backgr=
ound) '((global ((grayscale) . "gray53") ((color) . "paleturquoise") ((co=
lor) . "green"))))
  (add-spec-list-to-specifier (face-property 'secondary-selection 'underl=
ine) '((global ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'speedbar-file-face 'foregro=
und) '((global (nil . "cyan4"))))
  (add-spec-list-to-specifier (face-property 'speedbar-file-face 'underli=
ne) '((global (nil))))
  (add-spec-list-to-specifier (face-property 'custom-variable-button-face=
 'font) '((global (nil . "-*-Clean-Medium-R-*-*-*-120-*-*-*-*-*-*") ((mul=
e-fonts) . "-*-fixed-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fix=
ed-medium-r-*--*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8=
859-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") ((m=
ule-fonts) . "-*-fixed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixe=
d-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-m=
edium-r-*--*-jisx0208.1983-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-ji=
sx0212*-*") ((mule-fonts) . "-*-*-medium-r-*--*-gb2312.1980-*") ((mule-fo=
nts) . "-*-fixed-medium-r-*--*-cns11643*-*") ((mule-fonts) . "-*-fixed-me=
dium-r-*--*-big5*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-sisheng_cwn=
n-0") ((mule-fonts) . "-*-mincho-medium-r-*--*-ksc5601.1987-*") ((mule-fo=
nts) . "-*-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 'backgr=
ound) '((global (nil . "hotpink"))))
  (add-spec-list-to-specifier (face-property 'highlight 'foreground) '((g=
lobal (nil . "black"))))
  (add-spec-list-to-specifier (face-property 'highlight 'background) '((g=
lobal (nil . "green") ((color) . "darkseagreen2") ((color) . "green") ((g=
rayscale) . "gray53"))))
  (add-spec-list-to-specifier (face-property 'highlight 'highlight) '((gl=
obal ((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) . "-*-fix=
ed-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-i=
so8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-2") ((mule-fon=
ts) . "-*-fixed-medium-r-*--*-iso8859-3") ((mule-fonts) . "-*-fixed-mediu=
m-r-*--*-iso8859-4") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-7") =
((mule-fonts) . "-*-fixed-medium-r-*--*-iso8859-8") ((mule-fonts) . "-*-f=
ixed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-medium-r-*--*-is=
o8859-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-7=
5-75-c-120-jisx0208.1983-0") ((mule-fonts) . "-wadalab-gothic-medium-r-no=
rmal--14-120-75-75-c-120-jisx0212.1990-0") ((mule-fonts) . "-*-fixed-medi=
um-r-*--*-jisx0201.1976-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0=
208.1983-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0212*-*") ((mule=
-fonts) . "-*-*-medium-r-*--*-gb2312.1980-*") ((mule-fonts) . "-*-fixed-m=
edium-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-m=
edium-r-*--*-tis620.2529-1"))))
  (add-spec-list-to-specifier (face-property 'info-node 'underline) '((gl=
obal ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'info-node 'highlight) '((gl=
obal ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'speedbar-directory-face 'fo=
reground) '((global (nil . "blue4"))))
  (add-spec-list-to-specifier (face-property 'speedbar-directory-face 'un=
derline) '((global (nil))))
  (add-spec-list-to-specifier (face-property 'speedbar-selected-face 'for=
eground) '((global (nil . "red"))))
  (add-spec-list-to-specifier (face-property 'speedbar-selected-face 'und=
erline) '((global (nil . t))))
  (add-spec-list-to-specifier (face-property 'font-lock-function-name-fac=
e 'foreground) '((global (nil . "cyan") ((color) . "blue3") ((color) . "b=
lue"))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable 'foregrou=
nd) '((global ((color x) . "firebrick") (nil . [#s(face name modeline)]))=
))
  (add-spec-list-to-specifier (face-property 'modeline-mousable 'backgrou=
nd) '((global (nil . [#s(face name modeline)]))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable 'font) '(=
(global (nil . "-*-Clean-Medium-R-*-*-*-120-*-*-*-*-*-*") ((grayscale x) =
=2E [bold]) ((mono x) . [bold]))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable 'backgrou=
nd-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 'underlin=
e) '((global (nil . [#s(face name modeline)]))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable 'striketh=
ru) '((global (nil . [#s(face name modeline)]))))
  (add-spec-list-to-specifier (face-property 'modeline-mousable 'highligh=
t) '((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 'fo=
nt) '((global (nil . "-*-Clean-Medium-i-*-*-*-120-*-*-*-*-*-*"))))
  (add-spec-list-to-specifier (face-property 'html-helper-italic-face 'un=
derline) '((global ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'custom-modified-face 'foreg=
round) '((global (nil . "white"))))
  (add-spec-list-to-specifier (face-property 'custom-modified-face 'backg=
round) '((global (nil . "blue"))))
  (add-spec-list-to-specifier (face-property 'speedbar-highlight-face 'ba=
ckground) '((global (nil . "green"))))
  (add-spec-list-to-specifier (face-property 'speedbar-highlight-face 'un=
derline) '((global (nil))))
  (add-spec-list-to-specifier (face-property 'isearch 'foreground) '((glo=
bal (nil . "purple4"))))
  (add-spec-list-to-specifier (face-property 'isearch 'background) '((glo=
bal (nil . "#cdb2fc") ((color) . "paleturquoise") ((color) . "green"))))
  (add-spec-list-to-specifier (face-property 'isearch 'font) '((global (n=
il . "-*-Clean-medium-r-*-*-*-120-*-*-*-*-*-*") ((mule-fonts) . "-*-fixed=
-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso=
8859-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) . "-*-fix=
ed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8=
859-9") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-60-j=
isx0201.1976-0") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-=
75-c-120-jisx0208.1983-0") ((mule-fonts) . "-wadalab-gothic-medium-r-norm=
al--14-120-75-75-c-120-jisx0212.1990-0") ((mule-fonts) . "-*-fixed-medium=
-r-*--*-jisx0201.1976-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx020=
8.1983-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0212*-*") ((mule-f=
onts) . "-*-*-medium-r-*--*-gb2312.1980-*") ((mule-fonts) . "-*-fixed-med=
ium-r-*--*-cns11643*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-big5*-*"=
) ((mule-fonts) . "-*-fixed-medium-r-*--*-sisheng_cwnn-0") ((mule-fonts) =
=2E "-*-mincho-medium-r-*--*-ksc5601.1987-*") ((mule-fonts) . "-*-fixed-m=
edium-r-*--*-tis620.2529-1"))))
  (add-spec-list-to-specifier (face-property 'isearch 'highlight) '((glob=
al ((tty)))))
  (add-spec-list-to-specifier (face-property 'isearch 'reverse) '((global=
 ((tty) . t))))
  (add-spec-list-to-specifier (face-property 'default 'foreground) '((glo=
bal (nil . "green") ((x) . "#000000"))))
  (add-spec-list-to-specifier (face-property 'default 'background) '((glo=
bal (nil . "black") ((x) . "#ffffff"))))
  (add-spec-list-to-specifier (face-property 'default 'font) '((global (n=
il . "-*-Clean-medium-r-*-*-*-120-*-*-*-*-*-*") ((mule-fonts) . "-*-fixed=
-medium-r-*--16-*-iso8859-1") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso=
8859-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) . "-*-fix=
ed-medium-r-*--*-iso8859-5") ((mule-fonts) . "-*-fixed-medium-r-*--*-iso8=
859-9") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-75-c-60-j=
isx0201.1976-0") ((mule-fonts) . "-sun-gothic-medium-r-normal--14-120-75-=
75-c-120-jisx0208.1983-0") ((mule-fonts) . "-wadalab-gothic-medium-r-norm=
al--14-120-75-75-c-120-jisx0212.1990-0") ((mule-fonts) . "-*-fixed-medium=
-r-*--*-jisx0201.1976-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx020=
8.1983-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-jisx0212*-*") ((mule-f=
onts) . "-*-*-medium-r-*--*-gb2312.1980-*") ((mule-fonts) . "-*-fixed-med=
ium-r-*--*-cns11643*-*") ((mule-fonts) . "-*-fixed-medium-r-*--*-big5*-*"=
) ((mule-fonts) . "-*-fixed-medium-r-*--*-sisheng_cwnn-0") ((mule-fonts) =
=2E "-*-mincho-medium-r-*--*-ksc5601.1987-*") ((mule-fonts) . "-*-fixed-m=
edium-r-*--*-tis620.2529-1"))))
  (add-spec-list-to-specifier (face-property 'default 'underline) '((glob=
al ((tty)))))
  (add-spec-list-to-specifier (face-property 'default 'highlight) '((glob=
al ((tty)))))
  (add-spec-list-to-specifier (face-property 'green 'foreground) '((globa=
l ((color) . "green"))))
  (add-spec-list-to-specifier (face-property 'custom-face-tag-face 'under=
line) '((global (nil . t))))
  (if (featurep 'mule) (set-language-environment '"English"))

--------------060300040704090604000504--