From: Adrian Hoe <mailbox@*nospam*adrianhoe.com>
Subject: Re: Ada Mode for Emacs
Date: Tue, 11 Jun 2002 21:10:46 +0800
Date: 2002-06-11T21:10:46+08:00 [thread overview]
Message-ID: <3d05f5ac_1@news.tm.net.my> (raw)
In-Reply-To: 3d05e4b6.14523053@news.demon.co.uk
[-- Attachment #1: Type: text/plain, Size: 1004 bytes --]
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
[-- Attachment #2: .emacs --]
[-- Type: text/plain, Size: 4576 bytes --]
;; 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)
))
[-- Attachment #3: .xemacs-options --]
[-- Type: text/plain, Size: 31035 bytes --]
;; -*- 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"))
next prev parent reply other threads:[~2002-06-11 13:10 UTC|newest]
Thread overview: 32+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-06-09 0:26 Ada Mode for Emacs chris.danx
2002-06-09 2:34 ` Jeremy
2002-06-09 5:19 ` David Marceau
2002-06-09 7:08 ` [OT] " Pascal Obry
2002-06-09 10:35 ` Preben Randhol
2002-06-09 10:46 ` Pascal Obry
2002-06-09 16:35 ` Darren New
2002-06-09 23:54 ` Preben Randhol
2002-06-11 9:12 ` Frode Tenneboe
2002-06-11 11:54 ` John McCabe
2002-06-11 13:10 ` Adrian Hoe [this message]
2002-06-11 15:12 ` John McCabe
2002-06-11 18:25 ` Stephen Leake
2002-06-09 13:05 ` chris.danx
2002-06-09 17:13 ` Chad R. Meiners
2002-06-10 11:07 ` Adrian Hoe
2002-06-09 17:57 ` Simon Wright
2002-06-10 9:59 ` Emmanuel Briot
2002-06-10 11:09 ` Adrian Hoe
2002-06-09 11:08 ` Simon Wright
2002-06-09 11:43 ` Preben Randhol
2002-06-09 14:14 ` Pascal Obry
2002-06-09 22:42 ` Stephen Leake
2002-06-10 1:27 ` chris.danx
2002-06-10 12:52 ` Stephen Leake
2002-06-11 6:08 ` Adrian Hoe
2002-06-11 12:11 ` chris.danx
2002-06-11 13:17 ` Adrian Hoe
2002-06-11 14:06 ` chris.danx
2002-06-10 12:00 ` chris.danx
2002-06-10 15:02 ` Georg Bauhaus
-- strict thread matches above, loose matches on Subject: below --
1993-09-08 22:19 Ada mode for emacs munck
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox