diff --git a/.emacs.d/ac-comphist.dat b/.emacs.d/ac-comphist.dat
new file mode 100644
index 0000000..3657771
--- /dev/null
+++ b/.emacs.d/ac-comphist.dat
@@ -0,0 +1,56 @@
+((("color-theme-barak" .
+   [3 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0])
+  ("else" .
+   [1 0 0 0])
+  ("if" .
+   [1 0])
+  (":bold" .
+   [1 0 0 0 0])
+  ("set-default" .
+   [0 0 0 1 0 0 0 0 0 0 0])
+  ("argc" .
+   [1 0 1 0])
+  ("int" .
+   [2 0 0])
+  ("return" .
+   [0 0 0 1 0 0])
+  ("require" .
+   [3 0 0 1 0 0 2])
+  ("auto" .
+   [1 0 0 0])
+  ("ac-expand" .
+   [1 0 0 0 0 0 0 0 1])
+  ("rest" .
+   [0 0 0 3])
+  ("first" .
+   [0 0 0 0 2])
+  ("ac-complete" .
+   [1 0 0 0 0 0 1 0 0 0 0])
+  ("ac-completing-map" .
+   [0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0])
+  ("setq" .
+   [2 0 0 1])
+  ("autoload" .
+   [0 0 0 1 0 0 0 0])
+  ("ac-auto-start" .
+   [0 0 0 0 0 0 0 0 0 0 0 0 1])
+  ("nil" .
+   [2 0 0])
+  ("defun" .
+   [0 0 0 1 0])
+  ("ac-dwim" .
+   [0 0 0 0 0 0 1])
+  ("t" .
+   [1])
+  ("set-buffer" .
+   [0 0 0 1 0 0 0 0 0 0])
+  ("ac-expand-on-auto-complete" .
+   [0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0])
+  ("setcdr" .
+   [0 0 0 1 0 0])
+  ("color-theme-blackboard" .
+   [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1])
+  ("color-theme-tangotango" .
+   [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0])
+  ("color-theme-tty-dark" .
+   [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0])))
diff --git a/.emacs.d/auto-complete/Makefile b/.emacs.d/auto-complete/Makefile
new file mode 100644
index 0000000..1d6f435
--- /dev/null
+++ b/.emacs.d/auto-complete/Makefile
@@ -0,0 +1,24 @@
+VERSION=`perl -ne 'print $$1 if /;; Version: (.*)/' auto-complete.el`
+PACKAGE=auto-complete-${VERSION}
+
+byte-compile:
+	emacs -Q -L . -batch -f batch-byte-compile *.el
+
+install:
+	emacs -Q -L . -batch -l etc/install ${DIR}
+
+clean:
+	rm -f *.elc
+	rm -f doc/*.html
+	rm -rf ${PACKAGE}
+	rm -f ${PACKAGE}.zip ${PACKAGE}.tar.bz2
+
+package: clean
+	mkdir ${PACKAGE}
+	cp -r *.el Makefile README.txt TODO.txt doc etc dict ${PACKAGE}
+
+tar.bz2: package
+	tar cjf ${PACKAGE}.tar.bz2 ${PACKAGE}
+
+zip: package
+	zip -r ${PACKAGE}.zip ${PACKAGE}
diff --git a/.emacs.d/auto-complete/README.txt b/.emacs.d/auto-complete/README.txt
new file mode 100644
index 0000000..c6ff110
--- /dev/null
+++ b/.emacs.d/auto-complete/README.txt
@@ -0,0 +1,13 @@
+Auto Complete Mode
+==================
+
+Documentation
+-------------
+
+* http://cx4a.org/software/auto-complete/
+* doc/index.txt
+
+License
+-------
+
+Auto Complete Mode is distributed under the term of GPLv3. And its documentations under doc directory is distributed under the term of GFDL.
diff --git a/.emacs.d/auto-complete/TODO.txt b/.emacs.d/auto-complete/TODO.txt
new file mode 100644
index 0000000..e897866
--- /dev/null
+++ b/.emacs.d/auto-complete/TODO.txt
@@ -0,0 +1,10 @@
+- etags, ctags
+- emacswiki
+- test facility
+- support composed chars
+- minibuffer completion
+- performance issue (cache issue)
+- asynchronous processing
+- kanji henkan support
+- create menu if needed
+- quick help positioning on tabs (bug)
diff --git a/.emacs.d/auto-complete/auto-complete-config.el b/.emacs.d/auto-complete/auto-complete-config.el
new file mode 100644
index 0000000..26ec044
--- /dev/null
+++ b/.emacs.d/auto-complete/auto-complete-config.el
@@ -0,0 +1,480 @@
+;;; auto-complete-config.el --- auto-complete additional configuations
+
+;; Copyright (C) 2009, 2010  Tomohiro Matsuyama
+
+;; Author: Tomohiro Matsuyama <m2ym.pub@gmail.com>
+;; Keywords: convenience
+;; Version: 1.3
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; 
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'auto-complete)
+
+
+
+;;;; Additional sources
+
+;; imenu
+
+(defvar ac-imenu-index nil)
+
+(ac-clear-variable-every-10-minutes 'ac-imenu-index)
+
+(defun ac-imenu-candidates ()
+  (loop with i = 0
+        with stack = (progn
+                       (unless (local-variable-p 'ac-imenu-index)
+                         (make-local-variable 'ac-imenu-index))
+                       (or ac-imenu-index
+                           (setq ac-imenu-index
+                                 (ignore-errors
+                                   (with-no-warnings
+                                     (imenu--make-index-alist))))))
+        with result
+        while (and stack (or (not (integerp ac-limit))
+                             (< i ac-limit)))
+        for node = (pop stack)
+        if (consp node)
+        do
+        (let ((car (car node))
+              (cdr (cdr node)))
+          (if (consp cdr)
+              (mapc (lambda (child)
+                      (push child stack))
+                    cdr)
+            (when (and (stringp car)
+                       (string-match (concat "^" (regexp-quote ac-prefix)) car))
+              ;; Remove extra characters
+              (if (string-match "^.*\\(()\\|=\\|<>\\)$" car)
+                  (setq car (substring car 0 (match-beginning 1))))
+              (push car result)
+              (incf i))))
+        finally return (nreverse result)))
+
+(ac-define-source imenu
+  '((depends imenu)
+    (candidates . ac-imenu-candidates)
+    (symbol . "s")))
+
+;; gtags
+
+(defface ac-gtags-candidate-face
+  '((t (:background "lightgray" :foreground "navy")))
+  "Face for gtags candidate"
+  :group 'auto-complete)
+
+(defface ac-gtags-selection-face
+  '((t (:background "navy" :foreground "white")))
+  "Face for the gtags selected candidate."
+  :group 'auto-complete)
+
+(defun ac-gtags-candidate ()
+  (ignore-errors
+    (split-string (shell-command-to-string (format "global -ci %s" ac-prefix)) "\n")))
+
+(ac-define-source gtags
+  '((candidates . ac-gtags-candidate)
+    (candidate-face . ac-gtags-candidate-face)
+    (selection-face . ac-gtags-selection-face)
+    (requires . 3)
+    (symbol . "s")))
+
+;; yasnippet
+
+(defface ac-yasnippet-candidate-face
+  '((t (:background "sandybrown" :foreground "black")))
+  "Face for yasnippet candidate."
+  :group 'auto-complete)
+
+(defface ac-yasnippet-selection-face
+  '((t (:background "coral3" :foreground "white")))
+  "Face for the yasnippet selected candidate."
+  :group 'auto-complete)
+
+(defun ac-yasnippet-table-hash (table)
+  (cond
+   ((fboundp 'yas/snippet-table-hash)
+    (yas/snippet-table-hash table))
+   ((fboundp 'yas/table-hash)
+    (yas/table-hash table))))
+
+(defun ac-yasnippet-table-parent (table)
+  (cond
+   ((fboundp 'yas/snippet-table-parent)
+    (yas/snippet-table-parent table))
+   ((fboundp 'yas/table-parent)
+    (yas/table-parent table))))
+
+(defun ac-yasnippet-candidate-1 (table)
+  (with-no-warnings
+    (let ((hashtab (ac-yasnippet-table-hash table))
+          (parent (ac-yasnippet-table-parent table))
+          candidates)
+      (maphash (lambda (key value)
+                 (push key candidates))
+               hashtab)
+      (setq candidates (all-completions ac-prefix (nreverse candidates)))
+      (if parent
+          (setq candidates
+                (append candidates (ac-yasnippet-candidate-1 parent))))
+      candidates)))
+
+(defun ac-yasnippet-candidates ()
+  (with-no-warnings
+    (if (fboundp 'yas/get-snippet-tables)
+        ;; >0.6.0
+        (apply 'append (mapcar 'ac-yasnippet-candidate-1 (yas/get-snippet-tables major-mode)))
+      (let ((table
+             (if (fboundp 'yas/snippet-table)
+                 ;; <0.6.0
+                 (yas/snippet-table major-mode)
+               ;; 0.6.0
+               (yas/current-snippet-table))))
+        (if table
+            (ac-yasnippet-candidate-1 table))))))
+
+(ac-define-source yasnippet
+  '((depends yasnippet)
+    (candidates . ac-yasnippet-candidates)
+    (action . yas/expand)
+    (candidate-face . ac-yasnippet-candidate-face)
+    (selection-face . ac-yasnippet-selection-face)
+    (symbol . "a")))
+
+;; semantic
+
+(defun ac-semantic-candidates (prefix)
+  (with-no-warnings
+    (delete ""            ; semantic sometimes returns an empty string
+            (mapcar 'semantic-tag-name
+                    (ignore-errors
+                      (or (semantic-analyze-possible-completions
+                           (semantic-analyze-current-context))
+                          (senator-find-tag-for-completion prefix)))))))
+
+(ac-define-source semantic
+  '((available . (or (require 'semantic-ia nil t)
+                     (require 'semantic/ia nil t)))
+    (candidates . (ac-semantic-candidates ac-prefix))
+    (prefix . c-dot-ref)
+    (requires . 0)
+    (symbol . "m")))
+
+(ac-define-source semantic-raw
+  '((available . (or (require 'semantic-ia nil t)
+                     (require 'semantic/ia nil t)))
+    (candidates . (ac-semantic-candidates ac-prefix))
+    (symbol . "s")))
+
+;; eclim
+
+(defun ac-eclim-candidates ()
+  (with-no-warnings
+    (loop for c in (eclim/java-complete)
+          collect (nth 1 c))))
+
+(ac-define-source eclim
+  '((candidates . ac-eclim-candidates)
+    (prefix . c-dot)
+    (requires . 0)
+    (symbol . "f")))
+
+;; css
+
+;; Copied from company-css.el
+(defconst ac-css-property-alist
+  ;; see http://www.w3.org/TR/CSS21/propidx.html
+  '(("azimuth" angle "left-side" "far-left" "left" "center-left" "center"
+     "center-right" "right" "far-right" "right-side" "behind" "leftwards"
+     "rightwards")
+    ("background" background-color background-image background-repeat
+     background-attachment background-position)
+    ("background-attachment" "scroll" "fixed")
+    ("background-color" color "transparent")
+    ("background-image" uri "none")
+    ("background-position" percentage length "left" "center" "right" percentage
+     length "top" "center" "bottom" "left" "center" "right" "top" "center"
+     "bottom")
+    ("background-repeat" "repeat" "repeat-x" "repeat-y" "no-repeat")
+    ("border" border-width border-style border-color)
+    ("border-bottom" border)
+    ("border-bottom-color" border-color)
+    ("border-bottom-style" border-style)
+    ("border-bottom-width" border-width)
+    ("border-collapse" "collapse" "separate")
+    ("border-color" color "transparent")
+    ("border-left" border)
+    ("border-left-color" border-color)
+    ("border-left-style" border-style)
+    ("border-left-width" border-width)
+    ("border-right" border)
+    ("border-right-color" border-color)
+    ("border-right-style" border-style)
+    ("border-right-width" border-width)
+    ("border-spacing" length length)
+    ("border-style" border-style)
+    ("border-top" border)
+    ("border-top-color" border-color)
+    ("border-top-style" border-style)
+    ("border-top-width" border-width)
+    ("border-width" border-width)
+    ("bottom" length percentage "auto")
+    ("caption-side" "top" "bottom")
+    ("clear" "none" "left" "right" "both")
+    ("clip" shape "auto")
+    ("color" color)
+    ("content" "normal" "none" string uri counter "attr()" "open-quote"
+     "close-quote" "no-open-quote" "no-close-quote")
+    ("counter-increment" identifier integer "none")
+    ("counter-reset" identifier integer "none")
+    ("cue" cue-before cue-after)
+    ("cue-after" uri "none")
+    ("cue-before" uri "none")
+    ("cursor" uri "*" "auto" "crosshair" "default" "pointer" "move" "e-resize"
+     "ne-resize" "nw-resize" "n-resize" "se-resize" "sw-resize" "s-resize"
+     "w-resize" "text" "wait" "help" "progress")
+    ("direction" "ltr" "rtl")
+    ("display" "inline" "block" "list-item" "run-in" "inline-block" "table"
+     "inline-table" "table-row-group" "table-header-group" "table-footer-group"
+     "table-row" "table-column-group" "table-column" "table-cell"
+     "table-caption" "none")
+    ("elevation" angle "below" "level" "above" "higher" "lower")
+    ("empty-cells" "show" "hide")
+    ("float" "left" "right" "none")
+    ("font" font-style font-variant font-weight font-size "/" line-height
+     font-family "caption" "icon" "menu" "message-box" "small-caption"
+     "status-bar")
+    ("font-family" family-name generic-family)
+    ("font-size" absolute-size relative-size length percentage)
+    ("font-style" "normal" "italic" "oblique")
+    ("font-variant" "normal" "small-caps")
+    ("font-weight" "normal" "bold" "bolder" "lighter" "100" "200" "300" "400"
+     "500" "600" "700" "800" "900")
+    ("height" length percentage "auto")
+    ("left" length percentage "auto")
+    ("letter-spacing" "normal" length)
+    ("line-height" "normal" number length percentage)
+    ("list-style" list-style-type list-style-position list-style-image)
+    ("list-style-image" uri "none")
+    ("list-style-position" "inside" "outside")
+    ("list-style-type" "disc" "circle" "square" "decimal" "decimal-leading-zero"
+     "lower-roman" "upper-roman" "lower-greek" "lower-latin" "upper-latin"
+     "armenian" "georgian" "lower-alpha" "upper-alpha" "none")
+    ("margin" margin-width)
+    ("margin-bottom" margin-width)
+    ("margin-left" margin-width)
+    ("margin-right" margin-width)
+    ("margin-top" margin-width)
+    ("max-height" length percentage "none")
+    ("max-width" length percentage "none")
+    ("min-height" length percentage)
+    ("min-width" length percentage)
+    ("orphans" integer)
+    ("outline" outline-color outline-style outline-width)
+    ("outline-color" color "invert")
+    ("outline-style" border-style)
+    ("outline-width" border-width)
+    ("overflow" "visible" "hidden" "scroll" "auto")
+    ("padding" padding-width)
+    ("padding-bottom" padding-width)
+    ("padding-left" padding-width)
+    ("padding-right" padding-width)
+    ("padding-top" padding-width)
+    ("page-break-after" "auto" "always" "avoid" "left" "right")
+    ("page-break-before" "auto" "always" "avoid" "left" "right")
+    ("page-break-inside" "avoid" "auto")
+    ("pause" time percentage)
+    ("pause-after" time percentage)
+    ("pause-before" time percentage)
+    ("pitch" frequency "x-low" "low" "medium" "high" "x-high")
+    ("pitch-range" number)
+    ("play-during" uri "mix" "repeat" "auto" "none")
+    ("position" "static" "relative" "absolute" "fixed")
+    ("quotes" string string "none")
+    ("richness" number)
+    ("right" length percentage "auto")
+    ("speak" "normal" "none" "spell-out")
+    ("speak-header" "once" "always")
+    ("speak-numeral" "digits" "continuous")
+    ("speak-punctuation" "code" "none")
+    ("speech-rate" number "x-slow" "slow" "medium" "fast" "x-fast" "faster"
+     "slower")
+    ("stress" number)
+    ("table-layout" "auto" "fixed")
+    ("text-align" "left" "right" "center" "justify")
+    ("text-decoration" "none" "underline" "overline" "line-through" "blink")
+    ("text-indent" length percentage)
+    ("text-transform" "capitalize" "uppercase" "lowercase" "none")
+    ("top" length percentage "auto")
+    ("unicode-bidi" "normal" "embed" "bidi-override")
+    ("vertical-align" "baseline" "sub" "super" "top" "text-top" "middle"
+     "bottom" "text-bottom" percentage length)
+    ("visibility" "visible" "hidden" "collapse")
+    ("voice-family" specific-voice generic-voice "*" specific-voice
+     generic-voice)
+    ("volume" number percentage "silent" "x-soft" "soft" "medium" "loud"
+     "x-loud")
+    ("white-space" "normal" "pre" "nowrap" "pre-wrap" "pre-line")
+    ("widows" integer)
+    ("width" length percentage "auto")
+    ("word-spacing" "normal" length)
+    ("z-index" "auto" integer))
+  "A list of CSS properties and their possible values.")
+
+(defconst ac-css-value-classes
+  '((absolute-size "xx-small" "x-small" "small" "medium" "large" "x-large"
+                   "xx-large")
+    (border-style "none" "hidden" "dotted" "dashed" "solid" "double" "groove"
+                  "ridge" "inset" "outset")
+    (color "aqua" "black" "blue" "fuchsia" "gray" "green" "lime" "maroon" "navy"
+           "olive" "orange" "purple" "red" "silver" "teal" "white" "yellow"
+           "rgb")
+    (counter "counter")
+    (family-name "Courier" "Helvetica" "Times")
+    (generic-family "serif" "sans-serif" "cursive" "fantasy" "monospace")
+    (generic-voice "male" "female" "child")
+    (margin-width "auto") ;; length percentage
+    (relative-size "larger" "smaller")
+    (shape "rect")
+    (uri "url"))
+  "A list of CSS property value classes and their contents.")
+
+(defconst ac-css-pseudo-classes
+  '("active" "after" "before" "first" "first-child" "first-letter" "first-line"
+    "focus" "hover" "lang" "left" "link" "right" "visited")
+  "Identifiers for CSS pseudo-elements and pseudo-classes.")
+
+(defvar ac-css-property nil
+  "Current editing property.")
+
+(defun ac-css-prefix ()
+  (when (save-excursion (re-search-backward "\\_<\\(.+?\\)\\_>\\s *:.*\\=" nil t))
+    (setq ac-css-property (match-string 1))
+    (or (ac-prefix-symbol) (point))))
+
+(defun ac-css-property-candidates ()
+  (or (loop with list = (assoc-default ac-css-property ac-css-property-alist)
+            with value
+            while (setq value (pop list))
+            if (symbolp value)
+            do (setq list
+                     (append list
+                             (or (assoc-default value ac-css-value-classes)
+                                 (assoc-default (symbol-name value) ac-css-property-alist))))
+            else collect value)
+      ac-css-pseudo-classes))
+
+(defvar ac-source-css-property
+  '((candidates . ac-css-property-candidates)
+    (prefix . ac-css-prefix)
+    (requires . 0)))
+
+
+
+;;;; Not maintained sources
+
+;; ropemacs
+
+(defvar ac-ropemacs-loaded nil)
+(defun ac-ropemacs-require ()
+  (with-no-warnings
+    (unless ac-ropemacs-loaded
+      (pymacs-load "ropemacs" "rope-")
+      (if (boundp 'ropemacs-enable-autoimport)
+          (setq ropemacs-enable-autoimport t))
+      (setq ac-ropemacs-loaded t))))
+
+(defun ac-ropemacs-setup ()
+  (ac-ropemacs-require)
+  ;(setq ac-sources (append (list 'ac-source-ropemacs) ac-sources))
+  (setq ac-omni-completion-sources '(("\\." ac-source-ropemacs))))
+
+(defun ac-ropemacs-initialize ()
+  (autoload 'pymacs-apply "pymacs")
+  (autoload 'pymacs-call "pymacs")
+  (autoload 'pymacs-eval "pymacs" nil t)
+  (autoload 'pymacs-exec "pymacs" nil t)
+  (autoload 'pymacs-load "pymacs" nil t)
+  (add-hook 'python-mode-hook 'ac-ropemacs-setup)
+  t)
+
+(defvar ac-ropemacs-completions-cache nil)
+(defvar ac-source-ropemacs
+  '((init
+     . (lambda ()
+         (setq ac-ropemacs-completions-cache
+               (mapcar
+                (lambda (completion)
+                  (concat ac-prefix completion))
+                (ignore-errors
+                  (rope-completions))))))
+    (candidates . ac-ropemacs-completions-cache)))
+
+;; rcodetools
+
+(defvar ac-source-rcodetools
+  '((init . (lambda ()
+              (require 'rcodetools)
+              (condition-case x
+                  (save-excursion
+                    (rct-exec-and-eval rct-complete-command-name "--completion-emacs-icicles"))
+                (error) (setq rct-method-completion-table nil))))
+    (candidates . (lambda ()
+                    (all-completions
+                     ac-prefix
+                     (mapcar
+                      (lambda (completion)
+                        (replace-regexp-in-string "\t.*$" "" (car completion)))
+                      rct-method-completion-table))))))
+
+
+
+;;;; Default settings
+
+(defun ac-common-setup ()
+  (add-to-list 'ac-sources 'ac-source-filename))
+
+(defun ac-emacs-lisp-mode-setup ()
+  (setq ac-sources (append '(ac-source-features ac-source-functions ac-source-yasnippet ac-source-variables ac-source-symbols) ac-sources)))
+
+(defun ac-cc-mode-setup ()
+  (setq ac-sources (append '(ac-source-yasnippet ac-source-gtags) ac-sources)))
+
+(defun ac-ruby-mode-setup ()
+  (make-local-variable 'ac-ignores)
+  (add-to-list 'ac-ignores "end"))
+
+(defun ac-css-mode-setup ()
+  (setq ac-sources (append '(ac-source-css-property) ac-sources)))
+
+(defun ac-config-default ()
+  (setq-default ac-sources '(ac-source-abbrev ac-source-dictionary ac-source-words-in-same-mode-buffers))
+  (add-hook 'emacs-lisp-mode-hook 'ac-emacs-lisp-mode-setup)
+  (add-hook 'c-mode-common-hook 'ac-cc-mode-setup)
+  (add-hook 'ruby-mode-hook 'ac-ruby-mode-setup)
+  (add-hook 'css-mode-hook 'ac-css-mode-setup)
+  (add-hook 'auto-complete-mode-hook 'ac-common-setup)
+  (global-auto-complete-mode t))
+
+(provide 'auto-complete-config)
+;;; auto-complete-config.el ends here
diff --git a/.emacs.d/auto-complete/auto-complete-config.elc b/.emacs.d/auto-complete/auto-complete-config.elc
new file mode 100644
index 0000000..c88168c
Binary files /dev/null and b/.emacs.d/auto-complete/auto-complete-config.elc differ
diff --git a/.emacs.d/auto-complete/auto-complete.el b/.emacs.d/auto-complete/auto-complete.el
new file mode 100644
index 0000000..2472dc7
--- /dev/null
+++ b/.emacs.d/auto-complete/auto-complete.el
@@ -0,0 +1,1897 @@
+;;; auto-complete.el --- Auto Completion for GNU Emacs
+
+;; Copyright (C) 2008, 2009, 2010  Tomohiro Matsuyama
+
+;; Author: Tomohiro Matsuyama <m2ym.pub@gmail.com>
+;; URL: http://cx4a.org/software/auto-complete
+;; Keywords: completion, convenience
+;; Version: 1.3
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; This extension provides a way to complete with popup menu like:
+;;
+;;     def-!-
+;;     +-----------------+
+;;     |defun::::::::::::|
+;;     |defvar           |
+;;     |defmacro         |
+;;     |       ...       |
+;;     +-----------------+
+;;
+;; You can complete by typing and selecting menu.
+;;
+;; Entire documents are located in doc/ directory.
+;; Take a look for information.
+;;
+;; Enjoy!
+
+;;; Code:
+
+
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'popup)
+
+;;;; Global stuff
+
+(defun ac-error (&optional var)
+  "Report an error and disable `auto-complete-mode'."
+  (ignore-errors
+    (message "auto-complete error: %s" var)
+    (auto-complete-mode -1)
+    var))
+
+
+
+;;;; Customization
+
+(defgroup auto-complete nil
+  "Auto completion."
+  :group 'completion
+  :prefix "ac-")
+
+(defcustom ac-delay 0.1
+  "Delay to completions will be available."
+  :type 'float
+  :group 'auto-complete)
+
+(defcustom ac-auto-show-menu 0.8
+  "Non-nil means completion menu will be automatically shown."
+  :type '(choice (const :tag "Yes" t)
+                 (const :tag "Never" nil)
+                 (float :tag "Timer"))
+  :group 'auto-complete)
+
+(defcustom ac-show-menu-immediately-on-auto-complete t
+  "Non-nil means menu will be showed immediately on `auto-complete'."
+  :type 'boolean
+  :group 'auto-complete)
+
+(defcustom ac-expand-on-auto-complete t
+  "Non-nil means expand whole common part on first time `auto-complete'."
+  :type 'boolean
+  :group 'auto-complete)
+
+(defcustom ac-disable-faces '(font-lock-comment-face font-lock-string-face font-lock-doc-face)
+  "Non-nil means disable automatic completion on specified faces."
+  :type '(repeat symbol)
+  :group 'auto-complete)
+
+(defcustom ac-stop-flymake-on-completing t
+  "Non-nil means disble flymake temporarily on completing."
+  :type 'boolean
+  :group 'auto-complete)
+
+(defcustom ac-use-fuzzy t
+  "Non-nil means use fuzzy matching."
+  :type 'boolean
+  :group 'auto-complete)
+
+(defcustom ac-fuzzy-cursor-color "red"
+  "Cursor color in fuzzy mode."
+  :type 'string
+  :group 'auto-complete)
+
+(defcustom ac-use-comphist t
+  "Non-nil means use intelligent completion history."
+  :type 'boolean
+  :group 'auto-complete)
+
+(defcustom ac-comphist-threshold 0.7
+  "Percentage of ignoring low scored candidates."
+  :type 'float
+  :group 'auto-complete)
+
+(defcustom ac-comphist-file
+  (expand-file-name (concat (if (boundp 'user-emacs-directory)
+                                user-emacs-directory
+                              "~/.emacs.d/")
+                            "/ac-comphist.dat"))
+  "Completion history file name."
+  :type 'string
+  :group 'auto-complete)
+
+(defcustom ac-use-quick-help t
+  "Non-nil means use quick help."
+  :type 'boolean
+  :group 'auto-complete)
+
+(defcustom ac-quick-help-delay 1.5
+  "Delay to show quick help."
+  :type 'float
+  :group 'auto-complete)
+
+(defcustom ac-menu-height 10
+  "Max height of candidate menu."
+  :type 'integer
+  :group 'auto-complete)
+(defvaralias 'ac-candidate-menu-height 'ac-menu-height)
+
+(defcustom ac-quick-help-height 20
+  "Max height of quick help."
+  :type 'integer
+  :group 'auto-complete)
+
+(defcustom ac-quick-help-prefer-x t
+  "Prefer X tooltip than overlay popup for displaying quick help."
+  :type 'boolean
+  :group 'auto-complete)
+
+(defcustom ac-candidate-limit nil
+  "Limit number of candidates. Non-integer means no limit."
+  :type 'integer
+  :group 'auto-complete)
+(defvaralias 'ac-candidate-max 'ac-candidate-limit)
+
+(defcustom ac-modes
+  '(emacs-lisp-mode
+    lisp-interaction-mode
+    c-mode cc-mode c++-mode
+    java-mode clojure-mode scala-mode
+    scheme-mode
+    ocaml-mode tuareg-mode
+    perl-mode cperl-mode python-mode ruby-mode
+    ecmascript-mode javascript-mode js-mode js2-mode php-mode css-mode
+    makefile-mode sh-mode fortran-mode f90-mode ada-mode
+    xml-mode sgml-mode)
+  "Major modes `auto-complete-mode' can run on."
+  :type '(repeat symbol)
+  :group 'auto-complete)
+
+(defcustom ac-compatible-packages-regexp
+  "^ac-"
+  "Regexp to indicate what packages can work with auto-complete."
+  :type 'string
+  :group 'auto-complete)
+
+(defcustom ac-trigger-commands
+  '(self-insert-command)
+  "Trigger commands that specify whether `auto-complete' should start or not."
+  :type '(repeat symbol)
+  :group 'auto-complete)
+
+(defcustom ac-trigger-commands-on-completing
+  '(delete-backward-char
+    backward-delete-char
+    backward-delete-char-untabify)
+  "Trigger commands that specify whether `auto-complete' should continue or not."
+  :type '(repeat symbol)
+  :group 'auto-complete)
+
+(defcustom ac-trigger-key nil
+  "Non-nil means `auto-complete' will start by typing this key.
+If you specify this TAB, for example, `auto-complete' will start by typing TAB,
+and if there is no completions, an original command will be fallbacked."
+  :type 'string
+  :group 'auto-complete
+  :set (lambda (symbol value)
+         (set-default symbol value)
+         (when (and value
+                    (fboundp 'ac-set-trigger-key))
+           (ac-set-trigger-key value))))
+
+(defcustom ac-auto-start 2
+  "Non-nil means completion will be started automatically.
+Positive integer means if a length of a word you entered is larger than the value,
+completion will be started automatically.
+If you specify `nil', never be started automatically."
+  :type '(choice (const :tag "Yes" t)
+                 (const :tag "Never" nil)
+                 (integer :tag "Require"))
+  :group 'auto-complete)
+
+(defcustom ac-ignores nil
+  "List of string to ignore completion."
+  :type '(repeat string)
+  :group 'auto-complete)
+
+(defcustom ac-ignore-case 'smart
+  "Non-nil means auto-complete ignores case.
+If this value is `smart', auto-complete ignores case only when
+a prefix doen't contain any upper case letters."
+  :type '(choice (const :tag "Yes" t)
+                 (const :tag "Smart" smart)
+                 (const :tag "No" nil))
+  :group 'auto-complete)
+
+(defcustom ac-dwim t
+  "Non-nil means `auto-complete' works based on Do What I Mean."
+  :type 'boolean
+  :group 'auto-complete)
+
+(defcustom ac-use-menu-map nil
+  "Non-nil means a special keymap `ac-menu-map' on completing menu will be used."
+  :type 'boolean
+  :group 'auto-complete)
+
+(defcustom ac-use-overriding-local-map nil
+  "Non-nil means `overriding-local-map' will be used to hack for overriding key events on auto-copletion."
+  :type 'boolean
+  :group 'auto-complete)
+
+(defface ac-completion-face
+  '((t (:foreground "darkgray" :underline t)))
+  "Face for inline completion"
+  :group 'auto-complete)
+
+(defface ac-candidate-face
+  '((t (:background "lightgray" :foreground "black")))
+  "Face for candidate."
+  :group 'auto-complete)
+
+(defface ac-selection-face
+  '((t (:background "steelblue" :foreground "white")))
+  "Face for selected candidate."
+  :group 'auto-complete)
+
+(defvar auto-complete-mode-hook nil
+  "Hook for `auto-complete-mode'.")
+
+
+
+;;;; Internal variables
+
+(defvar auto-complete-mode nil
+  "Dummy variable to suppress compiler warnings.")
+
+(defvar ac-cursor-color nil
+  "Old cursor color.")
+
+(defvar ac-inline nil
+  "Inline completion instance.")
+
+(defvar ac-menu nil
+  "Menu instance.")
+
+(defvar ac-show-menu nil
+  "Flag to show menu on timer tick.")
+
+(defvar ac-last-completion nil
+  "Cons of prefix marker and selected item of last completion.")
+
+(defvar ac-quick-help nil
+  "Quick help instance")
+
+(defvar ac-completing nil
+  "Non-nil means `auto-complete-mode' is now working on completion.")
+
+(defvar ac-buffer nil
+  "Buffer where auto-complete is started.")
+
+(defvar ac-point nil
+  "Start point of prefix.")
+
+(defvar ac-last-point nil
+  "Last point of updating pattern.")
+
+(defvar ac-prefix nil
+  "Prefix string.")
+(defvaralias 'ac-target 'ac-prefix)
+
+(defvar ac-selected-candidate nil
+  "Last selected candidate.")
+
+(defvar ac-common-part nil
+  "Common part string of meaningful candidates.
+If there is no common part, this will be nil.")
+
+(defvar ac-whole-common-part nil
+  "Common part string of whole candidates.
+If there is no common part, this will be nil.")
+
+(defvar ac-prefix-overlay nil
+  "Overlay for prefix string.")
+
+(defvar ac-timer nil
+  "Completion idle timer.")
+
+(defvar ac-show-menu-timer nil
+  "Show menu idle timer.")
+
+(defvar ac-quick-help-timer nil
+  "Quick help idle timer.")
+
+(defvar ac-triggered nil
+  "Flag to update.")
+
+(defvar ac-limit nil
+  "Limit number of candidates for each sources.")
+
+(defvar ac-candidates nil
+  "Current candidates.")
+
+(defvar ac-candidates-cache nil
+  "Candidates cache for individual sources.")
+
+(defvar ac-fuzzy-enable nil
+  "Non-nil means fuzzy matching is enabled.")
+
+(defvar ac-dwim-enable nil
+  "Non-nil means DWIM completion will be allowed.")
+
+(defvar ac-mode-map (make-sparse-keymap)
+  "Auto-complete mode map. It is also used for trigger key command. See also `ac-trigger-key'.")
+
+(defvar ac-completing-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "\t" 'ac-expand)
+    (define-key map "\r" 'ac-complete)
+    (define-key map (kbd "M-TAB") 'auto-complete)
+    (define-key map "\C-s" 'ac-isearch)
+
+    (define-key map "\M-n" 'ac-next)
+    (define-key map "\M-p" 'ac-previous)
+    (define-key map [down] 'ac-next)
+    (define-key map [up] 'ac-previous)
+
+    (define-key map [f1] 'ac-help)
+    (define-key map [M-f1] 'ac-persist-help)
+    (define-key map (kbd "C-?") 'ac-help)
+    (define-key map (kbd "C-M-?") 'ac-persist-help)
+
+    (define-key map [C-down] 'ac-quick-help-scroll-down)
+    (define-key map [C-up] 'ac-quick-help-scroll-up)
+    (define-key map "\C-\M-n" 'ac-quick-help-scroll-down)
+    (define-key map "\C-\M-p" 'ac-quick-help-scroll-up)
+
+    (dotimes (i 9)
+      (let ((symbol (intern (format "ac-complete-%d" (1+ i)))))
+        (fset symbol
+              `(lambda ()
+                 (interactive)
+                 (when (and (ac-menu-live-p) (popup-select ac-menu ,i))
+                   (ac-complete))))
+        (define-key map (read-kbd-macro (format "M-%s" (1+ i))) symbol)))
+
+    map)
+  "Keymap for completion.")
+(defvaralias 'ac-complete-mode-map 'ac-completing-map)
+
+(defvar ac-menu-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "\C-n" 'ac-next)
+    (define-key map "\C-p" 'ac-previous)
+    (set-keymap-parent map ac-completing-map)
+    map)
+  "Keymap for completion on completing menu.")
+
+(defvar ac-current-map
+  (let ((map (make-sparse-keymap)))
+    (set-keymap-parent map ac-completing-map)
+    map))
+
+(defvar ac-match-function 'all-completions
+  "Default match function.")
+
+(defvar ac-prefix-definitions
+  '((symbol . ac-prefix-symbol)
+    (file . ac-prefix-file)
+    (valid-file . ac-prefix-valid-file)
+    (c-dot . ac-prefix-c-dot)
+    (c-dot-ref . ac-prefix-c-dot-ref))
+  "Prefix definitions for common use.")
+
+(defvar ac-sources '(ac-source-words-in-same-mode-buffers)
+  "Sources for completion.")
+(make-variable-buffer-local 'ac-sources)
+
+(defvar ac-compiled-sources nil
+  "Compiled source of `ac-sources'.")
+
+(defvar ac-current-sources nil
+  "Current working sources. This is sublist of `ac-compiled-sources'.")
+
+(defvar ac-omni-completion-sources nil
+  "Do not use this anymore.")
+
+(defvar ac-current-prefix-def nil)
+
+(defvar ac-ignoring-prefix-def nil)
+
+
+
+;;;; Intelligent completion history
+
+(defvar ac-comphist nil
+  "Database of completion history.")
+
+(defsubst ac-comphist-make-tab ()
+  (make-hash-table :test 'equal))
+
+(defsubst ac-comphist-tab (db)
+  (nth 0 db))
+
+(defsubst ac-comphist-cache (db)
+  (nth 1 db))
+
+(defun ac-comphist-make (&optional tab)
+  (list (or tab (ac-comphist-make-tab)) (make-hash-table :test 'equal :weakness t)))
+
+(defun ac-comphist-get (db string &optional create)
+  (let* ((tab (ac-comphist-tab db))
+         (index (gethash string tab)))
+    (when (and create (null index))
+      (setq index (make-vector (length string) 0))
+      (puthash string index tab))
+    index))
+
+(defun ac-comphist-add (db string prefix)
+  (setq prefix (min prefix (1- (length string))))
+  (when (<= 0 prefix)
+    (setq string (substring-no-properties string))
+    (let ((stat (ac-comphist-get db string t)))
+      (incf (aref stat prefix))
+      (remhash string (ac-comphist-cache db)))))
+
+(defun ac-comphist-score (db string prefix)
+  (setq prefix (min prefix (1- (length string))))
+  (if (<= 0 prefix)
+      (let ((cache (gethash string (ac-comphist-cache db))))
+        (or (and cache (aref cache prefix))
+            (let ((stat (ac-comphist-get db string))
+                  (score 0.0))
+              (when stat
+                (loop for p from 0 below (length string)
+                      ;; sigmoid function
+                      with a = 5
+                      with d = (/ 6.0 a)
+                      for x = (- d (abs (- prefix p)))
+                      for r = (/ 1.0 (1+ (exp (* (- a) x))))
+                      do
+                      (incf score (* (aref stat p) r))))
+              ;; Weight by distance
+              (incf score (max 0.0 (- 0.3 (/ (- (length string) prefix) 100.0))))
+              (unless cache
+                (setq cache (make-vector (length string) nil))
+                (puthash string cache (ac-comphist-cache db)))
+              (aset cache prefix score)
+              score)))
+    0.0))
+
+(defun ac-comphist-sort (db collection prefix &optional threshold)
+  (let (result
+        (n 0)
+        (total 0)
+        (cur 0))
+    (setq result (mapcar (lambda (a)
+                           (when (and cur threshold)
+                             (if (>= cur (* total threshold))
+                                 (setq cur nil)
+                               (incf n)
+                               (incf cur (cdr a))))
+                           (car a))
+                         (sort (mapcar (lambda (string)
+                                         (let ((score (ac-comphist-score db string prefix)))
+                                           (incf total score)
+                                           (cons string score)))
+                                       collection)
+                               (lambda (a b) (< (cdr b) (cdr a))))))
+    (if threshold
+        (cons n result)
+      result)))
+
+(defun ac-comphist-serialize (db)
+  (let (alist)
+    (maphash (lambda (k v)
+               (push (cons k v) alist))
+             (ac-comphist-tab db))
+    (list alist)))
+
+(defun ac-comphist-deserialize (sexp)
+  (condition-case nil
+      (ac-comphist-make (let ((tab (ac-comphist-make-tab)))
+                          (mapc (lambda (cons)
+                                  (puthash (car cons) (cdr cons) tab))
+                                (nth 0 sexp))
+                          tab))
+    (error (message "Invalid comphist db.") nil)))
+
+(defun ac-comphist-init ()
+  (ac-comphist-load)
+  (add-hook 'kill-emacs-hook 'ac-comphist-save))
+
+(defun ac-comphist-load ()
+  (interactive)
+  (let ((db (if (file-exists-p ac-comphist-file)
+                (ignore-errors
+                  (with-temp-buffer
+                    (insert-file-contents ac-comphist-file)
+                    (goto-char (point-min))
+                    (ac-comphist-deserialize (read (current-buffer))))))))
+    (setq ac-comphist (or db (ac-comphist-make)))))
+
+(defun ac-comphist-save ()
+  (interactive)
+  (require 'pp)
+  (ignore-errors
+    (with-temp-buffer
+      (pp (ac-comphist-serialize ac-comphist) (current-buffer))
+      (write-region (point-min) (point-max) ac-comphist-file))))
+
+
+
+;;;; Auto completion internals
+
+(defun ac-menu-at-wrapper-line-p ()
+  "Return non-nil if current line is long and wrapped to next visual line."
+  (and (not truncate-lines)
+       (eq (line-beginning-position)
+           (save-excursion
+             (vertical-motion 1)
+             (line-beginning-position)))))
+
+(defun ac-prefix-symbol ()
+  "Default prefix definition function."
+  (require 'thingatpt)
+  (car-safe (bounds-of-thing-at-point 'symbol)))
+(defalias 'ac-prefix-default 'ac-prefix-symbol)
+
+(defun ac-prefix-file ()
+  "File prefix."
+  (let ((point (re-search-backward "[\"<>' \t\r\n]" nil t)))
+    (if point (1+ point))))
+
+(defun ac-prefix-valid-file ()
+  "Existed (or to be existed) file prefix."
+  (let* ((line-beg (line-beginning-position))
+         (end (point))
+         (start (or (let ((point (re-search-backward "[\"<>'= \t\r\n]" line-beg t)))
+                      (if point (1+ point)))
+                    line-beg))
+         (file (buffer-substring start end)))
+    (if (and file (or (string-match "^/" file)
+                      (and (setq file (and (string-match "^[^/]*/" file)
+                                           (match-string 0 file)))
+                           (file-directory-p file))))
+        start)))
+
+(defun ac-prefix-c-dot ()
+  "C-like languages dot(.) prefix."
+  (if (re-search-backward "\\.\\(\\(?:[a-zA-Z0-9][_a-zA-Z0-9]*\\)?\\)\\=" nil t)
+      (match-beginning 1)))
+
+(defun ac-prefix-c-dot-ref ()
+  "C-like languages dot(.) and reference(->) prefix."
+  (if (re-search-backward "\\(?:\\.\\|->\\)\\(\\(?:[a-zA-Z0-9][_a-zA-Z0-9]*\\)?\\)\\=" nil t)
+      (match-beginning 1)))
+
+(defun ac-define-prefix (name prefix)
+  "Define new prefix definition.
+You can not use it in source definition like (prefix . `NAME')."
+  (push (cons name prefix) ac-prefix-definitions))
+
+(defun ac-match-substring (prefix candidates)
+  (loop with regexp = (regexp-quote prefix)
+        for candidate in candidates
+        if (string-match regexp candidate)
+        collect candidate))
+
+(defsubst ac-source-entity (source)
+  (if (symbolp source)
+      (symbol-value source)
+    source))
+
+(defun ac-source-available-p (source)
+  (if (and (symbolp source)
+           (get source 'available))
+      (eq (get source 'available) t)
+    (let* ((src (ac-source-entity source))
+           (avail-pair (assq 'available src))
+           (avail-cond (cdr avail-pair))
+           (available (and (if avail-pair
+                               (cond
+                                ((symbolp avail-cond)
+                                 (funcall avail-cond))
+                                ((listp avail-cond)
+                                 (eval avail-cond)))
+                             t)
+                           (loop for feature in (assoc-default 'depends src)
+                                 unless (require feature nil t) return nil
+                                 finally return t))))
+      (if (symbolp source)
+          (put source 'available (if available t 'no)))
+      available)))
+
+(defun ac-compile-sources (sources)
+  "Compiled `SOURCES' into expanded sources style."
+  (loop for source in sources
+        if (ac-source-available-p source)
+        do
+        (setq source (ac-source-entity source))
+        (flet ((add-attribute (name value &optional append) (add-to-list 'source (cons name value) append)))
+          ;; prefix
+          (let* ((prefix (assoc 'prefix source))
+                 (real (assoc-default (cdr prefix) ac-prefix-definitions)))
+            (cond
+             (real
+              (add-attribute 'prefix real))
+             ((null prefix)
+              (add-attribute 'prefix 'ac-prefix-default))))
+          ;; match
+          (let ((match (assq 'match source)))
+            (cond
+             ((eq (cdr match) 'substring)
+              (setcdr match 'ac-match-substring)))))
+        and collect source))
+
+(defun ac-compiled-sources ()
+  (or ac-compiled-sources
+      (setq ac-compiled-sources
+            (ac-compile-sources ac-sources))))
+
+(defsubst ac-menu-live-p ()
+  (popup-live-p ac-menu))
+
+(defun ac-menu-create (point width height)
+  (setq ac-menu
+        (popup-create point width height
+                      :around t
+                      :face 'ac-candidate-face
+                      :selection-face 'ac-selection-face
+                      :symbol t
+                      :scroll-bar t
+                      :margin-left 1)))
+
+(defun ac-menu-delete ()
+  (when ac-menu
+    (popup-delete ac-menu)
+    (setq ac-menu)))
+
+(defsubst ac-inline-marker ()
+  (nth 0 ac-inline))
+
+(defsubst ac-inline-overlay ()
+  (nth 1 ac-inline))
+
+(defsubst ac-inline-live-p ()
+  (and ac-inline (ac-inline-overlay) t))
+
+(defun ac-inline-show (point string)
+  (unless ac-inline
+    (setq ac-inline (list (make-marker) nil)))
+  (save-excursion
+    (let ((overlay (ac-inline-overlay))
+          (width 0)
+          (string-width (string-width string))
+          (length 0)
+          (original-string string))
+      ;; Calculate string space to show completion
+      (goto-char point)
+      (let (c)
+        (while (and (not (eolp))
+                    (< width string-width)
+                    (setq c (char-after))
+                    (not (eq c ?\t)))   ; special case for tab
+        (incf width (char-width c))
+        (incf length)
+        (forward-char)))
+
+      ;; Show completion
+      (goto-char point)
+      (cond
+       ((= width 0)
+        (set-marker (ac-inline-marker) point)
+        (let ((buffer-undo-list t))
+          (insert " "))
+        (setq width 1
+              length 1))
+       ((<= width string-width)
+        ;; No space to show
+        ;; Do nothing
+        )
+       ((> width string-width)
+        ;; Need to fill space
+        (setq string (concat string (make-string (- width string-width) ? )))))
+      (setq string (propertize string 'face 'ac-completion-face))
+      (if overlay
+          (progn
+            (move-overlay overlay point (+ point length))
+            (overlay-put overlay 'invisible nil))
+        (setq overlay (make-overlay point (+ point length)))
+        (setf (nth 1 ac-inline)  overlay)
+        (overlay-put overlay 'priority 9999)
+        ;; Help prefix-overlay in some cases
+        (overlay-put overlay 'keymap ac-current-map))
+      (overlay-put overlay 'display (substring string 0 1))
+      ;; TODO no width but char
+      (overlay-put overlay 'after-string (substring string 1))
+      (overlay-put overlay 'string original-string))))
+
+(defun ac-inline-delete ()
+  (when (ac-inline-live-p)
+    (ac-inline-hide)
+    (delete-overlay (ac-inline-overlay))
+    (setq ac-inline nil)))
+
+(defun ac-inline-hide ()
+  (when (ac-inline-live-p)
+    (let ((overlay (ac-inline-overlay))
+          (marker (ac-inline-marker))
+          (buffer-undo-list t))
+      (when overlay
+        (when (marker-position marker)
+          (save-excursion
+            (goto-char marker)
+            (delete-char 1)
+            (set-marker marker nil)))
+        (move-overlay overlay (point-min) (point-min))
+        (overlay-put overlay 'invisible t)
+        (overlay-put overlay 'display nil)
+        (overlay-put overlay 'after-string nil)))))
+
+(defun ac-inline-update ()
+  (if (and ac-completing ac-prefix (stringp ac-common-part))
+      (let ((common-part-length (length ac-common-part))
+            (prefix-length (length ac-prefix)))
+        (if (> common-part-length prefix-length)
+            (progn
+              (ac-inline-hide)
+              (ac-inline-show (point) (substring ac-common-part prefix-length)))
+          (ac-inline-delete)))
+    (ac-inline-delete)))
+
+(defun ac-put-prefix-overlay ()
+  (unless ac-prefix-overlay
+    (let (newline)
+      ;; Insert newline to make sure that cursor always on the overlay
+      (when (and (eq ac-point (point-max))
+                 (eq ac-point (point)))
+        (popup-save-buffer-state
+          (insert "\n"))
+        (setq newline t))
+      (setq ac-prefix-overlay (make-overlay ac-point (1+ (point)) nil t t))
+      (overlay-put ac-prefix-overlay 'priority 9999)
+      (overlay-put ac-prefix-overlay 'keymap (make-sparse-keymap))
+      (overlay-put ac-prefix-overlay 'newline newline))))
+
+(defun ac-remove-prefix-overlay ()
+  (when ac-prefix-overlay
+    (when (overlay-get ac-prefix-overlay 'newline)
+      ;; Remove inserted newline
+      (popup-save-buffer-state
+        (goto-char (point-max))
+        (if (eq (char-before) ?\n)
+            (delete-char -1))))
+    (delete-overlay ac-prefix-overlay)))
+
+(defun ac-activate-completing-map ()
+  (if (and ac-show-menu ac-use-menu-map)
+      (set-keymap-parent ac-current-map ac-menu-map))
+  (when (and ac-use-overriding-local-map
+             (null overriding-terminal-local-map))
+    (setq overriding-terminal-local-map ac-current-map))
+  (when ac-prefix-overlay
+    (set-keymap-parent (overlay-get ac-prefix-overlay 'keymap) ac-current-map)))
+
+(defun ac-deactivate-completing-map ()
+  (set-keymap-parent ac-current-map ac-completing-map)
+  (when (and ac-use-overriding-local-map
+             (eq overriding-terminal-local-map ac-current-map))
+    (setq overriding-terminal-local-map nil))
+  (when ac-prefix-overlay
+    (set-keymap-parent (overlay-get ac-prefix-overlay 'keymap) nil)))
+
+(defsubst ac-selected-candidate ()
+  (if ac-menu
+      (popup-selected-item ac-menu)))
+
+(defun ac-prefix (requires ignore-list)
+  (loop with current = (point)
+        with point
+        with prefix-def
+        with sources
+        for source in (ac-compiled-sources)
+        for prefix = (assoc-default 'prefix source)
+        for req = (or (assoc-default 'requires source) requires 1)
+
+        if (null prefix-def)
+        do
+        (unless (member prefix ignore-list)
+          (save-excursion
+            (setq point (cond
+                         ((symbolp prefix)
+                          (funcall prefix))
+                         ((stringp prefix)
+                          (and (re-search-backward (concat prefix "\\=") nil t)
+                               (or (match-beginning 1) (match-beginning 0))))
+                         ((stringp (car-safe prefix))
+                          (let ((regexp (nth 0 prefix))
+                                (end (nth 1 prefix))
+                                (group (nth 2 prefix)))
+                            (and (re-search-backward (concat regexp "\\=") nil t)
+                                 (funcall (if end 'match-end 'match-beginning)
+                                          (or group 0)))))
+                         (t
+                          (eval prefix))))
+            (if (and point
+                     (integerp req)
+                     (< (- current point) req))
+                (setq point nil))
+            (if point
+                (setq prefix-def prefix))))
+        
+        if (equal prefix prefix-def) do (push source sources)
+
+        finally return
+        (and point (list prefix-def point (nreverse sources)))))
+
+(defun ac-init ()
+  "Initialize current sources to start completion."
+  (setq ac-candidates-cache nil)
+  (loop for source in ac-current-sources
+        for function = (assoc-default 'init source)
+        if function do
+        (save-excursion
+          (cond
+           ((functionp function)
+            (funcall function))
+           (t
+            (eval function))))))
+
+(defun ac-candidates-1 (source)
+  (let* ((do-cache (assq 'cache source))
+         (function (assoc-default 'candidates source))
+         (action (assoc-default 'action source))
+         (document (assoc-default 'document source))
+         (symbol (assoc-default 'symbol source))
+         (ac-limit (or (assoc-default 'limit source) ac-limit))
+         (face (or (assoc-default 'face source) (assoc-default 'candidate-face source)))
+         (selection-face (assoc-default 'selection-face source))
+         (cache (and do-cache (assq source ac-candidates-cache)))
+         (candidates (cdr cache)))
+    (unless cache
+      (setq candidates (save-excursion
+                         (cond
+                          ((functionp function)
+                           (funcall function))
+                          (t
+                           (eval function)))))
+      ;; Convert (name value) format candidates into name with text properties.
+      (setq candidates (mapcar (lambda (candidate)
+                                 (if (consp candidate)
+                                     (propertize (car candidate) 'value (cdr candidate))
+                                   candidate))
+                               candidates))
+      (when do-cache
+        (push (cons source candidates) ac-candidates-cache)))
+    (setq candidates (funcall (or (assoc-default 'match source)
+                                  ac-match-function)
+                              ac-prefix candidates))
+    ;; Remove extra items regarding to ac-limit
+    (if (and (integerp ac-limit) (> ac-limit 1) (> (length candidates) ac-limit))
+        (setcdr (nthcdr (1- ac-limit) candidates) nil))
+    ;; Put candidate properties
+    (setq candidates (mapcar (lambda (candidate)
+                               (popup-item-propertize candidate
+                                                      'action action
+                                                      'symbol symbol
+                                                      'document document
+                                                      'popup-face face
+                                                      'selection-face selection-face))
+                             candidates))
+    candidates))
+
+(defun ac-candidates ()
+  "Produce candidates for current sources."
+  (loop with completion-ignore-case = (or (eq ac-ignore-case t)
+                                          (and (eq ac-ignore-case 'smart)
+                                               (let ((case-fold-search nil)) (not (string-match "[[:upper:]]" ac-prefix)))))
+        with case-fold-search = completion-ignore-case
+        with prefix-len = (length ac-prefix)
+        for source in ac-current-sources
+        append (ac-candidates-1 source) into candidates
+        finally return
+        (progn
+          (delete-dups candidates)
+          (if (and ac-use-comphist ac-comphist)
+              (if ac-show-menu
+                  (let* ((pair (ac-comphist-sort ac-comphist candidates prefix-len ac-comphist-threshold))
+                         (n (car pair))
+                         (result (cdr pair))
+                         (cons (if (> n 0) (nthcdr (1- n) result)))
+                         (cdr (cdr cons)))
+                    (if cons (setcdr cons nil))
+                    (setq ac-common-part (try-completion ac-prefix result))
+                    (setq ac-whole-common-part (try-completion ac-prefix candidates))
+                    (if cons (setcdr cons cdr))
+                    result)
+                (setq candidates (ac-comphist-sort ac-comphist candidates prefix-len))
+                (setq ac-common-part (if candidates (popup-x-to-string (car candidates))))
+                (setq ac-whole-common-part (try-completion ac-prefix candidates))
+                candidates)
+            (setq ac-common-part (try-completion ac-prefix candidates))
+            (setq ac-whole-common-part ac-common-part)
+            candidates))))
+
+(defun ac-update-candidates (cursor scroll-top)
+  "Update candidates of menu to `ac-candidates' and redraw it."
+  (setf (popup-cursor ac-menu) cursor
+        (popup-scroll-top ac-menu) scroll-top)
+  (setq ac-dwim-enable (= (length ac-candidates) 1))
+  (if ac-candidates
+      (progn
+        (setq ac-completing t)
+        (ac-activate-completing-map))
+    (setq ac-completing nil)
+    (ac-deactivate-completing-map))
+  (ac-inline-update)
+  (popup-set-list ac-menu ac-candidates)
+  (if (and (not ac-fuzzy-enable)
+           (<= (length ac-candidates) 1))
+      (popup-hide ac-menu)
+    (if ac-show-menu
+        (popup-draw ac-menu))))
+
+(defun ac-reposition ()
+  "Force to redraw candidate menu with current `ac-candidates'."
+  (let ((cursor (popup-cursor ac-menu))
+        (scroll-top (popup-scroll-top ac-menu)))
+    (ac-menu-delete)
+    (ac-menu-create ac-point (popup-preferred-width ac-candidates) (popup-height ac-menu))
+    (ac-update-candidates cursor scroll-top)))
+
+(defun ac-cleanup ()
+  "Cleanup auto completion."
+  (if ac-cursor-color
+      (set-cursor-color ac-cursor-color))
+  (when (and ac-use-comphist ac-comphist)
+    (when (and (null ac-selected-candidate)
+               (member ac-prefix ac-candidates))
+      ;; Assume candidate is selected by just typing
+      (setq ac-selected-candidate ac-prefix)
+      (setq ac-last-point ac-point))
+    (when ac-selected-candidate
+      (ac-comphist-add ac-comphist
+                       ac-selected-candidate
+                       (if ac-last-point
+                           (- ac-last-point ac-point)
+                         (length ac-prefix)))))
+  (ac-deactivate-completing-map)
+  (ac-remove-prefix-overlay)
+  (ac-remove-quick-help)
+  (ac-inline-delete)
+  (ac-menu-delete)
+  (ac-cancel-timer)
+  (ac-cancel-show-menu-timer)
+  (ac-cancel-quick-help-timer)
+  (setq ac-cursor-color nil
+        ac-inline nil
+        ac-show-menu nil
+        ac-menu nil
+        ac-completing nil
+        ac-point nil
+        ac-last-point nil
+        ac-prefix nil
+        ac-prefix-overlay nil
+        ac-selected-candidate nil
+        ac-common-part nil
+        ac-whole-common-part nil
+        ac-triggered nil
+        ac-limit nil
+        ac-candidates nil
+        ac-candidates-cache nil
+        ac-fuzzy-enable nil
+        ac-dwim-enable nil
+        ac-compiled-sources nil
+        ac-current-sources nil
+        ac-current-prefix-def nil
+        ac-ignoring-prefix-def nil))
+
+(defsubst ac-abort ()
+  "Abort completion."
+  (ac-cleanup))
+
+(defun ac-expand-string (string &optional remove-undo-boundary)
+  "Expand `STRING' into the buffer and update `ac-prefix' to `STRING'.
+This function records deletion and insertion sequences by `undo-boundary'.
+If `remove-undo-boundary' is non-nil, this function also removes `undo-boundary'
+that have been made before in this function."
+  (when (not (equal string (buffer-substring ac-point (point))))
+    (undo-boundary)
+    ;; We can't use primitive-undo since it undoes by
+    ;; groups, divided by boundaries.
+    ;; We don't want boundary between deletion and insertion.
+    ;; So do it manually.
+    ;; Delete region silently for undo:
+    (if remove-undo-boundary
+        (progn
+          (let (buffer-undo-list)
+            (save-excursion
+              (delete-region ac-point (point))))
+          (setq buffer-undo-list
+                (nthcdr 2 buffer-undo-list)))
+      (delete-region ac-point (point)))
+    (insert string)
+    ;; Sometimes, possible when omni-completion used, (insert) added
+    ;; to buffer-undo-list strange record about position changes.
+    ;; Delete it here:
+    (when (and remove-undo-boundary
+               (integerp (cadr buffer-undo-list)))
+      (setcdr buffer-undo-list (nthcdr 2 buffer-undo-list)))
+    (undo-boundary)
+    (setq ac-selected-candidate string)
+    (setq ac-prefix string)))
+
+(defun ac-set-trigger-key (key)
+  "Set `ac-trigger-key' to `KEY'. It is recommemded to use this function instead of calling `setq'."
+  ;; Remove old mapping
+  (when ac-trigger-key
+    (define-key ac-mode-map (read-kbd-macro ac-trigger-key) nil))
+
+  ;; Make new mapping
+  (setq ac-trigger-key key)
+  (when key
+    (define-key ac-mode-map (read-kbd-macro key) 'ac-trigger-key-command)))
+
+(defun ac-set-timer ()
+  (unless ac-timer
+    (setq ac-timer (run-with-idle-timer ac-delay ac-delay 'ac-update-greedy))))
+
+(defun ac-cancel-timer ()
+  (when (timerp ac-timer)
+    (cancel-timer ac-timer)
+    (setq ac-timer nil)))
+
+(defun ac-update (&optional force)
+  (when (and auto-complete-mode
+             ac-prefix
+             (or ac-triggered
+                 force)
+             (not isearch-mode))
+    (ac-put-prefix-overlay)
+    (setq ac-candidates (ac-candidates))
+    (let ((preferred-width (popup-preferred-width ac-candidates)))
+      ;; Reposition if needed
+      (when (or (null ac-menu)
+                (>= (popup-width ac-menu) preferred-width)
+                (<= (popup-width ac-menu) (- preferred-width 10))
+                (and (> (popup-direction ac-menu) 0)
+                     (ac-menu-at-wrapper-line-p)))
+        (ac-inline-hide) ; Hide overlay to calculate correct column
+        (ac-menu-delete)
+        (ac-menu-create ac-point preferred-width ac-menu-height)))
+    (ac-update-candidates 0 0)
+    t))
+
+(defun ac-update-greedy (&optional force)
+  (let (result)
+    (while (when (and (setq result (ac-update force))
+                      (null ac-candidates))
+             (add-to-list 'ac-ignoring-prefix-def ac-current-prefix-def)
+             (ac-start :force-init t)
+             ac-current-prefix-def))
+    result))
+
+(defun ac-set-show-menu-timer ()
+  (when (and (or (integerp ac-auto-show-menu) (floatp ac-auto-show-menu))
+             (null ac-show-menu-timer))
+    (setq ac-show-menu-timer (run-with-idle-timer ac-auto-show-menu ac-auto-show-menu 'ac-show-menu))))
+
+(defun ac-cancel-show-menu-timer ()
+  (when (timerp ac-show-menu-timer)
+    (cancel-timer ac-show-menu-timer)
+    (setq ac-show-menu-timer nil)))
+
+(defun ac-show-menu ()
+  (when (not (eq ac-show-menu t))
+    (setq ac-show-menu t)
+    (ac-inline-hide)
+    (ac-remove-quick-help)
+    (ac-update t)))
+
+(defun ac-help (&optional persist)
+  (interactive "P")
+  (when ac-menu
+    (popup-menu-show-help ac-menu persist)))
+
+(defun ac-persist-help ()
+  (interactive)
+  (ac-help t))
+
+(defun ac-last-help (&optional persist)
+  (interactive "P")
+  (when ac-last-completion
+    (popup-item-show-help (cdr ac-last-completion) persist)))
+
+(defun ac-last-persist-help ()
+  (interactive)
+  (ac-last-help t))
+
+(defun ac-set-quick-help-timer ()
+  (when (and ac-use-quick-help
+             (null ac-quick-help-timer))
+    (setq ac-quick-help-timer (run-with-idle-timer ac-quick-help-delay ac-quick-help-delay 'ac-quick-help))))
+
+(defun ac-cancel-quick-help-timer ()
+  (when (timerp ac-quick-help-timer)
+    (cancel-timer ac-quick-help-timer)
+    (setq ac-quick-help-timer nil)))
+
+(defun ac-pos-tip-show-quick-help (menu &optional item &rest args)
+  (let* ((point (plist-get args :point))
+         (around nil)
+         (parent-offset (popup-offset menu))
+         (doc (popup-menu-documentation menu item)))
+    (when (stringp doc)
+      (if (popup-hidden-p menu)
+          (setq around t)
+        (setq point nil))
+      (with-no-warnings
+        (pos-tip-show doc
+                      'popup-tip-face
+                      (or point
+                          (and menu
+                               (popup-child-point menu parent-offset))
+                          (point))
+                      nil 0
+                      popup-tip-max-width
+                      nil nil
+                      (and (not around) 0))
+        (unless (plist-get args :nowait)
+          (clear-this-command-keys)
+          (unwind-protect
+              (push (read-event (plist-get args :prompt)) unread-command-events)
+            (pos-tip-hide))
+          t)))))
+
+(defun ac-quick-help (&optional force)
+  (interactive)
+  (when (and (or force (null this-command))
+             (ac-menu-live-p)
+             (null ac-quick-help))
+      (setq ac-quick-help
+            (funcall (if (and ac-quick-help-prefer-x
+                              (eq window-system 'x)
+                              (featurep 'pos-tip))
+                         'ac-pos-tip-show-quick-help
+                       'popup-menu-show-quick-help)
+                     ac-menu nil
+                     :point ac-point
+                     :height ac-quick-help-height
+                     :nowait t))))
+
+(defun ac-remove-quick-help ()
+  (when ac-quick-help
+    (popup-delete ac-quick-help)
+    (setq ac-quick-help nil)))
+
+(defun ac-last-quick-help ()
+  (interactive)
+  (when (and ac-last-completion
+             (eq (marker-buffer (car ac-last-completion))
+                 (current-buffer)))
+    (let ((doc (popup-item-documentation (cdr ac-last-completion)))
+          (point (marker-position (car ac-last-completion))))
+      (when (stringp doc)
+        (if (and ac-quick-help-prefer-x
+                 (eq window-system 'x)
+                 (featurep 'pos-tip))
+            (with-no-warnings (pos-tip-show doc nil point nil 0))
+          (popup-tip doc
+                     :point point
+                     :around t
+                     :scroll-bar t
+                     :margin t))))))
+
+(defmacro ac-define-quick-help-command (name arglist &rest body)
+  (declare (indent 2))
+  `(progn
+     (defun ,name ,arglist ,@body)
+     (put ',name 'ac-quick-help-command t)))
+
+(ac-define-quick-help-command ac-quick-help-scroll-down ()
+  (interactive)
+  (when ac-quick-help
+    (popup-scroll-down ac-quick-help)))
+
+(ac-define-quick-help-command ac-quick-help-scroll-up ()
+  (interactive)
+  (when ac-quick-help
+    (popup-scroll-up ac-quick-help)))
+
+
+
+;;;; Auto completion isearch
+
+(defun ac-isearch-callback (list)
+  (setq ac-dwim-enable (eq (length list) 1)))
+
+(defun ac-isearch ()
+  (interactive)
+  (when (ac-menu-live-p)
+    (ac-cancel-show-menu-timer)
+    (ac-cancel-quick-help-timer)
+    (ac-show-menu)
+    (popup-isearch ac-menu :callback 'ac-isearch-callback)))
+
+
+
+;;;; Auto completion commands
+
+(defun auto-complete (&optional sources)
+  "Start auto-completion at current point."
+  (interactive)
+  (let ((menu-live (ac-menu-live-p))
+        (inline-live (ac-inline-live-p)))
+    (ac-abort)
+    (let ((ac-sources (or sources ac-sources)))
+      (if (or ac-show-menu-immediately-on-auto-complete
+              inline-live)
+          (setq ac-show-menu t))
+      (ac-start))
+    (when (ac-update-greedy t)
+      ;; TODO Not to cause inline completion to be disrupted.
+      (if (ac-inline-live-p)
+          (ac-inline-hide))
+      ;; Not to expand when it is first time to complete
+      (when (and (or (and (not ac-expand-on-auto-complete)
+                          (> (length ac-candidates) 1)
+                          (not menu-live))
+                     (not (let ((ac-common-part ac-whole-common-part))
+                            (ac-expand-common))))
+                 ac-use-fuzzy
+                 (null ac-candidates))
+        (ac-fuzzy-complete)))))
+
+(defun ac-fuzzy-complete ()
+  "Start fuzzy completion at current point."
+  (interactive)
+  (when (require 'fuzzy nil)
+    (unless (ac-menu-live-p)
+      (ac-start))
+    (let ((ac-match-function 'fuzzy-all-completions))
+      (unless ac-cursor-color
+        (setq ac-cursor-color (frame-parameter (selected-frame) 'cursor-color)))
+      (if ac-fuzzy-cursor-color
+          (set-cursor-color ac-fuzzy-cursor-color))
+      (setq ac-show-menu t)
+      (setq ac-fuzzy-enable t)
+      (setq ac-triggered nil)
+      (ac-update t)))
+  t)
+
+(defun ac-next ()
+  "Select next candidate."
+  (interactive)
+  (when (ac-menu-live-p)
+    (popup-next ac-menu)
+    (setq ac-show-menu t)
+    (if (eq this-command 'ac-next)
+        (setq ac-dwim-enable t))))
+
+(defun ac-previous ()
+  "Select previous candidate."
+  (interactive)
+  (when (ac-menu-live-p)
+    (popup-previous ac-menu)
+    (setq ac-show-menu t)
+    (if (eq this-command 'ac-previous)
+        (setq ac-dwim-enable t))))
+
+(defun ac-expand ()
+  "Try expand, and if expanded twice, select next candidate."
+  (interactive)
+  (unless (ac-expand-common)
+    (let ((string (ac-selected-candidate)))
+      (when string
+        (when (equal ac-prefix string)
+          (ac-next)
+          (setq string (ac-selected-candidate)))
+        (ac-expand-string string (eq last-command this-command))
+        ;; Do reposition if menu at long line
+        (if (and (> (popup-direction ac-menu) 0)
+                 (ac-menu-at-wrapper-line-p))
+            (ac-reposition))
+        (setq ac-show-menu t)
+        string))))
+
+(defun ac-expand-common ()
+  "Try to expand meaningful common part."
+  (interactive)
+  (if (and ac-dwim ac-dwim-enable)
+      (ac-complete)
+    (when (and (ac-inline-live-p)
+               ac-common-part)
+      (ac-inline-hide) 
+      (ac-expand-string ac-common-part (eq last-command this-command))
+      (setq ac-common-part nil)
+      t)))
+
+(defun ac-complete ()
+  "Try complete."
+  (interactive)
+  (let* ((candidate (ac-selected-candidate))
+         (action (popup-item-property candidate 'action))
+         (fallback nil))
+    (when candidate
+      (unless (ac-expand-string candidate)
+        (setq fallback t))
+      ;; Remember to show help later
+      (when (and ac-point candidate)
+        (unless ac-last-completion
+          (setq ac-last-completion (cons (make-marker) nil)))
+        (set-marker (car ac-last-completion) ac-point ac-buffer)
+        (setcdr ac-last-completion candidate)))
+    (ac-abort)
+    (cond
+     (action
+      (funcall action))
+     (fallback
+      (ac-fallback-command)))
+    candidate))
+
+(defun* ac-start (&key
+                  requires
+                  force-init)
+  "Start completion."
+  (interactive)
+  (if (not auto-complete-mode)
+      (message "auto-complete-mode is not enabled")
+    (let* ((info (ac-prefix requires ac-ignoring-prefix-def))
+           (prefix-def (nth 0 info))
+           (point (nth 1 info))
+           (sources (nth 2 info))
+           prefix
+           (init (or force-init (not (eq ac-point point)))))
+      (if (or (null point)
+              (member (setq prefix (buffer-substring-no-properties point (point)))
+                      ac-ignores))
+          (prog1 nil
+            (ac-abort))
+        (unless ac-cursor-color
+          (setq ac-cursor-color (frame-parameter (selected-frame) 'cursor-color)))
+        (setq ac-show-menu (or ac-show-menu (if (eq ac-auto-show-menu t) t))
+              ac-current-sources sources
+              ac-buffer (current-buffer)
+              ac-point point
+              ac-prefix prefix
+              ac-limit ac-candidate-limit
+              ac-triggered t
+              ac-current-prefix-def prefix-def)
+        (when (or init (null ac-prefix-overlay))
+          (ac-init))
+        (ac-set-timer)
+        (ac-set-show-menu-timer)
+        (ac-set-quick-help-timer)
+        (ac-put-prefix-overlay)))))
+
+(defun ac-stop ()
+  "Stop completiong."
+  (interactive)
+  (setq ac-selected-candidate nil)
+  (ac-abort))
+
+(defun ac-trigger-key-command (&optional force)
+  (interactive "P")
+  (if (or force (ac-trigger-command-p last-command))
+      (auto-complete)
+    (ac-fallback-command 'ac-trigger-key-command)))
+
+
+
+;;;; Basic cache facility
+
+(defvar ac-clear-variables-every-minute-timer nil)
+(defvar ac-clear-variables-after-save nil)
+(defvar ac-clear-variables-every-minute nil)
+(defvar ac-minutes-counter 0)
+
+(defun ac-clear-variable-after-save (variable &optional pred)
+  (add-to-list 'ac-clear-variables-after-save (cons variable pred)))
+
+(defun ac-clear-variables-after-save ()
+  (dolist (pair ac-clear-variables-after-save)
+    (if (or (null (cdr pair))
+            (funcall (cdr pair)))
+        (set (car pair) nil))))
+
+(defun ac-clear-variable-every-minutes (variable minutes)
+  (add-to-list 'ac-clear-variables-every-minute (cons variable minutes)))
+
+(defun ac-clear-variable-every-minute (variable)
+  (ac-clear-variable-every-minutes variable 1))
+
+(defun ac-clear-variable-every-10-minutes (variable)
+  (ac-clear-variable-every-minutes variable 10))
+
+(defun ac-clear-variables-every-minute ()
+  (incf ac-minutes-counter)
+  (dolist (pair ac-clear-variables-every-minute)
+    (if (eq (% ac-minutes-counter (cdr pair)) 0)
+        (set (car pair) nil))))
+
+
+
+;;;; Auto complete mode
+
+(defun ac-cursor-on-diable-face-p (&optional point)
+  (memq (get-text-property (or point (point)) 'face) ac-disable-faces))
+
+(defun ac-trigger-command-p (command)
+  "Return non-nil if `COMMAND' is a trigger command."
+  (and (symbolp command)
+       (or (memq command ac-trigger-commands)
+           (string-match "self-insert-command" (symbol-name command))
+           (string-match "electric" (symbol-name command)))))
+
+(defun ac-fallback-command (&optional except-command)
+  (let* ((auto-complete-mode nil)
+         (keys (this-command-keys-vector))
+         (command (if keys (key-binding keys))))
+    (when (and (commandp command)
+               (not (eq command except-command)))
+      (setq this-command command)
+      (call-interactively command))))
+
+(defun ac-compatible-package-command-p (command)
+  "Return non-nil if `COMMAND' is compatible with auto-complete."
+  (and (symbolp command)
+       (string-match ac-compatible-packages-regexp (symbol-name command))))
+
+(defun ac-handle-pre-command ()
+  (condition-case var
+      (if (or (setq ac-triggered (and (not ac-fuzzy-enable) ; ignore key storkes in fuzzy mode
+                                      (or (eq this-command 'auto-complete) ; special case
+                                          (ac-trigger-command-p this-command)
+                                          (and ac-completing
+                                               (memq this-command ac-trigger-commands-on-completing)))
+                                      (not (ac-cursor-on-diable-face-p))))
+              (ac-compatible-package-command-p this-command))
+          (progn
+            (if (or (not (symbolp this-command))
+                    (not (get this-command 'ac-quick-help-command)))
+                (ac-remove-quick-help))
+            ;; Not to cause inline completion to be disrupted.
+            (ac-inline-hide))
+        (ac-abort))
+    (error (ac-error var))))
+
+(defun ac-handle-post-command ()
+  (condition-case var
+      (when (and ac-triggered
+                 (or ac-auto-start
+                     ac-completing)
+                 (not isearch-mode))
+        (setq ac-last-point (point))
+        (ac-start :requires (unless ac-completing ac-auto-start))
+        (ac-inline-update))
+    (error (ac-error var))))
+
+(defun ac-setup ()
+  (if ac-trigger-key
+      (ac-set-trigger-key ac-trigger-key))
+  (if ac-use-comphist
+      (ac-comphist-init))
+  (unless ac-clear-variables-every-minute-timer
+    (setq ac-clear-variables-every-minute-timer (run-with-timer 60 60 'ac-clear-variables-every-minute)))
+  (if ac-stop-flymake-on-completing
+      (defadvice flymake-on-timer-event (around ac-flymake-stop-advice activate)
+        (unless ac-completing
+          ad-do-it))
+    (ad-disable-advice 'flymake-on-timer-event 'around 'ac-flymake-stop-advice)))
+
+(define-minor-mode auto-complete-mode
+  "AutoComplete mode"
+  :lighter " AC"
+  :keymap ac-mode-map
+  :group 'auto-complete
+  (if auto-complete-mode
+      (progn
+        (ac-setup)
+        (add-hook 'pre-command-hook 'ac-handle-pre-command nil t)
+        (add-hook 'post-command-hook 'ac-handle-post-command nil t)
+        (add-hook 'after-save-hook 'ac-clear-variables-after-save nil t)
+        (run-hooks 'auto-complete-mode-hook))
+    (remove-hook 'pre-command-hook 'ac-handle-pre-command t)
+    (remove-hook 'post-command-hook 'ac-handle-post-command t)
+    (remove-hook 'after-save-hook 'ac-clear-variables-after-save t)
+    (ac-abort)))
+
+(defun auto-complete-mode-maybe ()
+  "What buffer `auto-complete-mode' prefers."
+  (if (and (not (minibufferp (current-buffer)))
+           (memq major-mode ac-modes))
+      (auto-complete-mode 1)))
+
+(define-global-minor-mode global-auto-complete-mode
+  auto-complete-mode auto-complete-mode-maybe
+  :group 'auto-complete)
+
+
+
+;;;; Compatibilities with other extensions
+
+(defun ac-flyspell-workaround ()
+  "Flyspell uses `sit-for' for delaying its process. Unfortunatelly,
+it stops auto completion which is trigger with `run-with-idle-timer'.
+This workaround avoid flyspell processes when auto completion is being started."
+  (interactive)
+  (defadvice flyspell-post-command-hook (around ac-flyspell-workaround activate)
+    (unless ac-triggered
+      ad-do-it)))
+
+
+
+;;;; Standard sources
+
+(defmacro ac-define-source (name source)
+  "Source definition macro. It defines a complete command also."
+  (declare (indent 1))
+  `(progn
+     (defvar ,(intern (format "ac-source-%s" name))
+       ,source)
+     (defun ,(intern (format "ac-complete-%s" name)) ()
+       (interactive)
+       (auto-complete '(,(intern (format "ac-source-%s" name)))))))
+
+;; Words in buffer source
+(defvar ac-word-index nil)
+
+(defun ac-candidate-words-in-buffer (point prefix limit)
+  (let ((i 0)
+        candidate
+        candidates
+        (regexp (concat "\\_<" (regexp-quote prefix) "\\(\\sw\\|\\s_\\)+\\_>")))
+    (save-excursion
+      ;; Search backward
+      (goto-char point)
+      (while (and (or (not (integerp limit)) (< i limit))
+                  (re-search-backward regexp nil t))
+        (setq candidate (match-string-no-properties 0))
+        (unless (member candidate candidates)
+          (push candidate candidates)
+          (incf i)))
+      ;; Search backward
+      (goto-char (+ point (length prefix)))
+      (while (and (or (not (integerp limit)) (< i limit))
+                  (re-search-forward regexp nil t))
+        (setq candidate (match-string-no-properties 0))
+        (unless (member candidate candidates)
+          (push candidate candidates)
+          (incf i)))
+      (nreverse candidates))))
+
+(defun ac-incremental-update-word-index ()
+  (unless (local-variable-p 'ac-word-index)
+    (make-local-variable 'ac-word-index))
+  (if (null ac-word-index)
+      (setq ac-word-index (cons nil nil)))
+  ;; Mark incomplete
+  (if (car ac-word-index)
+      (setcar ac-word-index nil))
+  (let ((index (cdr ac-word-index))
+        (words (ac-candidate-words-in-buffer ac-point ac-prefix (or (and (integerp ac-limit) ac-limit) 10))))
+    (dolist (word words)
+      (unless (member word index)
+        (push word index)
+        (setcdr ac-word-index index)))))
+
+(defun ac-update-word-index-1 ()
+  (unless (local-variable-p 'ac-word-index)
+    (make-local-variable 'ac-word-index))
+  (when (and (not (car ac-word-index))
+             (< (buffer-size) 1048576))
+    ;; Complete index
+    (setq ac-word-index
+          (cons t
+                (split-string (buffer-substring-no-properties (point-min) (point-max))
+                              "\\(?:^\\|\\_>\\).*?\\(?:\\_<\\|$\\)")))))
+
+(defun ac-update-word-index ()
+  (dolist (buffer (buffer-list))
+    (when (or ac-fuzzy-enable
+              (not (eq buffer (current-buffer))))
+      (with-current-buffer buffer
+        (ac-update-word-index-1)))))
+
+(defun ac-word-candidates (&optional buffer-pred)
+  (loop initially (unless ac-fuzzy-enable (ac-incremental-update-word-index))
+        for buffer in (buffer-list)
+        if (and (or (not (integerp ac-limit)) (< (length candidates) ac-limit))
+                (if buffer-pred (funcall buffer-pred buffer) t))
+        append (funcall ac-match-function
+                        ac-prefix
+                        (and (local-variable-p 'ac-word-index buffer)
+                             (cdr (buffer-local-value 'ac-word-index buffer))))
+        into candidates
+        finally return candidates))
+
+(ac-define-source words-in-buffer
+  '((candidates . ac-word-candidates)))
+
+(ac-define-source words-in-all-buffer
+  '((init . ac-update-word-index)
+    (candidates . ac-word-candidates)))
+
+(ac-define-source words-in-same-mode-buffers
+  '((init . ac-update-word-index)
+    (candidates . (ac-word-candidates
+                   (lambda (buffer)
+                     (derived-mode-p (buffer-local-value 'major-mode buffer)))))))
+
+;; Lisp symbols source
+(defvar ac-symbols-cache nil)
+(ac-clear-variable-every-10-minutes 'ac-symbols-cache)
+
+(defun ac-symbol-file (symbol type)
+  (if (fboundp 'find-lisp-object-file-name)
+      (find-lisp-object-file-name symbol type)
+    (let ((file-name (with-no-warnings
+                       (describe-simplify-lib-file-name
+                        (symbol-file symbol type)))))
+      (when (equal file-name "loaddefs.el")
+        ;; Find the real def site of the preloaded object.
+        (let ((location (condition-case nil
+                            (if (eq type 'defun)
+                                (find-function-search-for-symbol symbol nil
+                                                                 "loaddefs.el")
+                              (find-variable-noselect symbol file-name))
+                          (error nil))))
+          (when location
+            (with-current-buffer (car location)
+              (when (cdr location)
+                (goto-char (cdr location)))
+              (when (re-search-backward
+                     "^;;; Generated autoloads from \\(.*\\)" nil t)
+                (setq file-name (match-string 1)))))))
+      (if (and (null file-name)
+               (or (eq type 'defun)
+                   (integerp (get symbol 'variable-documentation))))
+          ;; It's a object not defined in Elisp but in C.
+          (if (get-buffer " *DOC*")
+              (if (eq type 'defun)
+                  (help-C-file-name (symbol-function symbol) 'subr)
+                (help-C-file-name symbol 'var))
+            'C-source)
+        file-name))))
+
+(defun ac-symbol-documentation (symbol)
+  (if (stringp symbol)
+      (setq symbol (intern-soft symbol)))
+  (ignore-errors
+    (with-temp-buffer
+      (let ((standard-output (current-buffer)))
+        (prin1 symbol)
+        (princ " is ")
+        (cond
+         ((fboundp symbol)
+          (let ((help-xref-following t))
+            (describe-function-1 symbol))
+          (buffer-string))
+         ((boundp symbol)
+          (let ((file-name  (ac-symbol-file symbol 'defvar)))
+            (princ "a variable")
+            (when file-name
+              (princ " defined in `")
+              (princ (if (eq file-name 'C-source)
+                         "C source code"
+                       (file-name-nondirectory file-name))))
+            (princ "'.\n\n")
+            (princ (or (documentation-property symbol 'variable-documentation t)
+                       "Not documented."))
+            (buffer-string)))
+         ((facep symbol)
+          (let ((file-name  (ac-symbol-file symbol 'defface)))
+            (princ "a face")
+            (when file-name
+              (princ " defined in `")
+              (princ (if (eq file-name 'C-source)
+                         "C source code"
+                       (file-name-nondirectory file-name))))
+            (princ "'.\n\n")
+            (princ (or (documentation-property symbol 'face-documentation t)
+                       "Not documented."))
+            (buffer-string)))
+         (t
+          (let ((doc (documentation-property symbol 'group-documentation t)))
+            (when doc
+              (princ "a group.\n\n")
+              (princ doc)
+              (buffer-string)))))))))
+
+(defun ac-symbol-candidates ()
+  (or ac-symbols-cache
+      (setq ac-symbols-cache
+            (loop for x being the symbols
+                  if (or (fboundp x)
+                         (boundp x)
+                         (symbol-plist x))
+                  collect (symbol-name x)))))
+
+(ac-define-source symbols
+  '((candidates . ac-symbol-candidates)
+    (document . ac-symbol-documentation)
+    (symbol . "s")
+    (cache)))
+
+;; Lisp functions source
+(defvar ac-functions-cache nil)
+(ac-clear-variable-every-10-minutes 'ac-functions-cache)
+
+(defun ac-function-candidates ()
+  (or ac-functions-cache
+      (setq ac-functions-cache
+            (loop for x being the symbols
+                  if (fboundp x)
+                  collect (symbol-name x)))))
+
+(ac-define-source functions
+  '((candidates . ac-function-candidates)
+    (document . ac-symbol-documentation)
+    (symbol . "f")
+    (prefix . "(\\(\\(?:\\sw\\|\\s_\\)+\\)")
+    (cache)))
+
+;; Lisp variables source
+(defvar ac-variables-cache nil)
+(ac-clear-variable-every-10-minutes 'ac-variables-cache)
+
+(defun ac-variable-candidates ()
+  (or ac-variables-cache
+      (setq ac-variables-cache
+            (loop for x being the symbols
+                  if (boundp x)
+                  collect (symbol-name x)))))
+
+(ac-define-source variables
+  '((candidates . ac-variable-candidates)
+    (document . ac-symbol-documentation)
+    (symbol . "v")
+    (cache)))
+
+;; Lisp features source
+(defvar ac-emacs-lisp-features nil)
+(ac-clear-variable-every-10-minutes 'ac-emacs-lisp-features)
+
+(defun ac-emacs-lisp-feature-candidates ()
+  (or ac-emacs-lisp-features
+      (if (fboundp 'find-library-suffixes)
+          (let ((suffix (concat (regexp-opt (find-library-suffixes) t) "\\'")))
+            (setq ac-emacs-lisp-features
+                  (append (mapcar 'prin1-to-string features)
+                          (loop for dir in load-path
+                                if (file-directory-p dir)
+                                append (loop for file in (directory-files dir)
+                                             if (string-match suffix file)
+                                             collect (substring file 0 (match-beginning 0))))))))))
+
+(ac-define-source features
+  '((depends find-func)
+    (candidates . ac-emacs-lisp-feature-candidates)
+    (prefix . "require +'\\(\\(?:\\sw\\|\\s_\\)*\\)")
+    (requires . 0)))
+
+(defvaralias 'ac-source-emacs-lisp-features 'ac-source-features)
+
+;; Abbrev source
+(ac-define-source abbrev
+  '((candidates . (mapcar 'popup-x-to-string (append (vconcat local-abbrev-table global-abbrev-table) nil)))
+    (action . expand-abbrev)
+    (symbol . "a")
+    (cache)))
+
+;; Files in current directory source
+(ac-define-source files-in-current-dir
+  '((candidates . (directory-files default-directory))
+    (cache)))
+
+;; Filename source
+(defvar ac-filename-cache nil)
+
+(defun ac-filename-candidate ()
+  (unless (file-regular-p ac-prefix)
+    (ignore-errors
+      (loop with dir = (file-name-directory ac-prefix)
+            with files = (or (assoc-default dir ac-filename-cache)
+                             (let ((files (directory-files dir nil "^[^.]")))
+                               (push (cons dir files) ac-filename-cache)
+                               files))
+            for file in files
+            for path = (concat dir file)
+            collect (if (file-directory-p path)
+                        (concat path "/")
+                      path)))))
+
+(ac-define-source filename
+  '((init . (setq ac-filename-cache nil))
+    (candidates . ac-filename-candidate)
+    (prefix . valid-file)
+    (requires . 0)
+    (action . ac-start)
+    (limit . nil)))
+
+;; Dictionary source
+(defcustom ac-user-dictionary nil
+  "User dictionary"
+  :type '(repeat string)
+  :group 'auto-complete)
+
+(defcustom ac-user-dictionary-files '("~/.dict")
+  "User dictionary files."
+  :type '(repeat string)
+  :group 'auto-complete)
+
+(defcustom ac-dictionary-directories nil
+  "Dictionary directories."
+  :type '(repeat string)
+  :group 'auto-complete)
+
+(defvar ac-dictionary nil)
+(defvar ac-dictionary-cache (make-hash-table :test 'equal))
+
+(defun ac-clear-dictionary-cache ()
+  (interactive)
+  (clrhash ac-dictionary-cache))
+
+(defun ac-read-file-dictionary (filename)
+  (let ((cache (gethash filename ac-dictionary-cache 'none)))
+    (if (and cache (not (eq cache 'none)))
+        cache
+      (let (result)
+        (ignore-errors
+          (with-temp-buffer
+            (insert-file-contents filename)
+            (setq result (split-string (buffer-string) "\n"))))
+        (puthash filename result ac-dictionary-cache)
+        result))))
+
+(defun ac-buffer-dictionary ()
+  (apply 'append
+         (mapcar 'ac-read-file-dictionary
+                 (mapcar (lambda (name)
+                           (loop for dir in ac-dictionary-directories
+                                 for file = (concat dir "/" name)
+                                 if (file-exists-p file)
+                                 return file))
+                         (list (symbol-name major-mode)
+                               (ignore-errors
+                                 (file-name-extension (buffer-file-name))))))))
+
+(defun ac-dictionary-candidates ()
+  (apply 'append `(,ac-user-dictionary
+                   ,(ac-buffer-dictionary)
+                   ,@(mapcar 'ac-read-file-dictionary
+                             ac-user-dictionary-files))))
+
+(ac-define-source dictionary
+  '((candidates . ac-dictionary-candidates)
+    (symbol . "d")))
+
+(provide 'auto-complete)
+;;; auto-complete.el ends here
diff --git a/.emacs.d/auto-complete/auto-complete.elc b/.emacs.d/auto-complete/auto-complete.elc
new file mode 100644
index 0000000..825e8db
Binary files /dev/null and b/.emacs.d/auto-complete/auto-complete.elc differ
diff --git a/.emacs.d/auto-complete/dict/c++-mode b/.emacs.d/auto-complete/dict/c++-mode
new file mode 100644
index 0000000..e3cd8ae
--- /dev/null
+++ b/.emacs.d/auto-complete/dict/c++-mode
@@ -0,0 +1,74 @@
+and
+and_eq
+asm
+auto
+bitand
+bitor
+bool
+break
+case
+catch
+char
+class
+compl
+const
+const_cast
+continue
+default
+delete
+do
+double
+dynamic_cast
+else
+enum
+explicit
+export
+extern
+false
+float
+for
+friend
+goto
+if
+inline
+int
+long
+mutable
+namespace
+new
+not
+not_eq
+operator
+or
+or_eq
+private
+protected
+public
+register
+reinterpret_cast
+return
+short
+signed
+sizeof
+static
+static_cast
+struct
+switch
+template
+this
+throw
+true
+try
+typedef
+typeid
+typename
+union
+unsigned
+using
+virtual
+void
+volatile
+wchar_t
+while
+xor
+xor_eq
diff --git a/.emacs.d/auto-complete/dict/c-mode b/.emacs.d/auto-complete/dict/c-mode
new file mode 100644
index 0000000..496f904
--- /dev/null
+++ b/.emacs.d/auto-complete/dict/c-mode
@@ -0,0 +1,37 @@
+auto
+_Bool
+break
+case
+char
+_Complex
+const
+continue
+default
+do
+double
+else
+enum
+extern
+float
+for
+goto
+if
+_Imaginary
+inline
+int
+long
+register
+restrict
+return
+short
+signed
+sizeof
+static
+struct
+switch
+typedef
+union
+unsigned
+void
+volatile
+while
diff --git a/.emacs.d/auto-complete/dict/clojure-mode b/.emacs.d/auto-complete/dict/clojure-mode
new file mode 100644
index 0000000..16348ed
--- /dev/null
+++ b/.emacs.d/auto-complete/dict/clojure-mode
@@ -0,0 +1,475 @@
+*agent*
+*clojure-version*
+*command-line-args*
+*compile-files*
+*compile-path*
+*err*
+*file*
+*flush-on-newline*
+*in*
+*ns*
+*out*
+*print-dup*
+*print-length*
+*print-level*
+*print-meta*
+*print-readably*
+*read-eval*
+*warn-on-reflection*
+accessor
+aclone
+add-classpath
+add-watch
+agent
+agent-error
+agent-errors
+aget
+alength
+alias
+all-ns
+alter
+alter-meta!
+alter-var-root
+amap
+ancestors
+and
+apply
+areduce
+array-map
+aset
+aset-boolean
+aset-byte
+aset-char
+aset-double
+aset-float
+aset-int
+aset-long
+aset-short
+assert
+assoc
+assoc!
+assoc-in
+associative?
+atom
+await
+await-for
+bases
+bean
+bigdec
+bigint
+binding
+bit-and
+bit-and-not
+bit-clear
+bit-flip
+bit-not
+bit-or
+bit-set
+bit-shift-left
+bit-shift-right
+bit-test
+bit-xor
+boolean
+boolean-array
+booleans
+bound-fn
+bound-fn*
+butlast
+byte
+byte-array
+bytes
+case
+cast
+char
+char-array
+char-escape-string
+char-name-string
+char?
+chars
+class
+class?
+clear-agent-errors
+clojure-version
+coll?
+comment
+commute
+comp
+comparator
+compare
+compare-and-set!
+compile
+complement
+concat
+cond
+condp
+conj
+conj!
+cons
+constantly
+construct-proxy
+contains?
+count
+counted?
+create-ns
+create-struct
+cycle
+dec
+decimal?
+declare
+definline
+defmacro
+defmethod
+defmulti
+defn
+defn-
+defonce
+defprotocol
+defstruct
+deftype
+delay
+delay?
+deliver
+deref
+derive
+descendants
+disj
+disj!
+dissoc
+dissoc!
+distinct
+distinct?
+doall
+doc
+dorun
+doseq
+dosync
+dotimes
+doto
+double
+double-array
+doubles
+drop
+drop-last
+drop-while
+dtype
+empty
+empty?
+ensure
+enumeration-seq
+error-handler
+error-mode
+eval
+even?
+every?
+extend
+extend-class
+extend-protocol
+extend-type
+extenders
+extends?
+false?
+ffirst
+file-seq
+filter
+find
+find-doc
+find-ns
+find-var
+first
+float
+float-array
+float?
+floats
+flush
+fn
+fn?
+fnext
+for
+force
+format
+future
+future-call
+future-cancel
+future-cancelled?
+future-done?
+future?
+gen-class
+gen-interface
+gensym
+get
+get-in
+get-method
+get-proxy-class
+get-thread-bindings
+get-validator
+hash
+hash-map
+hash-set
+identical?
+identity
+if-let
+if-not
+ifn?
+import
+in-ns
+inc
+init-proxy
+instance?
+int
+int-array
+integer?
+interleave
+intern
+interpose
+into
+into-array
+ints
+io!
+isa?
+iterate
+iterator-seq
+juxt
+key
+keys
+keyword
+keyword?
+last
+lazy-cat
+lazy-seq
+let
+letfn
+line-seq
+list
+list*
+list?
+load
+load-file
+load-reader
+load-string
+loaded-libs
+locking
+long
+long-array
+longs
+loop
+macroexpand
+macroexpand-1
+make-array
+make-hierarchy
+map
+map?
+mapcat
+max
+max-key
+memfn
+memoize
+merge
+merge-with
+meta
+methods
+min
+min-key
+mod
+name
+namespace
+neg?
+newline
+next
+nfirst
+nil?
+nnext
+not
+not-any?
+not-empty
+not-every?
+not=
+ns
+ns-aliases
+ns-imports
+ns-interns
+ns-map
+ns-name
+ns-publics
+ns-refers
+ns-resolve
+ns-unalias
+ns-unmap
+nth
+nthnext
+num
+number?
+object-array
+odd?
+or
+parents
+partial
+partition
+pcalls
+peek
+persistent!
+pmap
+pop
+pop!
+pop-thread-bindings
+pos?
+pr
+pr-str
+prefer-method
+prefers
+print
+print-namespace-doc
+print-str
+printf
+println
+println-str
+prn
+prn-str
+promise
+proxy
+proxy-mappings
+proxy-super
+push-thread-bindings
+pvalues
+quot
+rand
+rand-int
+range
+ratio?
+rationalize
+re-find
+re-groups
+re-matcher
+re-matches
+re-pattern
+re-seq
+read
+read-line
+read-string
+reduce
+ref
+ref-history-count
+ref-max-history
+ref-min-history
+ref-set
+refer
+refer-clojure
+reify
+release-pending-sends
+rem
+remove
+remove-method
+remove-ns
+remove-watch
+repeat
+repeatedly
+replace
+replicate
+require
+reset!
+reset-meta!
+resolve
+rest
+restart-agent
+resultset-seq
+reverse
+reversible?
+rseq
+rsubseq
+satisfies?
+second
+select-keys
+send
+send-off
+seq
+seq?
+seque
+sequence
+sequential?
+set
+set-error-handler!
+set-error-mode!
+set-validator!
+set?
+short
+short-array
+shorts
+shutdown-agents
+slurp
+some
+sort
+sort-by
+sorted-map
+sorted-map-by
+sorted-set
+sorted-set-by
+sorted?
+special-form-anchor
+special-symbol?
+split-at
+split-with
+str
+stream?
+string?
+struct
+struct-map
+subs
+subseq
+subvec
+supers
+swap!
+symbol
+symbol?
+sync
+syntax-symbol-anchor
+take
+take-last
+take-nth
+take-while
+test
+the-ns
+time
+to-array
+to-array-2d
+trampoline
+transient
+tree-seq
+true?
+type
+unchecked-add
+unchecked-dec
+unchecked-divide
+unchecked-inc
+unchecked-multiply
+unchecked-negate
+unchecked-remainder
+unchecked-subtract
+underive
+update-in
+update-proxy
+use
+val
+vals
+var-get
+var-set
+var?
+vary-meta
+vec
+vector
+vector-of
+vector?
+when
+when-first
+when-let
+when-not
+while
+with-bindings
+with-bindings*
+with-in-str
+with-local-vars
+with-meta
+with-open
+with-out-str
+with-precision
+xml-seq
+zero?
+zipmap
\ No newline at end of file
diff --git a/.emacs.d/auto-complete/dict/css-mode b/.emacs.d/auto-complete/dict/css-mode
new file mode 100644
index 0000000..4ec8f7d
--- /dev/null
+++ b/.emacs.d/auto-complete/dict/css-mode
@@ -0,0 +1,747 @@
+!important
+ActiveBorder
+ActiveCaption
+Alpha
+AppWorkspace
+Background
+Barn
+BasicImage
+Blinds
+Blur
+ButtonFace
+ButtonHighlight
+ButtonShadow
+ButtonText
+CaptionText
+CheckerBoard
+Chroma
+Compositor
+CradientWipe
+DXImageTransform
+DropShadow
+Emboss
+Engrave
+Fade
+FlipH
+FlipV
+Glow
+Gray
+GrayText
+Highlight
+HighlightText
+Hz
+ICMFilter
+InactiveBorder
+InactiveCaption
+InactiveCaptionText
+InfoBackground
+InfoText
+Inset
+Invert
+Iris
+Light
+MaskFilter
+Matrix
+Menu
+MenuText
+Microsoft
+MotionBlur
+Pixelate
+RadialWipe
+RandomBars
+RandomDissolve
+RevealTrans
+Scrollbar
+Shadow
+Slide
+Spiral
+Stretch
+Strips
+ThreeDDarkShadow
+ThreeDFace
+ThreeDHighlight
+ThreeDLightShadow
+ThreeDShadow
+Wave
+Wheel
+Window
+WindowFrame
+WindowText
+Xray
+Zigzag
+_azimuth
+_background
+_background-position-x
+_background-position-y
+_border
+_bottom
+_caption
+_clear
+_clip
+_color
+_content
+_counter
+_cue
+_cursor
+_direction
+_display
+_elevation
+_empty
+_filter
+_filter:progid:DXImageTransform.Microsoft
+_float
+_font
+_height
+_ime
+_ime-mode
+_layout
+_layout-flow
+_layout-grid
+_layout-grid-char
+_layout-grid-line
+_layout-grid-mode
+_layout-grid-type
+_left
+_letter
+_line
+_line-break
+_list
+_margin
+_orphans
+_outline
+_overflow
+_overflow-x
+_overflow-y
+_padding
+_page
+_pause
+_pitch
+_play
+_position
+_quotes
+_richness
+_right
+_ruby
+_ruby-align
+_ruby-overhang
+_ruby-position
+_scrollbar
+_scrollbar-3dlight-color
+_scrollbar-arrow-color
+_scrollbar-base-color
+_scrollbar-darkshadow-color
+_scrollbar-face-color
+_scrollbar-highlight-color
+_scrollbar-track-color
+_speak
+_speech
+_stress
+_table
+_text
+_text-align-last
+_text-autospace
+_text-justify
+_text-kashida-space
+_text-overflow
+_text-underline-position
+_top
+_unicode
+_vertical
+_visibility
+_voice
+_volume
+_white
+_widows
+_width
+_word
+_word-break
+_word-wrap
+_writing
+_writing-mode
+_z
+_zoom
+above
+active
+adjust
+after
+aliceblue
+align
+always
+antiquewhite
+aqua
+aquamarine
+armenian
+arrow
+attachment
+auto
+autospace
+avoid
+azimuth
+azure
+background
+background-attachment
+background-color
+background-image
+background-position
+background-repeat
+bar
+base
+baseline
+before
+behind
+beige
+below
+bidi
+bidi-override
+bisque
+black
+blanchedalmond
+blink
+block
+blue
+blueviolet
+bold
+bolder
+border
+border-bottom
+border-bottom-color
+border-bottom-style
+border-bottom-width
+border-collapse
+border-color
+border-left
+border-left-color
+border-left-style
+border-left-width
+border-right
+border-right-color
+border-right-style
+border-right-width
+border-spacing
+border-style
+border-top
+border-top-color
+border-top-style
+border-top-width
+border-width
+both
+bottom
+box
+break
+brown
+burlwood
+cadetblue
+capitalize
+caps
+caption
+caption-side
+cell
+cells
+center
+center-left
+center-right
+char
+chartreuse
+chocolate
+circle
+cjk
+cjk-ideographic
+clear
+clip
+close
+close-quote
+cm
+code
+collapse
+color
+column
+compact
+condensed
+content
+continuous
+coral
+cornflowerblue
+cornsilk
+counter
+counter-increment
+counter-reset
+crimson
+crop
+cross
+crosshair
+cue
+cue-after
+cue-before
+cursive
+cursor
+cyan
+darkblue
+darkcyan
+darkgoldenrod
+darkgray
+darkgreen
+darkkhaki
+darkmagenta
+darkolivegreen
+darkorange
+darkorchid
+darkred
+darksalmon
+darkseagreen
+darkshadow
+darkslateblue
+darkslategray
+darkturquoise
+darkviolet
+dashed
+decimal
+decimal-leading-zero
+decoration
+deeppink
+deepskyblue
+default
+deg
+digits
+dimgray
+direction
+disc
+display
+dodgerblue
+dotted
+double
+during
+e
+e-resize
+elevation
+em
+embed
+empty
+empty-cells
+ex
+expanded
+extra
+extra-condensed
+extra-expanded
+face
+family
+fantasy
+far
+far-left
+far-right
+fast
+faster
+firebrick
+first
+first-child
+first-letter
+first-line
+fixed
+float
+floralwhite
+flow
+focus
+font
+font-family
+font-size
+font-size-adjust
+font-stretch
+font-style
+font-variant
+font-weight
+footer
+forestgreen
+fuchsia
+gainsboro
+georgian
+ghostwhite
+gold
+goldenrod
+gray
+greek
+green
+greenyellow
+grid
+groove
+group
+header
+hebrew
+height
+help
+hidden
+hide
+high
+higher
+hiragana
+hiragana-iroha
+honeydew
+hotpink
+hover
+icon
+ideographic
+image
+in
+increment
+indent
+index
+indianred
+indigo
+inherit
+inline
+inline-block
+inline-table
+inset
+inside
+iroha
+italic
+item
+ivory
+justify
+kHz
+kashida
+katakana
+katakana-iroha
+khaki
+landscape
+lang()
+large
+larger
+last
+latin
+lavender
+lavenderblush
+lawngreen
+layout
+leading
+left
+left-side
+leftwards
+lenonchiffon
+letter
+letter-spacing
+level
+lightblue
+lightcoral
+lightcyan
+lighter
+lightgoldenrodyellow
+lightgray
+lightgreen
+lightgrey
+lightpink
+lightsalmon
+lightseagreen
+lightskyblue
+lightslategray
+lightsteelblue
+lightyellow
+lime
+limegreen
+line
+line-height
+line-through
+linen
+link
+list
+list-item
+list-style
+list-style-image
+list-style-position
+list-style-type
+loud
+low
+lower
+lower-alpha
+lower-greek
+lower-latin
+lower-roman
+lowercase
+ltr
+magenta
+margin
+margin-bottom
+margin-left
+margin-right
+margin-top
+marker
+marker-offset
+marks
+maroon
+max
+max-height
+max-width
+medium
+mediumaquamarine
+mediumblue
+mediumorchid
+mediumpurple
+mediumseagreen
+mediumslateblue
+mediumspringgreen
+mediumturquoise
+mediumvioletred
+menu
+message
+message-box
+middle
+midnightblue
+min
+min-height
+min-width
+mintcream
+mistyrose
+mix
+mm
+moccasin
+mode
+monospace
+move
+ms
+n
+n-resize
+naby
+narrower
+navajowhite
+ne
+ne-resize
+no
+no-close-quote
+no-open-quote
+no-repeat
+none
+normal
+nowrap
+number
+numeral
+nw
+nw-resize
+oblique
+offset
+oldlace
+olive
+olivedrab
+once
+open
+open-quote
+orange
+orangered
+orchid
+orphans
+out
+outline
+outline-color
+outline-style
+outline-width
+outset
+outside
+overflow
+overhang
+overline
+override
+padding
+padding-bottom
+padding-left
+padding-right
+padding-top
+page
+page-break-after
+page-break-before
+page-break-inside
+palegoldenrod
+palegreen
+paleturquoise
+palevioletred
+papayawhip
+pause
+pause-after
+pause-before
+pc
+peachpuff
+peru
+pink
+pitch
+pitch-range
+play
+play-during
+plum
+pointer
+portarait
+position
+powderblue
+pre
+pre-line
+pre-wrap
+progid
+progress
+pt
+punctuation
+purple
+px
+quote
+quotes
+rad
+range
+rate
+red
+relative
+repeat
+repeat-x
+repeat-y
+reset
+resize
+richness
+ridge
+right
+right-side
+rightwards
+roman
+rosybrown
+row
+royalblue
+rtl
+run
+run-in
+s
+s-resize
+saddlebrown
+salmon
+sandybrown
+sans-serif
+scroll
+se
+se-resize
+seagreen
+seashell
+semi
+semi-condensed
+semi-expanded
+separate
+serif
+shadow
+show
+side
+sienna
+silent
+silever
+silver
+size
+skyblue
+slateblue
+slategray
+slow
+slower
+small
+small-caps
+small-caption
+smaller
+snow
+soft
+solid
+space
+spacing
+speak
+speak-header
+speak-numeral
+speak-punctuation
+specific
+specific-voice
+speech
+speech-rate
+spell
+spell-out
+springgreen
+square
+static
+status
+status-bar
+steelblue
+stress
+stretch
+style
+sub
+super
+sw
+sw-resize
+table
+table-caption
+table-cell
+table-column
+table-column-group
+table-footer-group
+table-header-group
+table-layout
+table-row
+table-row-group
+tan
+teal
+text
+text-align
+text-bottom
+text-decoration
+text-indent
+text-shadow
+text-top
+text-transform
+thick
+thin
+thistle
+through
+tomato
+top
+track
+transform
+transparent
+turquoise
+type
+ultra
+ultra-condensed
+ultra-expanded
+underline
+unicode
+unicode-bidi
+upper
+upper-alpha
+upper-latin
+upper-roman
+uppercase
+variant
+vertical
+vertical-align
+violet
+visibility
+visible
+visited
+voice
+voice-family
+volume
+w
+w-resize
+wait
+weight
+wheat
+white
+white-space
+whitesmoke
+wider
+widows
+width
+word
+word-spacing
+wrap
+x
+x-fast
+x-high
+x-large
+x-loud
+x-low
+x-slow
+x-small
+x-soft
+xx
+xx-large
+xx-small
+y
+yellow
+yellowgreen
+z
+z-index
+zero
diff --git a/.emacs.d/auto-complete/dict/java-mode b/.emacs.d/auto-complete/dict/java-mode
new file mode 100644
index 0000000..8ed3d04
--- /dev/null
+++ b/.emacs.d/auto-complete/dict/java-mode
@@ -0,0 +1,50 @@
+abstract
+assert
+boolean
+break
+byte
+case
+catch
+char
+class
+const
+continue
+default
+do
+double
+else
+enum
+extends
+final
+finally
+float
+for
+goto
+if
+implements
+import
+instanceof
+int
+interface
+long
+native
+new
+package
+private
+protected
+public
+return
+short
+static
+strictfp
+super
+switch
+synchronized
+this
+throw
+throws
+transient
+try
+void
+volatile
+while
diff --git a/.emacs.d/auto-complete/dict/javascript-mode b/.emacs.d/auto-complete/dict/javascript-mode
new file mode 100644
index 0000000..3d83f84
--- /dev/null
+++ b/.emacs.d/auto-complete/dict/javascript-mode
@@ -0,0 +1,148 @@
+Anchor
+Area
+Array
+Boolean
+Button
+Checkbox
+Date
+Document
+Element
+FileUpload
+Form
+Frame
+Function
+Hidden
+History
+Image
+Infinity
+JavaArray
+JavaClass
+JavaObject
+JavaPackage
+Link
+Location
+Math
+MimeType
+NaN
+Navigator
+Number
+Object
+Option
+Packages
+Password
+Plugin
+Radio
+RegExp
+Reset
+Select
+String
+Submit
+Text
+Textarea
+Window
+alert
+arguments
+assign
+blur
+break
+callee
+caller
+captureEvents
+case
+clearInterval
+clearTimeout
+close
+closed
+comment
+confirm
+constructor
+continue
+default
+defaultStatus
+delete
+do
+document
+else
+escape
+eval
+export
+find
+focus
+for
+frames
+function
+getClass
+history
+home
+if
+import
+in
+innerHeight
+innerWidth
+isFinite
+isNan
+java
+label
+length
+location
+locationbar
+menubar
+moveBy
+moveTo
+name
+navigate
+navigator
+netscape
+new
+onBlur
+onError
+onFocus
+onLoad
+onUnload
+open
+opener
+outerHeight
+outerWidth
+pageXoffset
+pageYoffset
+parent
+parseFloat
+parseInt
+personalbar
+print
+prompt
+prototype
+ref
+releaseEvents
+resizeBy
+resizeTo
+return
+routeEvent
+scroll
+scrollBy
+scrollTo
+scrollbars
+self
+setInterval
+setTimeout
+status
+statusbar
+stop
+sun
+switch
+taint
+this
+toString
+toolbar
+top
+typeof
+unescape
+untaint
+unwatch
+valueOf
+var
+void
+watch
+while
+window
+with
diff --git a/.emacs.d/auto-complete/dict/php-mode b/.emacs.d/auto-complete/dict/php-mode
new file mode 100644
index 0000000..04352d8
--- /dev/null
+++ b/.emacs.d/auto-complete/dict/php-mode
@@ -0,0 +1,62 @@
+and
+array
+as
+break
+case
+catch
+cfunction
+class
+clone
+const
+continue
+declare
+default
+die
+do
+echo
+else
+elseif
+empty
+enddeclare
+endfor
+endforeach
+endif
+endswitch
+endwhile
+eval
+exit
+extends
+final
+for
+foreach
+function
+global
+goto
+if
+implements
+include
+include_once
+instanceof
+interface
+isset
+list
+namespace
+new
+old_function
+or
+print
+private
+protected
+public
+require
+require_once
+return
+static
+switch
+throw
+try
+unset
+use
+var
+while
+xor
diff --git a/.emacs.d/auto-complete/dict/python-mode b/.emacs.d/auto-complete/dict/python-mode
new file mode 100644
index 0000000..33b4b32
--- /dev/null
+++ b/.emacs.d/auto-complete/dict/python-mode
@@ -0,0 +1,104 @@
+__import__
+abs
+and
+any
+apply
+as
+assert
+basestring
+bin
+bool
+break
+buffer
+class
+cmp
+coerce
+complex
+continue
+def
+del
+delattr
+dict
+dir
+divmod
+elif
+else
+enumerate
+eval
+except
+exec
+execfile
+file
+filter
+finally
+float
+for
+format
+from
+frozenset
+getattr
+global
+globals
+hasattr
+hash
+help
+hex
+id
+if
+import
+in
+input
+int
+intern
+is
+isinstance
+issubclass
+iter
+lambda
+len
+list
+locals
+long
+map
+max
+min
+next
+not
+object
+oct
+open
+or
+ord
+pass
+pow
+print
+print
+property
+raise
+range
+raw_input
+reduce
+reload
+repr
+return
+reversed
+round
+set
+setattr
+slice
+sorted
+staticmethod
+str
+sum
+super
+try
+tuple
+type
+unichr
+unicode
+vars
+while
+with
+xrange
+yield
+zip
diff --git a/.emacs.d/auto-complete/dict/ruby-mode b/.emacs.d/auto-complete/dict/ruby-mode
new file mode 100644
index 0000000..90b4fc9
--- /dev/null
+++ b/.emacs.d/auto-complete/dict/ruby-mode
@@ -0,0 +1,181 @@
+$!
+$"
+$$
+$&
+$'
+$*
+$+
+$,
+$-0
+$-F
+$-I
+$-K
+$-a
+$-d
+$-i
+$-l
+$-p
+$-v
+$-w
+$.
+$/
+$0
+$1
+$10
+$11
+$2
+$3
+$4
+$5
+$6
+$7
+$8
+$9
+$:
+$;
+$<
+$=
+$>
+$?
+$@
+$DEBUG
+$FILENAME
+$KCODE
+$LOADED_FEATURES
+$LOAD_PATH
+$PROGRAM_NAME
+$SAFE
+$VERBOSE
+$\
+$_
+$`
+$deferr
+$defout
+$stderr
+$stdin
+$stdout
+$~
+ARGF
+ARGV
+Array
+BEGIN
+DATA
+END
+ENV
+FALSE
+Float
+Integer
+NIL
+PLATFORM
+RELEASE_DATE
+RUBY_COPYRIGHT
+RUBY_DESCRIPTION
+RUBY_PATCHLEVEL
+RUBY_PLATFORM
+RUBY_RELEASE_DATE
+RUBY_VERSION
+SCRIPT_LINES__
+STDERR
+STDIN
+STDOUT
+String
+TOPLEVEL_BINDING
+TRUE
+VERSION
+__method__
+`
+abort
+alias
+and
+at_exit
+autoload
+autoload?
+begin
+binding
+block_given
+break
+callcc
+caller
+case
+catch
+chomp
+chomp!
+chop
+chop
+class
+def
+defined?
+do
+else
+elsif
+end
+ensure
+eval
+exec
+exit
+exit!
+fail
+false
+for
+fork
+format
+getc
+gets
+global_variables
+gsub
+gsub!
+if
+in
+iterator?
+lambda
+load
+local_varaibles
+loop
+module
+next
+nil
+not
+open
+or
+p
+printf
+proc
+putc
+puts
+raise
+rand
+readline
+readlines
+redo
+require
+require_relative
+rescue
+retry
+return
+scan
+select
+self
+set_trace_func
+sleep
+split
+sprintf
+srand
+sub
+sub!
+super
+syscall
+system
+test
+then
+throw
+trace_var
+trap
+true
+undef
+unless
+until
+untrace_var
+warn
+when
+while
+yield
diff --git a/.emacs.d/auto-complete/dict/scheme-mode b/.emacs.d/auto-complete/dict/scheme-mode
new file mode 100644
index 0000000..e5cca61
--- /dev/null
+++ b/.emacs.d/auto-complete/dict/scheme-mode
@@ -0,0 +1,216 @@
+case-lambda
+call/cc
+class
+define-class
+exit-handler
+field
+import
+inherit
+init-field
+interface
+let*-values
+let-values
+let/ec
+mixin
+opt-lambda
+override
+protect
+provide
+public
+rename
+require
+require-for-syntax
+syntax
+syntax-case
+syntax-error
+unit/sig
+unless
+when
+with-syntax
+and
+begin
+call-with-current-continuation
+call-with-input-file
+call-with-output-file
+case
+cond
+define
+define-syntax
+delay
+do
+dynamic-wind
+else
+for-each
+if
+lambda
+let
+let*
+let-syntax
+letrec
+letrec-syntax
+map
+or
+syntax-rules
+abs
+acos
+angle
+append
+apply
+asin
+assoc
+assq
+assv
+atan
+boolean?
+caar
+cadr
+call-with-input-file
+call-with-output-file
+call-with-values
+car
+cdddar
+cddddr
+cdr
+ceiling
+char->integer
+char-alphabetic?
+char-ci<=?
+char-ci<?
+char-ci=?
+char-ci>=?
+char-ci>?
+char-downcase
+char-lower-case?
+char-numeric?
+char-ready?
+char-upcase
+char-upper-case?
+char-whitespace?
+char<=?
+char<?
+char=?
+char>=?
+char>?
+char?
+close-input-port
+close-output-port
+complex?
+cons
+cos
+current-input-port
+current-output-port
+denominator
+display
+eof-object?
+eq?
+equal?
+eqv?
+eval
+even?
+exact->inexact
+exact?
+exp
+expt
+#f
+floor
+force
+gcd
+imag-part
+inexact->exact
+inexact?
+input-port?
+integer->char
+integer?
+interaction-environment
+lcm
+length
+list
+list->string
+list->vector
+list-ref
+list-tail
+list?
+load
+log
+magnitude
+make-polar
+make-rectangular
+make-string
+make-vector
+max
+member
+memq
+memv
+min
+modulo
+negative?
+newline
+not
+null-environment
+null?
+number->string
+number?
+numerator
+odd?
+open-input-file
+open-output-file
+output-port?
+pair?
+peek-char
+port?
+positive?
+procedure?
+quasiquote
+quote
+quotient
+rational?
+rationalize
+read
+read-char
+real-part
+real?
+remainder
+reverse
+round
+scheme-report-environment
+set!
+set-car!
+set-cdr!
+sin
+sqrt
+string
+string->list
+string->number
+string->symbol
+string-append
+string-ci<=?
+string-ci<?
+string-ci=?
+string-ci>=?
+string-ci>?
+string-copy
+string-fill!
+string-length
+string-ref
+string-set!
+string<=?
+string<?
+string=?
+string>=?
+string>?
+string?
+substring
+symbol->string
+symbol?
+#t
+tan
+transcript-off
+transcript-on
+truncate
+values
+vector
+vector->list
+vector-fill!
+vector-length
+vector-ref
+vector-set!
diff --git a/.emacs.d/auto-complete/dict/tcl-mode b/.emacs.d/auto-complete/dict/tcl-mode
new file mode 100644
index 0000000..07a1281
--- /dev/null
+++ b/.emacs.d/auto-complete/dict/tcl-mode
@@ -0,0 +1,172 @@
+after
+append
+apply
+array
+auto_execok
+auto_import
+auto_load
+auto_load_index
+auto_mkindex
+auto_mkindex_old
+auto_qualify
+auto_reset
+bell
+binary
+bind
+bindtags
+break
+button
+canvas
+case
+catch
+cd
+chan
+checkbutton
+clipboard
+clock
+close
+concat
+continue
+destroy
+dict
+encoding
+entry
+eof
+error
+eval
+event
+exec
+exit
+expr
+fblocked
+fconfigure
+fcopy
+file
+fileevent
+flush
+focus
+font
+for
+foreach
+format
+frame
+gets
+glob
+global
+grab
+grid
+if
+image
+incr
+info
+interp
+join
+label
+labelframe
+lappend
+lassign
+lindex
+linsert
+list
+listbox
+llength
+load
+lower
+lrange
+lrepeat
+lreplace
+lreverse
+lsearch
+lset
+lsort
+menu
+menubutton
+message
+namespace
+open
+option
+pack
+package
+panedwindow
+pid
+pkg_mkIndex
+place
+proc
+puts
+pwd
+radiobutton
+raise
+read
+regexp
+registry
+regsub
+rename
+return
+scale
+scan
+scrollbar
+seek
+selection
+set
+socket
+source
+spinbox
+split
+string
+subst
+switch
+tclLog
+tclPkgSetup
+tclPkgUnknown
+tcl_findLibrary
+tell
+text
+time
+tk
+tk_chooseColor
+tk_chooseDirectory
+tk_getOpenFile
+tk_getSaveFile
+tk_menuSetFocus
+tk_messageBox
+tk_popup
+tk_textCopy
+tk_textCut
+tk_textPaste
+tkwait
+toplevel
+ttk::button
+ttk::checkbutton
+ttk::combobox
+ttk::entry
+ttk::focusFirst
+ttk::frame
+ttk::label
+ttk::labelframe
+ttk::menubutton
+ttk::notebook
+ttk::paned
+ttk::panedwindow
+ttk::progressbar
+ttk::radiobutton
+ttk::scale
+ttk::scrollbar
+ttk::separator
+ttk::setTheme
+ttk::sizegrip
+ttk::style
+ttk::takefocus
+ttk::themes
+ttk::treeview
+trace
+unknown
+unload
+unset
+update
+uplevel
+upvar
+variable
+vwait
+while
+winfo
+wm
diff --git a/.emacs.d/auto-complete/doc/ac-fuzzy.png b/.emacs.d/auto-complete/doc/ac-fuzzy.png
new file mode 100644
index 0000000..9940fa7
Binary files /dev/null and b/.emacs.d/auto-complete/doc/ac-fuzzy.png differ
diff --git a/.emacs.d/auto-complete/doc/ac-isearch.png b/.emacs.d/auto-complete/doc/ac-isearch.png
new file mode 100644
index 0000000..e2ce709
Binary files /dev/null and b/.emacs.d/auto-complete/doc/ac-isearch.png differ
diff --git a/.emacs.d/auto-complete/doc/ac.png b/.emacs.d/auto-complete/doc/ac.png
new file mode 100644
index 0000000..f304e09
Binary files /dev/null and b/.emacs.d/auto-complete/doc/ac.png differ
diff --git a/.emacs.d/auto-complete/doc/changes.ja.txt b/.emacs.d/auto-complete/doc/changes.ja.txt
new file mode 100644
index 0000000..47ccb4f
--- /dev/null
+++ b/.emacs.d/auto-complete/doc/changes.ja.txt
@@ -0,0 +1,96 @@
+Title: Auto Complete Mode - 変更点
+CSS: style.css
+
+Auto Complete Mode 変更点
+=========================
+
+[Index](index.ja.txt)
+
+\[[English](changes.txt)]
+
+[ユーザーマニュアル](manual.ja.txt)も参照してください。
+
+v1.3の変更点 {#Changes_v1.3}
+------------
+
+v1.3の主な変更点は次のようになります。
+
+### 新しいオプション ### {#New_Options_v1.3}
+
+* [`ac-disable-faces`](manual.ja.txt#ac-disable-faces)
+* [`ac-show-menu-immediately-on-auto-complete`](manual.ja.txt#ac-show-menu-immediately-on-auto-complete)
+* [`ac-expand-on-auto-complete`](manual.ja.txt#ac-expand-on-auto-complete)
+* [`ac-use-menu-map`](manual.ja.txt#ac-use-menu-map)
+
+### 新しい情報源 ### {#New_Sources_v1.3}
+
+* [`ac-source-semantic-raw`](manual.ja.txt#ac-source-semantic-raw)
+* [`ac-source-css-property`](manual.ja.txt#ac-source-css-property)
+
+### 新しい情報源のプロパティ ### {#New_Source_Properties_v1.3}
+
+* [`summary`](manual.ja.txt#summary)
+* [`available`](manual.ja.txt#available)
+
+### 新しい辞書 ### {#New_Dictionaries_v1.3}
+
+* tcl-mode
+* scheme-mode
+
+### 変更された挙動 ### {#Changed_Behaviors_v1.3}
+
+* 補完候補の長さを考慮したスコアリング（文字列長でソート）
+
+### 修正されたバグ ### {#Fixed_Bugs_v1.3}
+
+* Emacs 22.1でのエラー
+* `flyspell-mode`との衝突（`M-x flyspell-workaround`で解決）
+
+### その他 ### {#Others_v1.3}
+
+* 単語収集の速度を改善 (#18)
+* [pos-tip.el](manual.ja.txt#.E3.83.98.E3.83.AB.E3.83.97.E3.82.92.E7.B6.BA.E9.BA.97.E3.81.AB.E8.A1.A8.E7.A4.BA.E3.81.99.E3.82.8B)との協調
+* Yasnippet 0.61のサポート
+* 多くのバグ修正
+
+v1.2の変更点 {#Changes_v1.2}
+------------
+
+v1.0からv1.2の主な変更点は次のようになります。
+
+### 新機能 ### {#New_Features_v1.2}
+
+* [曖昧マッチによる補完](manual.ja.txt#.E6.9B.96.E6.98.A7.E3.83.9E.E3.83.83.E3.83.81.E3.81.AB.E3.82.88.E3.82.8B.E8.A3.9C.E5.AE.8C)
+* [辞書による補完](manual.ja.txt#.E8.BE.9E.E6.9B.B8.E3.81.AB.E3.82.88.E3.82.8B.E8.A3.9C.E5.AE.8C)
+* [補完候補の絞り込み](manual.ja.txt#.E8.A3.9C.E5.AE.8C.E5.80.99.E8.A3.9C.E3.81.AE.E7.B5.9E.E3.82.8A.E8.BE.BC.E3.81.BF)
+* [補完推測機能](manual.ja.txt#.E8.A3.9C.E5.AE.8C.E6.8E.A8.E6.B8.AC.E6.A9.9F.E8.83.BD)
+* [トリガーキー](manual.ja.txt#.E3.83.88.E3.83.AA.E3.82.AC.E3.83.BC.E3.82.AD.E3.83.BC)
+* [ヘルプ](manual.ja.txt#.E3.83.98.E3.83.AB.E3.83.97)
+
+### 新しいコマンド ### {#New_Commands_v1.2}
+
+* [`auto-complete`](manual.ja.txt#auto-complete.E3.82.B3.E3.83.9E.E3.83.B3.E3.83.89)
+
+### 新しいオプション ### {#New_Options_v1.2}
+
+* [`ac-delay`](manual.ja.txt#ac-delay)
+* [`ac-auto-show-menu`](manual.ja.txt#ac-auto-show-menu)
+* [`ac-use-fuzzy`](manual.ja.txt#ac-use-fuzzy)
+* [`ac-use-comphist`](manual.ja.txt#ac-use-comphist)
+* [`ac-ignores`](manual.ja.txt#ac-ignores)
+* [`ac-ignore-case`](manual.ja.txt#ac-ignore-case)
+* [`ac-mode-map`](manual.ja.txt#ac-mode-map)
+
+### 新しい情報源 ### {#New_Sources_v1.2}
+
+* [`ac-source-dictionary`](manual.ja.txt#ac-source-dictionary)
+
+### 変更された挙動 ### {#Changed_Behaviors_v1.2}
+
+* 補完の開始が遅延されるようになりました ([`ac-delay`](manual.ja.txt#ac-delay))
+* 補完メニューの表示が遅延されるようになりました ([`ac-auto-show-menu`](manual.ja.txt#ac-auto-show-menu))
+
+### その他 ### {#Others_v1.2}
+
+* 多くのバグ修正
+* パフォーマンスの改善
diff --git a/.emacs.d/auto-complete/doc/changes.txt b/.emacs.d/auto-complete/doc/changes.txt
new file mode 100644
index 0000000..86b5a9c
--- /dev/null
+++ b/.emacs.d/auto-complete/doc/changes.txt
@@ -0,0 +1,96 @@
+Title: Auto Complete Mode - Changes
+CSS: style.css
+
+Auto Complete Mode Changes
+==========================
+
+[Index](index.txt)
+
+\[[Japanese](changes.ja.txt)]
+
+See also [documentation](manual.txt).
+
+v1.3 Changes {#Changes_v1.3}
+------------
+
+Major changes in v1.3.
+
+### New Options ### {#New_Options_v1.3}
+
+* [`ac-disable-faces`](manual.txt#ac-disable-faces)
+* [`ac-show-menu-immediately-on-auto-complete`](manual.txt#ac-show-menu-immediately-on-auto-complete)
+* [`ac-expand-on-auto-complete`](manual.txt#ac-expand-on-auto-complete)
+* [`ac-use-menu-map`](manual.txt#ac-use-menu-map)
+
+### New Sources ### {#New_Sources_v1.3}
+
+* [`ac-source-semantic-raw`](manual.txt#ac-source-semantic-raw)
+* [`ac-source-css-property`](manual.txt#ac-source-css-property)
+
+### New Source Properties ### {#New_Source_Properties_v1.3}
+
+* [`summary`](manual.txt#summary)
+* [`available`](manual.txt#available)
+
+### New Dictionaries ### {#New_Dictionaries_v1.3}
+
+* tcl-mode
+* scheme-mode
+
+### Changed Behaviors ### {#Changed_Behaviors_v1.3}
+
+* Scoring regarding to candidate length (sort by length)
+
+### Fixed Bugs ### {#Fixed_Bugs_v1.3}
+
+* Error on Emacs 22.1
+* `flyspell-mode` confliction (`M-x flyspell-workaround`)
+
+### Others ### {#Others_v1.3}
+
+* Improved word completion performance (#18)
+* Cooperate with [pos-tip.el](manual.txt#Show_help_beautifully)
+* Yasnippet 0.61 support
+* Fix many bugs
+
+v1.2 Changes {#Changes_v1.2}
+------------
+
+Major changes in v1.2 since v1.0.
+
+### New Features ### {#New_Features_v1.2}
+
+* [Completion by Fuzzy Matching](manual.txt#Completion_by_Fuzzy_Matching)
+* [Completion by Dictionary](manual.txt#Completion_by_Dictionary)
+* [Incremental Filtering](manual.txt#Filtering_Completion_Candidates)
+* [Intelligent Candidate Suggestion](manual.txt#Candidate_Suggestion)
+* [Trigger Key](manual.txt#Trigger_Key)
+* [Help](manual.txt#Help)
+
+### New Commands ### {#New_Commands_v1.2}
+
+* [`auto-complete`](manual.txt#auto-complete_command)
+
+### New Options ### {#New_Options_v1.2}
+
+* [`ac-delay`](manual.txt#ac-delay)
+* [`ac-auto-show-menu`](manual.txt#ac-auto-show-menu)
+* [`ac-use-fuzzy`](manual.txt#ac-use-fuzzy)
+* [`ac-use-comphist`](manual.txt#ac-use-comphist)
+* [`ac-ignores`](manual.txt#ac-ignores)
+* [`ac-ignore-case`](manual.txt#ac-ignore-case)
+* [`ac-mode-map`](manual.txt#ac-mode-map)
+
+### New Sources ### {#New_Sources_v1.2}
+
+* [`ac-source-dictionary`](manual.txt#ac-source-dictionary)
+
+### Changed Behaviors ### {#Changed_Behaviors_v1.2}
+
+* Completion is now delayed to start ([`ac-delay`](manual.txt#ac-delay))
+* Completion menu is now delayed to show ([`ac-auto-show-menu`](manual.txt#ac-auto-show-menu))
+
+### Others ### {#Others_v1.2}
+
+* Fix many bugs
+* Improve performance
diff --git a/.emacs.d/auto-complete/doc/demo.txt b/.emacs.d/auto-complete/doc/demo.txt
new file mode 100644
index 0000000..aa04d7d
--- /dev/null
+++ b/.emacs.d/auto-complete/doc/demo.txt
@@ -0,0 +1,11 @@
+Title: Auto Complete Mode - Demo
+CSS: style.css
+
+Auto Complete Mode Demo
+=======================
+
+[Index](index.txt)
+
+[YouTube mirror](http://www.youtube.com/watch?v=rGVVnDxwJYE)
+
+<video src="ac-demo.ogv" controls="true" width="720" height="672" />
diff --git a/.emacs.d/auto-complete/doc/index.ja.txt b/.emacs.d/auto-complete/doc/index.ja.txt
new file mode 100644
index 0000000..2f2ff79
--- /dev/null
+++ b/.emacs.d/auto-complete/doc/index.ja.txt
@@ -0,0 +1,86 @@
+Title: Auto Complete Mode - GNU Emacsのための最も賢い自動補完機能
+CSS: style.css
+
+Auto Complete Mode
+==================
+
+*[GNU Emacs][]のための最も賢い自動補完機能*
+
+\[[English](index.txt)]
+
+* * * *
+
+{toc}
+
+* * * *
+
+Auto Complete Modeとは
+----------------------
+
+Auto Complete Modeは[GNU Emacs][]のための最も賢い自動補完機能です。従来の使いづらい補完インターフェースを一新し、ユーザーがより本質的な作業に集中できる環境を提供します。
+
+特徴
+----
+
+* 視覚的な操作感
+* 統計的手法による補完オーバーヘッドの削減
+* 拡張性
+
+スクリーンショット
+------------------
+
+![](ac.png "自動補完") ![](ac-fuzzy.png "曖昧補完") ![](ac-isearch.png "インクリメンタル検索")
+
+デモ
+----
+
+* [YouTube](http://www.youtube.com/watch?v=rGVVnDxwJYE)
+* [Ogg Theora with video tag](demo.txt)
+
+ダウンロード
+------------
+
+### 最新安定板 (v1.3) ### {#Latest_Stable}
+
+[v1.3の変更点](changes.ja.txt#Changes_v1.3)
+
+* [auto-complete-1.3.tar.bz2](http://cx4a.org/pub/auto-complete/auto-complete-1.3.tar.bz2)
+* [auto-complete-1.3.tar.zip](http://cx4a.org/pub/auto-complete/auto-complete-1.3.zip)
+
+### v1.2 ###
+
+[v1.2の変更点](changes.ja.txt#Changes_v1.2)
+
+* [auto-complete-1.2.tar.bz2](http://cx4a.org/pub/auto-complete/auto-complete-1.2.tar.bz2)
+* [auto-complete-1.2.tar.zip](http://cx4a.org/pub/auto-complete/auto-complete-1.2.zip)
+
+ユーザーマニュアル
+------------------
+
+[Auto Complete Modeユーザーマニュアル](manual.ja.txt)
+
+利用者の声
+----------
+
+利用者の声をぜひお聞かせください。あなたの名前（匿名希望可）とコメントをそえて[tomo@cx4a.org](mailto: tomo@cx4a.org)までメールでお願いします。どんなコメントでも歓迎です。
+
+ソースコード
+------------
+
+ソースコードは以下のGitリポジトリから取得できます。
+
+* <http://cx4a.org/repo/auto-complete.git>
+* <http://github.com/m2ym/auto-complete> (GitHubミラー)
+
+バグレポート
+------------
+
+[Auto Complete Modeのバグトラッキングシステム](http://cx4a.org/redmine/projects/auto-complete-mode)に新しいチケットを登録してください。
+
+ライセンス
+----------
+
+このソフトウェアは[GPLv3][]のもとで配布されます。
+
+[GNU Emacs]: http://www.gnu.org/software/emacs/
+[GPLv3]: http://gplv3.fsf.org/
diff --git a/.emacs.d/auto-complete/doc/index.txt b/.emacs.d/auto-complete/doc/index.txt
new file mode 100644
index 0000000..c589bdf
--- /dev/null
+++ b/.emacs.d/auto-complete/doc/index.txt
@@ -0,0 +1,86 @@
+Title: Auto Complete Mode - The most intelligent auto-completion extension for GNU Emacs
+CSS: style.css
+
+Auto Complete Mode
+==================
+
+*The most intelligent auto-completion extension for [GNU Emacs][]*
+
+\[[Japanese](index.ja.txt)]
+
+* * * *
+
+{toc}
+
+* * * *
+
+What is Auto Complete Mode?
+---------------------------
+
+Auto Complete Mode is the most intelligent auto-completion extension for [GNU Emacs][]. Auto Complete Mode renews an old completion interface and provides an environment that makes users could be more concentrate on their own works.
+
+Features
+--------
+
+* Visual interface
+* Reduce overhead of completion by using statistic method
+* Extensibility
+
+Screenshots
+-----------
+
+![](ac.png "Auto Completion") ![](ac-fuzzy.png "Fuzzy Completion") ![](ac-isearch.png "Increamental Search")
+
+Demo
+----
+
+* [YouTube](http://www.youtube.com/watch?v=rGVVnDxwJYE)
+* [Ogg Theora with video tag](demo.txt)
+
+Downloads
+---------
+
+### Latest Stable (v1.3) ### {#Latest_Stable}
+
+[Changes v1.3](changes.txt#Changes_v1.3)
+
+* [auto-complete-1.3.tar.bz2](/pub/auto-complete/auto-complete-1.3.tar.bz2)
+* [auto-complete-1.3.zip](/pub/auto-complete/auto-complete-1.3.zip)
+
+### v1.2 ###
+
+[Changes v1.2](changes.txt#Changes_v1.2)
+
+* [auto-complete-1.2.tar.bz2](/pub/auto-complete/auto-complete-1.2.tar.bz2)
+* [auto-complete-1.2.zip](/pub/auto-complete/auto-complete-1.2.zip)
+
+User Manual
+-----------
+
+[Auto Complete Mode User Manual](manual.txt)
+
+User's Voice
+------------
+
+Please send me a comment with your name (or anonymous) to [tomo@cx4a.org](mailto: tomo@cx4a.org) if you like it. Any comments are welcome.
+
+Source Code
+-----------
+
+Git repositories are available:
+
+* <http://cx4a.org/repo/auto-complete.git>
+* <http://github.com/m2ym/auto-complete> (GitHub mirror)
+
+Reporting Bugs
+--------------
+
+Visit [Auto Complete Mode Bug Tracking System](http://cx4a.org/redmine/projects/auto-complete-mode) and create a new ticket.
+
+License
+-------
+
+This software is distributed under the term of [GPLv3][]+.
+
+[GNU Emacs]: http://www.gnu.org/software/emacs/
+[GPLv3]: http://gplv3.fsf.org/
diff --git a/.emacs.d/auto-complete/doc/manual.ja.txt b/.emacs.d/auto-complete/doc/manual.ja.txt
new file mode 100644
index 0000000..2d20472
--- /dev/null
+++ b/.emacs.d/auto-complete/doc/manual.ja.txt
@@ -0,0 +1,1067 @@
+Title: Auto Complete Modeユーザーマニュアル
+Numbering: yes
+CSS: style.css
+
+Auto Complete Modeユーザーマニュアル
+====================================
+
+[Index](index.ja.txt)
+
+\[[English](manual.txt)]
+
+* * * *
+
+{toc}
+
+* * * *
+
+はじめに
+--------
+
+Auto Complete Mode（通称、`auto-complete.el`, `auto-complete-mode`）は[GNU Emacs][]（以下Emacs）の補完システムを自動化・高度化する拡張です。従来の補完システムと比べて以下の点で優れています。
+
+* 視覚的な操作感
+* 統計的手法による補完オーバーヘッドの削減
+* 拡張性
+
+本マニュアルはインストール方法から基本的な使い方・設定方法、また拡張方法までを網羅しています。不明な点があれば開発者まで連絡をください。
+
+なお、Auto Complete Modeは[GPLv3][]のもとでライセンスされています。また、このドキュメントは[GFDL][]のもとでライセンスされています。
+
+ダウンロード
+------------
+
+[Auto Complete Modeのトップページ](index.ja.txt)からダウンロードできます。
+
+インストール
+------------
+
+### 必要条件 ###
+
+* 800MHz以上のCPU
+* 256MB以上のメモリ
+* GNU Emacs 22以上
+
+### インストールスクリプト ###
+
+パッケージディレクトリ内の`etc/install.el`というインストールスクリプトを利用すれば簡単にインストールを行うことができます。
+
+起動中のEmacsあるいは新しく起動したEmacsで`M-x load-file RET`と入力してください。なお`auto-complete-mode`をアップグレードする場合は**`-q`オプションで新しく起動したEmacs**でインストールを行ってください。`auto-complete-mode`ロードするファイル名を尋ねられるのでアーカイブを展開したディレクトリに`/etc/install.el`を追加したフルパスを入力します。例えば展開したディレクトリのパスが`~/tmp/auto-complete-1.2`である場合、`~/tmp/auto-complete-1.2/etc/install.el`と入力します。
+
+次にインストール先のディレクトリを尋ねられますので、お好みディレクトリを入力してください。このディレクトリが`load-path`に設定されていない場合は後で設定する必要があります。デフォルトでは`~/.emacs.d`です。
+
+最後に`RET`を押してインストールを開始してください。インストールが完了すると次のようなバッファが表示されるので、指示に従って`.emacs`を編集してください。
+
+あるいは、次のようにターミナルからインストールすることもできます。
+
+    $ make install
+    $ # あるいはディレクトリをあらかじめ指定して
+    $ make install DIR=$HOME/.emacs.d/
+
+GNU Makeがない場合は次のようにします。
+
+    $ emacs -batch -l etc/install.el
+
+**インストール後のメッセージ例（\*Installation Result*バッファ）**
+
+    Successfully installed!
+    
+    Add the following code to your .emacs:
+    
+    (add-to-list 'load-path "~/.emacs.d")    ; load-pathにすでに設定されている場合は表れません
+    (add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict")
+    (require 'auto-complete-config)
+    (ac-config-default)
+
+### 手動によるインストール ###
+
+ディレクトリ構成と設定が正しければ手動によるインストールも可能です。まず展開したディレクトリにおいて全ての`.el`ファイルに対してバイトコンパイルを実行してください。UNIX系OSであれば同封の`Makefile`を利用できると思います。
+
+    $ make byte-compile
+
+`Makefile`を利用できない場合は、Emacsから`C-x d`で展開したディレクトリを開き`* . el RET B RET`で`.el`ファイルをバイトコンパイルしてください。
+
+次に全て`.el`ファイルと`.elc`ファイルを`load-path`が通ったディレクトリにコピーします。例えばそのディレクトリが`~/.emacs.d`であれば次のようなコマンドを実行します。
+
+    $ cp *.el *.elc ~/.emacs.d
+
+次に辞書ファイルをインストールします。このファイルがなくても動作しますが、特に理由がなければインストールしたほうがよいでしょう。辞書ファイルは`dict`ディレクトリに格納されており、`auto-complete.el`がインストールされたディレクトリと同じディレクトリにインストールされる必要があります。例えば`auto-complete.el`を`~/.emacs.d`にインストールしたのであれば、`~/.emacs.d`に`dict`ディレクトリをコピーします。この際、既存のファイルを上書きしないようにしてください。おそらくそのようなケースは起こらないと思いますが、上記のインストールスクリプトでは`ac-dict`という名前のディレクトリに辞書ファイルを格納することにより、他のファイルを上書きしたり干渉する可能性を最小限にしています。
+
+    $ cp -r dict ~/.emacs.d
+
+最後に`.emacs`に次のような設定を記述します。
+
+    (add-to-list 'ac-dictionary-directories "~/.emacs.d/dict")
+    (require 'auto-complete-config)
+    (ac-config-default)
+
+`load-path`の設定が行われていない場合は次のコードも記述する必要があります。
+
+    (add-to-list 'load-path "~/.emacs.d")
+
+### 動作確認 ###
+
+Emacsを再起動するか新規に起動して\*scratch\*バッファで適当な文字を入力してください。補完メニューが表われて補完が開始されればインストール成功です。エラーが出たり補完が開始されない場合は以下のことを確認した後、開発者に連絡してください。
+
+* `load-path`は正しいか
+
+  `auto-complete.el`をインストールしたディレクトリが`load-path`に設定されているかどうか。
+
+* モードラインに`AC`という文字があるか
+
+  モードライン（バッファ下部の灰色の行）に`AC`という文字がない場合は`auto-complete-mode`が有効になっていない可能性があります。`M-x auto-complete-mode`で有効にして再度試してください。
+
+* エラーが発生
+
+  \*Backtrace*バッファにエラーが表示されたり、ミニバッファ（フレーム下部の入力欄）にエラーメッセージが表示された場合は、その内容を添付のうえ開発者に連絡してください。
+
+基本的な使い方
+--------------
+
+出鼻をくじくようですが、ある意味では`auto-complete-mode`には「使い方」が存在しません。というのも、Emacsの編集システムに自然に溶け込むように`auto-complete-mode`が設計されているからです。ユーザーは快適な編集操作を邪魔されることなく、高度な補完機能を自動的に享受することができるのです。究極的には、ユーザーのいかなる指示もなしにユーザーが望むように自動的に補完することが目標となりますが、100%の補完推測は現実的に不可能です。その点をカバーするために若干の「使い方」が存在します。この節ではその「使い方」を説明します。
+
+### 文字入力 ###
+
+まず基本となるのが文字入力です。文字が入力されなければ補完もできません。ではどの文字が入力されたときに補完が開始されるのかという疑問がわくと思いますが、それを説明するのは難しいのでここでは割愛します。簡単に言えば、キーの押し込みによる単純な文字追加時に補完が開始されます。詳しくは[`ac-trigger-commands`](#)を参照してください。
+
+![文字入力](ac.png)
+
+### TABによる補完 ####
+
+補完が開始されるとTABによる補完が一時的に有効になります。TABによる補完は`auto-complete-mode`において最も重要で最もよく使う操作です。TABは状況によって様々な意味を持ちます。
+
+* 補完候補が一つしかない場合
+
+  補完候補が一つの場合は、その補完候補で補完を実行します。
+
+* 補完候補に共通部分がある場合
+
+  例えばsという単語の補完候補が全てsetではじまる場合、その共通部分はsetであると解釈され、TABによってsetまで展開されます。
+
+* その他の場合
+
+  その他の場合、TABを押すごとに補完候補を先頭から順繰りで選択していきます。補完候補の末尾にきたら再び補完候補の先頭から選択していきます。
+
+設定によって若干挙動が異なりますが、基本的にはこのような挙動になります。このようにTABに様々な意味を持たせるのは、TABのみで全て完結させようという狙いがあります。
+
+### RETによる補完 ###
+
+TABによる補完と似ていますが、RETによる補完は以下の点で異なります。
+
+* 選択中の補完候補で即時補完する
+* 補完候補にアクションが設定されている場合に、そのアクションが実行される
+
+TABによる補完では共通部分の展開などで何度かTABを押す必要があります。RETによる補完では選択中の補完候補で即時に補完されるので、目的の補完候補であると視認したならRETを押すとよいでしょう。その際、アクションというのものが実行される可能性がありますが、ここでは詳しくは触れません。アクションの例としては、標準添付の略語補完が分かりやすいでしょう。wwwをWorld Wide Webと展開する略語が登録されている時、wという単語でwwwを補完することができますが、RETによる補完の場合は、さらに略語展開を行いWorld Wide Webと補完します。つまりTABによる補完ではwwwが最終的な補完結果になり、RETによる補完ではWorld Wide Webが最終的な補完結果になります。
+
+### 補完候補の選択 ###
+
+`auto-complete-mode`の考え方に従えば、補完候補の選択は推奨されるものではありません。なぜなら、その時点でユーザーの補完推測に失敗しており、さらにユーザーに補完候補を選択させるというオーバーヘッドの高い操作を要求しているからです。補完候補の選択はTABによる補完でもある程度補うことができ、さらに最近のバージョンでは統計的手法によって補完推測の精度があがっているので、補完候補の選択が必要になるケースはそれほど多くないと考えられます。しかし、実際にそのようなケースは存在するので、補完候補の選択方法を覚えておくのも悪いことではないかもしれません。
+
+前置きが長いですが、補完候補の選択自体は難しい操作ではありません。補完中にカーソルキーあるいは`M-p`, `M-n`で前後に選択することができます。設定によりますが、補完候補の選択が行われた後はTABによる補完がRETによる補完に近い挙動に変化します。詳しくは[`ac-dwim`](#)を参照してください。
+
+その他の方法としてMetaキーと数字の組合せで選択することもできます。例えば`M-1`を押せば1番目の候補を選択して補完します。これもオーバーヘッドが大きいので極力使わないでください。
+
+### ヘルプ ###
+
+`auto-complete-mode`には*クイックヘルプ*と*バッファヘルプ*の二つのヘルプ機能が備え付けられています。両者の違いは見せ方だけです。クイックヘルプは補完メニューのすぐ隣に表示するので、視線の移動が最小限で済むというメリットがありますが、表示領域が狭すぎると可読性が低くなるというデメリットがあります。またクイックヘルプは補完メニューを表示してからしばらく待つと自動的に表示されます。クイックヘルプを利用するには[`ac-use-quick-help`](#)を`t`にしておく必要があります。表示までの時間は[`ac-quick-help-delay`](#)で制御できます。
+
+一方、ユーザーが明示的に命令することで表示されるのがバッファヘルプです。バッファヘルプはその名の通り、別ウィンドウにヘルプ用バッファを表示します。クイックヘルプに比べて視線の移動が大きい分、、可読性に優れています。バッファヘルプを表示するには補完中に`C-?`あるいは`f1`を押します。バッファヘルプ表示後はさらに`C-M-v`あるいは`C-M-S-v`でバッファヘルプの上下スクロールが可能です。それ以外の命令の場合はバッファヘルプを閉じてフォールバックします。
+
+### まとめ ###
+
+補完は文字の入力によって開始されます。補完が開始されると次の表に示す操作が時的に有効になります。補完が完了したら、これらの操作は無効になります。
+
+| キー      | コマンド    | 説明                     |
+|-----------|-------------|--------------------------|
+| TAB, C-i  | ac-expand   | TABによる補完を実行する  |
+| RET, C-m  | ac-complete | RETによる補完を実行する  |
+| down, M-n | ac-next     | 次の候補を選択する       |
+| up, M-p   | ac-previous | 前の候補を選択する       |
+| C-?, f1   | ac-help     | バッファヘルプを表示する |
+
+補完を途中で中断するには`C-g`を使うとよいでしょう。
+
+高度な使い方
+------------
+
+前節に引き続いて、もう少し高度な使い方を説明します。とはいってもあくまでユーザーの視点での話なので、`auto-complete-mode`を意のままに操りたいという方は、次節以降を読み進めるとよいでしょう。
+
+### `auto-complete`コマンド ###
+
+基本的に`auto-complete-mode`は自動的に補完を開始するという前提がありますが、その限りではない場合もあります。例えば、文字は入力しないけど補完はしたいという場合や、設定によって自動的に補完が開始されないようにしている場合などです。そのような時に利用するのが`auto-complete`というコマンドで、普通は何らかのキーに割り当てて利用します。例えば従来の`M-TAB`による補完を、`auto-complete-mode`が提供するより高度な補完に切り替えるには次のコードを評価します。
+
+    (define-key ac-mode-map (kbd "M-TAB") 'auto-complete)
+
+さて、`auto-complete`コマンドに関してですが、これは通常の自動的な補完とは若干異なる挙動になっています。
+
+* 補完候補が一つしかない場合
+
+  補完メニューを表示しないで、そのまま補完を実行します。
+
+* 補完候補が一つもない場合
+
+  曖昧マッチによる補完を試みます。詳しくは[曖昧マッチによる補完](#)を参照してください。
+
+* その他の場合
+
+  その他の場合、全体共通部分を展開しつつ補完メニューを表示して補完を開始します。その後の操作は自動的に補完が開始された場合と同じになります。[`ac-show-menu-immediately-on-auto-complete`](#)と[`ac-expand-on-auto-complete`](#)も参照してください。
+
+### 曖昧マッチによる補完 ###
+
+`auto-complete`コマンドで補完候補が一つもない場合や`ac-fuzzy-complete`コマンドが実行された場合、通常の確実なマッチではなく曖昧なマッチによって補完を試みます。曖昧マッチのパラメータはあらかじめ最適化されているのでユーザーが変更する必要はありませんが、内部を知りたい場合は`fuzzy.el`を参照してください。曖昧マッチによる補完を利用すれば、タイポも補完の一環として修正することができます。例えば適当なバッファでmessaegと入力して`M-x auto-complete`あるいは`M-x ac-fuzzy-complete`してください。曖昧マッチに成功したらカーソルの色が赤色に変化し、messaegではなくmessageであると解釈して補完を継続することができます。このようなケースにすぐさま対処するという意味でも`auto-complete`コマンドを何らかのキーに割り当てておくのは決して悪いことではありません。
+
+![曖昧マッチ](ac-fuzzy.png)
+
+### 補完候補の絞り込み ###
+
+補完中に`C-s`を押すことで絞り込みを開始できます。絞り込みが開始されるとカーソルの色が青色に変化します。その後に続いて絞り込む文字列を入力していきます。絞り込みはインクリメンタルに更新されるので直感的に理解できると思います。絞り込みの最中でもTABによる補完や候補選択を行うことができます。その際、カーソルの色が元に戻りますが、これは絞り込みが終了したことを意味しています。再度`C-s`を押したときは、前回の絞り込み文字列が復元されます。絞り込み文字列を削除するには`DEL`または`C-h`を押してください。それ以外の一般的な編集操作はここでは利用できません。
+
+![絞り込み](ac-isearch.png)
+
+### トリガーキー ###
+
+`auto-complete`コマンドをどのキーに割り当てるかは結構難しい問題です。補完という操作は頻繁に行うため、できるだけ押しやすいキーに割り当てるべきです。しかし押しやすいキーはすでに他のコマンドに割り当てられているというのはEmacsでは非常によくあることなのです。そういうケースに対処するため`auto-complete-mode`はトリガーキーと呼ばれる機能を提供しています。トリガーキーを利用すれば、任意のキーを必要なときに一時的にのっとって`auto-complete`コマンドに割り当てることができます。例えばTABをトリガーキーに設定するには次のようになります。
+
+    (ac-set-trigger-key "TAB")
+
+トリガーキーは文字入力の直後に有効になります。それ以外の場合は通常のコマンドが実行されます（TABならインデント）。通常、トリガーキーは`ac-auto-start`を`nil`にして利用します。
+
+    (setq ac-auto-start nil)
+
+`ac-auto-start`に関しては[自動的に補完しない](#)あるいは[`ac-auto-start`](#)を参照してください。
+
+### 補完推測機能 ###
+
+`auto-complete-mode`はユーザーの補完行動を逐一解析して、可能な限り補完のオーバーヘッドを削減しようとします。具体的には、例えば何度か`foobar`が補完されれば、次回以降は`foobar`が補完候補の上位に配置され、一回あるいは数回以内のTABで補完できる環境を作ります。内部的には`comphist`と呼ばれる機構を使っており、`ac-use-comphist`が`t`の場合にこの機能が有効になります。デフォルトでは有効になっています。収集された行動データは`user-emacs-directory`あるいは`~/.emacs.d`に`ac-comphist.dat`というファイル名で永続化され、次回以降も再利用されます。
+
+優れた補完推測を実現するため、次の二つのデータを収集します。
+
+* その補完候補が補完された回数
+* その補完候補が補完された位置
+
+簡単に言えば、単純に補完回数を数えるのではなく、補完位置ごとに補完回数を数えていき、その補完候補のスコアは補完されている位置との比較でうまく重み付けされます。例えばfと入力して`find-file`を補完するという行動を何度か繰り返せば、fを入力した段階で`find-file`が上位に配置されます。ただ、続けてfind-と入力したときに`find-file`が先ほどと同じスコアになるかといえば、そういうわけではなく、先ほどと位置として4離れているわけですから、それだけ重み付けが軽くなります。逆にfind-の後に`find-library`が補完されやすい場合は、そちらの補完候補のスコアのほうが上位に来る可能性が高くなるので、結果的にfの時点では`find-file`が上位に、find-の時点では`find-library`が上位に来るといった、ユーザーの行動を学習したかのような推測が可能になるわけです。
+
+ユーザーはこの機能をできるだけ活用するために、よく入力する単語はできるだけ前の位置で補完するように心がけてください。また、できるだけ行動は一貫してください。補完位置が毎回変わるようではうまく学習できないからです。おそらくあまり気にせず使っていれば、自動的にそのような行動になるでしょう。
+
+### 辞書による補完 ###
+
+辞書とは単純な文字列のリストのことであり、それぞれユーザー定義辞書、メジャーモード辞書、拡張子辞書の3つがあります。なお、辞書による補完を利用するには情報源に`ac-source-dictionary`を設定しておく必要があります（デフォルトでは設定済み）。詳しくは[情報源](#)を参照してください。
+
+#### ユーザー定義辞書 ####
+
+ユーザー定義辞書は`ac-user-dictionary`に設定された文字列リストおよび`ac-user-dictionary-files`で指定された辞書ファイルで構築されます。辞書ファイルは改行で区切られた単語の一覧です。ユーザー定義辞書は全てのバッファで共通です。例えば自分のメールアドレスを辞書に登録する場合、次のように`ac-user-dictionary`に単語を追加します。
+
+    (add-to-list 'ac-user-dictionary "foobar@example.com")
+
+設定は直ちに反映されます。試しに適当なバッファで`foo`と入力してください。`foobar@example.com`が補完候補になると思います。この設定はEmacsを終了したら消去されます。永続化させるためには`.emacs`に記述しておく必要があります。
+
+    (setq ac-user-dictionary '("foobar@example.com" "hogehoge@example.com"))
+
+もっと分かりやすいのは辞書ファイルを利用する方法です。`ac-user-dictionary-files`に指定されているファイルは辞書ファイルとして扱われます。デフォルトで`~/.dict`が辞書ファイルになるので、`~/.dict`を開いて次のように記述してください。
+
+    foobar@example.com
+    hogehoge@example.com
+
+前述したように改行が単語の区切りになります。保存してもすぐには反映されません。コストの高い辞書ファイルの読み込みを抑えるためにキャッシュを使っているからです。キャッシュを消去するには`M-x ac-clear-dictionary-cache`を実行します。後は先ほどと同じように適当なバッファで文字を入力すれば定義した単語を補完できるようになると思います。
+
+言うまでもないかもしれませんが、`ac-user-dictionary-files`に任意の辞書ファイルを追加することで、違う辞書ファイルを読み込むことも可能です。
+
+#### メジャーモード辞書・拡張子辞書 ####
+
+メジャーモードや拡張子ごとに違う辞書を利用することもできます。辞書は`ac-dictionary-directories`に設定されたディレクトリから読み込まれます。`ac-dictionary-directories`は[インストール](#)時に次のように設定しているはずです。
+
+    (add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict")
+
+このディレクトリにはc++-modeのようなメジャーモードのための辞書ファイルやtxtのような拡張子のための辞書ファイルが格納されています。例えば`a.cpp`というバッファで辞書による補完を利用する場合、上記の設定を前提にすれば、`~/.emacs.d/ac-dict/c++-mode`と`~/.emacs.d/ac-dict/cpp`から辞書が読み込まれます。ユーザーはこれらの辞書ファイルを変更することができますし、また新しく追加することもできます。さらに、同様の構成のディレクトリを作成して`ac-dictionary-directories`に追加することで、辞書ファイルを追加することも可能です。この際、`ac-dictionary-directories`の先頭にあるディレクトリが優先されることに気をつけてください。
+
+ユーザー定義辞書と同様、辞書の追加・編集後は`M-x ac-clear-dictionary-cache`でキャッシュを消去してください。
+
+情報源
+------
+
+`auto-complete-mode`の拡張性を保証しているのがこの情報源という概念です。*情報源*とは簡単に言えば、下記する事柄をひとまとめに記述したものと言えます。
+
+* どのような補完候補を生成するか
+* どのように補完するか
+* どのように表示するか
+
+Emacs Lispについて若干の知識があれば誰でも簡単に情報源を定義することができます。情報源の定義に関しては[拡張方法](#)を参照してください。ここでは情報源の利用方法と標準添付されている情報源について説明します。
+
+情報源の名前は`ac-source-`で始まる慣習となっています。そのため`apropos`を使ってどのような情報源が定義されているか調べることができます（`M-x apropos RET ^ac-source-`)。`ac-source-filename`や`ac-source-dictionary`などが見付かると思いますが、これらが情報源と呼ばれる実体になっています。
+
+### 情報源を利用する ###
+
+`.emacs`に`(ac-config-default)`を記述している場合、デフォルトで最適な設定が使われるので、おそらく情報源の設定を変更するケースはまれだと思いますが、一応簡単に触れておきます。情報源は`ac-sources`という変数にリストとして設定されます。インストール直後に\*scracth*で`ac-sources`を評価すると次のような結果になると思います。
+
+    ;; 整形済み
+    (ac-source-filename
+     ac-source-functions
+     ac-source-yasnippet
+     ac-source-variables
+     ac-source-symbols
+     ac-source-features
+     ac-source-abbrev
+     ac-source-words-in-same-mode-buffers
+     ac-source-dictionary)
+
+見てのとおり、\*scratch\*バッファの`ac-sources`には6つの情報源が設定されていることがわかります。それぞれの説明は後述しますが、大体の意味は推測できるでしょう。大事なことなので記憶しておいてほしいのですが、`ac-sources`はバッファーローカル変数になっており、バッファごとに独立した設定を許可しています。つまりあるバッファで`ac-sources`を変更しても、他のバッファには影響がないことになります。
+
+例を示します。今、\*scratch\*バッファにいると考えてください。上記のように、このバッファには多くの情報源が設定されています。多機能すぎると感じるユーザーもいるでしょう。そこで、もう少し機能を制限するために`ac-sources`の変更を考えます。変更方法は簡単で、次のようなコードを\*scratch\*バッファあるいは`M-:`で評価するだけです。
+
+    (setq ac-sources '(ac-source-symbols ac-source-words-in-same-mode-buffers))
+
+この例では、`ac-sources`を減らして、シンボル補完と同一メジャーモード間での単語補完のみを有効にしました。さて、これを次のEmacsの起動時にも有効にするにはどうしたらよいのでしょうか。\*scratch\*バッファ作成時に`emacs-lisp-mode-hook`というフックが実行されるので、このフックに適当な関数を追加するのがよいでしょう。
+
+    (defun my-ac-emacs-lisp-mode ()
+      (setq ac-sources '(ac-source-symbols ac-source-words-in-same-mode-buffers)))
+    
+    (add-hook 'emacs-lisp-mode-hook 'my-ac-emacs-lisp-mode)
+
+`.emacs`に`(ac-config-default)`が記述されている場合は、上記の方法では正しく動作しないかもしれません。というのも`(ac-config-default)`内部で同様のことを行っているので、どちらかが設定を上書きしてしまうからです。その場合は`(ac-config-default)`で利用する関数を再定義してしまうのがよいでしょう。`emacs-lisp-mode`の場合は、その関数名は`ac-emacs-lisp-mode-setup`です。詳しくは`auto-complete-config.el`を参照してください。
+
+    (defun ac-emacs-lisp-mode-setup ()
+      (setq ac-sources '(ac-source-symbols ac-source-words-in-same-mode-buffers)))
+
+さて、これで特定のメジャーモードで情報源を変更する方法が分かったと思います。まとめると次のようになるでしょう。
+
+1. `ac-sources`を変更する関数を定義する
+2. `add-hook`で適当なモードフックにその関数を登録する（`c++-mode-hook`, `ruby-mode-hook`, `python-mode-hook`など）
+
+では、全てのバッファに対して`ac-sources`を設定するにはどうしたらよいのでしょうか。その場合は`setq`ではなく`setq-default`で`ac-sources`を設定します。そうするとバッファローカル変数である`ac-sources`のデフォルト値が設定した値になります。
+
+    (setq-default ac-sources '(ac-source-words-in-all-buffer))
+
+他にも方法があります。`(ac-config-default)`は`auto-complete-mode`のフックである`auto-complete-mode-hook`に関数を追加することにより、`setq-default`によるデフォルト値の変更に近いことをやっています。その関数は`ac-common-setup`であり、`ac-sources`の先頭に`ac-source-filename`という情報源を追加しています。これにより`auto-complete-mode`が有効な全てのバッファで`ac-source-filename`が情報源の先頭に追加されます。なぜ先頭なのかというと、これにはオムニ補完の仕様が関係しているのですが、とりあえずここでは気にしなくてもいいです。つまるところ、`(ac-config-default)`を使っていて共通して`ac-sources`を変更したい場合は、この`ac-common-setup`関数を再定義することも一つの手段となります。
+
+    ;; 全てのバッファの`ac-sources`の末尾に辞書情報源を追加
+    (defun ac-common-setup ()
+      (setq ac-sources (append ac-sources '(ac-source-dictionary))))
+
+### 標準情報源 ###
+
+`auto-complete.el`および`auto-complete-config.el`に定義されている情報源の一覧です。
+
+#### `ac-source-abbrev` ####
+
+Emacsの略語機能のための情報源です。略語機能に関しては`info emacs Abbrevs`を参照してください。
+
+#### `ac-source-css-property` ####
+
+CSSプロパティのための情報源です。
+
+#### `ac-source-dictionary` ####
+
+辞書のための情報源です。辞書に関しては[辞書による補完](#)を参照してください。
+
+#### `ac-source-eclim` ####
+
+[Emacs-eclim](http://github.com/senny/emacs-eclim)のための情報源です。
+
+#### `ac-source-features` ####
+
+`(require '`で有効なfeatureを補完するための情報源です。
+
+#### `ac-source-filename` ####
+
+ファイル名を補完するための情報源です。`/`を入力した時点で補完が開始されます。
+
+#### `ac-source-files-in-current-dir` ####
+
+カレントディレクトリのファイルを補完するための情報源です。`eshell`などで便利かもしれません。
+
+#### `ac-source-functions` ####
+
+Emacs Lispの関数を補完するための情報源です。`(`の直後で有効です。
+
+#### `ac-source-gtags` ####
+
+[Global](http://www.tamacom.com/global.html)のタグを補完するための情報源です。
+
+#### `ac-source-imenu` ####
+
+`imenu`ノードを補完するための情報源です。詳しくは`info emacs imenu`を参照してください。
+
+#### `ac-source-semantic` ####
+
+[Semantic](http://cedet.sourceforge.net/semantic.shtml)のための情報源です。C/C++でメンバー名補完として利用できます。
+
+#### `ac-source-semantic-raw` ####
+
+`ac-source-semantic`と違って、この情報源は生の名前空間でシンボルを補完するのに使います。
+
+#### `ac-source-symbols` ####
+
+Emacs Lispのシンボルを補完するための情報源です。
+
+#### `ac-source-variables` ####
+
+Emacs Lispの変数を補完するための情報源です。
+
+#### `ac-source-words-in-all-buffer` ####
+
+全てのバッファの単語を補完するための情報源です。[`ac-source-words-in-same-mode-buffers`](#)と違って、メジャーモードを考慮しません。
+
+#### `ac-source-words-in-buffer` ####
+
+現在のバッファの単語を補完するための情報源です。
+
+#### `ac-source-words-in-same-mode-buffers` ####
+
+現在のバッファと同じメジャーモードの全てのバッファの単語を補完するための情報源です。例えば`a.cpp`と`b.cpp`では単語が共有されますが、`a.pl`と`b.cpp`ではメジャーモードが異なるので単語が共有されません。通常は[`ac-source-words-in-all-buffer`](#)よりこちらのほうが使い勝手がよいでしょう。
+
+#### `ac-source-yasnippet` ####
+
+[Yasnippet](http://code.google.com/p/yasnippet/)のスニペットを補完・展開するための情報源です。
+
+Tips
+----
+
+### 自動的に補完しない ###
+
+補完メニューが現われたり消えたりすると、編集操作に集中できないというユーザーがいます。私の経験では得てしてEmacsの上級ユーザーなのですが、とにかく`auto-complete-mode`はそのような用途も想定しています。次のように`ac-auto-start`をnilにすることにより自動的に補完されなくなります。
+
+    (setq ac-auto-start nil)
+
+この際、`auto-complete`コマンドを何らかのキーに割り当ておくべきです（じゃないと補完できないので）。例えば次のように`ac-mode-map`（`auto-complete-mode`が有効なバッファで利用できるキーマップ）に割り当てたり、
+
+    (define-key ac-mode-map (kbd "M-TAB") 'auto-complete)
+
+あるいはグローバルキーマップに割り当てるのもよいでしょう。
+
+    (global-set-key "\M-/" 'auto-complete)
+
+また、自動的に補完してもいいけど、もう少し長い単語のときだけ補完を開始するということも可能です。例えば4文字以上の単語のときに補完を開始するには`ac-auto-start`に4を設定します。
+
+    (setq ac-auto-start 4)
+
+`ac-auto-start`を大きめの数値に設定するのはパフォーマンスに良い影響をもたらします。`ac-auto-start`が小さい数値だと、必然的に補完候補数が増えるので、それだけ補完候補の生成にかかるコストが大きくなります。もし`auto-complete-mode`が重いと感じるなら`ac-auto-start`に大きめの数値を設定するか`nil`を設定するとよいでしょう。
+
+`ac-auto-start`に関しては[`ac-auto-start`](#)を参照してください。
+
+また[トリガーキー](#)を利用も考慮してみてください。
+
+### 補完メニューを自動で表示しない ###
+
+補完メニューによって集中力が削がれる問題のもう一つの対処としては、補完メニューを表示しないという方法が考えられます。補完メニューを非表示にするには[`ac-auto-show-menu`](#)を`nil`にします。
+
+    (setq ac-auto-show-menu nil)
+
+これで補完メニューは自動で表示されなくなりますが、補完候補の選択や絞り込みを行うと補完メニューは表示されます。
+
+あるいは補完メニューの表示を遅延させることにより、補完メニューが必要な時だけ自動で表示させるようにすることも可能です。そのためには`ac-auto-show-menu`に実数で遅延する時間を秒単位で設定します。
+
+    ;; 0.8秒後に自動で表示
+    (setq ac-auto-show-menu 0.8)
+
+このインターフェースはデフォルトの完全自動補完と上記した非自動補完のよいところだけを組合せたものと言えます。将来はこれがデフォルトになるかもしれません。
+
+### 補完を中止する ###
+
+補完の中止は`C-g`で行うことができますが、マクロ定義中などは`C-g`したくないでしょう。そのような場合は`ac-completing-map`に補完を中止するキーを割り当てるとよいでしょう。
+
+    (define-key ac-completing-map "\M-/" 'ac-stop)
+
+これで補完中でも`M-/`で中止することができます。
+
+### TABで補完を完了する ###
+
+上記したようにTABには様々な挙動が定義されています。`auto-complete-mode`を正しく使いこなすにはTABとRETによる補完を使いわけなければなりませんが、RETはそのまま改行でTABで補完完了するといった単純な操作方法も十分考えられます。。そのような場合は次のように設定します。
+
+    (define-key ac-completing-map "\t" 'ac-complete)
+    (define-key ac-completing-map "\r" nil)
+
+### 補完メニュー表示時のみC-n/C-pで補完候補を選択する ###
+
+次のコードを評価することでC-n/C-pで補完候補を選択できますが、これでは邪魔だと感じることがあります。
+
+    ;; 良くない設定
+    (define-key ac-completing-map "\C-n" 'ac-next)
+    (define-key ac-completing-map "\C-p" 'ac-previous)
+
+そこで補完メニュー表示時のみにC-n/C-pで補完候補を選択できるようにして、キー入力を極力奪わないようにしてみます。`ac-menu-map`は補完メニューが表示されているときに利用されるキーマップで、`ac-use-menu-map`が`t`のときに有効になります。
+
+    (setq ac-use-menu-map t)
+    ;; デフォルトで設定済み
+    (define-key ac-menu-map "\C-n" 'ac-next)
+    (define-key ac-menu-map "\C-p" 'ac-previous)
+
+詳しくは[`ac-use-menu-map`](#)および[`ac-menu-map`](#)を参照してください。
+
+### クイックヘルプを利用しない ###
+
+補完中に1秒ほど待ったときに出てくるツールチップヘルプをクイックヘルプと呼んでいますが、これを利用したくない場合は次のように設定します。
+
+    (setq ac-use-quick-help nil)
+
+### 補完メニューの高さを変更する ###
+
+`ac-menu-height`に行数を設定します。
+
+    ;; 20行分表示
+    (setq ac-menu-height 20)
+
+### 特定のモードで自動で`auto-complete-mode`を有効にする ###
+
+`ac-modes`に設定されていないモードでは自動で`auto-complete-mode`が有効になりません。適宜設定してください。
+
+    (add-to-list 'ac-modes 'brandnew-mode)
+
+### 大文字・小文字を区別したい/したくない ###
+
+大文字・小文字の区別方法を設定するには`ac-ignore-case`に次のように設定します。
+
+    ;; 大文字・小文字を区別しない
+    (setq ac-ignore-case t)
+    ;; 補完対象に大文字が含まれる場合のみ区別する
+    (setq ac-ignore-case 'smart)
+    ;; 大文字・小文字を区別する
+    (setq ac-ignore-case nil)
+
+デフォルトは`smart`です。
+
+### 特定の単語を入力したら補完を自動的に中止する ###
+
+`ac-ignores`に自動的に補完を中止する単語を設定します。例えばRubyでendと入力した後に自動的に補完を中止するには以下のようにします。
+
+    (add-hook 'ruby-mode-hook
+              (lambda ()
+                (make-local-variable 'ac-ignores)
+                (add-to-list 'ac-ignores "end")))
+
+`ac-ignores`はバッファローカル変数ではないので、バッファ特有の設定にする場合は`make-local-variable`で適宜バッファローカルにする必要があります。
+
+### 色を変更する ###
+
+色の設定はそれぞれ次のようになっています。
+
+| フェイス名           | 説明                   |
+|----------------------|------------------------|
+| `ac-completion-face` | インライン補完の文字色 |
+| `ac-candidate-face`  | 補完メニューの背景色   |
+| `ac-selection-face`  | 補完メニューの選択色   |
+
+フェイスの背景色を変更するには`set-face-background`、前景色を変更するには`set-face-foreground`、下線の設定には`set-face-underline`を使います。
+
+    ;; 設定例
+    (set-face-background 'ac-candidate-face "lightgray")
+    (set-face-underline 'ac-candidate-face "darkgray")
+    (set-face-background 'ac-selection-face "steelblue")
+
+### デフォルトの情報源を変更する ###
+
+情報源について分からない場合は最初に[情報源](#)を参照してください。デフォルトの情報源（全てのバッファに共通）を変更するには`setq-default`を使います。
+
+    (setq-default ac-sources '(ac-source-words-in-all-buffer))
+
+### 特定のメジャーモードで情報源を変更する ###
+
+例えばC++のバッファでは特定の情報源を利用したいということがあるでしょう。その場合は`add-hook`でフックを登録して、適宜`ac-sources`を変更するにようします。
+
+    (add-hook 'c++-mode (lambda () (add-to-list 'ac-sources 'ac-source-semantic)))
+
+### 特定の情報源で補完する ###
+
+特定の情報源で補完することも可能です。例えばファイル名補完を行いたい場合は`M-x ac-complete-filename`とします。あるいはC/C++のメンバー名補完を行いたい場合は`M-x ac-complete-semantic`とします。普通は次のようにこれらのコマンドをキーバインドします。
+
+    ;; C++モードにもC-c .でメンバー名補完
+    (add-hook 'c++-mode-hook
+              (lambda ()
+                (local-set-key (kbd "C-c .") 'ac-complete-semantic)))
+    ;; C-c /でファイル名補完
+    (global-set-key (kbd "C-c /") 'ac-complete-filename)
+
+一般的に、このようなコマンドは自動的に定義されます。例えば`ac-source-foobar`という情報源を定義しているとすれば、`ac-complete-foobar`というコマンドも同時に自動的に定義されるのです。利用可能なコマンドは[標準情報源](#)を参照してください。
+
+一つの補完コマンドで複数の情報源を使うには次のように別途定義する必要があります。
+
+    (defun semantic-and-gtags-complete ()
+      (interactive)
+      (auto-complete '(ac-source-semantic ac-source-gtags)))
+
+`auto-complete`関数は`ac-sources`の代替を引数として取ることができます。
+
+### 永続的にヘルプを表示する ###
+
+`ac-help`の代わりに`ac-persist-help`を使ってください。デフォルトで`M-<f1>`と`C-M-?`に割り当てられています。
+
+### 最後に補完したヘルプを表示する ###
+
+`ac-last-help`コマンドは最後に補完した候補のヘルプを`ac-help`（バッファヘルプ）と同じ形式で表示してくれます。`C-u`で引数をあたえるか`ac-last-persist-help`を呼び出すことで、そのヘルプバッファを永続的に表示することも可能です。
+
+`ac-last-quick-help`コマンドは最後に補完した候補のヘルプを`ac-quick-help`（クイックヘルプ）と同じ形式で表示してくれます。例えば、後から関数のドキュメントを見るときなどに便利です。
+
+これらのコマンドは次のようにキーバインドするとよいでしょう。
+
+    (define-key ac-mode-map (kbd "C-c h") 'ac-last-quick-help)
+    (define-key ac-mode-map (kbd "C-c H") 'ac-last-help)
+
+### ヘルプを綺麗に表示する ###
+
+[pos-tip.el](http://www.emacswiki.org/emacs-en/PosTip)がインストールされている場合、`auto-complete-mode`は従来のレンダリングエンジンの代わりに、`pos-tip.el`が提供するネイティブレンダリングエンジンを利用してヘルプを表示します。
+
+設定項目
+--------
+
+それぞれの設定項目は`.emacs`で変更するか`M-x customize-group RET auto-complete RET`で変更可能です。
+
+### `ac-delay` ###
+
+補完可能になるまでの遅延時間（秒）を実数で指定します。小さいほど瞬時に反応しますが、パフォーマンスの低下につながります。
+
+### `ac-auto-show-menu` ###
+
+補完時に自動的に補完メニューを表示するかどうかです。`t`の場合は常に自動的に表示します。`nil`の場合は絶対に表示されません。実数を指定すると表示までの遅延時間を秒数で指定できます。
+
+### `ac-show-menu-immediately-on-auto-complete` ###
+
+`auto-complete`時にただちに補完メニューを表示するかどうかです。すでにインライン補完が表示されている場合は、この設定は無視されます。
+
+### `ac-expand-on-auto-complete` ###
+
+`auto-complete`時に補完候補全体の共通部分を展開するかどうかです。
+
+### `ac-disable-faces` ###
+
+自動補完を無効にするフェイス名をシンボルのリストで指定します。カーソル位置のフェイステキストプロパティがそのリストに含まれる場合に自動補完が無効になる仕組みです。
+
+### `ac-stop-flymake-on-completing` ###
+
+補完時にFlymakeを中止するかどうかです。
+
+### `ac-use-fuzzy` ###
+
+[曖昧マッチによる補完](#)を利用するかどうかです。
+
+### `ac-fuzzy-cursor-color` ###
+
+[曖昧マッチによる補完](#)時にカーソルの指定した色に変更します。`nil`の場合は変更しません。利用できる色は`M-x list-colors-display`で確認できます。
+
+### `ac-use-comphist` ###
+
+[補完推測機能](#)を利用するかどうかです。`nil`にすると利用しませんが、パフォーマンスが向上する可能性があります。
+
+### `ac-comphist-threshold` ###
+
+低いスコアの補完候補を排除する閾値をパーセンテージで指定します。スコアの全体を100%とします。
+
+### `ac-comphist-file` ###
+
+[補完推測機能](#)のデータを永続化するファイルを指定します。
+
+### `ac-use-quick-help` ###
+
+クイックヘルプを利用するかどうかです。
+
+### `ac-quick-help-delay` ###
+
+クイックヘルプを表示するまでの時間（秒）を実数で指定します。
+
+### `ac-menu-height` ###
+
+補完メニューの行数を整数で指定します。
+
+### `ac-quick-help-height` ###
+
+クイックヘルプの行数を整数で指定します。
+
+### `ac-candidate-limit` ###
+
+補完候補数を制限します。整数が指定されている場合は、その値を表示する補完候補数の上限にします。`nil`の場合は無制限です。
+
+### `ac-modes` ###
+
+`global-auto-complete-mode`が有効な時に`auto-complete-mode`が自動的に有効になるモードをシンボルのリストで指定します。
+
+### `ac-compatible-packages-regexp` ###
+
+自動補完を開始するコマンドのパッケージを正規表現で指定します。
+
+### `ac-trigger-commands` ###
+
+自動補完を開始するコマンドをシンボルのリストで指定します。`self-insert-command`がデフォルトですが、まれに文字の挿入を独自のコマンドに設定しているモードがあるので、その対応のための設定項目です。
+
+### `ac-trigger-commands-on-completing` ###
+
+[`ac-trigger-commands`](#)と同様ですが、補完中に使用される点が異なります。
+
+### `ac-trigger-key` ###
+
+[トリガーキー](#)を指定します。
+
+### `ac-auto-start` ###
+
+補完が自動的に開始されるかどうかを指定します。`t`の場合は常に自動的に開始されます。`nil`の場合は絶対に自動的に開始されません。整数の場合は、補完対象文字列の長さがその値以上になるまで自動的に開始されません。
+
+### `ac-ignores` ###
+
+補完しない文字列を文字列のリストで指定します。
+
+### `ac-ignore-case` ###
+
+補完時に大文字・小文字を区別するかどうかです。`t`の場合は常に無視します。`nil`の場合は無視しません。シンボルで`smart`が指定された場合は、補完対象文字列に大文字が含まれる場合のみ区別します。
+
+### `ac-dwim` ###
+
+"Do What I Mean"機能です。`t`の場合は次の挙動になります。
+
+* 補完選択時にTABがRETの挙動に変化する
+* 補完候補が一つしかないときにTABをするとRETの挙動になる
+
+### `ac-use-menu-map` ###
+
+補完メニュー表示時に特別なキーマップ（`ac-menu-map`）を有効にするかどうかです。`t`かつ次の条件を満たしたときに`ac-menu-map`が有効になります。
+
+* `ac-auto-start`および`ac-auto-show-menu`が`nil`でなく、補完を開始してから一定時間後にメニューが表示されたとき
+* `auto-complete`コマンドでメニューが表示されたとき
+* `ac-isearch`コマンドでメニューが表示されたとき
+
+### `ac-use-overriding-local-map` ###
+
+補完の選択などの補完中のキー入力が効かない場合に利用します。内部的には`overriding-local-map`を使いますが、効果が強力すぎて他の拡張と干渉することがあるので、極力利用しないでください。
+
+### `ac-completion-face` ###
+
+インライン補完のためのフェイスです。
+
+### `ac-candidate-face` ###
+
+補完候補の背景のためのフェイスです。
+
+### `ac-selection-face` ###
+
+選択された補完候補のフェイスです。
+
+### `global-auto-complete-mode` ###
+
+グローバルに`auto-complete-mode`を利用するかどうかです。
+
+### `ac-user-dictionary` ###
+
+[辞書による補完](#)のための辞書を文字列のリストで指定します。
+
+### `ac-user-dictionary-files` ###
+
+[辞書による補完](#)のための辞書ファイルを文字列のリストで指定します。
+
+### `ac-dictionary-directories` ###
+
+[辞書による補完](#)のための辞書ファイルディレクトリを文字列のリストで指定します。
+
+### `ac-sources` ###
+
+使用する[情報源](#)をリストで指定します。これはバッファローカル変数です。
+
+### `ac-completing-map` ###
+
+補完中に使用するキーマップです。
+
+### `ac-menu-map` ###
+
+メニュー表示時に使用するキーマップです。[`ac-use-menu-map`](#)も参照してください。
+
+### `ac-mode-map` ###
+
+`auto-complete-mode`が有効なバッファで使用するキーマップです。
+
+拡張方法
+--------
+
+`auto-complete-mode`を拡張するとはつまり[情報源](#)を定義することです。この節では情報源の定義の仕方を説明します。
+
+### 雛形 ###
+
+情報源はおおまかに言って次のような形をとります。
+
+    (defvar ac-source-mysource1
+      '((prop . value)
+        ...))
+
+見てわかる通り情報源とは単なる連想リストでしかないのです。あらかじめ定義されたプロパティ名と正しい値のペアを連想リストとして組合せるだけで情報源が定義できてしまうのです。
+
+### 簡単な例 ###
+
+情報源で一番重要なプロパティは[`candidates`](#)プロパティです。このプロパティに関数あるいは式、変数を与えることで補完候補の生成を行います。プロパティの評価結果は文字列のリストであるべきです。例として補完候補としてFoo, Bar, Bazを生成する情報源を定義してみましょう。
+
+    (defvar ac-source-mysource1
+      '((candidates . (list "Foo" "Bar" "Baz"))))
+
+次にこの情報源を`ac-sources`に設定して実際に補完してみましょう。
+
+    (setq ac-sources '(ac-source-mysource1))
+
+Bと入力してBar, Bazが補完候補として現われれば成功です。上記の例では`candidates`プロパティに`(list ...)`という式を指定しました。ここで指定した式はバイトコンパイルされないので、よほど簡単なものでないかぎり式で指定するのはパフォーマンスの悪化をもたらします。代替策・正攻法としては関数を利用するのがよいでしょう。
+
+    (defun mysource1-candidates ()
+      '("Foo" "Bar" "Baz"))
+    
+    (defvar ac-source-mysource1
+      '((candidates . mysource1-candidates)))
+
+`candidates`プロパティに指定した関数は引数なしで補完が更新される度に呼び出されます。その他の方法として変数を直接指定することもできます。
+
+### 初期化 ###
+
+補完が開始されたときに一度だけ初期化処理を行いたいということがあります。そのためには`init`プロパティを利用します。`candidates`プロパティ同様、引数なしの関数あるいは式を指定します。次に簡単な例を示します。
+
+    (defvar mysource2-cache nil)
+    
+    (defun mysource2-init ()
+      (setq mysource2-cache '("Huge" "Processing" "Is" "Done" "Here")))
+    
+    (defvar ac-source-mysource2
+      '((init . mysource2-init)
+        (candidates . mysource2-cache)))
+
+この例では`mysource2-init`関数で大規模な処理を行い、`mysource2-cache`変数にその結果を保存しています。そして`candidates`プロパティにその変数を指定することで、補完が更新される度に大規模な処理が行われるのを防いでいます。この例の他にも次のような用途が考えられます。
+
+* `require`する
+* バッファを開いておく
+
+### キャッシュ ###
+
+`auto-complete-mode`ではキャッシュの戦略が重要になります。その方法として、前節で触れた`init`プロパティによるものと、この節で説明する`cache`プロパティによるものが基本となります。情報源の定義に`cache`プロパティを設定しておくと、初回の`candidates`プロパティの結果が内部的にキャッシュされ、それ以降は`candidates`プロパティを評価する代わりに、そのキャッシュを利用するにようになります。
+
+前節の例を`cache`プロパティを利用して書き直してみます。
+
+    (defun mysource2-candidates ()
+      '("Huge" "Processing" "Is" "Done" "Here"))
+    
+    (defvar ac-source-mysource2
+      '((candidates . mysource2-candidates)
+        (cache)))
+
+`candidates`プロパティに大規模な処理が必要な関数が指定されていますが、初回のみ実行されるのでパフォーマンスの問題は軽減されます。
+
+#### キャッシュの寿命 ####
+
+`init`プロパティや`cache`プロパティより大きいスコープでキャッシュを保持することがあります。例えば滅多に変更のない関数名のリストなどがそうです。その場合にパフォーマンスを犠牲にすることなく、適度にキャッシュをクリアするにはどうすればよいのでしょうか。`auto-complete-mode`はキャッシュの寿命を管理する機構を持っており、ユーザーはそこにキャッシュ用の変数を登録しておくことにより、適当なイベントごとにキャッシュがクリアされます。
+
+バッファが保存されるたびにキャッシュをクリアするには`ac-clear-variable-after-save`で変数を登録します。簡単な例を示します。
+
+    (defvar mysource3-cache nil)
+    
+    (ac-clear-variable-after-save 'mysource3-cache)
+    
+    (defun mysource3-candidates ()
+      (or mysource3-cache
+          (setq mysource3-cache (list (format "Time %s" (current-time-string))))))
+    
+    (defvar ac-source-mysource3
+      '((candidates . mysource3-candidates)))
+
+これを`ac-sources`に設定してTimeで補完を行ってください。すると補完候補に補完時の時間が表示されると思います。二度目以降も同じ時間が表示されるのは`mysource3-candidates`は可能な限りキャッシュを返すようになっているからです。それでは一度そのバッファを保存して、再びTimeで補完を行ってください。今度は新しい時間に更新されたと思います。この情報源のキモは`ac-clear-variable-after-save`でキャッシュ用変数を登録しているところにあります。
+
+さらに定期的にキャッシュをクリアすることも可能です。そのためには`ac-clear-variable-every-minute`で変数を登録します。使い方は`ac-clear-variable-after-save`と同じですが、一分ごとに定期的にキャッシュがクリアされる点が異なります。標準の情報源である`ac-source-functions`などがこの機能を利用しています。
+
+### アクション ###
+
+[RETによる補完](#)の場合、`action`プロパティで指定された関数あるいは式が評価されます。標準情報源では`ac-source-abbrev`や`ac-source-yasnippet`が利用しています。
+
+### オムニ補完 ###
+
+*オムニ補完*とは現在編集中のコンテキストを考慮して行う補完のことです。スラッシュを検出して行うファイル名補完や、ドットを検出して行うC/C++のメンバー補完は、このオムニ補完であると言えます。情報源をオムニ補完に対応させるには`prefix`プロパティを使います。`prefix`プロパティは補完対象文字列の開始位置をポイントで返さなければなりません。`nil`を返した場合は、その情報源が現在のコンテキストでは無効であると解釈します。
+
+例として`To: `の後にメールアドレスを補完する情報源を考えてみましょう。まず、これまでの知識からメールアドレスを補完する情報源を定義します。
+
+    (defvar ac-source-to-mailaddr
+      '((candidates . (list "foo1@example.com"
+                            "foo2@example.com"
+                            "foo3@example.com"))))
+    
+    (setq ac-sources '(ac-source-to-mailaddr))
+
+ここまでは簡単です。次に`prefix`プロパティを使って`To: `の後にのみ補完が開始されるようにします。`prefix`プロパティには次の三つが指定できます。
+
+* 正規表現
+* 関数
+* 式
+
+正規表現を指定した場合、その正規表現を使って`re-search-backward`を行い[^1]、マッチしたグループ1あるいはグループ0の先頭位置を補完対象文字列の開始位置とします。もう少し複雑な制御が必要な場合は関数あるいは式を指定します。ここで評価された開始位置は[`ac-point`](#)に格納されます。先の例では次の正規表現で事足ります。
+
+    ^To: \(.*\)
+
+グループ1をキャプチャしているのは`To: `を補完対象文字列に含めないためです。これを`prefix`プロパティに設定した最終的な情報源は次のようになります。
+
+    (defvar ac-source-to-mailaddr
+      '((candidates . (list "foo1@example.com"
+                            "foo2@example.com"
+                            "foo3@example.com"))
+        (prefix . "^To: \\(.*\\)")))
+
+試しに`To: `と入力してみましょう。メールアドレスが補完できるようになったら成功です。
+
+
+[^1]: 厳密にはその正規表現の末尾にカーソルを意味する\=を付与したもので`re-search-backward`されます
+
+### `ac-define-source` ###
+
+これまでは`defvar`で情報源を定義してきましたが、`ac-define-source`というユーティリティマクロを使って定義することも可能です。
+
+    (ac-define-source mysource3
+      '((candidates . (list "Foo" "Bar" "Baz"))))
+
+このマクロは次のように展開されます。
+
+    (defvar ac-source-mysource3
+      '((candidates . (list "Foo" "Bar" "Baz"))))
+    
+    (defun ac-complete-mysource3 ()
+      (interactive)
+      (auto-complete '(ac-source-mysource3)))
+
+`defvar`は従来通り定義され、続いてその情報源のみで補完を行うコマンドが定義されます。`auto-complete`は引数なしで呼び出された場合は`ac-sources`を情報源として使い、引数ありで呼び出された場合はその値を情報源として使います。`defvar`か`ac-define-source`かどちらを使うかは微妙ですが、後方互換性を保持するなら`defvar`のほうが無難でしょう。ちなみに標準情報源は全て`ac-define-source`で定義されています。つまり`ac-complete-filename`などを他のキーに割り当てて個別に利用することができます。
+
+### 情報源プロパティ一覧 ###
+
+#### `init` ####
+
+補完開始時に一度だけ指定された関数あるいは式を評価します。
+
+#### `candidates` ####
+
+補完更新時に指定された関数あるいは式、変数を評価します。評価結果は文字列のリストであるべきです。[`cache`](#)プロパティが有効な場合は、その補完では二度目以降評価されません。
+
+#### `prefix` ####
+
+指定された正規表現、関数あるいは式を評価して、[オムニ補完](#)のための補完対象文字列の開始位置を取得します。`nil`を返した場合はその情報源は無視されます。正規表現が指定された場合、グループ1の開始位置あるいはグループ0の開始位置が評価値として使われます。
+
+#### `requires` ####
+
+情報源が有効になる補完対象文字列の文字数を指定します。指定のない場合は[`ac-auto-start`](#)の値が利用されます。
+
+#### `action` ####
+
+[RETによる補完](#)時に実行する[アクション](#)を関数あるいは式で指定します。
+
+#### `limit` ####
+
+補完候補の上限数を設定します。`ac-candidate-limit`を部分的に上書きします。
+
+#### `symbol` ####
+
+補完候補の意味を現わす記号を一文字の文字列で指定します。指定する記号は任意ですが、基本的に以下の慣習に従うべきです。
+
+| 記号 | 意味           |
+|------|----------------|
+| s    | シンボル       |
+| f    | 関数・メソッド |
+| v    | 変数           |
+| c    | 定数           |
+| a    | 略語           |
+| d    | 辞書           |
+
+#### `summary` ####
+
+補完候補のサマリを文字列で指定します。これは補完候補を簡潔に説明するために使うべきです。
+
+#### `cache` ####
+
+[キャッシュ](#)を利用します。
+
+#### `require` ####
+
+整数あるいは`nil`を指定します。整数が指定された場合、その値が補完対象文字列の長さより大きい場合は、その情報源は無視されます。`nil`の場合は常に有効になります。
+
+#### `candidate-face` ####
+
+補完候補のフェイスを指定します。[`ac-candidate-face`](#)を部分的に上書きします。
+
+#### `selection-face` ####
+
+選択された補完候補のフェイスを指定します。[`ac-selection-face`](#)を部分的に上書きします。
+
+#### `depends` ####
+
+依存するfeature（`require`される）をリストで指定します。
+
+#### `available` ####
+
+この情報源が利用できるかを示す関数あるいは式を指定します。
+
+### 変数一覧 ###
+
+情報源でよく利用する変数を一覧します。
+
+#### `ac-buffer` ####
+
+補完が開始されたバッファです。
+
+#### `ac-point` ####
+
+補完対象文字列の開始位置です。
+
+#### `ac-prefix` ####
+
+補完対象文字列です。
+
+#### `ac-limit` ####
+
+現在の情報源の候補上限数です。[`ac-candidate-limit`](#)や[`limit`](#)プロパティで制御されます。
+
+#### `ac-candidates` ####
+
+補完候補のリストです。
+
+トラブルシューティング
+----------------------
+
+### レスポンスが遅い ###
+
+十分なレスポンス性能を確保するのは`auto-complete-mode`にとって大変重要なことですが、よく知られているように、それは機能性とのトレードオフでもあります。以下にレスポンス性能に関連する設定項目を挙げるので、もし問題があれば参照してください。
+
+#### `ac-auto-start` #### {#trouble_ac-auto-start}
+
+[`ac-auto-start`](#)に大きめの数値を設定することで、補完候補の生成コストを軽減するができます。あるいは`nil`に設定することで、本当に必要な時だけ補完を実行することもできます。詳しくは[自動的に補完しない](#)を参照してください。
+
+#### `ac-delay` #### {#trouble_ac-delay}
+
+[`ac-delay`](#)に大きめの数値を設定することで、補完開始コストを軽減することができます。
+
+#### `ac-auto-show-menu` #### {#trouble_ac-auto-show-menu}
+
+[`ac-auto-show-menu`](#)に大きめの数値を設定することで、補完メニューの表示コストを軽減することができます。
+
+#### `ac-use-comphist` #### {#trouble_ac-use-comphist}
+
+[`ac-use-comphist`](#)に`nil`を設定して[補完推測機能](#)を無効にすることで、推測のための計算コストを軽減することができます。
+
+#### `ac-candidate-limit` #### {#trouble_ac-candidate-limit}
+
+[`ac-candidate-limit`](#)に適切な数値を設定することで、多量の計算を行わないようにすることができます。
+
+### 補完メニューの表示が崩れる ###
+
+補完メニューの表示が崩れる問題には大きく分けて二つあります。
+
+#### カラム計算の問題 ####
+
+`auto-complete-mode`は補完メニューを正しく表示するのに必須な処理であるカラム計算のコストを軽減するために、正確さをある程度犠牲にした最適化バージョンのカラム計算関数を利用していますが、これが原因で補完メニューの表示が崩れる可能性があります。最適化バージョンを使わないためには次のコードを評価します。
+
+    (setq popup-use-optimized-column-computation nil)
+
+#### フォントの問題 ####
+
+Ubuntu 9.10にて[IPAフォント](http://ossipedia.ipa.go.jp/ipafont/)をXftでレンダリングすると、補完メニューの表示が崩れる問題を確認しています。[VLゴシック](http://dicey.org/vlgothic/)などではXftでレンダリングしても正しく表示されるようなので、そちらをお使いください。また、Xftを使わなければIPAフォントも正しくレンダリングできます。
+
+現在のところ完全な対応策は見つかっていませんが、`set-face-font`で補完メニューのフォントサイズを適切なサイズに変更することで対応できる可能性があります。例えばNTEmacsでは日本語を含む補完メニューを表示すると補完メニューの表示が崩れることがあります。これは以下のようにフォントサイズを調整することで対応することができます。
+
+    (set-face-font 'ac-candidate-face "MS Gothic 11")
+    (set-face-font 'ac-selection-face "MS Gothic 11")
+
+既知の問題
+----------
+
+### `flyspell-mode`が有効なバッファで自動補完できない ###
+
+`flyspell-mode`の遅延手法が原因で自動補完ができません。これを回避するには`M-x ac-flyspell-workaround`とするか`~/.emacs`に次のように書いてください。
+
+    (ac-flyspell-workaround)
+
+バグレポート
+------------
+
+[Auto Complete Modeのバグトラッキングシステム](http://cx4a.org/redmine/projects/auto-complete-mode)に新しいチケットを登録してください。
+
+[GNU Emacs]: http://www.gnu.org/software/emacs/
+[GPLv3]: http://gplv3.fsf.org/
+[GFDL]: http://www.gnu.org/copyleft/fdl.html
diff --git a/.emacs.d/auto-complete/doc/manual.txt b/.emacs.d/auto-complete/doc/manual.txt
new file mode 100644
index 0000000..782fd17
--- /dev/null
+++ b/.emacs.d/auto-complete/doc/manual.txt
@@ -0,0 +1,1062 @@
+Title: Auto Complete Mode - User Manual
+Numbering: yes
+CSS: style.css
+
+Auto Complete Mode User Manual
+==============================
+
+[Index](index.txt)
+
+\[[Japanese](manual.ja.txt)]
+
+* * * *
+
+{toc}
+
+* * * *
+
+Introduction
+------------
+
+Auto Complete Mode (aka `auto-complete.el`, `auto-complete-mode`) is a extension that automates and advances completion-system of [GNU Emacs][]. This is superior than old system:
+
+* Visual interface
+* Reduce overhead of completion by using statistic method
+* Extensibility
+
+This user manual covers from how to install and how to use to how to extend. Please contact me if you have question.
+
+Auto Complete Mode is licensed under the term of [GPLv3][]. And this document is licensed under the term of [GFDL][].
+
+Downloads
+---------
+
+You can download from [Auto Complete Mode top page](index.txt).
+
+Installation
+------------
+
+### Requirements ###
+
+* 800MHz or higher CPU
+* 256MB or higher RAM
+* GNU Emacs 22 or later
+
+### Installation Script ###
+
+It is easy to install by using a installation script called `etc/install.el` that is located in the package directory.
+
+Type `M-x load-file RET` in the running Emacs or newly launched Emacs. Note that if you want to upgrade `auto-complete-mode`, you have to install in **a newly launched Emacs with `-q` option**. Then input a file name to load which is a path string with adding `/etc/install.el` to the package directory. For example, if the package directory is `~/tmp/auto-complete-1.2`, the file name will be `~/tmp/auto-complete-1.2/etc/install.el`.
+
+Then input a directory where Auto Complete will be installed. You need to add a directory to `load-path` later if `load-path` doesn't include the directory. The directory is to be `~/.emacs.d` by default.
+
+Finally type `RET` to start installation. After installation, you may see the following buffer and follow instructions to edit `.emacs`.
+
+You can also install from terminal like:
+
+    $ make install
+    $ # or with directory specified
+    $ make install DIR=$HOME/.emacs.d/
+
+If you don't have GNU Make, run emacs like:
+
+    $ emacs -batch -l etc/install.el
+
+**Example message after installation (\*Installation Result* Buffer)**
+
+    Successfully installed!
+    
+    Add the following code to your .emacs:
+    
+    (add-to-list 'load-path "~/.emacs.d")    ; This may not be appeared if you have already added.
+    (add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict")
+    (require 'auto-complete-config)
+    (ac-config-default)
+
+### Manual Installation ###
+
+It is also possible to install manually if you follow a directory configuration. First, do byte-compile all `.el` files in the package directory. You may use `Makefile` in UNIX OS.
+
+    $ make byte-compile
+
+If you can't use `Makefile`, open the directory from Emacs by `C-x d` and type `* . el RET B RET` to do byte-compile.
+
+Then copy all `.el` files and `.elc` files to a directory which is added to `load-path`. You may do such the following command if the directory is `~/.emacs.d`
+
+    $ cp *.el *.elc ~/.emacs.d
+
+And then install dictionary files. They are optional to run Auto Complete Mode, but you should install if you don't have any reason. Dictionary files are located in called `dict` directory, it is needed that they are installed to a directory which is `auto-complete.el` has been installed. If you installed `auto-complete.el` to a directory called `~/.emacs.d`, you also have to install dictionary files to `~/.emacs.d`. Please be careful not to overwrite existed files. It may be rare case, but the installation script above avoids overwrite by renaming `dict` directory to `ac-dict` directory.
+
+    $ cp -r dict ~/.emacs.d
+
+Finally add the following code to `.emacs`.
+
+    (add-to-list 'ac-dictionary-directories "~/.emacs.d/dict")
+    (require 'auto-complete-config)
+    (ac-config-default)
+
+If you haven't added the directory to `load-path`, you need to add the following code too.
+
+    (add-to-list 'load-path "~/.emacs.d")
+
+### Check ###
+
+Type some characters in \*scratch\* buffer in a restarted Emacs or newly launched Emacs. It is successful if you see completion menu. If you have error or no completion is started, it is failure maybe. Please contact me in such case with confirmation following:
+
+* Using correct `load-path`?
+
+  A directory which `auto-complete.el` is installed to is in `load-path`.
+
+* Characters `AC` in mode-line?
+
+  If you don't see characters `AC` in mode-line (a gray line of bottom of buffer), `auto-complete-mode` is not enabled. Type `M-x auto-complete-mode` to enable and try again.
+
+* Error occurred
+
+  If you have \*Backtrace* with errors or errors in minibuffer (bottom of frame), please contact me with the errors.
+
+Basic Usage
+-----------
+
+First, in a meaning, `auto-complete-mode` has no "usage". Because `auto-complete-mode` is designed to fade into Emacs editing system. Users will be received a highly-developed completion-system automatically without any difficulty. Ultimately, a goal of `auto-complete-mode` is to provide a system that does what users want without any command, but it is impossible to accomplish 100% accuracy actually. So there is "usage" to cover that points.
+
+### Input Characters ###
+
+Inputting characters is basic. Any completion will never be shown without any character. So when completion will be started, in other others, what character causes completion to be started? It is good question but it is difficult to answer here. In simple words, completion will be started when just character is inserted. See [`ac-trigger-commands`](#) for more details.
+
+![Inputting Characters](ac.png)
+
+### Completion by TAB ####
+
+After completion is started, completion by TAB will be enabled temporarily. Completion by TAB is the most important and most frequent used command. TAB has several meanings.
+
+* Case that only one candidate remains
+
+  If only on candidate remains, the candidate will be used to complete.
+
+* Case that there is common part among candidates
+
+  For example, if all candidates start with "set", it means they have common part "set". So TAB completes "set" at first.
+
+* Otherwise
+
+  Otherwise, select candidates in cycle by typing TAB.
+
+It may be different a little according to settings, but basically completion by TAB works as we wrote above. A reason why TAB has several meanings is that we want users to do anything with TAB.
+
+### Completion by RET ###
+
+Like completion by TAB but some points are different:
+
+* Complete a selected candidate immediately
+* Execute an action if a selected candidate has the action
+
+It is necessary to type TAB a few times for completion by TAB. Completion by RET instead complete a selected candidate immediately, so when you see a candidate you want, just type RET. If the candidate has an action, the action will be executed. Take a example of builtin abbrev completion. In completion by TAB, an abbrev which expands "www" to "World Wide Web" will be completed to "www", but in completion by RET, the abbrev will be expanded to "World Wide Web" as completion.
+
+### Candidate Selection ###
+
+Following `auto-complete-mode` philosophy, it is not recommended to select candidates. Because, it means it has been failed to guess completion, and also it requires for users to do candidate selection which is a high cost operation. We think there is so many cases that requires to do candidate selection, because completion by TAB will help candidate selection somehow and in recent version, a statistic method contributes to make a candidate suggestion more accurate. However, actually, this is such cases. So we also think it is not bad idea to remember how to select candidates.
+
+Selecting candidates is not a complex operation. You can select candidates forward or backward by cursor key or `M-p` and `M-n`. According to setting, a behavior of completion by TAB will be changed as a behavior of completion by RET. See [`ac-dwim`](#) for more details.
+
+There is other ways to select candidates. `M-1` to select candidate 1, `M-2` to select candidate 2, and so on.
+
+### Help ###
+
+`auto-complete-mode` has two type of help functionalities called *Quick Help* and *Buffer Help*. They are different in a point of displaying. Quick help will appear at the side of completion menu, so you can easily see that, but there is a problem if there is no space to displaying the help. Quick help will be shown automatically. To use quick help, you need to set [`ac-use-quick-help`](#) to `t`. Delay time show quick help is given by [`ac-quick-help-delay`](#).
+
+On other side, buffer help will not be shown without any instructions from users. Buffer help literally display a help in a buffer of other window. It costs much to see than quick help, but it has more readability. To show buffer help, press `C-?` or `f1`. By pressing `C-M-v` or `C-M-S-v` after showing buffer help, you can scroll forward or backward for help buffer. Other commands will be fallbacked and buffer help will be closed.
+
+### Summary ###
+
+Completion will be started by inserting characters. After completion is started, operations in the following table will be enabled temporarily. After completion is finished, these operations will be disable.
+
+| Key       | Command     | Description               |
+|-----------|-------------|---------------------------|
+| TAB, C-i  | ac-expand   | Completion by TAB         |
+| RET, C-m  | ac-complete | Completion by RET         |
+| down, M-n | ac-next     | Select next candidate     |
+| up, M-p   | ac-previous | Select previous candidate |
+| C-?, f1   | ac-help     | Show buffer help          |
+
+To stop completion, use `C-g` simply.
+
+Advanced Usage
+--------------
+
+### `auto-complete` command ###
+
+Basically there is assumption that `auto-complete-mode` will be started automatically, but there is also exception. For example, that is a case that an user wants to complete without inserting any character or a case not to start `auto-complete-mode` automatically by settings. A command called `auto-complete` is useful in such cases, which is used with key binding in general. The following code changes a default completion command to more advanced feature that `auto-complete-mode` provides.
+
+    (define-key ac-mode-map (kbd "M-TAB") 'auto-complete)
+
+So, as of `auto-complete` command, it is a little different from an original automatic completion.
+
+* Case that only one candidate remains
+
+  Complete immediately without showing completion menu.
+
+* Case that no candidates remains
+
+  Attempt to complete with fuzzy matching. See [Completion by Fuzzy Matching](#) for more details.
+
+* Otherwise
+
+  Otherwise start completion with/without expanding a whole common part and showing completion menu. See also [`ac-show-menu-immediately-on-auto-complete`](#) and [`ac-expand-on-auto-complete`](#).
+
+### Completion by Fuzzy Matching ###
+
+In a case that there is no candidates by `auto-complete` command or a case that `ac-fuzzy-complete` command is executed, `auto-complete-mode` attempts to complete with fuzzy matching instead of usual exact matching. Parameters of fuzzy matching has already been optimized for use, so users don't need to change them. However if you want to know the internals, see `fuzzy.el`. Using completion by fuzzy matching, typo will be fixed as a series of completion. For instance, input "messaeg" in a buffer, and then do `M-x auto-complete` or `M-x ac-fuzzy-complete`. The cursor color will be changed to red if completion has been successful, and then you can continue to complete with regarding of "messaeg" as "message". It is not bad idea to bind `auto-complete` command to some key in a meaning of handling such cases.
+
+![Fuzzy matching](ac-fuzzy.png)
+
+### Filtering Completion Candidates ###
+
+You can start filtering by `C-s`. The cursor color will be changed to blue. Then input characters to filter. It is possible to do completion by TAB or select candidates, which changes the cursor color to original so that telling filtering completion candidates has done. The filtering string will be restored when `C-s` again. To delete the filter string, press `DEL` or `C-h`. Other general operations is not allowed there.
+
+![Filtering](ac-isearch.png)
+
+### Trigger Key ###
+
+It is difficult what key `auto-complete` command is bound to. It should be bound to a key which is easy to press as much as possible because completion operation is often happened. However, it is a major problem that there is no empty key to press easily. `auto-complete-mode` provides a feature called *Trigger Key* that handles such the problem. Using trigger key, you can use an arbitrary key temporarily if necessary. The following code uses `TAB` as trigger key.
+
+    (ac-set-trigger-key "TAB")
+
+Trigger key will be enabled after inserting characters. Otherwise it is dealt as an usual command (TAB will be indent). Generally, trigger key is used with `auto-auto-start` being `nil`.
+
+    (setq ac-auto-start nil)
+
+As of `ac-auto-start`, see [Not to complete automatically](#) or [`ac-auto-start`](#) for more details.
+
+### Candidate Suggestion ###
+
+`auto-complete-mode` analyzes completion operations one by one and reduces overheads of completion as much as possible. For example, having a candidate "foobar" been completed few times, `auto-complete-mode` arranges it to top of the candidates next time and make a situation that allows users to complete the word with one time TAB or few times TAB. It is called `comphist` internally, and you can use it by setting `ac-use-comphist` to `t`. It is enabled by default. Collection operations data will be stored in `user-emacs-directory` or `~/.emacs.d/` with a name `ac-comphist.dat`.
+
+`auto-complete-mode` collects two types of data to accomplish accurate candidate suggestion.
+
+* Count of completion
+* Position of completion
+
+Simply saying, it collects not only a completion count but also a position of completion. A completion candidate will be scored with the count and the point. If you complete `find-file` with a word f few times, in next time `find-file` will be arranged to top of candidates. However it is too simple. Actually `find-file` with `find-` will not have the same score, because a distance between `f` and `find-` will reduce a weight of scoring. It means that if you often complete `find-library` after `find-`, `find-library` will get high score than `find-file` at that position. So `auto-complete-mode` can guess `find-file` will be top after `f` and `find-library` will be top after `find-` as it seems to learn from users' operations.
+
+### Completion by Dictionary ###
+
+Dictionary is a simple list of string. There is three types of dictionary: user defined dictionary, major mode dictionary, and extension dictionary. You need to add `ac-source-dictionary` to `ac-sources` (default). See [source](#Source) for more details.
+
+#### User Defined Dictionary ####
+
+User defined dictionary is composed of a list of string specified `ac-user-dictionary` and dictionary files specified by `ac-user-dictionary-files`. Dictionary file is a word list separated with newline. User defined dictionary is shared with all buffers. Here is example adding your mail address to dictionary.
+
+    (add-to-list 'ac-user-dictionary "foobar@example.com")
+
+Setting will be applied immediately. Try to input "foo" in a buffer. You may see `foobar@example.com` as a completion candidate. This setting will be cleared if Emacs will quit. You need to write the following code to keep setting in next Emacs launching.
+
+    (setq ac-user-dictionary '("foobar@example.com" "hogehoge@example.com"))
+
+There is more easy way to add word to dictionary. Files specified by `ac-user-dictionary-files` will be treated as dictionary files. By default, `~/.dict` will be a dictionary file, so edit `~/.dict` like:
+
+    foobar@example.com
+    hogehoge@example.com
+
+As we said, words are separated with newline. They are not applied immediately, because `auto-complete-mode` uses cache not to load every time from a dictionary file. It may be high cost. To clear cache, do `M-x ac-clear-dictionary-cache`. After that, dictionary files will be load absolutely.
+
+No need to say perhaps, you can use other files as dictionary file by adding to `ac-user-dictionary-files`.
+
+#### Major Mode Dictionary and Extension Dictionary ####
+
+You can use other dictionaries for every major-modes and extensions. A dictionary will loaded from a directory specified with `ac-dictionary-directories`. `ac-dictionary-directories` may be the following setting if you followed [installation](#Installation) instructions.
+
+    (add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict")
+
+A dictionary named `c++-mode` for specific major-mode and a dictionary named `txt` for specific extension will be stored in the directory. For instance, you complete in a buffer named `a.cpp` with dictionary completion, following the setting above, `~/.emacs.d/ac-dict/c++-mode` and `~/.emacs.d/ac-dict/cpp` will be loaded as dictionary file. You can edit the dictionary files and make a new one. In addition, you can add a new dictionary file to a directory that has same configuration.
+
+As same as user defined dictionary, after editing and adding dictionary, you should do `M-x ac-clear-dictionary-cache` to apply changes.
+
+Source
+------
+
+*Source* is a concept that insures a extensibility of `auto-complete-mode`. Simply saying, source is a description about:
+
+* How to generate completion candidates
+* How to complete
+* How to show
+
+Anybody who know about Emacs Lisp a little can define a source easily. See [extend](#Extend) for how to define a source. Here we can explain how to use builtin sources.
+
+Usually a name of source starts with `ac-source-`. So you can list up sources with `apropos` (`M-x apropos RET ^ac-source-`). You may see `ac-source-filename` and `ac-source-dictionary` which are entities of sources.
+
+### Using Source ###
+
+If you wrote `(ac-config-default)` in your `.emacs`, it is rare to change a source setting because it is already optimized to use. Here is a short explanation about source however. Sources will be used by setting `ac-sources` to a list of sources. You can see the setting by evaluating `ac-sources` in \*scratch\* buffer:
+
+    ;; Formatted
+    (ac-source-filename
+     ac-source-functions
+     ac-source-yasnippet
+     ac-source-variables
+     ac-source-symbols
+     ac-source-features
+     ac-source-abbrev
+     ac-source-words-in-same-mode-buffers
+     ac-source-dictionary)
+
+As you see, `ac-sources` in \*scratch\* buffer has six sources. We explain each source for detail, you can guess meanings of sources. It is worth to remember that `ac-sources` is a buffer local variable, which means each `ac-sources` for buffers will be different.
+
+Here is an example. Think you are at \*scratch\* buffer. As we said, this buffer has many sources. Some people think it is too many. So try to change `ac-sources` to reduce functionalities. It is easy to change. Just evaluate the following code in \*scratch\* buffer or with `M-:`:
+
+    (setq ac-sources '(ac-source-symbols ac-source-words-in-same-mode-buffers))
+
+This example changes `ac-source` setting and enable only symbol completion and word completion among same major modes. Then, how can we enable this setting in next Emacs launching? We can change settings by adding a hook which is called when \*scratch\* buffer is created.
+
+    (defun my-ac-emacs-lisp-mode ()
+      (setq ac-sources '(ac-source-symbols ac-source-words-in-same-mode-buffers)))
+    
+    (add-hook 'emacs-lisp-mode-hook 'my-ac-emacs-lisp-mode)
+
+If a code `(ac-config-default)` is written in `.emacs`, the code above may not be worked correctly. It is because of `(ac-config-default)` will overwrite the setting. In such case, you can redefine a function which is used in `(ac-config-default)`. The function name is `ac-emacs-lisp-mode-setup` in `emacs-lisp-mode`. See `auto-complete-config.el` for more details.
+
+    (defun ac-emacs-lisp-mode-setup ()
+      (setq ac-sources '(ac-source-symbols ac-source-words-in-same-mode-buffers)))
+
+So, now you know how to change sources in a specific major mode. Summary is:
+
+1. Define a function changing `ac-sources`
+2. Register the function to proper mode hooks (`c++-mode-hook`, `ruby-mode-hook`, and `python-mode-hook`, etc)
+
+By the way, how can we change a setting for all buffers? We use `setq-default` to change `ac-sources` instead of `setq` in such case. Then the default value of `ac-sources` will be changed to the value you specified.
+
+    (setq-default ac-sources '(ac-source-words-in-all-buffer))
+
+There is other ways to do that. `(ac-config-default)` changes the default value of `ac-sources` by registering a hook for `auto-complete-mode`. The registered function is `ac-common-setup` that adds `ac-source-filename` to the first of `ac-sources` by default. So all `auto-complete-mode` enabled buffer will have `ac-source-filename` at the first of `ac-sources`. A reason why adding to the first is relating to [omni completion](#Omni_Completion). Anyway you don't care about it here. So if you want to change `ac-sources` of all buffer, you can redefine `ac-common-setup` function to do that.
+
+    ;; Add ac-source-dictionary to ac-sources of all buffer
+    (defun ac-common-setup ()
+      (setq ac-sources (append ac-sources '(ac-source-dictionary))))
+
+### Builtin Sources ###
+
+Here are defined sources in `auto-complete.el` and `auto-complete-config.el`.
+
+#### `ac-source-abbrev` ####
+
+A source for Emacs abbreviation function. See `info emacs Abbrevs` about abbreviation function.
+
+#### `ac-source-css-property` ####
+
+A source for CSS property.
+
+#### `ac-source-dictionary` ####
+
+A source for dictionary. See [completion by dictionary](#Completion_by_Dictionary) about dictionary.
+
+#### `ac-source-eclim` ####
+
+A source for [Emacs-eclim](http://github.com/senny/emacs-eclim).
+
+#### `ac-source-features` ####
+
+A source for completing features which are available with `(require '`.
+
+#### `ac-source-filename` ####
+
+A source for completing file name. Completion will be started after inserting `/`.
+
+#### `ac-source-files-in-current-dir` ####
+
+A source for completing files in a current directory. It may be useful with `eshell`.
+
+#### `ac-source-functions` ####
+
+A source for completing Emacs Lisp functions. It is available only after `(`.
+
+#### `ac-source-gtags` ####
+
+A source for completing tags of [Global](http://www.tamacom.com/global.html).
+
+#### `ac-source-imenu` ####
+
+A source for completing `imenu` nodes. See `info emacs imenu` for details.
+
+#### `ac-source-semantic` ####
+
+A source for [Semantic](http://cedet.sourceforge.net/semantic.shtml). It can be used for completing member name for C/C++.
+
+#### `ac-source-semantic-raw` ####
+
+Unlike `ac-source-semantic`, this source is for completing symbols in a raw namespace.
+
+#### `ac-source-symbols` ####
+
+A source for completing Emacs Lisp symbols.
+
+#### `ac-source-variables` ####
+
+A source for completing Emacs Lisp symbols.
+
+#### `ac-source-words-in-all-buffer` ####
+
+A source for completing words in all buffer. Unlikely [`ac-source-words-in-same-mode-buffers`](#), it doesn't regard major-mode.
+
+#### `ac-source-words-in-buffer` ####
+
+A source for completing words in a current buffer.
+
+#### `ac-source-words-in-same-mode-buffers` ####
+
+A source for completing words which are collected over buffers whom major-mode is same to of a current buffer. For example, words will shared among `a.cpp` and `b.cpp`, but not shared among `a.pl` and `b.cpp` because they are different major-mode buffers. Usually this source is more useful than [`ac-source-words-in-all-buffer`](#).
+
+#### `ac-source-yasnippet` ####
+
+A source for [Yasnippet](http://code.google.com/p/yasnippet/) to complete and expand snippets.
+
+Tips
+----
+
+### Not to complete automatically ###
+
+If you are being annoyed with displaying completion menu, you can disable automatic starting completion by setting `ac-auto-start` to `nil`.
+
+    (setq ac-auto-start nil)
+
+You need to bind some key to `auto-complete` command (because you need to complete anyway). For example, bind to `ac-mode-map`, which is a key map for `auto-complete-mode` enabled buffer:
+
+    (define-key ac-mode-map (kbd "M-TAB") 'auto-complete)
+
+Or bind to global key map.
+
+    (global-set-key "\M-/" 'auto-complete)
+
+In addition, if you allow to start completion automatically but also want to be silent as much as possible, you can do it by setting `ac-auto-start` to an prefix length integer. For example, if you want to start completion automatically when you has inserted 4 or more characters, just set `ac-auto-start` to 4:
+
+    (setq ac-auto-start 4)
+
+Setting `ac-auto-start` to large number will result in good for performance. Lesser `ac-auto-start`, more high cost to produce completion candidates, because there will be so many candidates necessarily. If you feel `auto-complete-mode` is stalling, change `ac-auto-start` to a larger number or `nil`.
+
+See [`ac-auto-start`](#) for more details.
+
+And consider to use [trigger key](#Trigger_Key).
+
+### Not to show completion menu automatically ###
+
+There is another approach to solve the annoying problem is that not to show completion menu automatically. Not to show completion menu automatically, set [`ac-auto-show-menu`](#) to `nil`.
+
+    (setq ac-auto-show-menu nil)
+
+When you select or filter candidates, completion menu will be shown.
+
+In other way, you can delay showing completion menu by setting `ac-auto-show-menu` to seconds in real number.
+
+    ;; Show 0.8 second later
+    (setq ac-auto-show-menu 0.8)
+
+This interface has both good points of completely automatic completion and completely non-automatic completion. This may be default in the future.
+
+### Stop completion ###
+
+You can stop completion by pressing `C-g`. However you won't press `C-g` while defining a macro. In such case, it is a good idea to bind some key to `ac-completing-map`.
+
+    (define-key ac-completing-map "\M-/" 'ac-stop)
+
+Now you can stop completion by pressing `M-/`.
+
+### Finish completion by TAB ###
+
+As we described above, there is many behaviors in TAB. You need to use TAB and RET properly, but there is a simple interface that bind RET to original and TAB to finish completion:
+
+    (define-key ac-completing-map "\t" 'ac-complete)
+    (define-key ac-completing-map "\r" nil)
+
+### Select candidates with C-n/C-p only when completion menu is displayed ###
+
+By evaluating the following code, you can select candidates with C-n/C-p, but it might be annoying sometimes.
+
+    ;; Bad config
+    (define-key ac-completing-map "\C-n" 'ac-next)
+    (define-key ac-completing-map "\C-p" 'ac-previous)
+
+In this case, it is better that selecting candidates is enabled only when completion menu is displayed so that the key input will not be taken as much as possible. `ac-menu-map` is a keymap for completion on completion menu which is enabled when `ac-use-menu-map` is `t`.
+
+    (setq ac-use-menu-map t)
+    ;; Default settings
+    (define-key ac-menu-map "\C-n" 'ac-next)
+    (define-key ac-menu-map "\C-p" 'ac-previous)
+
+See [`ac-use-menu-map`](#) and [`ac-menu-map`](#) for more details.
+
+### Not to use quick help ###
+
+A tooltip help that is shown when completing is called quick help. You can disable it if you don't want to use it:
+
+    (setq ac-use-quick-help nil)
+
+### Change a height of completion menu ###
+
+Set `ac-menu-height` to number of lines.
+
+    ;; 20 lines
+    (setq ac-menu-height 20)
+
+### Enable `auto-complete-mode` automatically for specific modes ###
+
+`auto-complete-mode` won't be enabled automatically for modes that are not in `ac-modes`. So you need to set if necessary:
+
+    (add-to-list 'ac-modes 'brandnew-mode)
+
+### Ignore case ###
+
+There is three ways to distinguish upper case and lower case.
+
+    ;; Just ignore case
+    (setq ac-ignore-case t)
+    ;; Ignore case if completion target string doesn't include upper characters
+    (setq ac-ignore-case 'smart)
+    ;; Distinguish case
+    (setq ac-ignore-case nil)
+
+Default is `smart`.
+
+### Stop completion automatically after inserting specific words ###
+
+Set `ac-ignores` to words that stops completion automatically. In ruby, some people want to stop completion automatically after inserting "end":
+
+    (add-hook 'ruby-mode-hook
+              (lambda ()
+                (make-local-variable 'ac-ignores)
+                (add-to-list 'ac-ignores "end")))
+
+Note that `ac-ignores` is not a buffer local variable, so you need to make it buffer local with `make-local-variable` if it is buffer specific setting.
+
+### Change colors ###
+
+Colors settings are following:
+
+| Face                 | Description                           |
+|----------------------|---------------------------------------|
+| `ac-completion-face` | Foreground color of inline completion |
+| `ac-candidate-face`  | Color of completion menu              |
+| `ac-selection-face`  | Selection color of completion menu    |
+
+To change face background color, use `set-face-background`. To change face foreground color, use `set-face-foreground`. To set underline, use `set-face-underline`.
+
+    ;; Examples
+    (set-face-background 'ac-candidate-face "lightgray")
+    (set-face-underline 'ac-candidate-face "darkgray")
+    (set-face-background 'ac-selection-face "steelblue")
+
+### Change default sources ###
+
+Read [source](#Source) first if you don't familiar with sources. To change default of sources, use `setq-default`:
+
+    (setq-default ac-sources '(ac-source-words-in-all-buffer))
+
+### Change sources for specific major modes ###
+
+For example, you may want to use specific sources for C++ buffers. To do that, register a hook by `add-hook` and change `ac-sources` properly:
+
+    (add-hook 'c++-mode (lambda () (add-to-list 'ac-sources 'ac-source-semantic)))
+
+### Completion with specific source ###
+
+You can start completion with specific source. For example, if you want to complete file name, do `M-x ac-complete-filename` at point. Or if you want to complete C/C++ member name, do `M-x ac-complete-semantic` at point. Usually, you may bind them to some key like:
+
+    ;; Complete member name by C-c . for C++ mode.
+    (add-hook 'c++-mode-hook
+              (lambda ()
+                (local-set-key (kbd "C-c .") 'ac-complete-semantic)))
+    ;; Complete file name by C-c /
+    (global-set-key (kbd "C-c /") 'ac-complete-filename)
+
+Generally, such commands will be automatically available when sources are defined. Assume that a source named `ac-source-foobar` is being defined for example, a command called `ac-complete-foobar` will be also defined automatically. See also [builtin sources](#Builtin_Sources) for available commands.
+
+If you want to use multiple sources for a command, you need to define a command for it like:
+
+    (defun semantic-and-gtags-complete ()
+      (interactive)
+      (auto-complete '(ac-source-semantic ac-source-gtags)))
+
+`auto-complete` function can take an alternative of `ac-sources`.
+
+### Show help persistently ###
+
+Use `ac-persist-help` instead of `ac-help`, which is bound to `M-<f1>` and `C-M-?`.
+
+### Show a lastly completed candidate help ###
+
+`ac-last-help` command shows a lastly completed candidate help in a `ac-help` (buffer help) form. If you give an argument by `C-u` or just call `ac-last-persist-help`, its help buffer will not disappear automatically.
+
+`ac-last-quick-help` command show a lastly completed candidate help in a `ac-quick-help` (quick help) form. It is useful if you want to see a function documentation, for example.
+
+You may bind keys to these command like:
+
+    (define-key ac-mode-map (kbd "C-c h") 'ac-last-quick-help)
+    (define-key ac-mode-map (kbd "C-c H") 'ac-last-help)
+
+### Show help beautifully ###
+
+If [pos-tip.el](http://www.emacswiki.org/emacs-en/PosTip) is installed, `auto-complete-mode` uses its native rendering engine for displaying quick help instead of legacy one.
+
+Configuration
+-------------
+
+Any configuration item will be set in `.emacs` or with `M-x customize-group RET auto-complete RET`.
+
+### `ac-delay` ###
+
+Delay time to start completion in real number seconds. It is a trade off of responsibility and performance.
+
+### `ac-auto-show-menu` ###
+
+Show completion menu automatically if `t` specified. `t` means always automatically showing completion menu. `nil` means never showing completion menu. Real number means delay time in seconds.
+
+### `ac-show-menu-immediately-on-auto-complete` ###
+
+Whether or not to show completion menu immediately on `auto-complete` command. If inline completion has already been showed, this configuration will be ignored.
+
+### `ac-expand-on-auto-complete` ###
+
+Whether or not to expand a common part of whole candidates.
+
+### `ac-disable-faces` ###
+
+Specify a list of face symbols for disabling auto completion. Auto completion will not be started if a face text property at a point is included in the list.
+
+### `ac-stop-flymake-on-completing` ###
+
+Whether or not to stop Flymake on completion.
+
+### `ac-use-fuzzy` ###
+
+Whether or not to use [fuzzy matching](#Completion_by_Fuzzy_Matching).
+
+### `ac-fuzzy-cursor-color` ###
+
+Change cursor color to specified color when [fuzzy matching](#Completion_by_Fuzzy_Matching) is started. `nil` means never changed. Available colors can be seen with `M-x list-colors-display`.
+
+### `ac-use-comphist` ###
+
+Whether or not to use [candidate suggestion](#Candidate_Suggestion). `nil` means never using it and get performance better maybe.
+
+### `ac-comphist-threshold` ###
+
+Specify a percentage of limiting lower scored candidates. 100% for whole scores.
+
+### `ac-comphist-file` ###
+
+Specify a file stores data of [candidate suggestion](#Candidate_Suggestion).
+
+### `ac-use-quick-help` ###
+
+Whether or not to use quick help.
+
+### `ac-quick-help-delay` ###
+
+Delay time to show quick help in real number seconds.
+
+### `ac-menu-height` ###
+
+Specify an integer of lines of completion menu.
+
+### `ac-quick-help-height` ###
+
+Specify an integer of lines of quick help.
+
+### `ac-candidate-limit` ###
+
+Limit a number of candidates. Specifying an integer, the value will be a limit of candidates. `nil` means no limit.
+
+### `ac-modes` ###
+
+Specify major modes as a list of symbols that will be enabled automatically if `global-auto-complete-mode` is enabled.
+
+### `ac-compatible-packages-regexp` ###
+
+Specify a regexp that identifies starting completion or not for that package.
+
+### `ac-trigger-commands` ###
+
+Specify commands as a list of symbols that starts completion automatically. `self-insert-command` is one of default.
+
+### `ac-trigger-commands-on-completing` ###
+
+Same as [`ac-trigger-commands`](#) expect this will be used on completing.
+
+### `ac-trigger-key` ###
+
+Specify a [trigger key](#Trigger_Key).
+
+### `ac-auto-start` ###
+
+Specify how completion will be started. `t` means always starting completion automatically. `nil` means never started automatically. An integer means completion will not be started until the value is more than a length of the completion target string.
+
+### `ac-ignores` ###
+
+Specify a list of strings that stops completion.
+
+### `ac-ignore-case` ###
+
+Specify how distinguish case. `t` means always ignoring case. `nil` means never ignoring case. `smart` in symbol means ignoring case only when the completion target string doesn't include upper characters.
+
+### `ac-dwim` ###
+
+"Do What I Mean" function. `t` means:
+
+* After selecting candidates, TAB will behave as RET
+* TAB will behave as RET only on candidate remains
+
+### `ac-use-menu-map` ###
+
+Specify a special keymap (`ac-menu-map`) should be enabled when completion menu is displayed. `ac-menu-map` will be enabled when it is `t` and satisfy one of the following conditions:
+
+* `ac-auto-start` and `ac-auto-show-menu` are not `nil`, and completion menu is displayed after starting completion
+* Completion menu is displayed by `auto-complete` command
+* Completion menu is displayed by `ac-isearch` command
+
+### `ac-use-overriding-local-map` ###
+
+Use only when operations is not affected. Internally it uses `overriding-local-map`, which is too powerful to use with keeping orthogonality. So don't use as much as possible.
+
+### `ac-completion-face` ###
+
+Face of inline completion.
+
+### `ac-candidate-face` ###
+
+Face of completion menu background.
+
+### `ac-selection-face` ###
+
+Face of completion menu selection.
+
+### `global-auto-complete-mode` ###
+
+Whether or not to use `auto-complete-mode` globally. It is `t` in general.
+
+### `ac-user-dictionary` ###
+
+Specify a dictionary as a list of string for [completion by dictionary](#Completion_by_Dictionary).
+
+### `ac-user-dictionary-files` ###
+
+Specify a dictionary files as a list of string for [completion by dictionary](#Completion_by_Dictionary).
+
+### `ac-dictionary-directories` ###
+
+Specify a dictionary directories as a list of string for [completion by dictionary](#Completion_by_Dictionary).
+
+### `ac-sources` ###
+
+Specify sources as a list of [source](#Source). This is a buffer local variable.
+
+### `ac-completing-map` ###
+
+Keymap for completion.
+
+### `ac-menu-map` ###
+
+Keymap for completion on completion menu. See also [`ac-use-menu-map`](#).
+
+### `ac-mode-map` ###
+
+Keymap for `auto-complete-mode` enabled buffers.
+
+Extend
+------
+
+A meaning to extend `auto-complete-mode` is just defining a [source](#Source). This section describe how to define a source.
+
+### Prototype ###
+
+Source basically takes a form of the following:
+
+    (defvar ac-source-mysource1
+      '((prop . value)
+        ...))
+
+As you see, source is just an associate list. You can define a source by combining pairs of defined property and its value.
+
+### Example ###
+
+The most important property for source is [`candidates`](#) property. This property describes how to generate completion candidates by giving a function, an expression, or a variable. A result of evaluation should be a list of strings. Here is an example to generate candidates "Foo", "Bar", and "Baz":
+
+    (defvar ac-source-mysource1
+      '((candidates . (list "Foo" "Bar" "Baz"))))
+
+Then add this source to `ac-sources` and use:
+
+    (setq ac-sources '(ac-source-mysource1))
+
+It is successful if you have "Bar" and "Baz" by inserting "B". The example above has an expression `(list ...)` in `candidates` property. The expression specified there will not be byte-compiled, so you should not use an expression unless it is too simple, because it has a bad affection on performance. You should use a function instead maybe:
+
+    (defun mysource1-candidates ()
+      '("Foo" "Bar" "Baz"))
+    
+    (defvar ac-source-mysource1
+      '((candidates . mysource1-candidates)))
+
+The function specified in `candidates` property will be called without any arguments on every time candidates updated. There is another way: a variable.
+
+### Initialization ###
+
+You may want to initialize a source at first time to complete. Use `init` property in these cases. As same as `candidates` property, specify a function without any parameters or an expression. Here is an example:
+
+    (defvar mysource2-cache nil)
+    
+    (defun mysource2-init ()
+      (setq mysource2-cache '("Huge" "Processing" "Is" "Done" "Here")))
+    
+    (defvar ac-source-mysource2
+      '((init . mysource2-init)
+        (candidates . mysource2-cache)))
+
+In this example, `mysource2-init` function does huge processing, and stores the result into `mysource2-cache` variable. Then specifying the variable in `candidates` property, this source prevents huge processing on every time update completions. There are possible usage:
+
+* Do `require`
+* Open buffers first of all
+
+### Cache ###
+
+Caching strategy is important for `auto-complete-mode`. There are two major ways: `init` property and `cache` property that is described in this section. Specifying `cache` property in source definition, a result of evaluation of `candidates` property will be cached and reused the result as the result of evaluation of `candidates` property next time.
+
+Rewrite the example in previous section by using `cache` property.
+
+    (defun mysource2-candidates ()
+      '("Huge" "Processing" "Is" "Done" "Here"))
+    
+    (defvar ac-source-mysource2
+      '((candidates . mysource2-candidates)
+        (cache)))
+
+There is no performance problem because this source has `cache` property even if `candidates` property will do huge processing.
+
+#### Cache Expiration ####
+
+It is possible to keep among more wider scope than `init` property and `cache` property. It may be useful for remembering all function names which is rarely changed. In these cases, how can we clear cache property not at the expense of performance? This is true time use that functionality.
+
+Use `ac-clear-variable-after-save` to clear cache every time a buffer saved. Here is an example:
+
+    (defvar mysource3-cache nil)
+    
+    (ac-clear-variable-after-save 'mysource3-cache)
+    
+    (defun mysource3-candidates ()
+      (or mysource3-cache
+          (setq mysource3-cache (list (format "Time %s" (current-time-string))))))
+    
+    (defvar ac-source-mysource3
+      '((candidates . mysource3-candidates)))
+
+Add this source to `ac-sources` and complete with "Time". You may see a time when completion has been started. After that, you also see the same time, because `mysource3-candidates` returns the cache as much as possible. Then, save the buffer once and complete with "Time" again. In this time, you may find a new time. An essence of this source is to use `ac-clear-variable-after-save` to manage a variable for cache.
+
+It is also possible to clear cache periodically. Use `ac-clear-variable-every-minute` to do that. A way to use is same to `ac-clear-variable-after-save` except its cache will be cleared every minutes. A builtin source `ac-source-functions` uses this functionality.
+
+### Action ###
+
+[Complete by RET](#) will evaluate a function or an expression specified in `action` property. A builtin sources `ac-source-abbrev` and `ac-source-yasnippet` use this property.
+
+### Omni Completion ###
+
+*Omni Completion* is a type of completion which regards of a context of editing. A file name completion which completes with slashed detected and a member name completion in C/C++ with dots detected are omni completions. To make a source support for omni completion, use `prefix` property. A result of evaluation of `prefix` property must be a beginning point of completion target string. Retuning `nil` means the source is disabled within the context.
+
+Consider a source that completes mail addresses only after "To: ". First of all, define a mail address completion source as same as above.
+
+    (defvar ac-source-to-mailaddr
+      '((candidates . (list "foo1@example.com"
+                            "foo2@example.com"
+                            "foo3@example.com"))))
+    
+    (setq ac-sources '(ac-source-to-mailaddr))
+
+Then enable completions only after "To: " by using `prefix` property. `prefix` property must be one of:
+
+* Regexp
+* Function
+* Expression
+
+Specifying a regexp, `auto-complete-mode` thinks of a point of start of group 1 or group 0 as a beginning point of completion target string by doing `re-search-backward`[^1] with the regexp. If you want to do more complicated, use a function or an expression instead. The beginning point that is evaluated here will be stored into [`ac-point`](#). In above example, regexp is enough.
+
+    ^To: \(.*\)
+
+A reason why capturing group 1 is skipping "To: ". By adding this into the source definition, the source looks like:
+
+    (defvar ac-source-to-mailaddr
+      '((candidates . (list "foo1@example.com"
+                            "foo2@example.com"
+                            "foo3@example.com"))
+        (prefix . "^To: \\(.*\\)")))
+
+Add this source to `ac-sources` and then type "To: ". You will be able to complete mail addresses.
+
+[^1]: Strictly `re-search-backward` with the added adding `\=` at the end
+
+### `ac-define-source` ###
+
+You may use an utility macro called `ac-define-source` which defines a source and a command.
+
+    (ac-define-source mysource3
+      '((candidates . (list "Foo" "Bar" "Baz"))))
+
+This expression will be expanded like:
+
+    (defvar ac-source-mysource3
+      '((candidates . (list "Foo" "Bar" "Baz"))))
+    
+    (defun ac-complete-mysource3 ()
+      (interactive)
+      (auto-complete '(ac-source-mysource3)))
+
+A source will be defined as usual and in addition a command that completes with the source will be defined. Calling `auto-complete` without arguments will use `ac-sources` as default sources and with arguments will use the arguments as default sources. Considering compatibility, it is difficult to answer which you should use `defvar` and `ac-define-source`. Builtin sources are defined with `ac-define-sources`, so you can use them alone by binding some key to these commands such like `ac-complete-filename`. See also [this tips](#Completion_with_specific_source].
+
+### Source Properties ###
+
+#### `init` ####
+
+Specify a function or an expression that is evaluated only once when completion is started.
+
+#### `candidates` ####
+
+Specify a function, an expression, or a variable to calculate candidates. Candidates should be a list of string. If [`cache`](#) property is enabled, this property will be ignored twice or later.
+
+#### `prefix` ####
+
+Specify a regexp, a function, or an expression to find a point of completion target string for [omni completion](#Omni_Completion). This source will be ignored when `nil` returned. If a regexp is specified, a start point of group 1 or group 2 will be used as a value.
+
+#### `requires` ####
+
+Specify a required number of characters of completion target string. If nothing is specified, `auto-complete-mode` uses [`ac-auto-start`](#) instead.
+
+#### `action` ####
+
+Specify a function or an expression that is executed on [completion by RET](#Completion_by_RET).
+
+#### `limit` ####
+
+Specify a limit of candidates. It overrides `ac-candidate-limit` partially.
+
+#### `symbol` ####
+
+Specify a symbol of candidate meaning in one character string. The symbol will be any character, but you should follow the rule:
+
+| Symbol | Meaning          |
+|--------|------------------|
+| s      | Symbol           |
+| f      | Function, Method |
+| v      | Variable         |
+| c      | Constant         |
+| a      | Abbreviation     |
+| d      | Dictionary       |
+
+#### `summary` ####
+
+Specify a summary of candidate in string. It should be used for summarizing the candidate in short string.
+
+#### `cache` ####
+
+Use [cache](#).
+
+#### `require` ####
+
+Specify an integer or `nil`. This source will be ignored when the integer value is lager than a length of completion target string. `nil` means nothing ignored.
+
+#### `candidate-face` ####
+
+Specify a face of candidate. It overrides [`ac-candidate-face`](#) partially.
+
+#### `selection-face` ####
+
+Specify a face of selection. It overrides [`ac-selection-face`](#) partially.
+
+#### `depends` ####
+
+Specify a list of features (which are `require`d) that the source is depending.
+
+#### `available` ####
+
+Specify a function or an expression that describe the source is available or not.
+
+### Variables ###
+
+Here is a list of often used variables.
+
+#### `ac-buffer` ####
+
+A buffer where completion started.
+
+#### `ac-point` ####
+
+A start point of completion target string.
+
+#### `ac-prefix` ####
+
+A string of completion target.
+
+#### `ac-limit` ####
+
+A limit of candidates. Its value may be one of [`ac-candidate-limit`](#) and [`limit`](#) property.
+
+#### `ac-candidates` ####
+
+A list of candidates.
+
+Trouble Shooting
+----------------
+
+### Response Latency ###
+
+To keep much responsibility is very important for `auto-complete-mode`. However it is well known fact that a performance is a trade off of functionalities. List up options related to the performance.
+
+#### `ac-auto-start` #### {#trouble_ac-auto-start}
+
+For a larger number, it reduces a cost of generating completion candidates. Or you can remove the cost by setting `nil` and you can use when you truly need. See [not to complete automatically](#Not_to_complete_automatically) for more details.
+
+#### `ac-delay` #### {#trouble_ac-delay}
+
+For a larger number, it reduces a cost of starting completion.
+
+#### `ac-auto-show-menu` #### {#trouble_ac-auto-show-menu}
+
+For a larger number, it reduces a displaying cost of completion menu.
+
+#### `ac-use-comphist` #### {#trouble_ac-use-comphist}
+
+Setting [`ac-use-comphist`](#) to `nil` to disable [candidate suggestion](#Candidate_Suggestion), it reduces a cost of suggestion.
+
+#### `ac-candidate-limit` #### {#trouble_ac-candidate-limit}
+
+For a property number, it reduces much computation of generating candidates.
+
+### Completion menu is disrupted ###
+
+There is two major cases.
+
+#### Column Computation Case ####
+
+`auto-complete-mode` tries to reduce a cost of computation of columns to show completion menu correctly by using a optimized function at the expense of accuracy. However, it probably causes a menu to be disrupted. Not to use the optimized function, evaluate the following code:
+
+    (setq popup-use-optimized-column-computation nil)
+
+#### Font Case ####
+
+There is a problem when render [IPA font](http://ossipedia.ipa.go.jp/ipafont/) with Xft in Ubuntu 9.10. Use [VL gothic](http://dicey.org/vlgothic/), which renders more suitably. Or disable Xft, then it can render correctly.
+
+We don't good answers now, but you may shot the troubles by changing font size with `set-face-font`. For instance, completion menu may be disrupted when displaying the menu including Japanese in NTEmacs. In such case, it is worth to try to evaluate the following code to fix it:
+
+    (set-face-font 'ac-candidate-face "MS Gothic 11")
+    (set-face-font 'ac-selection-face "MS Gothic 11")
+
+Known Bugs
+----------
+
+### Auto completion will not be started in a buffer `flyspell-mode` enabled ###
+
+A way of delaying processes of `flyspell-mode` disables auto completion. You can avoid this problem by `M-x ac-flyspell-workaround`. You can write the following code into your `~/.emacs`.
+
+    (ac-flyspell-workaround)
+
+Reporting Bugs
+--------------
+
+Visit [Auto Complete Mode Bug Tracking System](http://cx4a.org/redmine/projects/auto-complete-mode) and create a new ticket.
+
+[GNU Emacs]: http://www.gnu.org/software/emacs/
+[GPLv3]: http://gplv3.fsf.org/
+[GFDL]: http://www.gnu.org/copyleft/fdl.html
diff --git a/.emacs.d/auto-complete/doc/style.css b/.emacs.d/auto-complete/doc/style.css
new file mode 100644
index 0000000..3867312
--- /dev/null
+++ b/.emacs.d/auto-complete/doc/style.css
@@ -0,0 +1,27 @@
+body {
+    margin: 1em;
+}
+
+h1, h2, h3 {
+    margin-top: 1em;
+}
+
+pre {
+    margin: 0.5em 2em;
+    padding: 0.5em;
+    background-color: #eee;
+    border: 1px solid #ddd;
+}
+
+table {
+    margin-left: 1em;
+    background-color: lightgray;
+}
+
+td, th {
+    padding: 0.3em;
+}
+
+td {
+    background-color: white;
+}
diff --git a/.emacs.d/auto-complete/etc/install.el b/.emacs.d/auto-complete/etc/install.el
new file mode 100644
index 0000000..fdb8704
--- /dev/null
+++ b/.emacs.d/auto-complete/etc/install.el
@@ -0,0 +1,45 @@
+(require 'cl)
+
+(when (or (not (featurep 'auto-complete))
+          (yes-or-no-p "You are trying to upgrade auto-complete within an existed Emacs which has loaded its older version.
+It causes sometimes errors or installation fault. Are you sure? "))
+  (let* ((basedir (file-name-directory (directory-file-name (file-name-directory load-file-name))))
+         (default-dir "~/.emacs.d/")
+         (todir (or (car command-line-args-left)
+                    (read-file-name "Install to: " default-dir default-dir)))
+         (basedictdir (concat basedir "/dict"))
+         (todictdir (concat todir "/ac-dict")))
+    (cond
+     ((not (file-directory-p basedir))
+      (error "Base directory is not found"))
+     ((or (eq (length todir) 0)
+          (not (file-directory-p todir)))
+      (error "To directory is empty or not found"))
+     (t
+      (message "Installing to %s from %s" todir basedir)
+      (add-to-list 'load-path basedir)
+      (make-directory todictdir t)
+      (loop for file in (directory-files basedir t "^.*\\.el$")
+            do (byte-compile-file file))
+      (loop for file in (directory-files basedir t "^.*\\.elc?$")
+            do (copy-file file todir t))
+      (loop for file in (directory-files basedictdir t "^[^\\.]")
+            do (copy-file file todictdir t))
+  
+      (let ((msg (concat "Successfully installed!
+
+Add the following code to your .emacs:
+
+"
+                         (if (and (not (member (expand-file-name todir) load-path))
+                                  (not (member (concat (expand-file-name todir) "/") load-path)))
+                             (format "(add-to-list 'load-path \"%s\")\n" todir)
+                           "")
+                         "(require 'auto-complete-config)\n"
+                         (format "(add-to-list 'ac-dictionary-directories \"%s\")\n" todictdir)
+                         "(ac-config-default)\n")))
+        (if noninteractive
+            (princ-list msg)
+          (switch-to-buffer "*Installation Result*")
+          (erase-buffer)
+          (insert msg)))))))
diff --git a/.emacs.d/auto-complete/etc/test.txt b/.emacs.d/auto-complete/etc/test.txt
new file mode 100644
index 0000000..02dbdd5
--- /dev/null
+++ b/.emacs.d/auto-complete/etc/test.txt
@@ -0,0 +1,202 @@
+-*- org -*-
+
+* How to test
+You can read this testcase document by following some rules.
+
+- (Code) is a code you should evaluate for testing the fixture.
+- (Expect) is a expected result of your test.
+  If no (Expect) is given, it means Emacs doesn't display any errors.
+- (Assume) is a code you should evaluate before test.
+
+If no sources you should use are not given in each fixture, we assumes that
+you use following sources.
+
+Code:
+    (defvar ac-source-test
+      '((candidates list "Foo" "FooBar" "Bar" "Baz" "LongLongLine")))
+    (defvar ac-source-action-test
+      '((candidates list "Action1" "Action2")
+        (action . (lambda () (message "Done!")))))
+    (setq ac-sources '(ac-source-test ac-source-action-test))
+
+* Setup
+
+** Load auto-complete
+Code:
+    (require 'auto-complete)
+    (require 'auto-complete-config)
+
+** Enable/disable auto-complete by M-x auto-complete-mode
+
+** Use global-auto-complete-mode
+Code:
+    (global-auto-complete-mode t)
+
+Expect:
+    No errors. auto-complete-mode will be enabled automatically.
+
+* Auto-completion
+
+** Type some string at *scratch* buffer
+Expect:
+    Menu contains words in the current buffer.
+
+** Type some string at right of the window
+Expect:
+    Menu will be shown in right-to-left direction without any window scrolling.
+
+** Continue to type some string above case
+Expect:
+    Menu will never be disrupted.
+
+** Type some string at the right of window with truncate-lines enabled
+Assume:
+    (setq truncate-lines t)
+
+** Type some string at the bottom of window
+Expect:
+    Menu will be shown in bottom-to-top direction without any window scrolling.
+
+** Delete a character at the word
+Expect:
+    Completion will be started.
+
+** Type some string so that a menu overlaps the end of buffer that doesn't have newline at the end
+Expect:
+    Menu will be shown correctly.
+    Newline at the end is not seen.
+
+** Type some string with ac-auto-start nil
+Assume:
+    (setq ac-auto-start nil)
+
+Expect:
+    Completion will never be started automatically.
+
+** Type some string with ac-auto-start t
+Assume:
+    (setq ac-auto-start t)
+
+Expect:
+    Completion will be started automatically if possible.
+
+** Type 1 character with ac-auto-start 2
+Assume:
+    (setq ac-auto-start 2)
+
+Expect:
+    Completion will never be started automatically.
+
+** Type 2 characters with ac-auto-start 2
+Assume:
+    (setq ac-auto-start 2)
+
+Expect:
+    Completion will be started automatically if possible.
+
+** Type F
+Expect:
+    Menu contains "Foo" and "FooBar" as candidates.
+    Inline completion appears and it contains "oo" as common-part.
+
+** Type TAB while completion with ac-dwim disabled
+Assume:
+    (setq ac-dwim nil)
+
+Expect:
+    (a) If there is common-part of candidates, auto-complete expands it.
+    (b) If the prefix equals to the first of candidates, auto-complete selects next candidate.
+    (c) Othewise, auto-complete expands selected candidate.
+
+** Type TAB while completion with ac-dwim enabled
+Assume:
+    (setq ac-dwim t)
+
+Expect:
+    (a) If there is common-part of candidates, auto-complete expands it.
+    (b) If only one candidate remains, or if it is done after selecting be ac-previous/ac-next,
+        auto-complete simulates ac-complete.
+        - If its candidate has an action, the action will be invoked. ("Action1" and "Action2" have an action)
+        - Expand its candidate.
+    (c) If the prefix equals to the first of candidates, auto-complete selects next candidate.
+    (d) Othewise, auto-complete expands selected candidate.
+
+** Type RET while completion
+Expect:
+    Completion will be done for selected candidate.
+    If its candidate has an action, the action will be invoked.
+    Use "Action" for the prefix for test.
+
+* Configuration
+
+** Change menu height
+Code:
+    (setq ac-menu-height 20)
+
+Expect:
+    Up to 20 candidates will be shown in a menu.
+
+** Use trigger key facility
+Code:
+    (ac-set-trigger-key "TAB")
+
+Expect:
+    Now you can use TAB for auto-completion.
+    It is enabled only when
+    (a) After insertion/deletion command
+    (b) With prefix (C-u TAB)
+    Otherwise, it behaves as default.
+    Generally, it is used with ac-auto-start disabled.
+
+** Use ac-mode-map
+Code:
+    (define-key ac-mode-map (kbd "M-TAB") 'auto-complete)
+
+Expect:
+    Now you can start auto-complete with typing M-TAB anywhere.
+
+** Change default ac-sources
+Code:
+    (setq-default ac-sources '(ac-source-words-in-all-buffer))
+
+Expect:
+    Now default ac-sources has been changed for newly opened buffers.
+
+* Builtin sources
+
+** ac-source-words-in-buffer
+Expect:
+    Candidates will be words in the current buffer.
+
+** ac-source-words-in-all-buffer
+Expect:
+    Candidates will be words in all buffer.
+
+** ac-source-words-in-same-mode-buffers
+Expect:
+    Candidates will be words for buffers which major-mode same to
+    the current buffer's one.
+
+** ac-source-symbols
+Expect:
+    Candidates will be all Emacs Lisp symbols.
+
+** ac-source-abbrev
+Expect:
+    Candidates will be abbreviations of local-abbrev-table and global-abbrev-table.
+
+** ac-source-files-in-current-dir
+Expect:
+    Candidates will be files contained by the current directory (default-directory).
+
+** ac-source-filename
+Expect:
+    Candidates will be absolute/relative file name.
+    This source will be executed when the prefix seems to be file name.
+    That is, the prefix contains slash (/) and a string between first to
+    last flash is a valid directory.
+    When ac-complete, this continues to complete if the prefix is a valid directory.
+
+** ac-source-imenu
+Expect:
+    Candidates will be a node of imenu tree.
diff --git a/.emacs.d/auto-complete/fuzzy.el b/.emacs.d/auto-complete/fuzzy.el
new file mode 100644
index 0000000..c69150a
--- /dev/null
+++ b/.emacs.d/auto-complete/fuzzy.el
@@ -0,0 +1,255 @@
+;;; fuzzy.el --- Fuzzy matching utilities
+
+;; Copyright (C) 2010  Tomohiro Matsuyama
+
+;; Author: Tomohiro Matsuyama <m2ym.pub@gmail.com>
+;; Keywords: convenience
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; 
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+(require 'regexp-opt)
+
+(defgroup fuzzy nil
+  "Fuzzy matching utilities."
+  :group 'convenience
+  :prefix "fuzzy-")
+
+(defcustom fuzzy-accept-error-rate 0.10
+  "Error threshold."
+  :group 'fuzzy)
+
+(defvar fuzzy-accept-length-difference 2)
+
+(defvar fuzzy-regexp-some-char (format "\\w\\{0,%s\\}" fuzzy-accept-length-difference))
+
+
+
+;;; Functions
+
+(defun fuzzy-reverse-string (string)
+  (apply 'string (nreverse (append string nil))))
+
+(defun fuzzy-regexp-compile (string)
+  (labels ((oddp (n) (eq (logand n 1) 1))
+           (evenp (n) (eq (logand n 1) 0))
+           (opt (n) (regexp-opt-charset (append (substring string
+                                                           (max 0 (- n 1))
+                                                           (min (length string) (+ n 2))) nil))))
+    (concat
+     "\\("
+     (loop for i below (length string)
+           for c = (if (evenp i) (opt i) fuzzy-regexp-some-char)
+           concat c)
+     "\\|"
+     (loop for i below (length string)
+           for c = (if (oddp i) (opt i) fuzzy-regexp-some-char)
+           concat c)
+     "\\)")))
+
+(defalias 'fuzzy-edit-distance 'fuzzy-jaro-winkler-distance)
+
+(defun fuzzy-jaro-winkler-distance (s1 s2)
+  "http://en.wikipedia.org/wiki/Jaro-Winkler_distance"
+  (let* ((l1 (length s1))
+         (l2 (length s2))
+         (r (max 1 (1- (/ (max l1 l2) 2))))
+         (m 0)
+         (tr 0)
+         (p 0)
+         cs1 cs2)
+    (loop with seen = (make-vector l2 nil)
+          for i below l1
+          for c1 = (aref s1 i) do
+          (loop for j from (max 0 (- i r)) below (min l2 (+ i r))
+                for c2 = (aref s2 j)
+                if (and (char-equal c1 c2)
+                        (null (aref seen j))) do
+                  (push c1 cs1)
+                  (aset seen j c2)
+                  (incf m)
+                and return nil)
+          finally
+            (setq cs1 (nreverse cs1)
+                  cs2 (loop for i below l2
+                            for c = (aref seen i)
+                            if c collect c)))
+    (loop for c1 in cs1
+          for c2 in cs2
+          if (not (char-equal c1 c2)) do
+            (incf tr))
+    (loop for i below (min m 5)
+          for c1 across s1
+          for c2 across s2
+          while (char-equal c1 c2) do
+            (incf p))
+    (if (eq m 0)
+        0.0
+      (setq m (float m))
+      (let* ((dj (/ (+ (/ m l1) (/ m l2) (/ (- m (/ tr 2)) m)) 3))
+             (dw (+ dj (* p 0.1 (- 1 dj)))))
+        dw))))
+
+;; this function should be compiled
+(byte-compile 'fuzzy-jaro-winkler-distance)
+
+(defun fuzzy-match (s1 s2 &optional function)
+  (or function (setq function 'fuzzy-edit-distance))
+  (and (<= (abs (- (length s1) (length s2)))
+           fuzzy-accept-length-difference)
+       (>= (funcall function s1 s2)
+           (- 1 fuzzy-accept-error-rate))))
+
+(defun fuzzy-all-completions (string collection)
+  "all-completions family with fuzzy matching."
+  (loop with length = (length string)
+        for str in collection
+        for s = (substring str 0 (min (length str)
+                                      (+ length fuzzy-accept-length-difference)))
+        if (fuzzy-match string s)
+        collect str))
+
+
+
+;;; Search and Incremental Search
+
+(defvar fuzzy-search-cache nil)
+(defvar fuzzy-search-cache-string nil)
+
+(defun fuzzy-search-cache-activate ()
+  (setq fuzzy-search-cache (make-hash-table))
+  (setq fuzzy-search-cache-string nil))
+
+(defun fuzzy-search-cache-deactive ()
+  (setq fuzzy-search-cache nil)
+  (setq fuzzy-search-cache-string nil))
+
+(defun fuzzy-search-edit-distance (s1 s2)
+  (or (and fuzzy-search-cache
+           (cond
+            ((null fuzzy-search-cache-string)
+             (setq fuzzy-search-cache-string s1)
+             nil)
+            ((not (equal fuzzy-search-cache-string s1))
+             (setq fuzzy-search-cache-string s1)
+             (clrhash fuzzy-search-cache)
+             nil)
+            (t))
+           (gethash s2 fuzzy-search-cache))
+      (let ((d (fuzzy-edit-distance s1 s2)))
+        (if fuzzy-search-cache
+            (puthash s2 d fuzzy-search-cache))
+        d)))
+
+(defun fuzzy-search-match (s1 s2)
+  (fuzzy-match s1 s2 'fuzzy-search-edit-distance))
+
+(defun fuzzy-search-forward (string &optional bound noerror count)
+  (let* ((regexp (fuzzy-regexp-compile string))
+         match-data)
+    (save-excursion
+      (while (and (null match-data)
+                  (re-search-forward regexp bound t))
+        (if (fuzzy-search-match string (match-string 1))
+            (setq match-data (match-data))
+          (goto-char (1+ (match-beginning 1))))))
+    (when match-data
+      (store-match-data match-data)
+      (goto-char (match-end 1)))))
+
+(defun fuzzy-search-backward (string &optional bound noerror count)
+  (let* ((regexp (fuzzy-regexp-compile string))
+         match-data begin end)
+    (save-excursion
+      (while (and (null match-data)
+                  (re-search-backward regexp bound t))
+        (setq begin (match-beginning 1)
+              end (match-end 1))
+        (store-match-data nil)
+        (goto-char (max (point-min) (- begin (* (length string) 2))))
+        (while (re-search-forward regexp end t)
+          (if (fuzzy-search-match string (match-string 1))
+              (setq match-data (match-data))
+            (goto-char (1+ (match-beginning 1)))))
+        (unless match-data
+          (goto-char begin)))
+    (if match-data
+        (progn
+          (store-match-data match-data)
+          (goto-char (match-beginning 1)))
+      (store-match-data nil)))))
+
+(defvar fuzzy-isearch nil)
+(defvar fuzzy-isearch-failed-count 0)
+(defvar fuzzy-isearch-enabled 'on-failed)
+(defvar fuzzy-isearch-original-search-fun nil)
+(defvar fuzzy-isearch-prefix "[FUZZY] ")
+
+(defun fuzzy-isearch-activate ()
+  (setq fuzzy-isearch t)
+  (setq fuzzy-isearch-failed-count 0)
+  (fuzzy-search-cache-activate))
+
+(defun fuzzy-isearch-deactivate ()
+  (setq fuzzy-isearch nil)
+  (setq fuzzy-isearch-failed-count 0)
+  (fuzzy-search-cache-deactive))
+
+(defun fuzzy-isearch ()
+  (cond (isearch-word
+         (if isearch-forward 'word-search-forward 'word-search-backward))
+        (isearch-regexp
+         (if isearch-forward 're-search-forward 're-search-backward))
+        ((or fuzzy-isearch
+             (eq fuzzy-isearch-enabled 'always)
+             (and (eq fuzzy-isearch-enabled 'on-failed)
+                  (null isearch-success)
+                  isearch-wrapped
+                  (> (setq fuzzy-isearch-failed-count (1+ fuzzy-isearch-failed-count))
+                     1)))
+         (unless fuzzy-isearch
+           ;(goto-char isearch-opoint)
+           (fuzzy-isearch-activate))
+         (if isearch-forward 'fuzzy-search-forward 'fuzzy-search-backward))
+        (t
+         (if isearch-forward 'search-forward 'search-backward))))
+
+(defun fuzzy-isearch-end-hook ()
+  (fuzzy-isearch-deactivate))
+
+(defun turn-on-fuzzy-isearch ()
+  (interactive)
+  (setq fuzzy-isearch-original-search-fun isearch-search-fun-function)
+  (setq isearch-search-fun-function 'fuzzy-isearch)
+  (add-hook 'isearch-mode-end-hook 'fuzzy-isearch-end-hook))
+
+(defun turn-off-fuzzy-isearch ()
+  (interactive)
+  (setq isearch-search-fun-function fuzzy-isearch-original-search-fun)
+  (remove-hook 'isearch-mode-end-hook 'fuzzy-isearch-end-hook))
+
+(defadvice isearch-message-prefix (after fuzzy-isearch-message-prefix activate)
+  (if fuzzy-isearch
+      (setq ad-return-value (concat fuzzy-isearch-prefix ad-return-value))
+    ad-return-value))
+
+(provide 'fuzzy)
+;;; fuzzy.el ends here
diff --git a/.emacs.d/auto-complete/fuzzy.elc b/.emacs.d/auto-complete/fuzzy.elc
new file mode 100644
index 0000000..41ff1da
Binary files /dev/null and b/.emacs.d/auto-complete/fuzzy.elc differ
diff --git a/.emacs.d/auto-complete/popup.el b/.emacs.d/auto-complete/popup.el
new file mode 100644
index 0000000..0f14dfe
--- /dev/null
+++ b/.emacs.d/auto-complete/popup.el
@@ -0,0 +1,1061 @@
+;;; popup.el --- Visual popup interface
+
+;; Copyright (C) 2009, 2010  Tomohiro Matsuyama
+
+;; Author: Tomohiro Matsuyama <tomo@cx4a.org>
+;; Keywords: lisp
+;; Version: 0.4
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; 
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+
+
+;; Utilities
+
+(defvar popup-use-optimized-column-computation t
+  "Use optimized column computation routine.
+If there is a problem, please set it to nil.")
+
+;; Borrowed from anything.el
+(defmacro popup-aif (test-form then-form &rest else-forms)
+  "Anaphoric if. Temporary variable `it' is the result of test-form."
+  (declare (indent 2))
+  `(let ((it ,test-form))
+     (if it ,then-form ,@else-forms)))
+
+(defun popup-x-to-string (x)
+  "Convert any object to string effeciently.
+This is faster than prin1-to-string in many cases."
+  (typecase x
+    (string x)
+    (symbol (symbol-name x))
+    (integer (number-to-string x))
+    (float (number-to-string x))
+    (t (format "%s" x))))
+
+(defun popup-substring-by-width (string width)
+  "Return cons of substring and remaining string by `WIDTH'."
+  ;; Expand tabs with 4 spaces
+  (setq string (replace-regexp-in-string "\t" "    " string))
+  (loop with len = (length string)
+        with w = 0
+        for l from 0
+        for c in (append string nil)
+        while (<= (incf w (char-width c)) width)
+        finally return
+        (if (< l len)
+            (cons (substring string 0 l) (substring string l))
+          (list string))))
+
+(defun popup-fill-string (string &optional width max-width justify squeeze)
+  "Split STRING into fixed width strings and return a cons cell like
+\(WIDTH . ROWS). Here, the car WIDTH indicates the actual maxim width of ROWS.
+
+The argument WIDTH specifies the width of filling each paragraph. WIDTH nil
+means don't perform any justification and word wrap. Note that this function
+doesn't add any padding characters at the end of each row.
+
+MAX-WIDTH, if WIDTH is nil, specifies the maximum number of columns.
+
+The optional fourth argument JUSTIFY specifies which kind of justification
+to do: `full', `left', `right', `center', or `none' (equivalent to nil).
+A value of t means handle each paragraph as specified by its text properties.
+
+SQUEEZE nil means leave whitespaces other than line breaks untouched."
+  (if (eq width 0)
+      (error "Can't fill string with 0 width"))
+  (if width
+      (setq max-width width))
+  (with-temp-buffer
+    (let ((tab-width 4)
+          (fill-column width)
+          (left-margin 0)
+          (kinsoku-limit 1)
+          indent-tabs-mode
+          row rows)
+      (insert string)
+      (untabify (point-min) (point-max))
+      (if width
+          (fill-region (point-min) (point-max) justify (not squeeze)))
+      (goto-char (point-min))
+      (setq width 0)
+      (while (prog2
+                 (let ((line (buffer-substring
+                              (point) (progn (end-of-line) (point)))))
+                   (if max-width
+                       (while (progn
+                                (setq row (truncate-string-to-width line max-width)
+                                      width (max width (string-width row)))
+                                (push row rows)
+                                (if (not (= (length row) (length line)))
+                                    (setq line (substring line (length row))))))
+                     (setq width (max width (string-width line)))
+                     (push line rows)))
+                 (< (point) (point-max))
+               (beginning-of-line 2)))
+      (cons width (nreverse rows)))))
+
+(defmacro popup-save-buffer-state (&rest body)
+  (declare (indent 0))
+  `(save-excursion
+     (let ((buffer-undo-list t)
+           (buffer-read-only nil)
+           (modified (buffer-modified-p)))
+       (unwind-protect
+           (progn ,@body)
+         (set-buffer-modified-p modified)))))
+  
+(defun popup-preferred-width (list)
+  "Return preferred width of popup to show `LIST' beautifully."
+  (loop with tab-width = 4
+        for item in list
+        for summary = (popup-item-summary item)
+        maximize (string-width (popup-x-to-string item)) into width
+        if (stringp summary)
+        maximize (+ (string-width summary) 2) into summary-width
+        finally return (* (ceiling (/ (+ (or width 0) (or summary-width 0)) 10.0)) 10)))
+
+;; window-full-width-p is not defined in Emacs 22.1
+(defun popup-window-full-width-p (&optional window)
+  (if (fboundp 'window-full-width-p)
+      (window-full-width-p window)
+    (= (window-width window) (frame-width (window-frame (or window (selected-window)))))))
+
+;; truncated-partial-width-window-p is not defined in Emacs 22
+(defun popup-truncated-partial-width-window-p (&optional window)
+  (unless window
+    (setq window (selected-window)))
+  (unless (popup-window-full-width-p window)
+    (let ((t-p-w-w (buffer-local-value 'truncate-partial-width-windows
+				       (window-buffer window))))
+      (if (integerp t-p-w-w)
+	  (< (window-width window) t-p-w-w)
+	t-p-w-w))))
+
+(defun popup-current-physical-column ()
+  (or (when (and popup-use-optimized-column-computation
+                 (eq (window-hscroll) 0))
+        (let ((current-column (current-column)))
+          (if (or (popup-truncated-partial-width-window-p)
+                  truncate-lines
+                  (< current-column (window-width)))
+              current-column)))
+      (car (posn-col-row (posn-at-point)))))
+
+(defun popup-last-line-of-buffer-p ()
+  (save-excursion (end-of-line) (/= (forward-line) 0)))
+
+(defun popup-lookup-key-by-event (function event)
+  (or (funcall function (vector event))
+      (if (symbolp event)
+          (popup-aif (get event 'event-symbol-element-mask)
+              (funcall function (vector (logior (or (get (car it) 'ascii-character) 0)
+                                                (cadr it))))))))
+
+
+
+;; Popup common
+
+(defgroup popup nil
+  "Visual popup interface"
+  :group 'lisp
+  :prefix "popup-")
+
+(defface popup-face
+  '((t (:background "lightgray" :foreground "black")))
+  "Face for popup."
+  :group 'popup)
+
+(defface popup-scroll-bar-foreground-face
+  '((t (:background "black")))
+  "Foreground face for scroll-bar."
+  :group 'popup)
+
+(defface popup-scroll-bar-background-face
+  '((t (:background "gray")))
+  "Background face for scroll-bar."
+  :group 'popup)
+
+(defvar popup-instances nil
+  "Popup instances.")
+
+(defvar popup-scroll-bar-foreground-char
+  (propertize " " 'face 'popup-scroll-bar-foreground-face)
+  "Foreground character for scroll-bar.")
+
+(defvar popup-scroll-bar-background-char
+  (propertize " " 'face 'popup-scroll-bar-background-face)
+  "Background character for scroll-bar.")
+
+(defstruct popup
+  point row column width height min-height direction overlays
+  parent depth
+  face selection-face
+  margin-left margin-right margin-left-cancel scroll-bar symbol
+  cursor offset scroll-top current-height list newlines
+  pattern original-list)
+
+(defun popup-item-propertize (item &rest properties)
+  "Same to `propertize` but this avoids overriding existed value with `nil` property."
+  (let (props)
+    (while properties
+      (when (cadr properties)
+        (push (car properties) props)
+        (push (cadr properties) props))
+      (setq properties (cddr properties)))
+    (apply 'propertize
+           (popup-x-to-string item)
+           (nreverse props))))
+
+(defun popup-item-property (item property)
+  (if (stringp item)
+      (get-text-property 0 property item)))
+
+(defun* popup-make-item (name
+                         &key
+                         value
+                         popup-face
+                         selection-face
+                         sublist
+                         document
+                         symbol
+                         summary)
+  "Utility function to make popup item.
+See also `popup-item-propertize'."
+  (popup-item-propertize name
+                         'value value
+                         'popup-face popup-face
+                         'selection-face selection-face
+                         'document document
+                         'symbol symbol
+                         'summary summary
+                         'sublist sublist))
+
+(defsubst popup-item-value (item)               (popup-item-property item 'value))
+(defsubst popup-item-value-or-self (item)       (or (popup-item-value item) item))
+(defsubst popup-item-popup-face (item)          (popup-item-property item 'popup-face))
+(defsubst popup-item-selection-face (item)      (popup-item-property item 'selection-face))
+(defsubst popup-item-document (item)            (popup-item-property item 'document))
+(defsubst popup-item-summary (item)             (popup-item-property item 'summary))
+(defsubst popup-item-symbol (item)              (popup-item-property item 'symbol))
+(defsubst popup-item-sublist (item)             (popup-item-property item 'sublist))
+
+(defun popup-item-documentation (item)
+  (let ((doc (popup-item-document item)))
+    (if (functionp doc)
+        (setq doc (funcall doc (popup-item-value-or-self item))))
+    doc))
+
+(defun popup-item-show-help-1 (item)
+  (let ((doc (popup-item-documentation item)))
+    (when doc
+      (with-current-buffer (get-buffer-create " *Popup Help*")
+        (erase-buffer)
+        (insert doc)
+        (goto-char (point-min))
+        (display-buffer (current-buffer)))
+      t)))
+
+(defun popup-item-show-help (item &optional persist)
+  (when item
+    (if (not persist)
+        (save-window-excursion
+          (when (popup-item-show-help-1 item)
+            (block nil
+              (while t
+                (clear-this-command-keys)
+                (let ((key (read-key-sequence-vector nil)))
+                  (case (key-binding key)
+                    ('scroll-other-window
+                     (scroll-other-window))
+                    ('scroll-other-window-down
+                     (scroll-other-window-down nil))
+                    (t
+                     (setq unread-command-events (append key unread-command-events))
+                     (return))))))))
+      (popup-item-show-help-1 item))))
+
+(defun popup-set-list (popup list)
+  (popup-set-filtered-list popup list)
+  (setf (popup-pattern popup) nil)
+  (setf (popup-original-list popup) list))
+  
+(defun popup-set-filtered-list (popup list)
+  (setf (popup-list popup) list
+        (popup-offset popup) (if (> (popup-direction popup) 0)
+                                 0
+                               (max (- (popup-height popup) (length list)) 0))))
+
+(defun popup-selected-item (popup)
+  (nth (popup-cursor popup) (popup-list popup)))
+
+(defun popup-selected-line (popup)
+  (- (popup-cursor popup) (popup-scroll-top popup)))
+
+(defun popup-line-overlay (popup line)
+  (aref (popup-overlays popup) line))
+
+(defun popup-selected-line-overlay (popup)
+  (popup-line-overlay popup (popup-selected-line popup)))
+
+(defun popup-hide-line (popup line)
+  (let ((overlay (popup-line-overlay popup line)))
+    (overlay-put overlay 'display nil)
+    (overlay-put overlay 'after-string nil)))
+
+(defun popup-line-hidden-p (popup line)
+  (let ((overlay (popup-line-overlay popup line)))
+    (and (eq (overlay-get overlay 'display) nil)
+         (eq (overlay-get overlay 'after-string) nil))))
+
+(defun popup-set-line-item (popup line item face margin-left margin-right scroll-bar-char symbol summary)
+  (let* ((overlay (popup-line-overlay popup line))
+         (content (popup-create-line-string popup (popup-x-to-string item) margin-left margin-right symbol summary))
+         (start 0)
+         (prefix (overlay-get overlay 'prefix))
+         (postfix (overlay-get overlay 'postfix))
+         end)
+    ;; Overlap face properties
+    (if (get-text-property start 'face content)
+        (setq start (next-single-property-change start 'face content)))
+    (while (and start (setq end (next-single-property-change start 'face content)))
+      (put-text-property start end 'face face content)
+      (setq start (next-single-property-change end 'face content)))
+    (if start
+        (put-text-property start (length content) 'face face content))
+    (unless (overlay-get overlay 'dangle)
+      (overlay-put overlay 'display (concat prefix (substring content 0 1)))
+      (setq prefix nil
+            content (concat (substring content 1))))
+    (overlay-put overlay
+                 'after-string
+                 (concat prefix
+                         content
+                         scroll-bar-char
+                         postfix))))
+
+(defun popup-create-line-string (popup string margin-left margin-right symbol summary)
+  (let* ((popup-width (popup-width popup))
+         (summary-width (string-width summary))
+         (string (car (popup-substring-by-width string
+                                                (- popup-width
+                                                   (if (> summary-width 0)
+                                                       (+ summary-width 2)
+                                                     0)))))
+         (string-width (string-width string)))
+    (concat margin-left
+            string
+            (make-string (max (- popup-width string-width summary-width) 0) ? )
+            summary
+            symbol
+            margin-right)))
+
+(defun popup-live-p (popup)
+  (and popup (popup-overlays popup) t))
+
+(defun popup-child-point (popup &optional offset)
+  (overlay-end (popup-line-overlay popup
+                                   (or offset
+                                       (popup-selected-line popup)))))
+
+(defun* popup-create (point
+                      width
+                      height
+                      &key
+                      min-height
+                      around
+                      (face 'popup-face)
+                      (selection-face face)
+                      scroll-bar
+                      margin-left
+                      margin-right
+                      symbol
+                      parent
+                      parent-offset)
+  (or margin-left (setq margin-left 0))
+  (or margin-right (setq margin-right 0))
+  (unless point
+    (setq point
+          (if parent (popup-child-point parent parent-offset) (point))))
+
+  (save-excursion
+    (goto-char point)
+    (let* ((row (line-number-at-pos))
+           (column (popup-current-physical-column))
+           (overlays (make-vector height nil))
+           (popup-width (+ width
+                           (if scroll-bar 1 0)
+                           margin-left
+                           margin-right
+                           (if symbol 2 0)))
+           margin-left-cancel
+           (window (selected-window))
+           (window-start (window-start))
+           (window-hscroll (window-hscroll))
+           (window-width (window-width))
+           (right (+ column popup-width))
+           (overflow (and (> right window-width)
+                          (>= right popup-width)))
+           (foldable (and (null parent)
+                          (>= column popup-width)))
+           (direction (or
+                       ;; Currently the direction of cascade popup won't be changed
+                       (and parent (popup-direction parent))
+
+                       ;; Calculate direction
+                       (if (and (> row height)
+                                (> height (- (max 1 (- (window-height)
+                                                       (if mode-line-format 1 0)
+                                                       (if header-line-format 1 0)))
+                                             (count-lines window-start (point)))))
+                           -1
+                         1)))
+           (depth (if parent (1+ (popup-depth parent)) 0))
+           (newlines (max 0 (+ (- height (count-lines point (point-max))) (if around 1 0))))
+           current-column)
+      (when (> newlines 0)
+        (popup-save-buffer-state
+          (goto-char (point-max))
+          (insert (make-string newlines ?\n))))
+      
+      (if overflow
+          (if foldable
+              (progn
+                (decf column (- popup-width margin-left margin-right))
+                (unless around (move-to-column column)))
+            (when (not truncate-lines)
+              ;; Cut out overflow
+              (let ((d (1+ (- popup-width (- window-width column)))))
+                (decf popup-width d)
+                (decf width d)))
+            (decf column margin-left))
+        (decf column margin-left))
+      (when (and (null parent)
+                 (< column 0))
+          ;; Cancel margin left
+        (setq column 0)
+        (decf popup-width margin-left)
+        (setq margin-left-cancel t))
+      
+      (dotimes (i height)
+        (let (overlay begin w (dangle t) (prefix "") (postfix ""))
+          (when around
+            (if (>= emacs-major-version 23)
+                (vertical-motion (cons column direction))
+              (vertical-motion direction)
+              (move-to-column (+ (current-column) column))))
+	  (setq around t
+                current-column (popup-current-physical-column))
+
+          (when (> current-column column)
+            (backward-char)
+            (setq current-column (popup-current-physical-column)))
+          (when (< current-column column)
+            ;; Extend short buffer lines by popup prefix (line of spaces)
+            (setq prefix (make-string (+ (if (= current-column 0)
+                                             (- window-hscroll (current-column))
+                                           0)
+                                         (- column current-column))
+                                      ? )))
+
+          (setq begin (point))
+          (setq w (+ popup-width (length prefix)))
+          (while (and (not (eolp)) (> w 0))
+            (setq dangle nil)
+            (decf w (char-width (char-after)))
+            (forward-char))
+          (if (< w 0)
+              (setq postfix (make-string (- w) ? )))
+
+          (setq overlay (make-overlay begin (point)))
+          (overlay-put overlay 'window window)
+          (overlay-put overlay 'dangle dangle)
+          (overlay-put overlay 'prefix prefix)
+          (overlay-put overlay 'postfix postfix)
+          (overlay-put overlay 'width width)
+          (aset overlays
+		(if (> direction 0) i (- height i 1))
+		overlay)))
+      (loop for p from (- 10000 (* depth 1000))
+            for overlay in (nreverse (append overlays nil))
+            do (overlay-put overlay 'priority p))
+      (let ((it (make-popup :point point
+                            :row row
+                            :column column
+                            :width width
+                            :height height
+                            :min-height min-height
+                            :direction direction
+                            :parent parent
+                            :depth depth
+                            :face face
+                            :selection-face selection-face
+                            :margin-left margin-left
+                            :margin-right margin-right
+                            :margin-left-cancel margin-left-cancel
+                            :scroll-bar scroll-bar
+                            :symbol symbol
+                            :cursor 0
+                            :scroll-top 0
+                            :current-height 0
+                            :list nil
+                            :newlines newlines
+                            :overlays overlays)))
+        (push it popup-instances)
+        it))))
+
+(defun popup-delete (popup)
+  (when (popup-live-p popup)
+    (popup-hide popup)
+    (mapc 'delete-overlay (popup-overlays popup))
+    (setf (popup-overlays popup) nil)
+    (setq popup-instances (delq popup popup-instances))
+    (let ((newlines (popup-newlines popup)))
+      (when (> newlines 0)
+        (popup-save-buffer-state
+          (goto-char (point-max))
+          (dotimes (i newlines)
+            (if (= (char-before) ?\n)
+                (delete-char -1)))))))
+  nil)
+
+(defun popup-draw (popup)
+  (loop with height = (popup-height popup)
+        with min-height = (popup-min-height popup)
+        with popup-face = (popup-face popup)
+        with selection-face = (popup-selection-face popup)
+        with list = (popup-list popup)
+        with length = (length list)
+        with thum-size = (max (/ (* height height) (max length 1)) 1)
+        with page-size = (/ (+ 0.0 (max length 1)) height)
+        with scroll-bar = (popup-scroll-bar popup)
+        with margin-left = (make-string (if (popup-margin-left-cancel popup) 0 (popup-margin-left popup)) ? )
+        with margin-right = (make-string (popup-margin-right popup) ? )
+        with symbol = (popup-symbol popup)
+        with cursor = (popup-cursor popup)
+        with scroll-top = (popup-scroll-top popup)
+        with offset = (popup-offset popup)
+        for o from offset
+        for i from scroll-top
+        while (< o height)
+        for item in (nthcdr scroll-top list)
+        for page-index = (* thum-size (/ o thum-size))
+        for face = (if (= i cursor)
+                       (or (popup-item-selection-face item) selection-face)
+                     (or (popup-item-popup-face item) popup-face))
+        for empty-char = (propertize " " 'face face)
+        for scroll-bar-char = (if scroll-bar
+                                  (cond
+                                   ((<= page-size 1)
+                                    empty-char)
+                                   ((and (> page-size 1)
+                                         (>= cursor (* page-index page-size))
+                                         (< cursor (* (+ page-index thum-size) page-size)))
+                                    popup-scroll-bar-foreground-char)
+                                   (t
+                                    popup-scroll-bar-background-char))
+                                "")
+        for sym = (if symbol
+                      (concat " " (or (popup-item-symbol item) " "))
+                    "")
+        for summary = (or (popup-item-summary item) "")
+        
+        do
+        ;; Show line and set item to the line
+        (popup-set-line-item popup o item face margin-left margin-right scroll-bar-char sym summary)
+        
+        finally
+        ;; Remember current height
+        (setf (popup-current-height popup) (- o offset))
+
+        ;; Hide remaining lines
+        (let ((scroll-bar-char (if scroll-bar (propertize " " 'face popup-face) ""))
+              (symbol (if symbol " " "")))
+          (if (> (popup-direction popup) 0)
+              (progn
+                (when min-height
+                  (while (< o min-height)
+                    (popup-set-line-item popup o "" popup-face margin-left margin-right scroll-bar-char symbol "")
+                    (incf o)))
+                (while (< o height)
+                  (popup-hide-line popup o)
+                  (incf o)))
+            (loop with h = (if min-height (- height min-height) offset)
+                  for o from 0 below offset
+                  if (< o h)
+                  do (popup-hide-line popup o)
+                  if (>= o h)
+                  do (popup-set-line-item popup o "" popup-face margin-left margin-right scroll-bar-char symbol ""))))))
+
+(defun popup-hide (popup)
+  (dotimes (i (popup-height popup))
+    (popup-hide-line popup i)))
+
+(defun popup-hidden-p (popup)
+  (let ((hidden t))
+    (when (popup-live-p popup)
+      (dotimes (i (popup-height popup))
+        (unless (popup-line-hidden-p popup i)
+          (setq hidden nil))))
+    hidden))
+
+(defun popup-select (popup i)
+  (setq i (+ i (popup-offset popup)))
+  (when (and (<= 0 i) (< i (popup-height popup)))
+    (setf (popup-cursor popup) i)
+    (popup-draw popup)
+    t))
+
+(defun popup-next (popup)
+  (let ((height (popup-height popup))
+        (cursor (1+ (popup-cursor popup)))
+        (scroll-top (popup-scroll-top popup))
+        (length (length (popup-list popup))))
+    (cond
+     ((>= cursor length)
+      ;; Back to first page
+      (setq cursor 0
+            scroll-top 0))
+     ((= cursor (+ scroll-top height))
+      ;; Go to next page
+      (setq scroll-top (min (1+ scroll-top) (max (- length height) 0)))))
+    (setf (popup-cursor popup) cursor
+          (popup-scroll-top popup) scroll-top)
+    (popup-draw popup)))
+
+(defun popup-previous (popup)
+  (let ((height (popup-height popup))
+        (cursor (1- (popup-cursor popup)))
+        (scroll-top (popup-scroll-top popup))
+        (length (length (popup-list popup))))
+    (cond
+     ((< cursor 0)
+      ;; Go to last page
+      (setq cursor (1- length)
+            scroll-top (max (- length height) 0)))
+     ((= cursor (1- scroll-top))
+      ;; Go to previous page
+      (decf scroll-top)))
+    (setf (popup-cursor popup) cursor
+          (popup-scroll-top popup) scroll-top)
+    (popup-draw popup)))
+
+(defun popup-scroll-down (popup &optional n)
+  (let ((scroll-top (min (+ (popup-scroll-top popup) (or n 1))
+                         (- (length (popup-list popup)) (popup-height popup)))))
+    (setf (popup-cursor popup) scroll-top
+          (popup-scroll-top popup) scroll-top)
+    (popup-draw popup)))
+
+(defun popup-scroll-up (popup &optional n)
+  (let ((scroll-top (max (- (popup-scroll-top popup) (or n 1))
+                         0)))
+    (setf (popup-cursor popup) scroll-top
+          (popup-scroll-top popup) scroll-top)
+    (popup-draw popup)))
+
+
+
+;; Popup isearch
+
+(defface popup-isearch-match
+  '((t (:background "sky blue")))
+  "Popup isearch match face."
+  :group 'popup)
+
+(defvar popup-isearch-cursor-color "blue")
+
+(defvar popup-isearch-keymap
+  (let ((map (make-sparse-keymap)))
+    ;(define-key map "\r"        'popup-isearch-done)
+    (define-key map "\C-g"      'popup-isearch-cancel)
+    (define-key map "\C-h"      'popup-isearch-delete)
+    (define-key map (kbd "DEL") 'popup-isearch-delete)
+    map))
+
+(defsubst popup-isearch-char-p (char)
+  (and (integerp char)
+       (<= 32 char)
+       (<= char 126)))
+
+(defun popup-isearch-filter-list (pattern list)
+  (loop with regexp = (regexp-quote pattern)
+        for item in list
+        do
+        (unless (stringp item)
+          (setq item (popup-item-propertize (popup-x-to-string item)
+                                            'value item)))
+        if (string-match regexp item)
+        collect (let ((beg (match-beginning 0))
+                      (end (match-end 0)))
+                  (alter-text-property 0 (length item) 'face
+                                       (lambda (prop)
+                                         (unless (eq prop 'popup-isearch-match)
+                                           prop))
+                                       item)
+                  (put-text-property beg end
+                                     'face 'popup-isearch-match
+                                     item)
+                  item)))
+
+(defun popup-isearch-prompt (popup pattern)
+  (format "Pattern: %s" (if (= (length (popup-list popup)) 0)
+                            (propertize pattern 'face 'isearch-fail)
+                          pattern)))
+
+(defun popup-isearch-update (popup pattern &optional callback)
+  (setf (popup-cursor popup) 0
+        (popup-scroll-top popup) 0
+        (popup-pattern popup) pattern)
+  (let ((list (popup-isearch-filter-list pattern (popup-original-list popup))))
+    (popup-set-filtered-list popup list)
+    (if callback
+        (funcall callback list)))
+  (popup-draw popup))
+
+(defun* popup-isearch (popup
+                       &key
+                       (cursor-color popup-isearch-cursor-color)
+                       (keymap popup-isearch-keymap)
+                       callback
+                       help-delay)
+  (let ((list (popup-original-list popup))
+        (pattern (or (popup-pattern popup) ""))
+        (old-cursor-color (frame-parameter (selected-frame) 'cursor-color))
+        prompt key binding done)
+    (unwind-protect
+        (unless (block nil
+                  (if cursor-color
+                      (set-cursor-color cursor-color))
+                  (while t
+                    (setq prompt (popup-isearch-prompt popup pattern))
+                    (setq key (popup-menu-read-key-sequence keymap prompt help-delay))
+                    (if (null key)
+                        (unless (funcall popup-menu-show-quick-help-function popup nil :prompt prompt)
+                          (clear-this-command-keys)
+                          (push (read-event prompt) unread-command-events))
+                      (setq binding (lookup-key keymap key))
+                      (cond
+                       ((and (stringp key)
+                             (popup-isearch-char-p (aref key 0)))
+                        (setq pattern (concat pattern key)))
+                       ((eq binding 'popup-isearch-done)
+                        (return t))
+                       ((eq binding 'popup-isearch-cancel)
+                        (return nil))
+                       ((eq binding 'popup-isearch-delete)
+                        (if (> (length pattern) 0)
+                            (setq pattern (substring pattern 0 (1- (length pattern))))))
+                       (t
+                        (setq unread-command-events
+                              (append (listify-key-sequence key) unread-command-events))
+                        (return t)))
+                      (popup-isearch-update popup pattern callback))))
+          (popup-isearch-update popup "" callback)
+          t) ; Return non-nil if isearch is cancelled
+      (if old-cursor-color
+          (set-cursor-color old-cursor-color)))))
+
+
+
+;; Popup tip
+
+(defface popup-tip-face
+  '((t (:background "khaki1" :foreground "black")))
+  "Face for popup tip."
+  :group 'popup)
+
+(defvar popup-tip-max-width 80)
+
+(defun* popup-tip (string
+                   &key
+                   point
+                   (around t)
+                   width
+                   (height 15)
+                   min-height
+                   truncate
+                   margin
+                   margin-left
+                   margin-right
+                   scroll-bar
+                   parent
+                   parent-offset
+                   nowait
+                   prompt
+                   &aux tip lines)
+  (if (bufferp string)
+      (setq string (with-current-buffer string (buffer-string))))
+  ;; TODO strip text (mainly face) properties
+  (setq string (substring-no-properties string))
+
+  (and (eq margin t) (setq margin 1))
+  (or margin-left (setq margin-left margin))
+  (or margin-right (setq margin-right margin))
+  
+  (let ((it (popup-fill-string string width popup-tip-max-width)))
+    (setq width (car it)
+          lines (cdr it)))
+  
+  (setq tip (popup-create point width height
+                          :min-height min-height
+                          :around around
+                          :margin-left margin-left
+                          :margin-right margin-right
+                          :scroll-bar scroll-bar
+                          :face 'popup-tip-face
+                          :parent parent
+                          :parent-offset parent-offset))
+
+  (unwind-protect
+      (when (> (popup-width tip) 0)                   ; not to be corrupted
+        (when (and (not (eq width (popup-width tip))) ; truncated
+                   (not truncate))
+          ;; Refill once again to lines be fitted to popup width
+          (setq width (popup-width tip))
+          (setq lines (cdr (popup-fill-string string width width))))
+
+        (popup-set-list tip lines)
+        (popup-draw tip)
+        (if nowait
+            tip
+          (clear-this-command-keys)
+          (push (read-event prompt) unread-command-events)
+          t))
+    (unless nowait
+      (popup-delete tip))))
+
+
+
+;; Popup menu
+
+(defface popup-menu-face
+  '((t (:background "lightgray" :foreground "black")))
+  "Face for popup menu."
+  :group 'popup)
+
+(defface popup-menu-selection-face
+  '((t (:background "steelblue" :foreground "white")))
+  "Face for popup menu selection."
+  :group 'popup)
+
+(defvar popup-menu-show-tip-function 'popup-tip
+  "Function used for showing tooltip by `popup-menu-show-quick-help'.")
+
+(defvar popup-menu-show-quick-help-function 'popup-menu-show-quick-help
+  "Function used for showing quick help by `popup-menu*'.")
+
+(defun popup-menu-show-help (menu &optional persist item)
+  (popup-item-show-help (or item (popup-selected-item menu)) persist))
+
+(defun popup-menu-documentation (menu &optional item)
+  (popup-item-documentation (or item (popup-selected-item menu))))
+
+(defun popup-menu-show-quick-help (menu &optional item &rest args)
+  (let* ((point (plist-get args :point))
+         (height (or (plist-get args :height) (popup-height menu)))
+         (min-height (min height (popup-current-height menu)))
+         (around nil)
+         (parent-offset (popup-offset menu))
+         (doc (popup-menu-documentation menu item)))
+    (when (stringp doc)
+      (if (popup-hidden-p menu)
+          (setq around t
+                menu nil
+                parent-offset nil)
+        (setq point nil))
+      (let ((popup-use-optimized-column-computation nil)) ; To avoid wrong positioning
+        (apply popup-menu-show-tip-function
+               doc
+               :point point
+               :height height
+               :min-height min-height
+               :around around
+               :parent menu
+               :parent-offset parent-offset
+               args)))))
+
+(defun popup-menu-read-key-sequence (keymap &optional prompt timeout)
+  (catch 'timeout
+    (let ((timer (and timeout
+                      (run-with-timer timeout nil
+                                      (lambda ()
+                                        (if (zerop (length (this-command-keys)))
+                                            (throw 'timeout nil))))))
+          (old-global-map (current-global-map))
+          (temp-global-map (make-sparse-keymap))
+          (overriding-terminal-local-map (make-sparse-keymap)))
+      (substitute-key-definition 'keyboard-quit 'keyboard-quit
+                                 temp-global-map old-global-map)
+      (define-key temp-global-map [menu-bar] (lookup-key old-global-map [menu-bar]))
+      (define-key temp-global-map [tool-bar] (lookup-key old-global-map [tool-bar]))
+      (set-keymap-parent overriding-terminal-local-map keymap)
+      (if (current-local-map)
+          (define-key overriding-terminal-local-map [menu-bar]
+            (lookup-key (current-local-map) [menu-bar])))
+      (unwind-protect
+          (progn
+            (use-global-map temp-global-map)
+            (clear-this-command-keys)
+            (with-temp-message prompt
+              (read-key-sequence nil)))
+        (use-global-map old-global-map)
+        (if timer (cancel-timer timer))))))
+
+(defun popup-menu-fallback (event default))
+
+(defun* popup-menu-event-loop (menu keymap fallback &optional prompt help-delay isearch isearch-cursor-color isearch-keymap isearch-callback &aux key binding)
+  (block nil
+    (while (popup-live-p menu)
+      (and isearch
+           (popup-isearch menu
+                          :cursor-color isearch-cursor-color
+                          :keymap isearch-keymap
+                          :callback isearch-callback
+                          :help-delay help-delay)
+           (keyboard-quit))
+      (setq key (popup-menu-read-key-sequence keymap prompt help-delay))
+      (if (null key)
+          (unless (funcall popup-menu-show-quick-help-function menu nil :prompt prompt)
+            (clear-this-command-keys)
+            (push (read-event prompt) unread-command-events))
+        (if (eq (lookup-key (current-global-map) key) 'keyboard-quit)
+            (keyboard-quit))
+        (setq binding (lookup-key keymap key))
+        (cond
+         ((eq binding 'popup-close)
+          (if (popup-parent menu)
+              (return)))
+         ((memq binding '(popup-select popup-open))
+          (let* ((item (popup-selected-item menu))
+                 (sublist (popup-item-sublist item)))
+            (if sublist
+                (popup-aif (popup-cascade-menu sublist
+                                               :around nil
+                                               :parent menu
+                                               :margin-left (popup-margin-left menu)
+                                               :margin-right (popup-margin-right menu)
+                                               :scroll-bar (popup-scroll-bar menu))
+                    (and it (return it)))
+              (if (eq binding 'popup-select)
+                  (return (popup-item-value-or-self item))))))
+         ((eq binding 'popup-next)
+          (popup-next menu))
+         ((eq binding 'popup-previous)
+          (popup-previous menu))
+         ((eq binding 'popup-help)
+          (popup-menu-show-help menu))
+         ((eq binding 'popup-isearch)
+          (popup-isearch menu
+                         :cursor-color isearch-cursor-color
+                         :keymap isearch-keymap
+                         :callback isearch-callback
+                         :help-delay help-delay))
+         ((commandp binding)
+          (call-interactively binding))
+         (t
+          (funcall fallback key (key-binding key))))))))
+
+;; popup-menu is used by mouse.el unfairly...
+(defun* popup-menu* (list
+                     &key
+                     point
+                     (around t)
+                     (width (popup-preferred-width list))
+                     (height 15)
+                     margin
+                     margin-left
+                     margin-right
+                     scroll-bar
+                     symbol
+                     parent
+                     parent-offset
+                     (keymap popup-menu-keymap)
+                     (fallback 'popup-menu-fallback)
+                     help-delay
+                     prompt
+                     isearch
+                     (isearch-cursor-color popup-isearch-cursor-color)
+                     (isearch-keymap popup-isearch-keymap)
+                     isearch-callback
+                     &aux menu event)
+  (and (eq margin t) (setq margin 1))
+  (or margin-left (setq margin-left margin))
+  (or margin-right (setq margin-right margin))
+  (if (and scroll-bar
+           (integerp margin-right)
+           (> margin-right 0))
+      ;; Make scroll-bar space as margin-right
+      (decf margin-right))
+  (setq menu (popup-create point width height
+                           :around around
+                           :face 'popup-menu-face
+                           :selection-face 'popup-menu-selection-face
+                           :margin-left margin-left
+                           :margin-right margin-right
+                           :scroll-bar scroll-bar
+                           :symbol symbol
+                           :parent parent))
+  (unwind-protect
+      (progn
+        (popup-set-list menu list)
+        (popup-draw menu)
+        (popup-menu-event-loop menu keymap fallback prompt help-delay isearch
+                               isearch-cursor-color isearch-keymap isearch-callback))
+    (popup-delete menu)))
+
+(defun popup-cascade-menu (list &rest args)
+  "Same to `popup-menu', but an element of `LIST' can be
+list of submenu."
+  (apply 'popup-menu*
+         (mapcar (lambda (item)
+                   (if (consp item)
+                       (popup-make-item (car item)
+                                        :sublist (cdr item)
+                                        :symbol ">")
+                     item))
+                 list)
+         :symbol t
+         args))
+
+(defvar popup-menu-keymap
+  (let ((map (make-sparse-keymap)))
+    (define-key map "\r"        'popup-select)
+    (define-key map "\C-f"      'popup-open)
+    (define-key map [right]     'popup-open)
+    (define-key map "\C-b"      'popup-close)
+    (define-key map [left]      'popup-close)
+
+    (define-key map "\C-n"      'popup-next)
+    (define-key map [down]      'popup-next)
+    (define-key map "\C-p"      'popup-previous)
+    (define-key map [up]        'popup-previous)
+
+    (define-key map [f1]        'popup-help)
+    (define-key map (kbd "\C-?") 'popup-help)
+
+    (define-key map "\C-s"      'popup-isearch)
+    map))
+
+(provide 'popup)
+;;; popup.el ends here
diff --git a/.emacs.d/auto-complete/popup.elc b/.emacs.d/auto-complete/popup.elc
new file mode 100644
index 0000000..7366e86
Binary files /dev/null and b/.emacs.d/auto-complete/popup.elc differ
diff --git a/.emacs.d/color-theme-autoloads.el b/.emacs.d/color-theme-autoloads.el
new file mode 100644
index 0000000..1920029
--- /dev/null
+++ b/.emacs.d/color-theme-autoloads.el
@@ -0,0 +1,159 @@
+;;; -*-emacs-lisp-*-
+
+;; Copyright (C) 2002 Free Software Foundation, Inc.
+
+(defvar generated-autoload-file)
+(defvar command-line-args-left)
+(defun color-theme-generate-autoloads ()
+  (interactive)
+  (require 'autoload)
+  (setq generated-autoload-file (car command-line-args-left))
+  (setq command-line-args-left (cdr command-line-args-left))
+  (batch-update-autoloads))
+
+(provide 'color-theme-autoloads)
+;;; Generated autoloads follow (made by autoload.el).
+
+;;;### (autoloads nil nil ("themes/color-theme-example.el" "themes/color-theme-library.el")
+;;;;;;  (19535 4173 130526))
+
+;;;***
+
+;;;### (autoloads (color-theme-initialize color-theme-submit color-theme-install
+;;;;;;  color-theme-compare color-theme-make-snapshot color-theme-analyze-defun
+;;;;;;  color-theme-print color-theme-install-at-point-for-current-frame
+;;;;;;  color-theme-install-at-mouse color-theme-describe color-theme-select)
+;;;;;;  "color-theme" "color-theme.el" (17529 41105))
+;;; Generated autoloads from color-theme.el
+
+(autoload (quote color-theme-select) "color-theme" "\
+Displays a special buffer for selecting and installing a color theme.
+With optional prefix ARG, this buffer will include color theme libraries
+as well.  A color theme library is in itself not complete, it must be
+used as part of another color theme to be useful.  Thus, color theme
+libraries are mainly useful for color theme authors.
+
+\(fn &optional ARG)" t nil)
+
+(autoload (quote color-theme-describe) "color-theme" "\
+Describe color theme listed at point.
+This shows the documentation of the value of text-property color-theme
+at point.  The text-property color-theme should be a color theme
+function.  See `color-themes'.
+
+\(fn)" t nil)
+
+(autoload (quote color-theme-install-at-mouse) "color-theme" "\
+Install color theme clicked upon using the mouse.
+First argument EVENT is used to set point.  Then
+`color-theme-install-at-point' is called.
+
+\(fn EVENT)" t nil)
+
+(autoload (quote color-theme-install-at-point-for-current-frame) "color-theme" "\
+Install color theme at point for current frame only.
+Binds `color-theme-is-global' to nil and calls
+`color-theme-install-at-point'.
+
+\(fn)" t nil)
+
+(autoload (quote color-theme-print) "color-theme" "\
+Print the current color theme function.
+
+You can contribute this function to <URL:news:gnu.emacs.sources> or
+paste it into your .emacs file and call it.  That should recreate all
+the settings necessary for your color theme.
+
+Example:
+
+    (require 'color-theme)
+    (defun my-color-theme ()
+      \"Color theme by Alex Schroeder, created 2000-05-17.\"
+      (interactive)
+      (color-theme-install
+       '(...
+	 ...
+	 ...)))
+    (my-color-theme)
+
+If you want to use a specific color theme function, you can call the
+color theme function in your .emacs directly.
+
+Example:
+
+    (require 'color-theme)
+    (color-theme-gnome2)
+
+\(fn &optional BUF)" t nil)
+
+(autoload (quote color-theme-analyze-defun) "color-theme" "\
+Once you have a color-theme printed, check for missing faces.
+This is used by maintainers who receive a color-theme submission
+and want to make sure it follows the guidelines by the color-theme
+author.
+
+\(fn)" t nil)
+
+(autoload (quote color-theme-make-snapshot) "color-theme" "\
+Return the definition of the current color-theme.
+The function returned will recreate the color-theme in use at the moment.
+
+\(fn)" nil nil)
+
+(autoload (quote color-theme-compare) "color-theme" "\
+Compare two color themes.
+This will print the differences between installing THEME-A and
+installing THEME-B.  Note that the order is important: If a face is
+defined in THEME-A and not in THEME-B, then this will not show up as a
+difference, because there is no reset before installing THEME-B.  If a
+face is defined in THEME-B and not in THEME-A, then this will show up as
+a difference.
+
+\(fn THEME-A THEME-B)" t nil)
+
+(autoload (quote color-theme-install) "color-theme" "\
+Install a color theme defined by frame parameters, variables and faces.
+
+The theme is installed for all present and future frames; any missing
+faces are created.  See `color-theme-install-faces'.
+
+THEME is a color theme definition.  See below for more information.
+
+If you want to install a color theme from your .emacs, use the output
+generated by `color-theme-print'.  This produces color theme function
+which you can copy to your .emacs.
+
+A color theme definition is a list:
+\([FUNCTION] FRAME-PARAMETERS VARIABLE-SETTINGS FACE-DEFINITIONS)
+
+FUNCTION is the color theme function which called `color-theme-install'.
+This is no longer used.  There was a time when this package supported
+automatic factoring of color themes.  This has been abandoned.
+
+FRAME-PARAMETERS is an alist of frame parameters.  These are installed
+with `color-theme-install-frame-params'.  These are installed last such
+that any changes to the default face can be changed by the frame
+parameters.
+
+VARIABLE-DEFINITIONS is an alist of variable settings.  These are
+installed with `color-theme-install-variables'.
+
+FACE-DEFINITIONS is an alist of face definitions.  These are installed
+with `color-theme-install-faces'.
+
+If `color-theme-is-cumulative' is nil, a color theme will undo face and
+frame-parameter settings of previous color themes.
+
+\(fn THEME)" nil nil)
+
+(autoload (quote color-theme-submit) "color-theme" "\
+Submit your color-theme to the maintainer.
+
+\(fn)" t nil)
+
+(autoload (quote color-theme-initialize) "color-theme" "\
+Initialize the color theme package by loading color-theme-libraries.
+
+\(fn)" t nil)
+
+;;;***
diff --git a/.emacs.d/color-theme.el b/.emacs.d/color-theme.el
new file mode 100644
index 0000000..c92c1a5
--- /dev/null
+++ b/.emacs.d/color-theme.el
@@ -0,0 +1,1668 @@
+;;; color-theme.el --- install color themes
+
+;; Copyright (C) 1999, 2000  Jonadab the Unsightly One <jonadab@bright.net>
+;; Copyright (C) 2000, 2001, 2002, 2003  Alex Schroeder <alex@gnu.org>
+;; Copyright (C) 2003, 2004, 2005, 2006  Xavier Maillard <zedek@gnu.org>
+
+;; Version: 6.6.0
+;; Keywords: faces
+;; Author: Jonadab the Unsightly One <jonadab@bright.net>
+;; Maintainer: Xavier Maillard <zedek@gnu.org>
+;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme
+
+;; This file is not (YET) part of GNU Emacs.
+
+;; This is free software; you can redistribute it and/or modify it under
+;; the terms of the GNU General Public License as published by the Free
+;; Software Foundation; either version 2, or (at your option) any later
+;; version.
+;;
+;; This is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+;; for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+;; MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; Please read README and BUGS files for any relevant help.
+;; Contributors (not themers) should also read HACKING file.
+
+;;; Thanks
+
+;; Deepak Goel  <deego@glue.umd.edu>
+;; S. Pokrovsky <pok@nbsp.nsk.su> for ideas and discussion.
+;; Gordon Messmer <gordon@dragonsdawn.net> for ideas and discussion.
+;; Sriram Karra <karra@cs.utah.edu> for the color-theme-submit stuff.
+;; Olgierd `Kingsajz' Ziolko <kingsajz@rpg.pl> for the spec-filter idea.
+;; Brian Palmer for color-theme-library ideas and code
+;; All the users that contributed their color themes.
+
+
+
+;;; Code:
+(eval-when-compile
+  (require 'easymenu)
+  (require 'reporter)
+  (require 'sendmail))
+
+(require 'cl); set-difference is a function...
+
+;; for custom-face-attributes-get or face-custom-attributes-get
+(require 'cus-face)
+(require 'wid-edit); for widget-apply stuff in cus-face.el
+
+(defconst color-theme-maintainer-address "zedek@gnu.org"
+  "Address used by `submit-color-theme'.")
+
+;; Emacs / XEmacs compatibility and workaround layer
+
+(cond ((and (facep 'tool-bar)
+	    (not (facep 'toolbar)))
+       (put 'toolbar 'face-alias 'tool-bar))
+      ((and (facep 'toolbar)
+	    (not (facep 'tool-bar)))
+       (put 'tool-bar 'face-alias 'toolbar)))
+
+(defvar color-theme-xemacs-p (and (featurep 'xemacs) 
+                                  (string-match "XEmacs" emacs-version))
+  "Non-nil if running XEmacs.")
+
+;; Add this since it appears to miss in emacs-2x
+(or (fboundp 'replace-in-string)
+    (defun replace-in-string (target old new)
+      (replace-regexp-in-string old new  target)))
+
+;; face-attr-construct has a problem in Emacs 20.7 and older when
+;; dealing with inverse-video faces.  Here is a short test to check
+;; wether you are affected.
+
+;; (set-background-color "wheat")
+;; (set-foreground-color "black")
+;; (setq a (make-face 'a-face))
+;; (face-spec-set a '((t (:background "white" :foreground "black" :inverse-video t))))
+;; (face-attr-construct a)
+;;     => (:background "black" :inverse-video t)
+
+;; The expected response is the original specification:
+;;     => (:background "white" :foreground "black" :inverse-video t)
+
+;; That's why we depend on cus-face.el functionality.
+
+(cond ((fboundp 'custom-face-attributes-get)
+       (defun color-theme-face-attr-construct (face frame)
+         (if (atom face)
+             (custom-face-attributes-get face frame)
+             (if (and (consp face) (eq (car face) 'quote))
+                 (custom-face-attributes-get (cadr face) frame)
+                 (custom-face-attributes-get (car face) frame)))))
+      ((fboundp 'face-custom-attributes-get)
+       (defalias 'color-theme-face-attr-construct
+	 'face-custom-attributes-get))
+      (t
+       (defun color-theme-face-attr-construct (&rest ignore)
+	 (error "Unable to construct face attributes"))))
+
+(defun color-theme-alist (plist)
+  "Transform PLIST into an alist if it is a plist and return it.
+If the first element of PLIST is a cons cell, we just return PLIST,
+assuming PLIST to be an alist.  If the first element of plist is not a
+symbol, this is an error: We cannot distinguish a plist from an ordinary
+list, but a list that doesn't start with a symbol is certainly no plist
+and no alist.
+
+This is used to make sure `default-frame-alist' really is an alist and not
+a plist.  In XEmacs, the alist is deprecated; a plist is used instead."
+  (cond ((consp (car plist))
+	 plist)
+	((not (symbolp (car plist)))
+	 (error "Wrong type argument: plist, %S" plist))
+	((featurep 'xemacs)
+	 (plist-to-alist plist)))); XEmacs only
+
+;; Customization
+
+(defgroup color-theme nil
+  "Color Themes for Emacs.
+A color theme consists of frame parameter settings, variable settings,
+and face definitions."
+  :version "20.6"
+  :group 'faces)
+
+(defcustom color-theme-legal-frame-parameters "\\(color\\|mode\\)$"
+  "Regexp that matches frame parameter names.
+Only frame parameter names that match this regexp can be changed as part
+of a color theme."
+  :type '(choice (const :tag "Colors only" "\\(color\\|mode\\)$")
+		 (const :tag "Colors, fonts, and size"
+			"\\(color\\|mode\\|font\\|height\\|width\\)$")
+		 (regexp :tag "Custom regexp"))
+  :group 'color-theme
+  :link '(info-link "(elisp)Window Frame Parameters"))
+
+(defcustom color-theme-legal-variables "\\(color\\|face\\)$"
+  "Regexp that matches variable names.
+Only variables that match this regexp can be changed as part of a color
+theme.  In addition to matching this name, the variables have to be user
+variables (see function `user-variable-p')."
+  :type 'regexp
+  :group 'color-theme)
+
+(defcustom color-theme-illegal-faces "^w3-"
+  "Regexp that matches face names forbidden in themes.
+The default setting \"^w3-\" excludes w3 faces since these
+are created dynamically."
+  :type 'regexp
+  :group 'color-theme
+  :link '(info-link "(elisp)Faces for Font Lock")
+  :link '(info-link "(elisp)Standard Faces"))
+
+(defcustom color-theme-illegal-default-attributes '(:family :height :width)
+  "A list of face properties to be ignored when installing faces.
+This prevents Emacs from doing terrible things to your display just because
+a theme author likes weird fonts."
+  :type '(repeat symbol)
+  :group 'color-theme)
+
+(defcustom color-theme-is-global t
+  "*Determines wether a color theme is installed on all frames or not.
+If non-nil, color themes will be installed for all frames.
+If nil, color themes will be installed for the selected frame only.
+
+A possible use for this variable is dynamic binding. Here is a larger
+example to put in your ~/.emacs; it will make the Blue Sea color theme
+the default used for the first frame, and it will create two additional
+frames with different color themes.
+
+setup:
+    \(require 'color-theme)
+    ;; set default color theme
+    \(color-theme-blue-sea)
+    ;; create some frames with different color themes
+    \(let ((color-theme-is-global nil))
+      \(select-frame (make-frame))
+      \(color-theme-gnome2)
+      \(select-frame (make-frame))
+      \(color-theme-standard))
+
+Please note that using XEmacs and and a nil value for
+color-theme-is-global will ignore any variable settings for the color
+theme, since XEmacs doesn't have frame-local variable bindings.
+
+Also note that using Emacs and a non-nil value for color-theme-is-global
+will install a new color theme for all frames.  Using XEmacs and a
+non-nil value for color-theme-is-global will install a new color theme
+only on those frames that are not using a local color theme."
+  :type 'boolean
+  :group 'color-theme)
+
+(defcustom color-theme-is-cumulative t
+  "*Determines wether new color themes are installed on top of each other.
+If non-nil, installing a color theme will undo all settings made by
+previous color themes."
+  :type 'boolean
+  :group 'color-theme)
+
+(defcustom color-theme-directory nil
+  "Directory where we can find additionnal themes (personnal).
+Note that there is at least one directory shipped with the official
+color-theme distribution where all contributed themes are located.
+This official selection can't be changed with that variable. 
+However, you still can decide to turn it on or off and thus,
+not be shown with all themes but yours."
+  :type '(repeat string)
+  :group 'color-theme)
+
+(defcustom color-theme-libraries (directory-files 
+                                  (concat 
+                                   (file-name-directory (locate-library "color-theme"))
+                                   "/themes") t "^color-theme")
+  "A list of files, which will be loaded in color-theme-initialize depending
+on `color-theme-load-all-themes' value. 
+This allows a user to prune the default color-themes (which can take a while
+to load)."
+  :type '(repeat string)
+  :group 'color-theme)
+
+(defcustom color-theme-load-all-themes t
+  "When t, load all color-theme theme files
+as presented by `color-theme-libraries'. Else
+do not load any of this themes."
+  :type 'boolean
+  :group 'color-theme)
+
+(defcustom color-theme-mode-hook nil
+  "Hook for color-theme-mode."
+  :type 'hook
+  :group 'color-theme)
+
+(defvar color-theme-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "RET") 'color-theme-install-at-point)
+    (define-key map (kbd "c") 'list-colors-display)
+    (define-key map (kbd "d") 'color-theme-describe)
+    (define-key map (kbd "f") 'list-faces-display)
+    (define-key map (kbd "i") 'color-theme-install-at-point)
+    (define-key map (kbd "l") 'color-theme-install-at-point-for-current-frame)
+    (define-key map (kbd "p") 'color-theme-print)
+    (define-key map (kbd "q") 'bury-buffer)
+    (define-key map (kbd "?") 'color-theme-describe)
+    (if color-theme-xemacs-p
+	(define-key map (kbd "<button2>") 'color-theme-install-at-mouse)
+      (define-key map (kbd "<mouse-2>") 'color-theme-install-at-mouse))
+    map)
+  "Mode map used for the buffer created by `color-theme-select'.")
+
+(defvar color-theme-initialized nil
+  "Internal variable determining whether color-theme-initialize has been invoked yet")
+
+(defvar color-theme-buffer-name "*Color Theme Selection*"
+  "Name of the color theme selection buffer.")
+
+(defvar color-theme-original-frame-alist nil
+  "nil until one of the color themes has been installed.")
+
+(defvar color-theme-history nil
+  "List of color-themes called, in reverse order")
+
+(defcustom color-theme-history-max-length nil
+  "Max length of history to maintain.
+Two other values are acceptable: t means no limit, and
+nil means that no history is maintained."
+  :type '(choice (const :tag "No history" nil)
+		 (const :tag "Unlimited length" t)
+		 integer)
+  :group 'color-theme)
+
+(defvar color-theme-counter 0
+  "Counter for every addition to `color-theme-history'.
+This counts how many themes were installed, regardless
+of `color-theme-history-max-length'.")
+
+(defvar color-theme-entry-path (cond
+                                ;; Emacs 22.x and later
+                                ((lookup-key global-map [menu-bar tools])
+                                 '("tools"))
+                                ;; XEmacs
+                                ((featurep 'xemacs)
+                                 (setq tool-entry '("Tools")))
+                                ;; Emacs < 22
+                                (t
+                                 '("Tools")))
+  "Menu tool entry path.")
+
+(defun color-theme-add-to-history (name)
+  "Add color-theme NAME to `color-theme-history'."
+  (setq color-theme-history
+	(cons (list name color-theme-is-cumulative)
+	      color-theme-history)
+	color-theme-counter (+ 1 color-theme-counter))
+  ;; Truncate the list if necessary.
+  (when (and (integerp color-theme-history-max-length)
+	     (>= (length color-theme-history)
+		 color-theme-history-max-length))
+    (setcdr (nthcdr (1- color-theme-history-max-length)
+		    color-theme-history)
+	    nil)))
+
+;; (let ((l '(1 2 3 4 5)))
+;;   (setcdr (nthcdr 2 l) nil)
+;;   l)
+
+
+
+;; List of color themes used to create the *Color Theme Selection*
+;; buffer.
+
+(defvar color-themes
+  '((color-theme-aalto-dark "Aalto Dark" "Jari Aalto <jari.aalto@poboxes.com>")
+    (color-theme-aalto-light "Aalto Light" "Jari Aalto <jari.aalto@poboxes.com>")
+    (color-theme-aliceblue "Alice Blue" "Girish Bharadwaj <girishb@gbvsoft.com>")
+    (color-theme-andreas "Andreas" "Andreas Busch <Andreas.Busch@politics.ox.ac.uk>")
+    (color-theme-arjen "Arjen" "Arjen Wiersma <arjen@wiersma.org>")
+    (color-theme-beige-diff "Beige Diff" "Alex Schroeder <alex@gnu.org>" t)
+    (color-theme-bharadwaj "Bharadwaj" "Girish Bharadwaj <girishb@gbvsoft.com>")
+    (color-theme-bharadwaj-slate "Bharadwaj Slate" "Girish Bharadwaj <girishb@gbvsoft.com>")
+    (color-theme-billw "Billw" "Bill White <billw@wolfram.com>")
+    (color-theme-black-on-gray "BlackOnGray" "Sudhir Bhojwani <sbhojwani@altoweb.com>")
+    (color-theme-blippblopp "Blipp Blopp" "Thomas Sicheritz-Ponten<thomas@biopython.org>")
+    (color-theme-simple-1 "Black" "Jonadab <jonadab@bright.net>")
+    (color-theme-blue-erc "Blue ERC" "Alex Schroeder <alex@gnu.org>" t)
+    (color-theme-blue-gnus "Blue Gnus" "Alex Schroeder <alex@gnu.org>" t)
+    (color-theme-blue-mood "Blue Mood" "Nelson Loyola <nloyola@yahoo.com>")
+    (color-theme-blue-sea "Blue Sea" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-calm-forest "Calm Forest" "Artur Hefczyc <kobit@plusnet.pl>")
+    (color-theme-charcoal-black "Charcoal Black" "Lars Chr. Hausmann <jazz@zqz.dk>")
+    (color-theme-goldenrod "Cheap Goldenrod" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-clarity "Clarity and Beauty" "Richard Wellum <rwellum@cisco.com>")
+    (color-theme-classic "Classic" "Frederic Giroud <postcard@worldonline.fr>")
+    (color-theme-comidia "Comidia" "Marcelo Dias de Toledo <mtole@ig.com.br>")
+    (color-theme-jsc-dark "Cooper Dark" "John S Cooper <John.Cooper@eu.citrix.com>")
+    (color-theme-jsc-light "Cooper Light" "John S Cooper <John.Cooper@eu.citrix.com>")
+    (color-theme-jsc-light2 "Cooper Light 2" "John S Cooper <John.Cooper@eu.citrix.com>")
+    (color-theme-dark-blue "Dark Blue" "Chris McMahan <cmcmahan@one.net>")
+    (color-theme-dark-blue2 "Dark Blue 2" "Chris McMahan <cmcmahan@one.net>")
+    (color-theme-dark-green "Dark Green" "eddy_woody@hotmail.com")
+    (color-theme-dark-laptop "Dark Laptop" "Laurent Michel <ldm@cs.brown.edu>")
+    (color-theme-deep-blue "Deep Blue" "Tomas Cerha <cerha@brailcom.org>")
+    (color-theme-digital-ofs1 "Digital OFS1" "Gareth Owen <gowen@gwowen.freeserve.co.uk>")
+    (color-theme-euphoria "Euphoria" "oGLOWo@oGLOWo.cjb.net")
+    (color-theme-feng-shui "Feng Shui" "Walter Higgins <walterh@rocketmail.com>")
+    (color-theme-fischmeister "Fischmeister"
+			      "Sebastian Fischmeister <sfischme@nexus.lzk.tuwien.ac.at>")
+    (color-theme-gnome "Gnome" "Jonadab <jonadab@bright.net>")
+    (color-theme-gnome2 "Gnome 2" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-gray1 "Gray1" "Paul Pulli <P.Pulli@motorola.com>")
+    (color-theme-gray30 "Gray30" "Girish Bharadwaj <girishb@gbvsoft.com>")
+    (color-theme-kingsajz "Green Kingsajz" "Olgierd `Kingsajz' Ziolko <kingsajz@rpg.pl>")
+    (color-theme-greiner "Greiner" "Kevin Greiner <kgreiner@mapquest.com>")
+    (color-theme-gtk-ide "GTK IDE" "Gordon Messmer <gordon@dragonsdawn.net>")
+    (color-theme-high-contrast "High Contrast" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-hober "Hober" "Edward O'Connor <ted@oconnor.cx>")
+    (color-theme-infodoc "Infodoc" "Frederic Giroud <postcard@worldonline.fr>")
+    (color-theme-jb-simple "JB Simple" "jeff@dvns.com")
+    (color-theme-jedit-grey "Jedit Grey" "Gordon Messmer <gordon@dragonsdawn.net>")
+    (color-theme-jonadabian "Jonadab" "Jonadab <jonadab@bright.net>")
+    (color-theme-jonadabian-slate "Jonadabian Slate" "Jonadab <jonadab@bright.net>")
+    (color-theme-katester "Katester" "Higgins_Walter@emc.com")
+    (color-theme-late-night "Late Night" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-lawrence "Lawrence" "lawrence mitchell <wence@gmx.li>")
+    (color-theme-lethe "Lethe" "Ivica Loncar <ivica.loncar@srk.fer.hr>")
+    (color-theme-ld-dark "Linh Dang Dark" "Linh Dang <linhd@nortelnetworks.com>")
+    (color-theme-marine "Marine" "Girish Bharadwaj <girishb@gbvsoft.com>")
+    (color-theme-matrix "Matrix" "Walter Higgins <walterh@rocketmail.com>")
+    (color-theme-marquardt "Marquardt" "Colin Marquardt <colin@marquardt-home.de>")
+    (color-theme-midnight "Midnight" "Gordon Messmer <gordon@dragonsdawn.net>")
+    (color-theme-mistyday "Misty Day" "Hari Kumar <Hari.Kumar@mtm.kuleuven.ac.be>")
+    (color-theme-montz "Montz" "Brady Montz <bradym@becomm.com>")
+    (color-theme-oswald "Oswald" "Tom Oswald <toswald@sharplabs.com>")
+    (color-theme-parus "Parus" "Jon K Hellan <hellan@acm.org>")
+    (color-theme-pierson "Pierson" "Dan L. Pierson <dan@sol.control.com>")
+    (color-theme-ramangalahy "Ramangalahy" "Solofo Ramangalahy <solofo@irisa.fr>")
+    (color-theme-raspopovic "Raspopovic" "Pedja Raspopovic <pedja@lsil.com>")
+    (color-theme-renegade "Renegade" "Dave Benjamin <ramen@ramenfest.com>")
+    (color-theme-resolve "Resolve" "Damien Elmes <resolve@repose.cx>")
+    (color-theme-retro-green "Retro Green" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-retro-orange "Retro Orange" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-robin-hood "Robin Hood" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-rotor "Rotor" "Jinwei Shen <shenjw@wam.umd.edu>")
+    (color-theme-ryerson "Ryerson" "Luis Fernandes <elf@ee.ryerson.ca>")
+    (color-theme-salmon-diff "Salmon Diff" "Alex Schroeder <alex@gnu.org>" t)
+    (color-theme-salmon-font-lock "Salmon Font-Lock" "Alex Schroeder <alex@gnu.org>" t)
+    (color-theme-scintilla "Scintilla" "Gordon Messmer <gordon@dragonsdawn.net>")
+    (color-theme-shaman "Shaman" "shaman@interdon.net")
+    (color-theme-sitaramv-nt "Sitaram NT"
+			     "Sitaram Venkatraman <sitaramv@loc251.tandem.com>")
+    (color-theme-sitaramv-solaris "Sitaram Solaris"
+				  "Sitaram Venkatraman <sitaramv@loc251.tandem.com>")
+    (color-theme-snow "Snow" "Nicolas Rist <Nicolas.Rist@alcatel.de>")
+    (color-theme-snowish "Snowish" "Girish Bharadwaj <girishb@gbvsoft.com>")
+    (color-theme-standard-ediff "Standard Ediff" "Emacs Team, added by Alex Schroeder <alex@gnu.org>" t)
+    (color-theme-standard "Standard Emacs 20" "Emacs Team, added by Alex Schroeder <alex@gnu.org>")
+    (color-theme-emacs-21 "Standard Emacs 21" "Emacs Team, added by Alex Schroeder <alex@gnu.org>")
+    (color-theme-emacs-nw "Standard Emacs 21 No Window" "Emacs Team, added by D. Goel <deego@gnufans.org>")
+    (color-theme-xemacs "Standard XEmacs" "XEmacs Team, added by Alex Schroeder <alex@gnu.org>")
+    (color-theme-subtle-blue "Subtle Blue" "Chris McMahan <cmcmahan@one.net>")
+    (color-theme-subtle-hacker "Subtle Hacker" "Colin Walters <levanti@verbum.org>")
+    (color-theme-taming-mr-arneson "Taming Mr Arneson" "Erik Arneson <erik@aarg.net>")
+    (color-theme-taylor "Taylor" "Art Taylor <reeses@hemisphere.org>")
+    (color-theme-tty-dark "TTY Dark" "O Polite <m2@plusseven.com>")
+    (color-theme-vim-colors "Vim Colors" "Michael Soulier <msoulier@biryani.nssg.mitel.com>")
+    (color-theme-whateveryouwant "Whateveryouwant" "Fabien Penso <penso@linuxfr.org>, color by Scott Jaderholm <scott@jaderholm.com>")
+    (color-theme-wheat "Wheat" "Alex Schroeder <alex@gnu.org>")
+    (color-theme-pok-wob "White On Black" "S. Pokrovsky <pok@nbsp.nsk.su>")
+    (color-theme-pok-wog "White On Grey" "S. Pokrovsky <pok@nbsp.nsk.su>")
+    (color-theme-word-perfect "WordPerfect" "Thomas Gehrlein <Thomas.Gehrlein@t-online.de>")
+    (color-theme-xp "XP" "Girish Bharadwaj <girishb@gbvsoft.com>"))
+  "List of color themes.
+
+Each THEME is itself a three element list (FUNC NAME MAINTAINER &optional LIBRARY).
+
+FUNC is a color theme function which does the setup.  The function
+FUNC may call `color-theme-install'.  The color theme function may be
+interactive.
+
+NAME is the name of the theme and MAINTAINER is the name and/or email of
+the maintainer of the theme.
+
+If LIBRARY is non-nil, the color theme will be considered a library and
+may not be shown in the default menu.
+
+If you defined your own color theme and want to add it to this list,
+use something like this:
+
+  (add-to-list 'color-themes '(color-theme-gnome2 \"Gnome2\" \"Alex\"))")
+
+;;; Functions
+
+(defun color-theme-backup-original-values ()
+  "Back up the original `default-frame-alist'.
+The values are stored in `color-theme-original-frame-alist' on
+startup."
+  (if (null color-theme-original-frame-alist)
+      (setq color-theme-original-frame-alist
+	    (color-theme-filter (frame-parameters (selected-frame))
+				color-theme-legal-frame-parameters))))
+(add-hook 'after-init-hook 'color-theme-backup-original-values)
+
+;;;###autoload
+(defun color-theme-select (&optional arg)
+  "Displays a special buffer for selecting and installing a color theme.
+With optional prefix ARG, this buffer will include color theme libraries
+as well.  A color theme library is in itself not complete, it must be
+used as part of another color theme to be useful.  Thus, color theme
+libraries are mainly useful for color theme authors."
+  (interactive "P")
+  (unless color-theme-initialized (color-theme-initialize))
+  (switch-to-buffer (get-buffer-create color-theme-buffer-name))
+  (setq buffer-read-only nil)
+  (erase-buffer)
+  ;; recreate the snapshot if necessary
+  (when (or (not (assq 'color-theme-snapshot color-themes))
+	    (not (commandp 'color-theme-snapshot)))
+    (fset 'color-theme-snapshot (color-theme-make-snapshot))
+    (setq color-themes (delq (assq 'color-theme-snapshot color-themes)
+			     color-themes)
+	  color-themes (delq (assq 'bury-buffer color-themes)
+			     color-themes)
+	  color-themes (append '((color-theme-snapshot
+				  "[Reset]" "Undo changes, if possible.")
+				 (bury-buffer
+				  "[Quit]" "Bury this buffer."))
+			     color-themes)))
+  (dolist (theme color-themes)
+    (let ((func (nth 0 theme))
+	  (name (nth 1 theme))
+	  (author (nth 2 theme))
+	  (library (nth 3 theme))
+	  (desc))
+      (when (or (not library) arg)
+	(setq desc (format "%-23s %s" 
+			   (if library (concat name " [lib]") name)
+			   author))
+	(put-text-property 0 (length desc) 'color-theme func desc)
+	(put-text-property 0 (length name) 'face 'bold desc)
+	(put-text-property 0 (length name) 'mouse-face 'highlight desc)
+	(insert desc)
+	(newline))))
+  (goto-char (point-min))
+  (setq buffer-read-only t)
+  (set-buffer-modified-p nil)
+  (color-theme-mode))
+
+(when (require 'easymenu)
+  (easy-menu-add-item nil color-theme-entry-path "--")
+  (easy-menu-add-item  nil color-theme-entry-path
+                       ["Color Themes" color-theme-select t]))
+
+(defun color-theme-mode ()
+  "Major mode to select and install color themes.
+
+Use \\[color-theme-install-at-point] to install a color theme on all frames.
+Use \\[color-theme-install-at-point-for-current-frame] to install a color theme for the current frame only.
+
+The changes are applied on top of your current setup.  This is a
+feature.
+
+Some of the themes should be considered extensions to the standard color
+theme: they modify only a limited number of faces and variables.  To
+verify the final look of a color theme, install the standard color
+theme, then install the other color theme.  This is a feature. It allows
+you to mix several color themes.
+
+Use \\[color-theme-describe] to read more about the color theme function at point.
+If you want to install the color theme permanently, put the call to the
+color theme function into your ~/.emacs:
+
+    \(require 'color-theme)
+    \(color-theme-gnome2)
+
+If you worry about the size of color-theme.el: You are right.  Use
+\\[color-theme-print] to print the current color theme and save the resulting buffer
+as ~/.emacs-color-theme.  Now you can install only this specific color
+theme in your .emacs:
+
+    \(load-file \"~/.emacs-color-theme\")
+    \(my-color-theme)
+
+The Emacs menu is not affected by color themes within Emacs.  Depending
+on the toolkit you used to compile Emacs, you might have to set specific
+X ressources.  See the info manual for more information.  Here is an
+example ~/.Xdefaults fragment:
+
+    emacs*Background: DarkSlateGray
+    emacs*Foreground: wheat
+
+\\{color-theme-mode-map}
+
+The color themes are listed in `color-themes', which see."
+  (kill-all-local-variables)
+  (setq major-mode 'color-theme-mode)
+  (setq mode-name "Color Themes")
+  (use-local-map color-theme-mode-map)
+  (when (functionp 'goto-address); Emacs
+    (goto-address))
+  (run-hooks 'color-theme-mode-hook))
+
+;;; Commands in Color Theme Selection mode
+
+;;;###autoload
+(defun color-theme-describe ()
+  "Describe color theme listed at point.
+This shows the documentation of the value of text-property color-theme
+at point.  The text-property color-theme should be a color theme
+function.  See `color-themes'."
+  (interactive)
+  (describe-function (get-text-property (point) 'color-theme)))
+
+;;;###autoload
+(defun color-theme-install-at-mouse (event)
+  "Install color theme clicked upon using the mouse.
+First argument EVENT is used to set point.  Then
+`color-theme-install-at-point' is called."
+  (interactive "e")
+  (save-excursion
+    (mouse-set-point event)
+    (color-theme-install-at-point)))
+
+;;;autoload
+(defun color-theme-install-at-point ()
+  "Install color theme at point.
+This calls the value of the text-property `color-theme' at point.
+The text-property `color-theme' should be a color theme function.
+See `color-themes'."
+  (interactive)
+  (let ((func (get-text-property (point) 'color-theme)))
+    ;; install theme
+    (if func
+	(funcall func))
+    ;; If goto-address is being used, remove all overlays in the current
+    ;; buffer and run it again.  The face used for the mail addresses in
+    ;; the the color theme selection buffer is based on the variable
+    ;; goto-address-mail-face.  Changes in that variable will not affect
+    ;; existing overlays, however, thereby confusing users.
+    (when (functionp 'goto-address); Emacs
+      (dolist (o (overlays-in (point-min) (point-max)))
+	(delete-overlay o))
+      (goto-address))))
+
+;;;###autoload
+(defun color-theme-install-at-point-for-current-frame ()
+  "Install color theme at point for current frame only.
+Binds `color-theme-is-global' to nil and calls
+`color-theme-install-at-point'."
+  (interactive)
+  (let ((color-theme-is-global nil))
+    (color-theme-install-at-point)))
+
+
+
+;; Taking a snapshot of the current color theme and pretty printing it.
+
+(defun color-theme-filter (old-list regexp &optional exclude)
+  "Filter OLD-LIST.
+The resulting list will be newly allocated and contains only elements
+with names matching REGEXP.  OLD-LIST may be a list or an alist.  If you
+want to filter a plist, use `color-theme-alist' to convert your plist to
+an alist, first.
+
+If the optional argument EXCLUDE is non-nil, then the sense is
+reversed: only non-matching elements will be retained."
+  (let (elem new-list)
+    (dolist (elem old-list)
+      (setq name (symbol-name (if (listp elem) (car elem) elem)))
+      (when (or (and (not exclude)
+		     (string-match regexp name))
+		(and exclude
+		     (not (string-match regexp name))))
+	;; Now make sure that if elem is a cons cell, and the cdr of
+	;; that cons cell is a string, then we need a *new* string in
+	;; the new list.  Having a new cons cell is of no use because
+	;; modify-frame-parameters will modify this string, thus
+	;; modifying our color theme functions!
+	(when (and (consp elem)
+		   (stringp (cdr elem)))
+	  (setq elem (cons (car elem)
+			   (copy-sequence (cdr elem)))))
+	;; Now store elem
+	(setq new-list (cons elem new-list))))
+    new-list))
+
+(defun color-theme-spec-filter (spec)
+  "Filter the attributes in SPEC.
+This makes sure that SPEC has the form ((t (PLIST ...))).
+Only properties not in `color-theme-illegal-default-attributes'
+are included in the SPEC returned."
+  (let ((props (cadar spec))
+	result prop val)
+    (while props
+      (setq prop (nth 0 props)
+	    val (nth 1 props)
+	    props (nthcdr 2 props))
+      (unless (memq prop color-theme-illegal-default-attributes)
+	(setq result (cons val (cons prop result)))))
+    `((t ,(nreverse result)))))
+
+;; (color-theme-spec-filter '((t (:background "blue3"))))
+;; (color-theme-spec-filter '((t (:stipple nil :background "Black" :foreground "SteelBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width semi-condensed :family "misc-fixed"))))
+
+(defun color-theme-plist-delete (plist prop)
+  "Delete property PROP from property list PLIST by side effect.
+This modifies PLIST."
+  ;; deal with prop at the start
+  (while (eq (car plist) prop)
+    (setq plist (cddr plist)))
+  ;; deal with empty plist
+  (when plist
+    (let ((lastcell (cdr plist))
+	  (l (cddr plist)))
+      (while l
+	(if (eq (car l) prop)
+	    (progn
+	      (setq l (cddr l))
+	      (setcdr lastcell l))
+	  (setq lastcell (cdr l)
+		l (cddr l))))))
+  plist)
+
+;; (color-theme-plist-delete '(a b c d e f g h) 'a)
+;; (color-theme-plist-delete '(a b c d e f g h) 'b)
+;; (color-theme-plist-delete '(a b c d e f g h) 'c)
+;; (color-theme-plist-delete '(a b c d e f g h) 'g)
+;; (color-theme-plist-delete '(a b c d c d e f g h) 'c)
+;; (color-theme-plist-delete '(a b c d e f c d g h) 'c)
+
+(if (or (featurep 'xemacs)
+	(< emacs-major-version 21))
+    (defalias 'color-theme-spec-compat 'identity)
+  (defun color-theme-spec-compat (spec)
+    "Filter the attributes in SPEC such that is is never invalid.
+Example: Eventhough :bold works in Emacs, it is not recognized by
+`customize-face' -- and then the face is uncustomizable.  This
+function replaces a :bold attribute with the corresponding :weight
+attribute, if there is no :weight, or deletes it.  This undoes the
+doings of `color-theme-spec-canonical-font', more or less."
+    (let ((props (cadar spec)))
+      (when (plist-member props :bold)
+	(setq props (color-theme-plist-delete props :bold))
+	(unless (plist-member props :weight)
+	  (setq props (plist-put props :weight 'bold))))
+      (when (plist-member props :italic)
+	(setq props (color-theme-plist-delete props :italic))
+	(unless (plist-member props :slant)
+	  (setq props (plist-put props :slant 'italic))))
+      `((t ,props)))))
+
+;; (color-theme-spec-compat '((t (:foreground "blue" :bold t))))
+;; (color-theme-spec-compat '((t (:bold t :foreground "blue" :weight extra-bold))))
+;; (color-theme-spec-compat '((t (:italic t :foreground "blue"))))
+;; (color-theme-spec-compat '((t (:slant oblique :italic t :foreground "blue"))))
+
+(defun color-theme-spec-canonical-font (atts)
+  "Add :bold and :italic attributes if necessary."
+  ;; add these to the front of atts -- this will keept the old value for
+  ;; customize-face in Emacs 21.
+  (when (and (memq (plist-get atts :weight)
+		   '(ultra-bold extra-bold bold semi-bold))
+	     (not (plist-get atts :bold)))
+    (setq atts (cons :bold (cons t atts))))
+  (when (and (not (memq (plist-get atts :slant)
+			'(normal nil)))
+	     (not (plist-get atts :italic)))
+    (setq atts (cons :italic (cons t atts))))
+  atts)
+;; (color-theme-spec-canonical-font (color-theme-face-attr-construct 'bold (selected-frame)))
+;; (defface foo '((t (:weight extra-bold))) "foo")
+;; (color-theme-spec-canonical-font (color-theme-face-attr-construct 'foo (selected-frame)))
+;; (face-spec-set 'foo '((t (:weight extra-bold))) nil)
+;; (face-spec-set 'foo '((t (:bold t))) nil)
+;; (face-spec-set 'foo '((t (:bold t :weight extra-bold))) nil)
+
+;; Handle :height according to NEWS file for Emacs 21
+(defun color-theme-spec-resolve-height (old new)
+  "Return the new height given OLD and NEW height.
+OLD is the current setting, NEW is the setting inherited from."
+  (cond ((not old)
+	 new)
+	((integerp old)
+	 old)
+	((and (floatp old)
+	      (integerp new))
+	 (round (* old new)))
+	((and (floatp old)
+	      (floatp new))
+	 (* old new))
+	((and (functionp old)
+	      (integerp new))
+	 (round (funcall old new)))
+	((and (functionp old)
+	      (float new))
+	 `(lambda (f) (* (funcall ,old f) ,new)))
+	((and (functionp old)
+	      (functionp new))
+	 `(lambda (f) (* (funcall ,old (funcall ,new f)))))
+	(t
+	 (error "Illegal :height attributes: %S or %S" old new))))
+;; (color-theme-spec-resolve-height 12 1.2)
+;; (color-theme-spec-resolve-height 1.2 1.2)
+;; (color-theme-spec-resolve-height 1.2 12)
+;; (color-theme-spec-resolve-height 1.2 'foo)
+;; (color-theme-spec-resolve-height (lambda (f) (* 2 f)) 5)
+;; (color-theme-spec-resolve-height (lambda (f) (* 2 f)) 2.0)
+;; the following lambda is the result from the above calculation
+;; (color-theme-spec-resolve-height (lambda (f) (* (funcall (lambda (f) (* 2 f)) f) 2.0)) 5)
+
+(defun color-theme-spec-resolve-inheritance (atts)
+  "Resolve all occurences of the :inherit attribute."
+  (let ((face (plist-get atts :inherit)))
+    ;; From the Emacs 21 NEWS file: "Attributes from inherited faces are
+    ;; merged into the face like an underlying face would be." --
+    ;; therefore properties of the inherited face only add missing
+    ;; attributes.
+    (when face
+      ;; remove :inherit face from atts -- this assumes only one
+      ;; :inherit attribute.
+      (setq atts (delq ':inherit (delq face atts)))
+      (let ((more-atts (color-theme-spec-resolve-inheritance
+			(color-theme-face-attr-construct
+			 face (selected-frame))))
+	    att val)
+	(while more-atts
+	  (setq att (car more-atts)
+		val (cadr more-atts)
+		more-atts (cddr more-atts))
+	  ;; Color-theme assumes that no value is ever 'unspecified.
+	  (cond ((eq att ':height); cumulative effect!
+		 (setq atts (plist-put atts 
+				       ':height 
+				       (color-theme-spec-resolve-height
+					(plist-get atts att) 
+					val))))
+		;; Default: Only put if it has not been specified before.
+		((not (plist-get atts att))
+		 (setq atts (cons att (cons val atts))))
+		  
+))))
+    atts))
+;; (color-theme-spec-resolve-inheritance '(:bold t))
+;; (color-theme-spec-resolve-inheritance '(:bold t :foreground "blue"))
+;; (color-theme-face-attr-construct 'font-lock-comment-face (selected-frame))
+;; (color-theme-spec-resolve-inheritance '(:bold t :inherit font-lock-comment-face))
+;; (color-theme-spec-resolve-inheritance '(:bold t :foreground "red" :inherit font-lock-comment-face))
+;; (color-theme-face-attr-construct 'Info-title-2-face (selected-frame))
+;; (color-theme-face-attr-construct 'Info-title-3-face (selected-frame))
+;; (color-theme-face-attr-construct 'Info-title-4-face (selected-frame))
+;; (color-theme-spec-resolve-inheritance '(:inherit Info-title-2-face))
+
+;; The :inverse-video attribute causes Emacs to swap foreground and
+;; background colors, XEmacs does not.  Therefore, if anybody chooses
+;; the inverse-video attribute, we 1. swap the colors ourselves in Emacs
+;; and 2. we remove the inverse-video attribute in Emacs and XEmacs.
+;; Inverse-video is only useful on a monochrome tty.
+(defun color-theme-spec-maybe-invert (atts)
+  "Remove the :inverse-video attribute from ATTS.
+If ATTS contains :inverse-video t, remove it and swap foreground and
+background color.  Return ATTS."
+  (let ((inv (plist-get atts ':inverse-video)))
+    (if inv
+	(let (result att)
+	  (while atts
+	    (setq att (car atts)
+		  atts (cdr atts))
+	    (cond ((and (eq att :foreground) (not color-theme-xemacs-p))
+		   (setq result (cons :background result)))
+		  ((and (eq att :background) (not color-theme-xemacs-p))
+		   (setq result (cons :foreground result)))
+		  ((eq att :inverse-video)
+		   (setq atts (cdr atts))); this prevents using dolist
+		  (t
+		   (setq result (cons att result)))))
+	  (nreverse result))
+      ;; else
+      atts)))
+;; (color-theme-spec-maybe-invert '(:bold t))
+;; (color-theme-spec-maybe-invert '(:foreground "blue"))
+;; (color-theme-spec-maybe-invert '(:background "red"))
+;; (color-theme-spec-maybe-invert '(:inverse-video t))
+;; (color-theme-spec-maybe-invert '(:inverse-video t :foreground "red"))
+;; (color-theme-spec-maybe-invert '(:inverse-video t :background "red"))
+;; (color-theme-spec-maybe-invert '(:inverse-video t :background "red" :foreground "blue" :bold t))
+;; (color-theme-spec-maybe-invert '(:inverse-video nil :background "red" :foreground "blue" :bold t))
+
+(defun color-theme-spec (face)
+  "Return a list for FACE which has the form (FACE SPEC).
+See `defface' for the format of SPEC.  In this case we use only one
+DISPLAY, t, and determine ATTS using `color-theme-face-attr-construct'.
+If ATTS is nil, (nil) is used  instead.
+
+If ATTS contains :inverse-video t, we remove it and swap foreground and
+background color using `color-theme-spec-maybe-invert'.  We do this
+because :inverse-video is handled differently in Emacs and XEmacs.  We
+will loose on a tty without colors, because in that situation,
+:inverse-video means something."
+  (let ((atts
+	 (color-theme-spec-canonical-font
+	  (color-theme-spec-maybe-invert
+	   (color-theme-spec-resolve-inheritance
+	    (color-theme-face-attr-construct face (selected-frame)))))))
+    (if atts
+	`(,face ((t ,atts)))
+      `(,face ((t (nil)))))))
+
+(defun color-theme-get-params ()
+  "Return a list of frame parameter settings usable in a color theme.
+Such an alist may be installed by `color-theme-install-frame-params'.  The
+frame parameters returned must match `color-theme-legal-frame-parameters'."
+  (let ((params (color-theme-filter (frame-parameters (selected-frame))
+				    color-theme-legal-frame-parameters)))
+    (sort params (lambda (a b) (string< (symbol-name (car a))
+					(symbol-name (car b)))))))
+
+(defun color-theme-get-vars ()
+  "Return a list of variable settings usable in a color theme.
+Such an alist may be installed by `color-theme-install-variables'.
+The variable names must match `color-theme-legal-variables', and the
+variable must be a user variable according to `user-variable-p'."
+  (let ((vars)
+	(val))
+    (mapatoms (lambda (v)
+		(and (boundp v)
+		     (user-variable-p v)
+		     (string-match color-theme-legal-variables
+				   (symbol-name v))
+		     (setq val (eval v))
+		     (add-to-list 'vars (cons v val)))))
+    (sort vars (lambda (a b) (string< (car a) (car b))))))
+
+(defun color-theme-print-alist (alist)
+  "Print ALIST."
+  (insert "\n     " (if alist "(" "nil"))
+  (dolist (elem alist)
+    (when (= (preceding-char) ?\))
+      (insert "\n      "))
+    (prin1 elem (current-buffer)))
+  (when (= (preceding-char) ?\)) (insert ")")))
+
+(defun color-theme-get-faces ()
+  "Return a list of faces usable in a color theme.
+Such an alist may be installed by `color-theme-install-faces'.  The
+faces returned must not match `color-theme-illegal-faces'."
+  (let ((faces (color-theme-filter (face-list) color-theme-illegal-faces t)))
+    ;; default face must come first according to comments in
+    ;; custom-save-faces, the rest is to be sorted by name
+    (cons 'default (sort (delq 'default faces) 'string-lessp))))
+
+(defun color-theme-get-face-definitions ()
+  "Return face settings usable in a color-theme."
+  (let ((faces (color-theme-get-faces)))
+    (mapcar 'color-theme-spec faces)))
+
+(defun color-theme-print-faces (faces)
+  "Print face settings for all faces returned by `color-theme-get-faces'."
+  (when faces
+    (insert "\n     "))
+  (dolist (face faces)
+    (when (= (preceding-char) ?\))
+      (insert "\n     "))
+    (prin1 face (current-buffer))))
+
+(defun color-theme-reset-faces ()
+  "Reset face settings for all faces returned by `color-theme-get-faces'."
+  (let ((faces (color-theme-get-faces))
+	(face) (spec) (entry)
+	(frame (if color-theme-is-global nil (selected-frame))))
+    (while faces
+      (setq entry (color-theme-spec (car faces)))
+      (setq face (nth 0 entry))
+      (setq spec '((t (nil))))
+      (setq faces (cdr faces))
+      (if (functionp 'face-spec-reset-face)
+	  (face-spec-reset-face face frame)
+	(face-spec-set face spec frame)
+	(if color-theme-is-global
+	    (put face 'face-defface-spec spec))))))
+
+(defun color-theme-print-theme (func doc params vars faces)
+  "Print a theme into the current buffer.
+FUNC is the function name, DOC the doc string, PARAMS the
+frame parameters, VARS the variable bindings, and FACES
+the list of faces and their specs."
+  (insert "(defun " (symbol-name func) " ()\n"
+	  "  \"" doc "\"\n"
+	  "  (interactive)\n"
+	  "  (color-theme-install\n"
+	  "   '(" (symbol-name func))
+  ;; alist of frame parameters
+  (color-theme-print-alist params)
+  ;; alist of variables
+  (color-theme-print-alist vars)
+  ;; remaining elements of snapshot: face specs
+  (color-theme-print-faces faces)
+  (insert ")))\n")
+  (insert "(add-to-list 'color-themes '(" (symbol-name func) " "
+          " \"THEME NAME\" \"YOUR NAME\"))")
+  (goto-char (point-min)))
+
+;;;###autoload
+(defun color-theme-print (&optional buf)
+  "Print the current color theme function.
+
+You can contribute this function to <URL:news:gnu.emacs.sources> or
+paste it into your .emacs file and call it.  That should recreate all
+the settings necessary for your color theme.
+
+Example:
+
+    \(require 'color-theme)
+    \(defun my-color-theme ()
+      \"Color theme by Alex Schroeder, created 2000-05-17.\"
+      \(interactive)
+      \(color-theme-install
+       '(...
+	 ...
+	 ...)))
+    \(my-color-theme)
+
+If you want to use a specific color theme function, you can call the
+color theme function in your .emacs directly.
+
+Example:
+
+    \(require 'color-theme)
+    \(color-theme-gnome2)"
+  (interactive)
+  (message "Pretty printing current color theme function...")
+  (switch-to-buffer (if buf
+			buf
+		      (get-buffer-create "*Color Theme*")))
+  (unless buf
+    (setq buffer-read-only nil)
+    (erase-buffer))
+  ;; insert defun
+  (insert "(eval-when-compile"
+          "    (require 'color-theme))\n")
+  (color-theme-print-theme 'my-color-theme
+			   (concat "Color theme by "
+				   (if (string= "" user-full-name)
+				       (user-login-name)
+				     user-full-name)
+				   ", created " (format-time-string "%Y-%m-%d") ".")
+			   (color-theme-get-params)
+			   (color-theme-get-vars)
+			   (mapcar 'color-theme-spec (color-theme-get-faces)))
+  (unless buf
+    (emacs-lisp-mode))
+  (goto-char (point-min))
+  (message "Pretty printing current color theme function... done"))
+
+(defun color-theme-analyze-find-theme (code)
+  "Find the sexpr that calls `color-theme-install'."
+  (let (theme)
+    (while (and (not theme) code)
+      (when (eq (car code) 'color-theme-install)
+	(setq theme code))
+      (when (listp (car code))
+	(setq theme (color-theme-analyze-find-theme (car code))))
+      (setq code (cdr code)))
+    theme))
+
+;; (equal (color-theme-analyze-find-theme
+;; 	'(defun color-theme-blue-eshell ()
+;; 	   "Color theme for eshell faces only."
+;; 	   (color-theme-install
+;; 	    '(color-theme-blue-eshell
+;; 	      nil
+;; 	      (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
+;; 	      (eshell-ls-backup-face ((t (:foreground "Grey"))))))))
+;;        '(color-theme-install
+;; 	 (quote
+;; 	  (color-theme-blue-eshell
+;; 	   nil
+;; 	   (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
+;; 	   (eshell-ls-backup-face ((t (:foreground "Grey")))))))))
+
+(defun color-theme-analyze-add-face (a b regexp faces)
+  "If only one of A or B are in FACES, the other is added, and FACES is returned.
+If REGEXP is given, this is only done if faces contains a match for regexps."
+  (when (or (not regexp)
+	    (catch 'found
+	      (dolist (face faces)
+		(when (string-match regexp (symbol-name (car face)))
+		  (throw 'found t)))))
+    (let ((face-a (assoc a faces))
+	  (face-b (assoc b faces)))
+      (if (and face-a (not face-b))
+	  (setq faces (cons (list b (nth 1 face-a))
+			    faces))
+	(if (and (not face-a) face-b)
+	    (setq faces (cons (list a (nth 1 face-b))
+			      faces))))))
+  faces)
+
+;; (equal (color-theme-analyze-add-face
+;; 	'blue 'violet nil
+;; 	'((blue ((t (:foreground "blue"))))
+;; 	  (bold ((t (:bold t))))))
+;;        '((violet ((t (:foreground "blue"))))
+;; 	 (blue ((t (:foreground "blue"))))
+;; 	 (bold ((t (:bold t))))))
+;; (equal (color-theme-analyze-add-face
+;; 	'violet 'blue nil
+;; 	'((blue ((t (:foreground "blue"))))
+;; 	  (bold ((t (:bold t))))))
+;;        '((violet ((t (:foreground "blue"))))
+;; 	 (blue ((t (:foreground "blue"))))
+;; 	 (bold ((t (:bold t))))))
+;; (equal (color-theme-analyze-add-face
+;; 	'violet 'blue "foo"
+;; 	'((blue ((t (:foreground "blue"))))
+;; 	  (bold ((t (:bold t))))))
+;;        '((blue ((t (:foreground "blue"))))
+;; 	 (bold ((t (:bold t))))))
+;; (equal (color-theme-analyze-add-face
+;; 	'violet 'blue "blue"
+;; 	'((blue ((t (:foreground "blue"))))
+;; 	  (bold ((t (:bold t))))))
+;;        '((violet ((t (:foreground "blue"))))
+;; 	 (blue ((t (:foreground "blue"))))
+;; 	 (bold ((t (:bold t))))))
+
+(defun color-theme-analyze-add-faces (faces)
+  "Add missing faces to FACES and return it."
+  ;; The most important thing is to add missing faces for the other
+  ;; editor.  These are the most important faces to check.  The
+  ;; following rules list two faces, A and B.  If either of the two is
+  ;; part of the theme, the other must be, too.  The optional third
+  ;; argument specifies a regexp.  Only if an existing face name
+  ;; matches this regexp, is the rule applied.
+  (let ((rules '((font-lock-builtin-face font-lock-reference-face)
+		 (font-lock-doc-face font-lock-doc-string-face)
+		 (font-lock-constant-face font-lock-preprocessor-face)
+		 ;; In Emacs 21 `modeline' is just an alias for
+		 ;; `mode-line'.  I recommend the use of
+		 ;; `modeline' until further notice.
+		 (modeline mode-line)
+		 (modeline modeline-buffer-id)
+		 (modeline modeline-mousable)
+		 (modeline modeline-mousable-minor-mode)
+		 (region primary-selection)
+		 (region zmacs-region)
+		 (font-lock-string-face dired-face-boring "^dired")
+		 (font-lock-function-name-face dired-face-directory "^dired")
+		 (default dired-face-executable "^dired")
+		 (font-lock-warning-face dired-face-flagged "^dired")
+		 (font-lock-warning-face dired-face-marked "^dired")
+		 (default dired-face-permissions "^dired")
+		 (default dired-face-setuid "^dired")
+		 (default dired-face-socket "^dired")
+		 (font-lock-keyword-face dired-face-symlink "^dired")
+		 (tool-bar menu))))
+    (dolist (rule rules)
+      (setq faces (color-theme-analyze-add-face
+		   (nth 0 rule) (nth 1 rule) (nth 2 rule) faces))))
+  ;; The `fringe' face defines what the left and right borders of the
+  ;; frame look like in Emacs 21.  To give them default fore- and
+  ;; background colors, use (fringe ((t (nil)))) in your color theme.
+  ;; Usually it makes more sense to choose a color slightly lighter or
+  ;; darker from the default background.
+  (unless (assoc 'fringe faces)
+    (setq faces (cons '(fringe ((t (nil)))) faces)))
+  ;; The tool-bar should not be part of the frame-parameters, since it
+  ;; should not appear or disappear depending on the color theme.  The
+  ;; apppearance of the toolbar, however, can be changed by the color
+  ;; theme.  For Emacs 21, use the `tool-bar' face.  The easiest way
+  ;; to do this is to give it the default fore- and background colors.
+  ;; This can be achieved using (tool-bar ((t (nil)))) in the theme.
+  ;; Usually it makes more sense, however, to provide the same colors
+  ;; as used in the `menu' face, and to specify a :box attribute.  In
+  ;; order to alleviate potential Emacs/XEmacs incompatibilities,
+  ;; `toolbar' will be defined as an alias for `tool-bar' if it does
+  ;; not exist, and vice-versa.  This is done eventhough the face
+  ;; `toolbar' seems to have no effect on XEmacs.  If you look at
+  ;; XEmacs lisp/faces.el, however, you will find that it is in fact
+  ;; referenced for XPM stuff.
+  (unless (assoc 'tool-bar faces)
+    (setq faces (cons '(tool-bar ((t (nil)))) faces)))
+  ;; Move the default face back to the front, and sort the rest.
+  (unless (eq (caar faces) 'default)
+    (let ((face (assoc 'default faces)))
+      (setq faces (cons face
+			(sort (delete face faces)
+			      (lambda (a b)
+				(string-lessp (car a) (car b))))))))
+  faces)
+
+(defun color-theme-analyze-remove-heights (faces)
+  "Remove :height property where it is an integer and return FACES."
+  ;; I don't recommend making font sizes part of a color theme.  Most
+  ;; users would be surprised to see their font sizes change when they
+  ;; install a color-theme.  Therefore, remove all :height attributes
+  ;; if the value is an integer.  If the value is a float, this is ok
+  ;; -- the value is relative to the default height.  One notable
+  ;; exceptions is for a color-theme created for visually impaired
+  ;; people.  These *must* use a larger font in order to be usable.
+  (let (result)
+    (dolist (face faces)
+      (let ((props (cadar (nth 1 face))))
+	(if (and (plist-member props :height)
+		 (integerp (plist-get props :height)))
+	    (setq props (color-theme-plist-delete props :height)
+		  result (cons (list (car face) `((t ,props)))
+			       result))
+	  (setq result (cons face result)))))
+    (nreverse result)))
+
+;; (equal (color-theme-analyze-remove-heights
+;; 	'((blue ((t (:foreground "blue" :height 2))))
+;; 	  (bold ((t (:bold t :height 1.0))))))
+;;        '((blue ((t (:foreground "blue"))))
+;; 	 (bold ((t (:bold t :height 1.0))))))
+
+;;;###autoload
+(defun color-theme-analyze-defun ()
+  "Once you have a color-theme printed, check for missing faces.
+This is used by maintainers who receive a color-theme submission
+and want to make sure it follows the guidelines by the color-theme
+author."
+  ;; The support for :foreground and :background attributes works for
+  ;; Emacs 20 and 21 as well as for XEmacs.  :inverse-video is taken
+  ;; care of while printing color themes.
+  (interactive)
+  ;; Parse the stuff and find the call to color-theme-install
+  (save-excursion
+    (save-restriction
+      (narrow-to-defun)
+      ;; define the function
+      (eval-defun nil)
+      (goto-char (point-min))
+      (let* ((code (read (current-buffer)))
+	     (theme (color-theme-canonic
+		     (eval
+		      (cadr
+		       (color-theme-analyze-find-theme
+			code)))))
+	     (func (color-theme-function theme))
+	     (doc (documentation func t))
+	     (variables (color-theme-variables theme))
+	     (faces (color-theme-faces theme))
+	     (params (color-theme-frame-params theme)))
+	(setq faces (color-theme-analyze-remove-heights
+		     (color-theme-analyze-add-faces faces)))
+	;; Remove any variable bindings of faces that point to their
+	;; symbol?  Perhaps not, because another theme might want to
+	;; change this, so it is important to be able to reset them.
+	;; 	(let (result)
+	;; 	  (dolist (var variables)
+	;; 	    (unless (eq (car var) (cdr var))
+	;; 	      (setq result (cons var result))))
+	;; 	  (setq variables (nreverse result)))
+	;; Now modify the theme directly.
+	(setq theme (color-theme-analyze-find-theme code))
+	(setcdr (cadadr theme) (list params variables faces))
+	(message "Pretty printing analysed color theme function...")
+	(with-current-buffer (get-buffer-create "*Color Theme*")
+	  (setq buffer-read-only nil)
+	  (erase-buffer)
+	  ;; insert defun
+	  (color-theme-print-theme func doc params variables faces)
+	  (emacs-lisp-mode))
+	(message "Pretty printing analysed color theme function... done")
+	(ediff-buffers (current-buffer)
+		       (get-buffer "*Color Theme*"))))))
+
+;;; Creating a snapshot of the current color theme
+
+(defun color-theme-snapshot nil)
+
+;;;###autoload
+(defun color-theme-make-snapshot ()
+  "Return the definition of the current color-theme.
+The function returned will recreate the color-theme in use at the moment."
+  (eval `(lambda ()
+	   "The color theme in use when the selection buffer was created.
+\\[color-theme-select] creates the color theme selection buffer.  At the
+same time, this snapshot is created as a very simple undo mechanism.
+The snapshot is created via `color-theme-snapshot'."
+	   (interactive)
+	   (color-theme-install
+	    '(color-theme-snapshot
+	      ;; alist of frame parameters
+	      ,(color-theme-get-params)
+	      ;; alist of variables
+	      ,(color-theme-get-vars)
+	      ;; remaining elements of snapshot: face specs
+	      ,@(color-theme-get-face-definitions))))))
+
+
+
+;;; Handling the various parts of a color theme install
+
+(defvar color-theme-frame-param-frobbing-rules
+  '((foreground-color default foreground)
+    (background-color default background))
+  "List of rules to use when frobbing faces based on frame parameters.
+This is only necessary for XEmacs, because in Emacs 21 changing the
+frame paramters automatically affects the relevant faces.")
+
+;; fixme: silent the bytecompiler with set-face-property
+(defun color-theme-frob-faces (params)
+  "Change certain faces according to PARAMS.
+This uses `color-theme-frame-param-frobbing-rules'."
+  (dolist (rule color-theme-frame-param-frobbing-rules)
+    (let* ((param (nth 0 rule))
+	   (face (nth 1 rule))
+	   (prop (nth 2 rule))
+	   (val (cdr (assq param params)))
+	   (frame (if color-theme-is-global nil (selected-frame))))
+      (when val
+	(set-face-property face prop val frame)))))
+
+(defun color-theme-alist-reduce (old-list)
+  "Reduce OLD-LIST.
+The resulting list will be newly allocated and will not contain any elements
+with duplicate cars.  This will speed the installation of new themes by
+only installing unique attributes."
+  (let (new-list)
+    (dolist (elem old-list)
+      (when (not (assq (car elem) new-list))
+	(setq new-list (cons elem new-list))))
+    new-list))
+
+(defun color-theme-install-frame-params (params)
+  "Change frame parameters using alist PARAMETERS.
+
+If `color-theme-is-global' is non-nil, all frames are modified using
+`modify-frame-parameters' and the PARAMETERS are prepended to
+`default-frame-alist'.  The value of `initial-frame-alist' is not
+modified.  If `color-theme-is-global' is nil, only the selected frame is
+modified.  If `color-theme-is-cumulative' is nil, the frame parameters
+are restored from `color-theme-original-frame-alist'.
+
+If the current frame parameters have a parameter `minibuffer' with
+value `only', then the frame parameters are not installed, since this
+indicates a dedicated minibuffer frame.
+
+Called from `color-theme-install'."
+  (setq params (color-theme-filter
+		params color-theme-legal-frame-parameters))
+  ;; We have a new list in params now, therefore we may use
+  ;; destructive nconc.
+  (if color-theme-is-global
+      (let ((frames (frame-list)))
+	(if (or color-theme-is-cumulative
+		(null color-theme-original-frame-alist))
+	    (setq default-frame-alist
+		  (append params (color-theme-alist default-frame-alist))
+		  minibuffer-frame-alist
+		  (append params (color-theme-alist minibuffer-frame-alist)))
+	  (setq default-frame-alist
+		(append params color-theme-original-frame-alist)
+		minibuffer-frame-alist
+		(append params (color-theme-alist minibuffer-frame-alist))))
+	(setq default-frame-alist
+	      (color-theme-alist-reduce default-frame-alist)
+	      minibuffer-frame-alist
+	      (color-theme-alist-reduce minibuffer-frame-alist))
+	(dolist (frame frames)
+	  (let ((params (if (eq 'only (cdr (assq 'minibuffer (frame-parameters frame))))
+			    minibuffer-frame-alist
+			  default-frame-alist)))
+	    (condition-case var
+		(modify-frame-parameters frame params)
+	      (error (message "Error using params %S: %S" params var))))))
+    (condition-case var
+	(modify-frame-parameters (selected-frame) params)
+      (error (message "Error using params %S: %S" params var))))
+  (when color-theme-xemacs-p
+    (color-theme-frob-faces params)))
+
+;; (setq default-frame-alist (cons '(height . 30) default-frame-alist))
+
+(defun color-theme-install-variables (vars)
+  "Change variables using alist VARS.
+All variables matching `color-theme-legal-variables' are set.
+
+If `color-theme-is-global' and `color-theme-xemacs-p' are nil, variables
+are made frame-local before setting them.  Variables are set using `set'
+in either case.  This may lead to problems if changing the variable
+requires the usage of the function specified with the :set tag in
+defcustom declarations.
+
+Called from `color-theme-install'."
+  (let ((vars (color-theme-filter vars color-theme-legal-variables)))
+    (dolist (var vars)
+      (if (or color-theme-is-global color-theme-xemacs-p)
+	  (set (car var) (cdr var))
+	(make-variable-frame-local (car var))
+	(modify-frame-parameters (selected-frame) (list var))))))
+
+(defun color-theme-install-faces (faces)
+  "Change faces using FACES.
+
+Change faces for all frames and create any faces listed in FACES which
+don't exist.  The modified faces will be marked as \"unchanged from
+its standard setting\".  This is OK, since the changes made by
+installing a color theme should never by saved in .emacs by
+customization code.
+
+FACES should be a list where each entry has the form:
+
+  (FACE SPEC)
+
+See `defface' for the format of SPEC.
+
+If `color-theme-is-global' is non-nil, faces are modified on all frames
+using `face-spec-set'.  If `color-theme-is-global' is nil, faces are
+only modified on the selected frame.  Non-existing faces are created
+using `make-empty-face' in either case.  If `color-theme-is-cumulative'
+is nil, all faces are reset before installing the new faces.
+
+Called from `color-theme-install'."
+  ;; clear all previous faces
+  (when (not color-theme-is-cumulative)
+    (color-theme-reset-faces))
+  ;; install new faces
+  (let ((faces (color-theme-filter faces color-theme-illegal-faces t))
+	(frame (if color-theme-is-global nil (selected-frame))))
+    (dolist (entry faces)
+      (let ((face (nth 0 entry))
+	    (spec (nth 1 entry)))
+	(or (facep face)
+	    (make-empty-face face))
+	;; remove weird properties from the default face only
+	(when (eq face 'default)
+	  (setq spec (color-theme-spec-filter spec)))
+	;; Emacs/XEmacs customization issues: filter out :bold when
+	;; the spec contains :weight, etc, such that the spec remains
+	;; "valid" for custom.
+	(setq spec (color-theme-spec-compat spec))
+	;; using a spec of ((t (nil))) to reset a face doesn't work
+	;; in Emacs 21, we use the new function face-spec-reset-face
+	;; instead
+	(if (and (functionp 'face-spec-reset-face)
+		 (equal spec '((t (nil)))))
+	    (face-spec-reset-face face frame)
+	  (condition-case var
+	      (progn
+		(face-spec-set face spec frame)
+		(if color-theme-is-global
+		    (put face 'face-defface-spec spec)))
+	    (error (message "Error using spec %S: %S" spec var))))))))
+
+;; `custom-set-faces' is unusable here because it doesn't allow to set
+;; the faces for one frame only.
+
+;; Emacs `face-spec-set': If FRAME is nil, the face is created and
+;; marked as a customized face.  This is achieved by setting the
+;; `face-defface-spec' property.  If we don't, new frames will not be
+;; created using the face we installed because `face-spec-set' is
+;; broken: If given a FRAME of nil, it will not set the default faces;
+;; instead it will walk through all the frames and set modify the faces.
+;; If we do set a property (`saved-face' or `face-defface-spec'),
+;; `make-frame' will correctly use the faces we defined with our color
+;; theme.  If we used the property `saved-face',
+;; `customize-save-customized' will save all the faces installed as part
+;; of a color-theme in .emacs.  That's why we use the
+;; `face-defface-spec' property.
+
+
+
+;;; Theme accessor functions, canonicalization, merging, comparing
+
+(defun color-theme-canonic (theme)
+  "Return the canonic form of THEME.
+This deals with all the backwards compatibility stuff."
+  (let (function frame-params variables faces)
+    (when (functionp (car theme))
+      (setq function (car theme)
+	    theme (cdr theme)))
+    (setq frame-params (car theme)
+	  theme (cdr theme))
+    ;; optional variable defintions (for backwards compatibility)
+    (when (listp (caar theme))
+      (setq variables (car theme)
+	    theme (cdr theme)))
+    ;; face definitions
+    (setq faces theme)
+    (list function frame-params variables faces)))
+
+(defun color-theme-function (theme)
+  "Return function used to create THEME."
+  (nth 0 theme))
+
+(defun color-theme-frame-params (theme)
+  "Return frame-parameters defined by THEME."
+  (nth 1 theme))
+
+(defun color-theme-variables (theme)
+  "Return variables set by THEME."
+  (nth 2 theme))
+
+(defun color-theme-faces (theme)
+  "Return faces defined by THEME."
+  (nth 3 theme))
+
+(defun color-theme-merge-alists (&rest alists)
+  "Merges all the alist arguments into one alist.
+Only the first instance of every key will be part of the resulting
+alist.  Membership will be tested using `assq'."
+  (let (result)
+    (dolist (l alists)
+      (dolist (entry l)
+	(unless (assq (car entry) result)
+	  (setq result (cons entry result)))))
+    (nreverse result)))
+;; (color-theme-merge-alists '((a . 1) (b . 2)))
+;; (color-theme-merge-alists '((a . 1) (b . 2) (a . 3)))
+;; (color-theme-merge-alists '((a . 1) (b . 2)) '((a . 3)))
+;; (color-theme-merge-alists '((a . 1) (b . 2)) '((c . 3)))
+;; (color-theme-merge-alists '((a . 1) (b . 2)) '((c . 3) (d . 4)))
+;; (color-theme-merge-alists '((a . 1) (b . 2)) '((c . 3) (d . 4) (b . 5)))
+
+;;;###autoload
+(defun color-theme-compare (theme-a theme-b)
+  "Compare two color themes.
+This will print the differences between installing THEME-A and
+installing THEME-B.  Note that the order is important: If a face is
+defined in THEME-A and not in THEME-B, then this will not show up as a
+difference, because there is no reset before installing THEME-B.  If a
+face is defined in THEME-B and not in THEME-A, then this will show up as
+a difference."
+  (interactive
+   (list
+    (intern
+     (completing-read "Theme A: "
+		      (mapcar (lambda (i) (list (symbol-name (car i))))
+			      color-themes)
+		      (lambda (i) (string-match "color-theme" (car i)))))
+    (intern
+     (completing-read "Theme B: "
+		      (mapcar (lambda (i) (list (symbol-name (car i))))
+			      color-themes)
+		      (lambda (i) (string-match "color-theme" (car i)))))))
+  ;; install the themes in a new frame and get the definitions
+  (let ((color-theme-is-global nil))
+    (select-frame (make-frame))
+    (funcall theme-a)
+    (setq theme-a (list theme-a
+			(color-theme-get-params)
+			(color-theme-get-vars)
+			(color-theme-get-face-definitions)))
+    (funcall theme-b)
+    (setq theme-b (list theme-b
+			(color-theme-get-params)
+			(color-theme-get-vars)
+			(color-theme-get-face-definitions)))
+    (delete-frame))
+  (let ((params (set-difference
+		 (color-theme-frame-params theme-b)
+		 (color-theme-frame-params theme-a)
+		 :test 'equal))
+	(vars (set-difference
+	       (color-theme-variables theme-b)
+	       (color-theme-variables theme-a)
+	       :test 'equal))
+	(faces (set-difference
+		(color-theme-faces theme-b)
+		(color-theme-faces theme-a)
+		:test 'equal)))
+    (list 'diff
+	  params
+	  vars
+	  faces)))
+
+
+
+;;; Installing a color theme
+;;;###autoload
+(defun color-theme-install (theme)
+  "Install a color theme defined by frame parameters, variables and faces.
+
+The theme is installed for all present and future frames; any missing
+faces are created.  See `color-theme-install-faces'.
+
+THEME is a color theme definition.  See below for more information.
+
+If you want to install a color theme from your .emacs, use the output
+generated by `color-theme-print'.  This produces color theme function
+which you can copy to your .emacs.
+
+A color theme definition is a list:
+\([FUNCTION] FRAME-PARAMETERS VARIABLE-SETTINGS FACE-DEFINITIONS)
+
+FUNCTION is the color theme function which called `color-theme-install'.
+This is no longer used.  There was a time when this package supported
+automatic factoring of color themes.  This has been abandoned.
+
+FRAME-PARAMETERS is an alist of frame parameters.  These are installed
+with `color-theme-install-frame-params'.  These are installed last such
+that any changes to the default face can be changed by the frame
+parameters.
+
+VARIABLE-DEFINITIONS is an alist of variable settings.  These are
+installed with `color-theme-install-variables'.
+
+FACE-DEFINITIONS is an alist of face definitions.  These are installed
+with `color-theme-install-faces'.
+
+If `color-theme-is-cumulative' is nil, a color theme will undo face and
+frame-parameter settings of previous color themes."
+  (setq theme (color-theme-canonic theme))
+  (color-theme-install-variables (color-theme-variables theme))
+  (color-theme-install-faces (color-theme-faces theme))
+  ;; frame parameters override faces
+  (color-theme-install-frame-params (color-theme-frame-params theme))
+  (when color-theme-history-max-length
+    (color-theme-add-to-history
+     (car theme))))
+
+
+
+;; Sharing your stuff
+;;;###autoload
+(defun color-theme-submit ()
+  "Submit your color-theme to the maintainer."
+  (interactive)
+  (require 'reporter)
+  (let ((reporter-eval-buffer (current-buffer))
+	final-resting-place
+	after-sep-pos
+	(reporter-status-message "Formatting buffer...")
+	(reporter-status-count 0)
+	(problem "Yet another color-theme")
+	(agent (reporter-compose-outgoing))
+	(mailbuf (current-buffer))
+	hookvar)
+    ;; do the work
+    (require 'sendmail)
+    ;; If mailbuf did not get made visible before, make it visible now.
+    (let (same-window-buffer-names same-window-regexps)
+      (pop-to-buffer mailbuf)
+      ;; Just in case the original buffer is not visible now, bring it
+      ;; back somewhere
+      (and pop-up-windows (display-buffer reporter-eval-buffer)))
+    (goto-char (point-min))
+    (mail-position-on-field "to")
+    (insert color-theme-maintainer-address)
+    (mail-position-on-field "subject")
+    (insert problem)
+    ;; move point to the body of the message
+    (mail-text)
+    (setq after-sep-pos (point))
+    (unwind-protect
+	(progn
+	  (setq final-resting-place (point-marker))
+	  (goto-char final-resting-place))
+      (color-theme-print (current-buffer))
+      (goto-char final-resting-place)
+      (insert "\n\n")
+      (goto-char final-resting-place)
+      (insert "Hello there!\n\nHere's my color theme named: ")
+      (set-marker final-resting-place nil))
+    ;; compose the minibuf message and display this.
+    (let* ((sendkey-whereis (where-is-internal
+			     (get agent 'sendfunc) nil t))
+	   (abortkey-whereis (where-is-internal
+			      (get agent 'abortfunc) nil t))
+	   (sendkey (if sendkey-whereis
+			(key-description sendkey-whereis)
+		      "C-c C-c")); TBD: BOGUS hardcode
+	   (abortkey (if abortkey-whereis
+			 (key-description abortkey-whereis)
+		       "M-x kill-buffer"))); TBD: BOGUS hardcode
+      (message "Enter a message and type %s to send or %s to abort."
+	       sendkey abortkey))))
+
+
+
+;; Use this to define themes
+(defmacro define-color-theme (name author description &rest forms)
+  (let ((n name))
+    `(progn 
+       (add-to-list 'color-themes
+                    (list ',n
+                          (upcase-initials
+                           (replace-in-string
+                            (replace-in-string 
+                             (symbol-name ',n) "^color-theme-" "") "-" " "))
+                          ,author))
+       (defun ,n ()
+	 ,description
+	 (interactive)
+         ,@forms))))
+
+
+;;; FIXME: is this useful ??
+;;;###autoload
+(defun color-theme-initialize ()
+  "Initialize the color theme package by loading color-theme-libraries."
+  (interactive)
+
+  (cond ((and (not color-theme-load-all-themes)
+              color-theme-directory)
+         (setq color-theme-libraries 
+               (directory-files color-theme-directory t "^color-theme")))
+        (color-theme-directory
+         (push (cdr (directory-files color-theme-directory t "^color-theme")) 
+               color-theme-libraries)))
+  (dolist (library color-theme-libraries)
+    (load library)))
+
+(when nil
+  (setq color-theme-directory "themes/"
+        color-theme-load-all-themes nil)
+  (color-theme-initialize)
+)
+;; TODO: I don't like all those function names cluttering up my namespace.
+;; Instead, a hashtable for the color-themes should be created. Now that 
+;; define-color-theme is around, it should be easy to change in just the
+;; one place. 
+
+
+(provide 'color-theme)
+
+;;; color-theme.el ends here
diff --git a/.emacs.d/highlight-symbol.el b/.emacs.d/highlight-symbol.el
new file mode 100644
index 0000000..e60e469
--- /dev/null
+++ b/.emacs.d/highlight-symbol.el
@@ -0,0 +1,308 @@
+;;; highlight-symbol.el --- automatic and manual symbol highlighting
+;;
+;; Copyright (C) 2007-2009 Nikolaj Schumacher
+;;
+;; Author: Nikolaj Schumacher <bugs * nschum de>
+;; Version: 1.1
+;; Keywords: faces, matching
+;; URL: http://nschum.de/src/emacs/highlight-symbol/
+;; Compatibility: GNU Emacs 22.x, GNU Emacs 23.x
+;;
+;; This file is NOT part of GNU Emacs.
+;;
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License
+;; as published by the Free Software Foundation; either version 2
+;; of the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;;
+;;; Commentary:
+;;
+;; Add the following to your .emacs file:
+;; (require 'highlight-symbol)
+;; (global-set-key [(control f3)] 'highlight-symbol-at-point)
+;; (global-set-key [f3] 'highlight-symbol-next)
+;; (global-set-key [(shift f3)] 'highlight-symbol-prev)
+;; (global-set-key [(meta f3)] 'highlight-symbol-prev)))
+;; (global-set-key [(control meta f3)] 'highlight-symbol-query-replace)
+;;
+;; Use `highlight-symbol-at-point' to toggle highlighting of the symbol at
+;; point throughout the current buffer.  Use `highlight-symbol-mode' to keep the
+;; symbol at point highlighted.
+;;
+;; The functions `highlight-symbol-next', `highlight-symbol-prev',
+;; `highlight-symbol-next-in-defun' and `highlight-symbol-prev-in-defun' allow
+;; for cycling through the locations of any symbol at point.
+;; When `highlight-symbol-on-navigation-p' is set, highlighting is triggered
+;; regardless of `highlight-symbol-idle-delay'.
+;;
+;; `highlight-symbol-query-replace' can be used to replace the symbol.
+;;
+;;; Change Log:
+;;
+;; 2009-04-13 (1.1)
+;;    Added `highlight-symbol-query-replace'.
+;;
+;; 2009-03-19 (1.0.5)
+;;    Fixed `highlight-symbol-idle-delay' void variable message.
+;;    Fixed color repetition bug.  (thanks to Hugo Schmitt)
+;;
+;; 2008-05-02 (1.0.4)
+;;    Added `highlight-symbol-on-navigation-p' option.
+;;
+;; 2008-02-26 (1.0.3)
+;;    Added `highlight-symbol-remove-all'.
+;;
+;; 2007-09-06 (1.0.2)
+;;    Fixed highlighting with delay set to 0.  (thanks to Stefan Persson)
+;;
+;; 2007-09-05 (1.0.1)
+;;    Fixed completely broken temporary highlighting.
+;;
+;; 2007-07-30 (1.0)
+;;    Keep temp highlight while jumping.
+;;    Replaced `highlight-symbol-faces' with `highlight-symbol-colors'.
+;;    Fixed dependency and Emacs 21 bug.  (thanks to Gregor Gorjanc)
+;;    Prevent calling `highlight-symbol-at-point' on nil.
+;;
+;; 2007-04-20 (0.9.1)
+;;    Fixed bug in `highlight-symbol-jump'.  (thanks to Per Nordlöw)
+;;
+;; 2007-04-06 (0.9)
+;;    Initial release.
+;;
+;;; Code:
+
+(require 'thingatpt)
+(require 'hi-lock)
+(eval-when-compile (require 'cl))
+
+(push "^No symbol at point$" debug-ignored-errors)
+
+(defgroup highlight-symbol nil
+  "Automatic and manual symbols highlighting"
+  :group 'faces
+  :group 'matching)
+
+(defface highlight-symbol-face
+  '((((class color) (background dark))
+     (:background "gray30"))
+    (((class color) (background light))
+     (:background "gray90")))
+  "*Face used by `highlight-symbol-mode'."
+  :group 'highlight-symbol)
+
+(defvar highlight-symbol-timer nil)
+
+(defun highlight-symbol-update-timer (value)
+  (when highlight-symbol-timer
+    (cancel-timer highlight-symbol-timer))
+  (setq highlight-symbol-timer
+        (and value (/= value 0)
+             (run-with-idle-timer value t 'highlight-symbol-temp-highlight))))
+
+(defvar highlight-symbol-mode nil)
+
+(defun highlight-symbol-set (symbol value)
+  (when symbol (set symbol value))
+  (when highlight-symbol-mode
+    (highlight-symbol-update-timer value)))
+
+(defcustom highlight-symbol-idle-delay 1.5
+  "*Number of seconds of idle time before highlighting the current symbol.
+If this variable is set to 0, no idle time is required.
+Changing this does not take effect until `highlight-symbol-mode' has been
+disabled for all buffers."
+  :type 'number
+  :set 'highlight-symbol-set
+  :group 'highlight-symbol)
+
+(defcustom highlight-symbol-colors
+  '("yellow" "DeepPink" "cyan" "MediumPurple1" "SpringGreen1"
+    "DarkOrange" "HotPink1" "RoyalBlue1" "OliveDrab")
+  "*Colors used by `highlight-symbol-at-point'.
+highlighting the symbols will use these colors in order."
+  :type '(repeat color)
+  :group 'highlight-symbol)
+
+(defcustom highlight-symbol-on-navigation-p nil
+  "*Wether or not to temporary highlight the symbol when using
+`highlight-symbol-jump' family of functions."
+  :type 'boolean
+  :group 'highlight-symbol)
+
+(defvar highlight-symbol-color-index 0)
+(make-variable-buffer-local 'highlight-symbol-color-index)
+
+(defvar highlight-symbol nil)
+(make-variable-buffer-local 'highlight-symbol)
+
+(defvar highlight-symbol-list nil)
+(make-variable-buffer-local 'highlight-symbol-list)
+
+(defconst highlight-symbol-border-pattern
+  (if (>= emacs-major-version 22) '("\\_<" . "\\_>") '("\\<" . "\\>")))
+
+;;;###autoload
+(define-minor-mode highlight-symbol-mode
+  "Minor mode that highlights the symbol under point throughout the buffer.
+Highlighting takes place after `highlight-symbol-idle-delay'."
+  nil " hl-s" nil
+  (if highlight-symbol-mode
+      ;; on
+      (let ((hi-lock-archaic-interface-message-used t))
+        (unless hi-lock-mode (hi-lock-mode 1))
+        (highlight-symbol-update-timer highlight-symbol-idle-delay)
+        (add-hook 'post-command-hook 'highlight-symbol-mode-post-command nil t))
+    ;; off
+    (remove-hook 'post-command-hook 'highlight-symbol-mode-post-command t)
+    (highlight-symbol-mode-remove-temp)
+    (kill-local-variable 'highlight-symbol)))
+
+;;;###autoload
+(defun highlight-symbol-at-point ()
+  "Toggle highlighting of the symbol at point.
+This highlights or unhighlights the symbol at point using the first
+element in of `highlight-symbol-faces'."
+  (interactive)
+  (let ((symbol (highlight-symbol-get-symbol)))
+    (unless symbol (error "No symbol at point"))
+    (unless hi-lock-mode (hi-lock-mode 1))
+    (if (member symbol highlight-symbol-list)
+        ;; remove
+        (progn
+          (setq highlight-symbol-list (delete symbol highlight-symbol-list))
+          (hi-lock-unface-buffer symbol))
+      ;; add
+      (when (equal symbol highlight-symbol)
+        (highlight-symbol-mode-remove-temp))
+      (let ((color (nth highlight-symbol-color-index
+                        highlight-symbol-colors)))
+        (if color ;; wrap
+            (incf highlight-symbol-color-index)
+          (setq highlight-symbol-color-index 1
+                color (car highlight-symbol-colors)))
+        (setq color `((background-color . ,color)
+                      (foreground-color . "black")))
+        ;; highlight
+        (with-no-warnings
+          (if (< emacs-major-version 22)
+              (hi-lock-set-pattern `(,symbol (0 (quote ,color) t)))
+            (hi-lock-set-pattern symbol color)))
+        (push symbol highlight-symbol-list)))))
+
+;;;###autoload
+(defun highlight-symbol-remove-all ()
+  "Remove symbol highlighting in buffer."
+  (interactive)
+  (mapc 'hi-lock-unface-buffer highlight-symbol-list)
+  (setq highlight-symbol-list nil))
+
+;;;###autoload
+(defun highlight-symbol-next ()
+  "Jump to the next location of the symbol at point within the function."
+  (interactive)
+  (highlight-symbol-jump 1))
+
+;;;###autoload
+(defun highlight-symbol-prev ()
+  "Jump to the previous location of the symbol at point within the function."
+  (interactive)
+  (highlight-symbol-jump -1))
+
+;;;###autoload
+(defun highlight-symbol-next-in-defun ()
+  "Jump to the next location of the symbol at point within the defun."
+  (interactive)
+  (save-restriction
+    (narrow-to-defun)
+    (highlight-symbol-jump 1)))
+
+;;;###autoload
+(defun highlight-symbol-prev-in-defun ()
+  "Jump to the previous location of the symbol at point within the defun."
+  (interactive)
+  (save-restriction
+    (narrow-to-defun)
+    (highlight-symbol-jump -1)))
+
+;;;###autoload
+(defun highlight-symbol-query-replace (replacement)
+  "*Replace the symbol at point."
+  (interactive (let ((symbol (or (thing-at-point 'symbol)
+                                 (error "No symbol at point"))))
+                 (highlight-symbol-temp-highlight)
+                 (set query-replace-to-history-variable
+                      (cons (substring-no-properties symbol)
+                            (eval query-replace-to-history-variable)))
+                 (list
+                  (read-from-minibuffer "Replacement: " nil nil nil
+                                        query-replace-to-history-variable))))
+  (goto-char (beginning-of-thing 'symbol))
+  (query-replace-regexp (highlight-symbol-get-symbol) replacement))
+
+(defun highlight-symbol-get-symbol ()
+  "Return a regular expression dandifying the symbol at point."
+  (let ((symbol (thing-at-point 'symbol)))
+    (when symbol (concat (car highlight-symbol-border-pattern)
+                         (regexp-quote symbol)
+                         (cdr highlight-symbol-border-pattern)))))
+
+(defun highlight-symbol-temp-highlight ()
+  "Highlight the current symbol until a command is executed."
+  (when highlight-symbol-mode
+    (let ((symbol (highlight-symbol-get-symbol)))
+      (unless (or (equal symbol highlight-symbol)
+                  (member symbol highlight-symbol-list))
+        (highlight-symbol-mode-remove-temp)
+        (when symbol
+          (setq highlight-symbol symbol)
+          (hi-lock-set-pattern symbol 'highlight-symbol-face))))))
+
+(defun highlight-symbol-mode-remove-temp ()
+  "Remove the temporary symbol highlighting."
+  (when highlight-symbol
+    (hi-lock-unface-buffer highlight-symbol)
+    (setq highlight-symbol nil)))
+
+(defun highlight-symbol-mode-post-command ()
+  "After a command, change the temporary highlighting.
+Remove the temporary symbol highlighting and, unless a timeout is specified,
+create the new one."
+  (if (eq this-command 'highlight-symbol-jump)
+      (when highlight-symbol-on-navigation-p
+        (highlight-symbol-temp-highlight))
+    (if (eql highlight-symbol-idle-delay 0)
+        (highlight-symbol-temp-highlight)
+      (highlight-symbol-mode-remove-temp))))
+
+(defun highlight-symbol-jump (dir)
+  "Jump to the next or previous occurence of the symbol at point.
+DIR has to be 1 or -1."
+  (let ((symbol (highlight-symbol-get-symbol)))
+    (if symbol
+        (let* ((case-fold-search nil)
+               (bounds (bounds-of-thing-at-point 'symbol))
+               (offset (- (point) (if (< 0 dir) (cdr bounds) (car bounds)))))
+          (unless (eq last-command 'highlight-symbol-jump)
+            (push-mark))
+          ;; move a little, so we don't find the same instance again
+          (goto-char (- (point) offset))
+          (let ((target (re-search-forward symbol nil t dir)))
+            (unless target
+              (goto-char (if (< 0 dir) (point-min) (point-max)))
+              (setq target (re-search-forward symbol nil nil dir)))
+            (goto-char (+ target offset)))
+          (setq this-command 'highlight-symbol-jump))
+      (error "No symbol at point"))))
+
+(provide 'highlight-symbol)
+
+;;; highlight-symbol.el ends here
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
new file mode 100644
index 0000000..565c8e6
--- /dev/null
+++ b/.emacs.d/init.el
@@ -0,0 +1,75 @@
+(add-to-list 'load-path "~/.emacs.d")
+(add-to-list 'load-path "~/.emacs.d/auto-complete")
+
+; Requires
+(require 'vimpulse)
+(require 'color-theme)
+(require 'color-theme-autoloads)
+(require 'tabbar)
+;(require 'highlight-symbol)
+(require 'auto-complete-config)
+
+(add-to-list 'ac-dictionary-directories "~/.emacs.d/auto-complete/dict")
+(ac-config-default)
+(setq ac-dwim t)
+(setq ac-expand-on-auto-complete nil)
+(setq ac-use-fuzzy t) 
+;(define-key ac-completing-map "\t" 'ac-fuzzy-complete)
+;(define-key ac-completing-map "\r" nil)
+
+; This is the other Vim-mode. Maybe should delete this..
+;
+;(add-to-list 'load-path "~/.emacs.d/vim-mode")
+;(require 'vim)
+;(vim-mode 1)
+
+; Tabbar settings (Simple groups)
+ (defun tabbar-buffer-groups ()
+   "Return the list of group names the current buffer belongs to.
+ This function is a custom function for tabbar-mode's tabbar-buffer-groups.
+ This function group all buffers into 3 groups:
+ Those Dired, those user buffer, and those emacs buffer.
+ Emacs buffer are those starting with “*”."
+   (list
+    (cond
+     ((string-equal "*" (substring (buffer-name) 0 1))
+      "Emacs Buffer"
+      )
+     ((eq major-mode 'dired-mode)
+      "Dired"
+      )
+     (t
+      "User Buffer"
+      )
+     ))) ;; from Xah Lee
+ (setq tabbar-buffer-groups-function 'tabbar-buffer-groups)
+
+(tabbar-mode)
+
+; Basic frame defaults
+(let ((background-color "#2F2F2F")
+      (foreground-color "LightGrey")
+      (fname "Inconsolata-13")
+      (fheight 45)
+      (fwidth 115))
+     
+  (set-default-font fname)
+  (add-to-list 'default-frame-alist (cons 'font fname))
+;  (set-background-color background-color)
+;  (add-to-list 'default-frame-alist (cons 'background-color background-color))  
+;  (set-foreground-color foreground-color)  
+  (add-to-list 'default-frame-alist (cons 'foreground-color foreground-color))  
+  (add-to-list 'default-frame-alist (cons 'height fheight))  
+  (add-to-list 'default-frame-alist (cons 'width fwidth))  
+)
+(custom-set-variables '(inhibit-startup-screen t))
+(custom-set-faces)
+
+; Run color-theme
+(color-theme-initialize)
+;(require 'color-theme-barak)
+
+(if window-system
+ (color-theme-barak))
+
+;(defun my-emacs-startup-hook () (my-close-scratch)) (add-hook 'emacs-startup-hook 'my-emacs-startup-hook)
diff --git a/.emacs.d/themes/color-theme-barak.el b/.emacs.d/themes/color-theme-barak.el
new file mode 100644
index 0000000..f934464
--- /dev/null
+++ b/.emacs.d/themes/color-theme-barak.el
@@ -0,0 +1,44 @@
+(defun color-theme-barak ()
+  "Color theme by Barak Michener, created 08-11-2010"
+  (interactive)
+  (color-theme-install
+   '(color-theme-barak
+     ((background-color . "#121212")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "#A7A7A7")
+      (foreground-color . "#E0E0E0")
+      (mouse-color . "sienna1"))
+     (default ((t (:background "#121212" :foreground "#E0E0E0"))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (:bold t))))
+     (border-glyph ((t (nil))))
+     (buffers-tab ((t (:background "#121212" :foreground "#E0E0E0"))))
+     (font-lock-builtin-face ((t (:foreground "#E0E0E0"))))
+     (font-lock-comment-face ((t (:foreground "#238E23"))))
+     (font-lock-constant-face ((t (:foreground "#E3AC3D"))))
+     (font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
+     (font-lock-function-name-face ((t (:foreground "#C5A6FF"))))
+     (font-lock-keyword-face ((t (:bold t :foreground "#4876FF"))))
+     (font-lock-preprocessor-face ((t (:foreground "#E9DFEF"))))
+     (font-lock-reference-face ((t (:foreground "#E1634F"))))
+
+     (font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
+     (font-lock-regexp-grouping-construct ((t (:foreground "red"))))
+
+     (font-lock-string-face ((t (:foreground "#F05656"))))
+     (font-lock-type-face ((t (:foreground "#73E1E6"))))
+     (font-lock-variable-name-face ((t (:foreground "#00BFFF"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+     (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
+     (region ((t (:background "#364458"))))
+     (mode-line ((t (:background "grey75" :foreground "black"))))
+     (highlight ((t (:background "#222222"))))
+     (highline-face ((t (:background "SeaGreen"))))
+     (italic ((t (nil))))
+     (left-margin ((t (nil))))
+     (text-cursor ((t (:background "yellow" :foreground "black"))))
+     (toolbar ((t (nil))))
+     (underline ((nil (:underline nil))))
+     (zmacs-region ((t (:background "snow" :foreground "ble")))))))
diff --git a/.emacs.d/themes/color-theme-blackboard.el b/.emacs.d/themes/color-theme-blackboard.el
new file mode 100644
index 0000000..667c8c2
--- /dev/null
+++ b/.emacs.d/themes/color-theme-blackboard.el
@@ -0,0 +1,60 @@
+;; Blackboard Colour Theme for Emacs.
+;;
+;; Defines a colour scheme resembling that of the original TextMate Blackboard colour theme.
+;; To use add the following to your .emacs file (requires the color-theme package):
+;;
+;; (require 'color-theme)
+;; (color-theme-initialize)
+;; (load-file "~/.emacs.d/themes/color-theme-blackboard.el")
+;;
+;; And then (color-theme-blackboard) to activate it.
+;;
+;; MIT License Copyright (c) 2008 JD Huntington <jdhuntington at gmail dot com>
+;; Credits due to the excellent TextMate Blackboard theme
+;;
+;; All patches welcome
+
+(defun color-theme-blackboard ()
+  "Color theme by JD Huntington, based off the TextMate Blackboard theme, created 2008-11-27"
+  (interactive)
+  (color-theme-install
+   '(color-theme-blackboard
+     ((background-color . "#0C1021")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "#A7A7A7")
+      (foreground-color . "#F8F8F8")
+      (mouse-color . "sienna1"))
+     (default ((t (:background "#0C1021" :foreground "#F8F8F8"))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (:bold t))))
+     (border-glyph ((t (nil))))
+     (buffers-tab ((t (:background "#0C1021" :foreground "#F8F8F8"))))
+     (font-lock-builtin-face ((t (:foreground "#F8F8F8"))))
+     (font-lock-comment-face ((t (:italic t :foreground "#AEAEAE"))))
+     (font-lock-constant-face ((t (:foreground "#D8FA3C"))))
+     (font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
+     (font-lock-function-name-face ((t (:foreground "#FF6400"))))
+     (font-lock-keyword-face ((t (:foreground "#FBDE2D"))))
+     (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
+     (font-lock-reference-face ((t (:foreground "SlateBlue"))))
+
+     (font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
+     (font-lock-regexp-grouping-construct ((t (:foreground "red"))))
+
+     (font-lock-string-face ((t (:foreground "#61CE3C"))))
+     (font-lock-type-face ((t (:foreground "#8DA6CE"))))
+     (font-lock-variable-name-face ((t (:foreground "#FF6400"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+     (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
+     (region ((t (:background "#253B76"))))
+     (mode-line ((t (:background "grey75" :foreground "black"))))
+     (highlight ((t (:background "#222222"))))
+     (highline-face ((t (:background "SeaGreen"))))
+     (italic ((t (nil))))
+     (left-margin ((t (nil))))
+     (text-cursor ((t (:background "yellow" :foreground "black"))))
+     (toolbar ((t (nil))))
+     (underline ((nil (:underline nil))))
+     (zmacs-region ((t (:background "snow" :foreground "ble")))))))
diff --git a/.emacs.d/themes/color-theme-example.el b/.emacs.d/themes/color-theme-example.el
new file mode 100644
index 0000000..f73b4f6
--- /dev/null
+++ b/.emacs.d/themes/color-theme-example.el
@@ -0,0 +1,22 @@
+(eval-when-compile
+  (require 'color-theme))
+
+(defun color-theme-example ()
+  "Example theme. Carbon copy of color-theme-gnome contributed by Jonadab."
+  (interactive)
+  (color-theme-install
+   '(color-theme-example
+     ((foreground-color . "wheat")
+      (background-color . "darkslategrey")
+      (background-mode . dark))
+     (default ((t (nil))))
+     (region ((t (:foreground "cyan" :background "dark cyan"))))
+     (underline ((t (:foreground "yellow" :underline t))))
+     (modeline ((t (:foreground "dark cyan" :background "wheat"))))
+     (modeline-buffer-id ((t (:foreground "dark cyan" :background "wheat"))))
+     (modeline-mousable ((t (:foreground "dark cyan" :background "wheat"))))
+     (modeline-mousable-minor-mode ((t (:foreground "dark cyan" :background "wheat"))))
+     (italic ((t (:foreground "dark red" :italic t))))
+     (bold-italic ((t (:foreground "dark red" :bold t :italic t))))
+     (font-lock-comment-face ((t (:foreground "Firebrick"))))
+     (bold ((t (:bold)))))))
diff --git a/.emacs.d/themes/color-theme-library.el b/.emacs.d/themes/color-theme-library.el
new file mode 100644
index 0000000..d194708
--- /dev/null
+++ b/.emacs.d/themes/color-theme-library.el
@@ -0,0 +1,13539 @@
+;;; color-theme-library.el --- The real color theme functions
+
+;; Copyright (C) 2005, 2006  Xavier Maillard <zedek@gnu.org>
+;; Copyright (C) 2005, 2006  Brian Palmer <bpalmer@gmail.com>
+
+;; Version: 0.0.9
+;; Keywords: faces
+;; Author: Brian Palmer, Xavier Maillard
+;; Maintainer: Xavier Maillard <zedek@gnu.org>
+;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme
+
+;; This file is not (YET) part of GNU Emacs.
+
+;; This is free software; you can redistribute it and/or modify it under
+;; the terms of the GNU General Public License as published by the Free
+;; Software Foundation; either version 2, or (at your option) any later
+;; version.
+;;
+;; This is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+;; for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+;; MA 02111-1307, USA.
+
+;; Code:
+(eval-when-compile
+  (require 'color-theme))
+
+(defun color-theme-gnome ()
+  "Wheat on darkslategrey scheme.
+From one version of Emacs in RH6 and Gnome, modified by Jonadab."
+  (interactive)
+  (color-theme-install
+   '(color-theme-gnome
+     ((foreground-color . "wheat")
+      (background-color . "darkslategrey")
+      (background-mode . dark))
+     (default ((t (nil))))
+     (region ((t (:foreground "cyan" :background "dark cyan"))))
+     (underline ((t (:foreground "yellow" :underline t))))
+     (modeline ((t (:foreground "dark cyan" :background "wheat"))))
+     (modeline-buffer-id ((t (:foreground "dark cyan" :background "wheat"))))
+     (modeline-mousable ((t (:foreground "dark cyan" :background "wheat"))))
+     (modeline-mousable-minor-mode ((t (:foreground "dark cyan" :background "wheat"))))
+     (italic ((t (:foreground "dark red" :italic t))))
+     (bold-italic ((t (:foreground "dark red" :bold t :italic t))))
+     (font-lock-comment-face ((t (:foreground "Firebrick"))))
+     (bold ((t (:bold)))))))
+
+(defun color-theme-blue-gnus ()
+  "Color theme for gnus and message faces only.
+This is intended for other color themes to use (eg. `color-theme-gnome2'
+and `color-theme-blue-sea')."
+  (interactive)
+  (color-theme-install
+   '(color-theme-blue-gnus
+     nil
+     (gnus-cite-attribution-face ((t (:lforeground "lemon chiffon" :bold t))))
+     (gnus-cite-face-1 ((t (:foreground "LightSalmon"))))
+     (gnus-cite-face-2 ((t (:foreground "Khaki"))))
+     (gnus-cite-face-3 ((t (:foreground "Coral"))))
+     (gnus-cite-face-4 ((t (:foreground "yellow green"))))
+     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+     (gnus-cite-face-6 ((t (:foreground "bisque"))))
+     (gnus-cite-face-7 ((t (:foreground "peru"))))
+     (gnus-cite-face-8 ((t (:foreground "light coral"))))
+     (gnus-cite-face-9 ((t (:foreground "plum"))))
+     (gnus-emphasis-bold ((t (:bold t))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (:italic t))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "White"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "White"))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "light cyan"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan"))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine"))))
+     (gnus-group-news-1-empty-face ((t (:foreground "White"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "White"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "light cyan"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "light cyan"))))
+     (gnus-group-news-3-empty-face ((t (:foreground "LightBlue"))))
+     (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
+     (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
+     (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine"))))
+     (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
+     (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
+     (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
+     (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
+     (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine"))))
+     (gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
+     (gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
+     (gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
+     (gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
+     (gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
+     (gnus-signature-face ((t (:foreground "Grey"))))
+     (gnus-splash-face ((t (:foreground "ForestGreen"))))
+     (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine"))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine"))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon"))))
+     (gnus-summary-high-unread-face ((t (:bold t :foreground "beige"))))
+     (gnus-summary-low-ancient-face ((t (:foreground "DimGray"))))
+     (gnus-summary-low-read-face ((t (:foreground "slate gray"))))
+     (gnus-summary-low-ticked-face ((t (:foreground "Pink"))))
+     (gnus-summary-low-unread-face ((t (:foreground "LightGray"))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine"))))
+     (gnus-summary-normal-read-face ((t (:foreground "Aquamarine"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:background "DarkSlateBlue"))))
+     (message-cited-text-face ((t (:foreground "LightSalmon"))))
+     (message-header-cc-face ((t (:foreground "light cyan"))))
+     (message-header-name-face ((t (:foreground "LightBlue"))))
+     (message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
+     (message-header-other-face ((t (:foreground "MediumAquamarine"))))
+     (message-header-subject-face ((t (:bold t :foreground "light cyan"))))
+     (message-header-to-face ((t (:bold t :foreground "light cyan"))))
+     (message-header-xheader-face ((t (:foreground "MediumAquamarine"))))
+     (message-separator-face ((t (:foreground "chocolate")))))))
+
+(defun color-theme-dark-gnus ()
+  "Color theme for gnus and message faces only.
+This is intended for other color themes to use
+\(eg. `color-theme-late-night')."
+  (interactive)
+  (color-theme-install
+   '(color-theme-blue-gnus
+     nil
+     (gnus-cite-attribution-face ((t (:foreground "#bbb"))))
+     (gnus-cite-face-1 ((t (:foreground "#aaa"))))
+     (gnus-cite-face-2 ((t (:foreground "#aaa"))))
+     (gnus-cite-face-3 ((t (:foreground "#aaa"))))
+     (gnus-cite-face-4 ((t (:foreground "#aaa"))))
+     (gnus-cite-face-5 ((t (:foreground "#aaa"))))
+     (gnus-cite-face-6 ((t (:foreground "#aaa"))))
+     (gnus-cite-face-7 ((t (:foreground "#aaa"))))
+     (gnus-cite-face-8 ((t (:foreground "#aaa"))))
+     (gnus-cite-face-9 ((t (:foreground "#aaa"))))
+     (gnus-emphasis-bold ((t (:bold t))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+     (gnus-emphasis-highlight-words ((t (:foreground "#ccc"))))
+     (gnus-emphasis-italic ((t (:italic t))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "#999"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "#999"))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "#999"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "#999"))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "#888"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "#888"))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "#777"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "#777"))))
+     (gnus-group-news-1-empty-face ((t (:foreground "#999"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "#999"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "#888"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "#888"))))
+     (gnus-group-news-3-empty-face ((t (:foreground "#777"))))
+     (gnus-group-news-3-face ((t (:bold t :foreground "#777"))))
+     (gnus-group-news-4-empty-face ((t (:foreground "#666"))))
+     (gnus-group-news-4-face ((t (:bold t :foreground "#666"))))
+     (gnus-group-news-5-empty-face ((t (:foreground "#666"))))
+     (gnus-group-news-5-face ((t (:bold t :foreground "#666"))))
+     (gnus-group-news-6-empty-face ((t (:foreground "#666"))))
+     (gnus-group-news-6-face ((t (:bold t :foreground "#666"))))
+     (gnus-group-news-low-empty-face ((t (:foreground "#666"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "#666"))))
+     (gnus-header-content-face ((t (:foreground "#888"))))
+     (gnus-header-from-face ((t (:bold t :foreground "#888"))))
+     (gnus-header-name-face ((t (:bold t :foreground "#777"))))
+     (gnus-header-newsgroups-face ((t (:bold t :foreground "#777"))))
+     (gnus-header-subject-face ((t (:bold t :foreground "#999"))))
+     (gnus-signature-face ((t (:foreground "#444"))))
+     (gnus-splash-face ((t (:foreground "#ccc"))))
+     (gnus-summary-cancelled-face ((t (:background "#555" :foreground "#000"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "#555"))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "#666"))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "#777"))))
+     (gnus-summary-high-unread-face ((t (:bold t :foreground "#888"))))
+     (gnus-summary-low-ancient-face ((t (:foreground "#444"))))
+     (gnus-summary-low-read-face ((t (:foreground "#555"))))
+     (gnus-summary-low-ticked-face ((t (:foreground "#666"))))
+     (gnus-summary-low-unread-face ((t (:foreground "#777"))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "#555"))))
+     (gnus-summary-normal-read-face ((t (:foreground "#666"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "#777"))))
+     (gnus-summary-normal-unread-face ((t (:foreground "#888"))))
+     (gnus-summary-selected-face ((t (:background "#333"))))
+     (message-cited-text-face ((t (:foreground "#aaa"))))
+     (message-header-cc-face ((t (:foreground "#888"))))
+     (message-header-name-face ((t (:bold t :foreground "#777"))))
+     (message-header-newsgroups-face ((t (:bold t :foreground "#777"))))
+     (message-header-other-face ((t (:foreground "#666"))))
+     (message-header-subject-face ((t (:bold t :foreground "#999"))))
+     (message-header-to-face ((t (:bold t :foreground "#777"))))
+     (message-header-xheader-face ((t (:foreground "#666"))))
+     (message-separator-face ((t (:foreground "#999")))))))
+
+(defun color-theme-blue-eshell ()
+  "Color theme for eshell faces only.
+This is intended for other color themes to use (eg. `color-theme-gnome2')."
+  (interactive)
+  (color-theme-install
+   '(color-theme-blue-eshell
+     nil
+     (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
+     (eshell-ls-backup-face ((t (:foreground "Grey"))))
+     (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
+     (eshell-ls-executable-face ((t (:foreground "Coral"))))
+     (eshell-ls-missing-face ((t (:foreground "black"))))
+     (eshell-ls-picture-face ((t (:foreground "Violet")))) ; non-standard face
+     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
+     (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
+     (eshell-ls-special-face ((t (:foreground "Gold"))))
+     (eshell-ls-symlink-face ((t (:foreground "White"))))
+     (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) ; non-standard face
+     (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) ; non-standard face
+     (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
+     (eshell-prompt-face ((t (:foreground "powder blue")))))))
+
+(defun color-theme-salmon-font-lock ()
+  "Color theme for font-lock faces only.
+This is intended for other color themes to use (eg. `color-theme-gnome2')."
+  (interactive)
+  (color-theme-install
+   '(color-theme-salmon-font-lock
+     nil
+     (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen"))))
+     (font-lock-comment-face ((t (:foreground "LightBlue"))))
+     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "Aquamarine"))))
+     (font-lock-keyword-face ((t (:foreground "Salmon"))))
+     (font-lock-preprocessor-face ((t (:foreground "Salmon"))))
+     (font-lock-reference-face ((t (:foreground "pale green"))))
+     (font-lock-string-face ((t (:foreground "LightSalmon"))))
+     (font-lock-type-face ((t (:bold t :foreground "YellowGreen"))))
+     (font-lock-variable-name-face ((t (:bold t :foreground "Aquamarine"))))
+     (font-lock-warning-face ((t (:bold t :foreground "red")))))))
+
+(defun color-theme-dark-font-lock ()
+  "Color theme for font-lock faces only.
+This is intended for other color themes to use (eg. `color-theme-late-night')."
+  (interactive)
+  (color-theme-install
+   '(color-theme-dark-font-lock
+     nil
+     (font-lock-builtin-face ((t (:bold t :foreground "#777"))))
+     (font-lock-comment-face ((t (:foreground "#555"))))
+     (font-lock-constant-face ((t (:foreground "#777"))))
+     (font-lock-doc-string-face ((t (:foreground "#777"))))
+     (font-lock-doc-face ((t (:foreground "#777"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "#777"))))
+     (font-lock-keyword-face ((t (:foreground "#777"))))
+     (font-lock-preprocessor-face ((t (:foreground "#777"))))
+     (font-lock-reference-face ((t (:foreground "#777"))))
+     (font-lock-string-face ((t (:foreground "#777"))))
+     (font-lock-type-face ((t (:bold t))))
+     (font-lock-variable-name-face ((t (:bold t :foreground "#888"))))
+     (font-lock-warning-face ((t (:bold t :foreground "#999")))))))
+
+(defun color-theme-dark-info ()
+  "Color theme for info, help and apropos faces.
+This is intended for other color themes to use (eg. `color-theme-late-night')."
+  (interactive)
+  (color-theme-install
+   '(color-theme-dark-info
+     nil
+     (info-header-node ((t (:foreground "#666"))))
+     (info-header-xref ((t (:foreground "#666"))))
+     (info-menu-5 ((t (:underline t))))
+     (info-menu-header ((t (:bold t :foreground "#666"))))
+     (info-node ((t (:bold t :foreground "#888"))))
+     (info-xref ((t (:bold t :foreground "#777")))))))
+
+(defun color-theme-gnome2 ()
+  "Wheat on darkslategrey scheme.
+`color-theme-gnome' started it all.
+
+This theme supports standard faces, font-lock, eshell, info, message,
+gnus, custom, widget, woman, diary, cperl, bbdb, and erc.  This theme
+includes faces for Emacs and XEmacs.
+
+The theme does not support w3 faces because w3 faces can be controlled
+by your default style sheet.
+
+This is what you should put in your .Xdefaults file, if you want to
+change the colors of the menus in Emacs 20 as well:
+
+emacs*Background:		DarkSlateGray
+emacs*Foreground:		Wheat"
+  (interactive)
+  (color-theme-blue-gnus)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-blue-erc)
+    (color-theme-blue-eshell)
+    (color-theme-salmon-font-lock)
+    (color-theme-salmon-diff)
+    (color-theme-install
+     '(color-theme-gnome2
+       ((foreground-color . "wheat")
+	(background-color . "darkslategrey")
+	(mouse-color . "Grey")
+	(cursor-color . "LightGray")
+	(border-color . "black")
+	(background-mode . dark))
+       ((apropos-keybinding-face . underline)
+	(apropos-label-face . italic)
+	(apropos-match-face . secondary-selection)
+	(apropos-property-face . bold-italic)
+	(apropos-symbol-face . info-xref)
+	(goto-address-mail-face . message-header-to-face)
+	(goto-address-mail-mouse-face . secondary-selection)
+	(goto-address-url-face . info-xref)
+	(goto-address-url-mouse-face . highlight)
+	(list-matching-lines-face . bold)
+	(view-highlight-face . highlight))
+       (default ((t (nil))))
+       (bbdb-company ((t (:foreground "pale green"))))
+       (bbdb-name ((t (:bold t :foreground "pale green"))))
+       (bbdb-field-name ((t (:foreground "medium sea green"))))
+       (bbdb-field-value ((t (:foreground "dark sea green"))))
+       (bold ((t (:bold t))))
+       (bold-italic ((t (:italic t :bold t :foreground "beige"))))
+       (calendar-today-face ((t (:underline t))))
+       (comint-highlight-prompt ((t (:foreground "medium aquamarine"))))
+       (cperl-array-face ((t (:foreground "Yellow"))))
+       (cperl-hash-face ((t (:foreground "White"))))
+       (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
+       (custom-button-face ((t (:underline t :foreground "MediumSlateBlue"))))
+       (custom-documentation-face ((t (:foreground "Grey"))))
+       (custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
+       (custom-state-face ((t (:foreground "LightSalmon"))))
+       (custom-variable-tag-face ((t (:foreground "Aquamarine"))))
+       (diary-face ((t (:foreground "IndianRed"))))
+       (dired-face-directory ((t (:bold t :foreground "sky blue"))))
+       (dired-face-permissions ((t (:foreground "aquamarine"))))
+       (dired-face-flagged ((t (:foreground "tomato"))))
+       (dired-face-marked ((t (:foreground "light salmon"))))
+       (dired-face-executable ((t (:foreground "green yellow"))))
+       (fringe ((t (:background "darkslategrey"))))
+       (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
+       (highline-face ((t (:background "SeaGreen"))))
+       (holiday-face ((t (:background "DimGray"))))
+       (hyper-apropos-hyperlink ((t (:bold t :foreground "DodgerBlue1"))))
+       (hyper-apropos-documentation ((t (:foreground "LightSalmon"))))
+       (info-header-xref ((t (:foreground "DodgerBlue1" :bold t))))
+       (info-menu-5 ((t (:underline t))))
+       (info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
+       (info-xref ((t (:bold t :foreground "DodgerBlue1"))))
+       (isearch ((t (:background "sea green"))))
+       (italic ((t (:italic t))))
+       (menu ((t (:foreground "wheat" :background "darkslategrey"))))
+       (modeline ((t (:background "dark olive green" :foreground "wheat"))))
+       (modeline-buffer-id ((t (:background "dark olive green" :foreground "beige"))))
+       (modeline-mousable ((t (:background "dark olive green" :foreground "yellow green"))))
+       (modeline-mousable-minor-mode ((t (:background "dark olive green" :foreground "wheat"))))
+       (region ((t (:background "dark cyan" :foreground "cyan"))))
+       (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
+       (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue"))))
+       (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
+       (underline ((t (:underline t))))
+       (widget-field-face ((t (:foreground "LightBlue"))))
+       (widget-inactive-face ((t (:foreground "DimGray"))))
+       (widget-single-line-field-face ((t (:foreground "LightBlue"))))
+       (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1"))))
+       (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3"))))
+       (w3m-header-line-location-title-face ((t (:foreground "beige" :background "dark olive green"))))
+       (w3m-header-line-location-content-face ((t (:foreground "wheat" :background "dark olive green"))))
+       (woman-bold-face ((t (:bold t))))
+       (woman-italic-face ((t (:foreground "beige"))))
+       (woman-unknown-face ((t (:foreground "LightSalmon"))))
+       (zmacs-region ((t (:background "dark cyan" :foreground "cyan"))))))))
+
+(defun color-theme-simple-1 ()
+  "Black background.
+Doesn't mess with most faces, but does turn on dark background mode."
+  (interactive)
+  (color-theme-install
+   '(color-theme-simple-1
+     ((foreground-color . "white")
+      (background-color . "black")
+      (cursor-color	. "indian red")
+      (background-mode	. dark))
+     (default ((t (nil))))
+     (modeline ((t (:foreground "black" :background "white"))))
+     (modeline-buffer-id ((t (:foreground "black" :background "white"))))
+     (modeline-mousable ((t (:foreground "black" :background "white"))))
+     (modeline-mousable-minor-mode ((t (:foreground "black" :background "white"))))
+     (underline ((t (:underline t))))
+     (region ((t (:background "grey")))))))
+
+(defun color-theme-jonadabian ()
+  "Dark blue background.
+Supports standard faces, font-lock, highlight-changes, widget and
+custom."
+  (interactive)
+  (color-theme-install
+   '(color-theme-jonadabian
+     ((foreground-color . "#CCBB77")
+      (cursor-color . "medium turquoise")
+      (background-color . "#000055")
+      (background-mode . dark))
+     (default ((t (nil))))
+     (modeline ((t (:foreground "cyan" :background "#007080"))))
+     (modeline-buffer-id ((t (:foreground "cyan" :background "#007080"))))
+     (modeline-mousable ((t (:foreground "cyan" :background "#007080"))))
+     (modeline-mousable-minor-mode ((t (:foreground "cyan" :background "#007080"))))
+     (underline ((t (:underline t))))
+     (region ((t (:background "#004080"))))
+     (font-lock-keyword-face ((t (:foreground "#00BBBB"))))
+     (font-lock-comment-face ((t (:foreground "grey50" :bold t :italic t))))
+     (font-lock-string-face ((t (:foreground "#10D010"))))
+     (font-lock-constant-face ((t (:foreground "indian red"))))
+     (highlight-changes-face ((t (:background "navy"))))
+     (highlight-changes-delete-face ((t (:foreground "red" :background "navy"))))
+     (widget-field-face ((t (:foreground "black" :background "grey35"))))
+     (widget-inactive-face ((t (:foreground "gray"))))
+     (custom-button-face ((t (:foreground "yellow" :background "dark blue"))))
+     (custom-state-face ((t (:foreground "mediumaquamarine"))))
+     (custom-face-tag-face ((t (:foreground "goldenrod" :underline t))))
+     (custom-documentation-face ((t (:foreground "#10D010"))))
+     (custom-set-face ((t (:foreground "#2020D0")))))))
+
+(defun color-theme-ryerson ()
+  "White on midnightblue scheme.
+Used at Ryerson Polytechnic University in the Electronic Engineering department."
+  (interactive)
+  (color-theme-install
+   '(color-theme-ryerson
+     ((foreground-color . "white")
+      (background-color . "midnightblue")
+      (cursor-color	. "red")
+      (background-mode	. dark))
+     (default ((t (nil))))
+     (modeline ((t (:foreground "black" :background "slategray3"))))
+     (modeline-buffer-id ((t (:foreground "black" :background "slategray3"))))
+     (modeline-mousable ((t (:foreground "black" :background "slategray3"))))
+     (modeline-mousable-minor-mode ((t (:foreground "black" :background "slategray3"))))
+     (underline ((t (:underline t))))
+     (region ((t (:foreground "black" :background "slategray3")))))))
+
+(defun color-theme-wheat ()
+  "Default colors on a wheat background.
+Calls the standard color theme function `color-theme-standard' in order
+to reset all faces."
+  (interactive)
+  (color-theme-standard)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-install
+     '(color-theme-wheat
+       ((background-color . "Wheat"))))))
+
+(defun color-theme-standard ()
+  "Emacs default colors.
+If you are missing standard faces in this theme, please notify the maintainer."
+  (interactive)
+  ;; Note that some of the things that make up a color theme are
+  ;; actually variable settings!
+  (color-theme-install
+   '(color-theme-standard
+     ((foreground-color . "black")
+      (background-color . "white")
+      (mouse-color . "black")
+      (cursor-color . "black")
+      (border-color . "black")
+      (background-mode . light))
+     ((Man-overstrike-face . bold)
+      (Man-underline-face . underline)
+      (apropos-keybinding-face . underline)
+      (apropos-label-face . italic)
+      (apropos-match-face . secondary-selection)
+      (apropos-property-face . bold-italic)
+      (apropos-symbol-face . bold)
+      (goto-address-mail-face . italic)
+      (goto-address-mail-mouse-face . secondary-selection)
+      (goto-address-url-face . bold)
+      (goto-address-url-mouse-face . highlight)
+      (help-highlight-face . underline)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight))
+     (default ((t (nil))))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (:bold t :italic t))))
+     (calendar-today-face ((t (:underline t))))
+     (cperl-array-face ((t (:foreground "Blue" :background "lightyellow2" :bold t))))
+     (cperl-hash-face ((t (:foreground "Red" :background "lightyellow2" :bold t :italic t))))
+     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+     (custom-button-face ((t (nil))))
+     (custom-changed-face ((t (:foreground "white" :background "blue"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face ((t (:foreground "blue" :underline t))))
+     (custom-group-tag-face-1 ((t (:foreground "red" :underline t))))
+     (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
+     (custom-modified-face ((t (:foreground "white" :background "blue"))))
+     (custom-rogue-face ((t (:foreground "pink" :background "black"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:foreground "blue" :background "white"))))
+     (custom-state-face ((t (:foreground "dark green"))))
+     (custom-variable-button-face ((t (:bold t :underline t))))
+     (custom-variable-tag-face ((t (:foreground "blue" :underline t))))
+     (diary-face ((t (:foreground "red"))))
+     (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green"))))
+     (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed"))))
+     (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow"))))
+     (ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink"))))
+     (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey"))))
+     (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey"))))
+     (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey"))))
+     (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey"))))
+     (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue"))))
+     (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green"))))
+     (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan"))))
+     (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise"))))
+     (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey"))))
+     (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey"))))
+     (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey"))))
+     (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey"))))
+     (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
+     (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+     (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
+     (eshell-ls-directory-face ((t (:foreground "Blue" :bold t))))
+     (eshell-ls-executable-face ((t (:foreground "ForestGreen" :bold t))))
+     (eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
+     (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+     (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+     (eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
+     (eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t))))
+     (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+     (eshell-prompt-face ((t (:foreground "Red" :bold t))))
+     (eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t))))
+     (eshell-test-ok-face ((t (:foreground "Green" :bold t))))
+     (excerpt ((t (:italic t))))
+     (fixed ((t (:bold t))))
+     (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t))))
+     (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t))))
+     (font-lock-builtin-face ((t (:foreground "Orchid"))))
+     (font-lock-comment-face ((t (:foreground "Firebrick"))))
+     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+     (font-lock-function-name-face ((t (:foreground "Blue"))))
+     (font-lock-keyword-face ((t (:foreground "Purple"))))
+     (font-lock-string-face ((t (:foreground "RosyBrown"))))
+     (font-lock-type-face ((t (:foreground "ForestGreen"))))
+     (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
+     (font-lock-warning-face ((t (:foreground "Red" :bold t))))
+     (fringe ((t (:background "grey95"))))
+     (gnus-cite-attribution-face ((t (:italic t))))
+     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+     (gnus-cite-face-3 ((t (:foreground "dark green"))))
+     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t))))
+     (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
+     (gnus-emphasis-italic ((t (:italic t))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
+     (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+     (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+     (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+     (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+     (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t))))
+     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+     (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t))))
+     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+     (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+     (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t))))
+     (gnus-header-content-face ((t (:foreground "indianred4" :italic t))))
+     (gnus-header-from-face ((t (:foreground "red3"))))
+     (gnus-header-name-face ((t (:foreground "maroon"))))
+     (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue" :italic t))))
+     (gnus-header-subject-face ((t (:foreground "red4"))))
+     (gnus-signature-face ((t (:italic t))))
+     (gnus-splash-face ((t (:foreground "ForestGreen"))))
+     (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
+     (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t))))
+     (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t))))
+     (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t))))
+     (gnus-summary-high-unread-face ((t (:bold t))))
+     (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t))))
+     (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t))))
+     (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t))))
+     (gnus-summary-low-unread-face ((t (:italic t))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (highlight ((t (:background "darkseagreen2"))))
+     (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
+     (highlight-changes-face ((t (:foreground "red"))))
+     (highline-face ((t (:background "paleturquoise"))))
+     (holiday-face ((t (:background "pink"))))
+     (info-menu-5 ((t (:underline t))))
+     (info-node ((t (:bold t :italic t))))
+     (info-xref ((t (:bold t))))
+     (italic ((t (:italic t))))
+     (makefile-space-face ((t (:background "hotpink"))))
+     (message-cited-text-face ((t (:foreground "red"))))
+     (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+     (message-header-name-face ((t (:foreground "cornflower blue"))))
+     (message-header-newsgroups-face ((t (:foreground "blue4" :bold t :italic t))))
+     (message-header-other-face ((t (:foreground "steel blue"))))
+     (message-header-subject-face ((t (:foreground "navy blue" :bold t))))
+     (message-header-to-face ((t (:foreground "MidnightBlue" :bold t))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-separator-face ((t (:foreground "brown"))))
+     (modeline ((t (:foreground "white" :background "black"))))
+     (modeline-buffer-id ((t (:foreground "white" :background "black"))))
+     (modeline-mousable ((t (:foreground "white" :background "black"))))
+     (modeline-mousable-minor-mode ((t (:foreground "white" :background "black"))))
+     (region ((t (:background "gray"))))
+     (secondary-selection ((t (:background "paleturquoise"))))
+     (show-paren-match-face ((t (:background "turquoise"))))
+     (show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
+     (speedbar-button-face ((t (:foreground "green4"))))
+     (speedbar-directory-face ((t (:foreground "blue4"))))
+     (speedbar-file-face ((t (:foreground "cyan4"))))
+     (speedbar-highlight-face ((t (:background "green"))))
+     (speedbar-selected-face ((t (:foreground "red" :underline t))))
+     (speedbar-tag-face ((t (:foreground "brown"))))
+     (term-black ((t (:foreground "black"))))
+     (term-blackbg ((t (:background "black"))))
+     (term-blue ((t (:foreground "blue"))))
+     (term-bluebg ((t (:background "blue"))))
+     (term-bold ((t (:bold t))))
+     (term-cyan ((t (:foreground "cyan"))))
+     (term-cyanbg ((t (:background "cyan"))))
+     (term-default-bg ((t (nil))))
+     (term-default-bg-inv ((t (nil))))
+     (term-default-fg ((t (nil))))
+     (term-default-fg-inv ((t (nil))))
+     (term-green ((t (:foreground "green"))))
+     (term-greenbg ((t (:background "green"))))
+     (term-invisible ((t (nil))))
+     (term-invisible-inv ((t (nil))))
+     (term-magenta ((t (:foreground "magenta"))))
+     (term-magentabg ((t (:background "magenta"))))
+     (term-red ((t (:foreground "red"))))
+     (term-redbg ((t (:background "red"))))
+     (term-underline ((t (:underline t))))
+     (term-white ((t (:foreground "white"))))
+     (term-whitebg ((t (:background "white"))))
+     (term-yellow ((t (:foreground "yellow"))))
+     (term-yellowbg ((t (:background "yellow"))))
+     (underline ((t (:underline t))))
+     (vcursor ((t (:foreground "blue" :background "cyan" :underline t))))
+     (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+     (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+     (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+     (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+     (vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t))))
+     (vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t))))
+     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+     (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+     (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
+     (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+     (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
+     (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+     (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
+     (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+     (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
+     (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+     (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
+     (viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2"))))
+     (viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink"))))
+     (viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey"))))
+     (viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2"))))
+     (viper-search-face ((t (:foreground "Black" :background "khaki"))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "gray85")))))))
+
+(defun color-theme-fischmeister ()
+  "The light colors on a grey blackground.
+Sebastian Fischmeister <sfischme@nexus.lzk.tuwien.ac.at>"
+  (interactive)
+  (color-theme-install
+   '(color-theme-fischmeister
+     ((foreground-color . "black")
+      (background-color . "gray80")
+      (mouse-color . "red")
+      (cursor-color . "yellow")
+      (border-color . "black")
+      (background-mode . light))
+     (default ((t (nil))))
+     (modeline ((t (:foreground "gray80" :background "black"))))
+     (modeline-buffer-id ((t (:foreground "gray80" :background "black"))))
+     (modeline-mousable ((t (:foreground "gray80" :background "black"))))
+     (modeline-mousable-minor-mode ((t (:foreground "gray80" :background "black"))))
+     (highlight ((t (:background "darkseagreen2"))))
+     (bold ((t (:bold t))))
+     (italic ((t (:italic t))))
+     (bold-italic ((t (:bold t :italic t))))
+     (region ((t (:background "gray"))))
+     (secondary-selection ((t (:background "paleturquoise"))))
+     (underline ((t (:underline t))))
+     (show-paren-match-face ((t (:foreground "yellow" :background "darkgreen"))))
+     (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
+     (font-lock-comment-face ((t (:foreground "FireBrick" :bold t :italic t))))
+     (font-lock-string-face ((t (:foreground "DarkSlateBlue" :italic t))))
+     (font-lock-keyword-face ((t (:foreground "navy"))))
+     (font-lock-builtin-face ((t (:foreground "white"))))
+     (font-lock-function-name-face ((t (:foreground "Blue"))))
+     (font-lock-variable-name-face ((t (:foreground "Darkblue"))))
+     (font-lock-type-face ((t (:foreground "darkgreen"))))
+     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+     (font-lock-warning-face ((t (:foreground "Orchid" :bold t))))
+     (font-lock-reference-face ((t (:foreground "SteelBlue")))))))
+
+(defun color-theme-sitaramv-solaris ()
+  "White on a midnight blue background.  Lots of yellow and orange.
+Includes faces for font-lock, widget, custom, speedbar, message, gnus,
+eshell."
+  (interactive)
+  (color-theme-install
+   '(color-theme-sitaramv-solaris
+     ((foreground-color . "white")
+      (background-color . "MidnightBlue")
+      (mouse-color . "yellow")
+      (cursor-color . "magenta2")
+      (border-color . "black")
+      (background-mode . dark))
+     (default ((t (nil))))
+     (modeline ((t (:foreground "black" :background "gold2"))))
+     (modeline-buffer-id ((t (:foreground "black" :background "gold2"))))
+     (modeline-mousable ((t (:foreground "black" :background "gold2"))))
+     (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2"))))
+     (highlight ((t (:foreground "black" :background "Aquamarine"))))
+     (bold ((t (:bold t))))
+     (italic ((t (:italic t))))
+     (bold-italic ((t (:bold t :italic t))))
+     (region ((t (:foreground "black" :background "snow3"))))
+     (secondary-selection ((t (:foreground "black" :background "aquamarine"))))
+     (underline ((t (:underline t))))
+     (lazy-highlight-face ((t (:foreground "yellow"))))
+     (font-lock-comment-face ((t (:foreground "orange" :italic t))))
+     (font-lock-string-face ((t (:foreground "orange"))))
+     (font-lock-keyword-face ((t (:foreground "green"))))
+     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+     (font-lock-function-name-face ((t (:foreground "cyan" :bold t))))
+     (font-lock-variable-name-face ((t (:foreground "white"))))
+     (font-lock-type-face ((t (:foreground "cyan"))))
+     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (font-lock-warning-face ((t (:foreground "Pink" :bold t))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-button-face ((t (:bold t))))
+     (widget-field-face ((t (:background "dim gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray"))))
+     (widget-inactive-face ((t (:foreground "light gray"))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
+     (custom-rogue-face ((t (:foreground "pink" :background "black"))))
+     (custom-modified-face ((t (:foreground "white" :background "blue"))))
+     (custom-set-face ((t (:foreground "blue" :background "white"))))
+     (custom-changed-face ((t (:foreground "white" :background "blue"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-button-face ((t (nil))))
+     (custom-documentation-face ((t (nil))))
+     (custom-state-face ((t (:foreground "lime green"))))
+     (custom-variable-tag-face ((t (:foreground "light blue" :underline t))))
+     (custom-variable-button-face ((t (:bold t :underline t))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face-1 ((t (:foreground "pink" :underline t))))
+     (custom-group-tag-face ((t (:foreground "light blue" :underline t))))
+     (speedbar-button-face ((t (:foreground "green3"))))
+     (speedbar-file-face ((t (:foreground "cyan"))))
+     (speedbar-directory-face ((t (:foreground "light blue"))))
+     (speedbar-tag-face ((t (:foreground "yellow"))))
+     (speedbar-selected-face ((t (:foreground "red" :underline t))))
+     (speedbar-highlight-face ((t (:background "sea green"))))
+     (font-lock-doc-string-face ((t (:foreground "Plum1" :bold t))))
+     (font-lock-exit-face ((t (:foreground "green"))))
+     (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t))))
+     (show-paren-match-face ((t (:background "red"))))
+     (show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
+     (message-header-to-face ((t (:foreground "green2" :bold t))))
+     (message-header-cc-face ((t (:foreground "LightGoldenrod" :bold t))))
+     (message-header-subject-face ((t (:foreground "green3"))))
+     (message-header-newsgroups-face ((t (:foreground "yellow" :bold t :italic t))))
+     (message-header-other-face ((t (:foreground "Salmon"))))
+     (message-header-name-face ((t (:foreground "green3"))))
+     (message-header-xheader-face ((t (:foreground "GreenYellow"))))
+     (message-separator-face ((t (:foreground "Tan"))))
+     (message-cited-text-face ((t (:foreground "Gold"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (gnus-group-news-1-face ((t (:foreground "PaleTurquoise" :bold t))))
+     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+     (gnus-group-news-2-face ((t (:foreground "turquoise" :bold t))))
+     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-news-3-face ((t (:bold t))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+     (gnus-group-mail-1-face ((t (:foreground "aquamarine1" :bold t))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+     (gnus-group-mail-2-face ((t (:foreground "aquamarine2" :bold t))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+     (gnus-group-mail-3-face ((t (:foreground "aquamarine3" :bold t))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+     (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
+     (gnus-summary-high-ticked-face ((t (:foreground "pink" :bold t))))
+     (gnus-summary-low-ticked-face ((t (:foreground "pink" :italic t))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+     (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t))))
+     (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+     (gnus-summary-high-unread-face ((t (:bold t))))
+     (gnus-summary-low-unread-face ((t (:italic t))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t))))
+     (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t))))
+     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+     (gnus-splash-face ((t (:foreground "Brown"))))
+     (eshell-ls-directory-face ((t (:foreground "SkyBlue" :bold t))))
+     (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t))))
+     (eshell-ls-executable-face ((t (:foreground "Green" :bold t))))
+     (eshell-ls-readonly-face ((t (:foreground "Pink"))))
+     (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
+     (eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
+     (eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
+     (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
+     (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
+     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
+     (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
+     (eshell-prompt-face ((t (:foreground "Pink" :bold t))))
+     (term-default-fg ((t (nil))))
+     (term-default-bg ((t (nil))))
+     (term-default-fg-inv ((t (nil))))
+     (term-default-bg-inv ((t (nil))))
+     (term-bold ((t (:bold t))))
+     (term-underline ((t (:underline t))))
+     (term-invisible ((t (nil))))
+     (term-invisible-inv ((t (nil))))
+     (term-black ((t (:foreground "black"))))
+     (term-red ((t (:foreground "red"))))
+     (term-green ((t (:foreground "green"))))
+     (term-yellow ((t (:foreground "yellow"))))
+     (term-blue ((t (:foreground "blue"))))
+     (term-magenta ((t (:foreground "magenta"))))
+     (term-cyan ((t (:foreground "cyan"))))
+     (term-white ((t (:foreground "white"))))
+     (term-blackbg ((t (:background "black"))))
+     (term-redbg ((t (:background "red"))))
+     (term-greenbg ((t (:background "green"))))
+     (term-yellowbg ((t (:background "yellow"))))
+     (term-bluebg ((t (:background "blue"))))
+     (term-magentabg ((t (:background "magenta"))))
+     (term-cyanbg ((t (:background "cyan"))))
+     (term-whitebg ((t (:background "white"))))
+     (gnus-emphasis-bold ((t (:bold t))))
+     (gnus-emphasis-italic ((t (:italic t))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
+     (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
+     (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
+     (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
+     (gnus-signature-face ((t (:italic t))))
+     (gnus-header-from-face ((t (:foreground "spring green"))))
+     (gnus-header-subject-face ((t (:foreground "yellow" :bold t))))
+     (gnus-header-newsgroups-face ((t (:foreground "SeaGreen3" :bold t :italic t))))
+     (gnus-header-name-face ((t (:foreground "pink"))))
+     (gnus-header-content-face ((t (:foreground "lime green" :italic t))))
+     (gnus-cite-attribution-face ((t (:italic t))))
+     (gnus-cite-face-1 ((t (:foreground "light blue"))))
+     (gnus-cite-face-2 ((t (:foreground "light cyan"))))
+     (gnus-cite-face-3 ((t (:foreground "light yellow"))))
+     (gnus-cite-face-4 ((t (:foreground "light pink"))))
+     (gnus-cite-face-5 ((t (:foreground "pale green"))))
+     (gnus-cite-face-6 ((t (:foreground "beige"))))
+     (gnus-cite-face-7 ((t (:foreground "orange"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise")))))))
+
+(defun color-theme-sitaramv-nt ()
+  "Black foreground on white background.
+Includes faces for font-lock, widget, custom, speedbar."
+  (interactive)
+  (color-theme-install
+   '(color-theme-sitaramv-nt
+     ((foreground-color . "black")
+      (background-color . "white")
+      (mouse-color . "sienna3")
+      (cursor-color . "HotPink")
+      (border-color . "Blue")
+      (background-mode . light))
+     (default ((t (nil))))
+     (modeline ((t (:foreground "black" :background "gold2"))))
+     (modeline-buffer-id ((t (:foreground "black" :background "gold2"))))
+     (modeline-mousable ((t (:foreground "black" :background "gold2"))))
+     (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2"))))
+     (highlight ((t (:foreground "black" :background "darkseagreen2"))))
+     (bold ((t (:bold t))))
+     (italic ((t (:italic t))))
+     (bold-italic ((t (:bold t :italic t))))
+     (region ((t (:foreground "black" :background "snow3"))))
+     (secondary-selection ((t (:background "paleturquoise"))))
+     (underline ((t (:underline t))))
+     (lazy-highlight-face ((t (:foreground "dark magenta" :bold t))))
+     (font-lock-comment-face ((t (:foreground "ForestGreen" :italic t))))
+     (font-lock-string-face ((t (:foreground "red"))))
+     (font-lock-keyword-face ((t (:foreground "blue" :bold t))))
+     (font-lock-builtin-face ((t (:foreground "black"))))
+     (font-lock-function-name-face ((t (:foreground "dark magenta" :bold t))))
+     (font-lock-variable-name-face ((t (:foreground "black"))))
+     (font-lock-type-face ((t (:foreground "blue"))))
+     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+     (font-lock-warning-face ((t (:foreground "Red" :bold t))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-button-face ((t (:bold t))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-single-line-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
+     (custom-rogue-face ((t (:foreground "pink" :background "black"))))
+     (custom-modified-face ((t (:foreground "white" :background "blue"))))
+     (custom-set-face ((t (:foreground "blue" :background "white"))))
+     (custom-changed-face ((t (:foreground "white" :background "blue"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-button-face ((t (nil))))
+     (custom-documentation-face ((t (nil))))
+     (custom-state-face ((t (:foreground "dark green"))))
+     (custom-variable-tag-face ((t (:foreground "blue" :underline t))))
+     (custom-variable-button-face ((t (:bold t :underline t))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face-1 ((t (:foreground "red" :underline t))))
+     (custom-group-tag-face ((t (:foreground "blue" :underline t))))
+     (speedbar-button-face ((t (:foreground "green4"))))
+     (speedbar-file-face ((t (:foreground "cyan4"))))
+     (speedbar-directory-face ((t (:foreground "blue4"))))
+     (speedbar-tag-face ((t (:foreground "brown"))))
+     (speedbar-selected-face ((t (:foreground "red" :underline t))))
+     (speedbar-highlight-face ((t (:background "green"))))
+     (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t))))
+     (show-paren-match-face ((t (:background "light blue"))))
+     (show-paren-mismatch-face ((t (:foreground "white" :background "purple")))))))
+
+(defun color-theme-billw ()
+  "Cornsilk on black.
+Includes info, diary, font-lock, eshell, sgml, message, gnus,
+widget, custom, latex, ediff."
+  (interactive)
+  (color-theme-install
+   '(color-theme-billw
+     ((foreground-color . "cornsilk")
+      (background-color . "black")
+      (mouse-color . "black")
+      (cursor-color . "white")
+      (border-color . "black")
+      (background-mode . dark))
+     (default ((t (nil))))
+     (modeline ((t (:foreground "black" :background "wheat"))))
+     (modeline-buffer-id ((t (:foreground "black" :background "wheat"))))
+     (modeline-mousable ((t (:foreground "black" :background "wheat"))))
+     (modeline-mousable-minor-mode ((t (:foreground "black" :background "wheat"))))
+     (highlight ((t (:foreground "wheat" :background "darkslategray"))))
+     (bold ((t (:bold t))))
+     (italic ((t (:italic t))))
+     (bold-italic ((t (:bold t :italic t))))
+     (region ((t (:background "dimgray"))))
+     (secondary-selection ((t (:background "deepskyblue4"))))
+     (underline ((t (:underline t))))
+     (info-node ((t (:foreground "yellow" :bold t :italic t))))
+     (info-menu-5 ((t (:underline t))))
+     (info-xref ((t (:foreground "yellow" :bold t))))
+     (diary-face ((t (:foreground "orange"))))
+     (calendar-today-face ((t (:underline t))))
+     (holiday-face ((t (:background "red"))))
+     (show-paren-match-face ((t (:background "deepskyblue4"))))
+     (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
+     (font-lock-comment-face ((t (:foreground "gold"))))
+     (font-lock-string-face ((t (:foreground "orange"))))
+     (font-lock-keyword-face ((t (:foreground "cyan1"))))
+     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+     (font-lock-function-name-face ((t (:foreground "mediumspringgreen"))))
+     (font-lock-variable-name-face ((t (:foreground "light salmon"))))
+     (font-lock-type-face ((t (:foreground "yellow1"))))
+     (font-lock-constant-face ((t (:foreground "salmon"))))
+     (font-lock-warning-face ((t (:foreground "gold" :bold t))))
+     (blank-space-face ((t (:background "LightGray"))))
+     (blank-tab-face ((t (:foreground "black" :background "cornsilk"))))
+     (highline-face ((t (:background "gray35"))))
+     (eshell-ls-directory-face ((t (:foreground "green" :bold t))))
+     (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t))))
+     (eshell-ls-executable-face ((t (:foreground "orange" :bold t))))
+     (eshell-ls-readonly-face ((t (:foreground "gray"))))
+     (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
+     (eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
+     (eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
+     (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
+     (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
+     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
+     (eshell-ls-clutter-face ((t (:foreground "blue" :bold t))))
+     (sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
+     (custom-button-face ((t (:foreground "white"))))
+     (sgml-ignored-face ((t (:foreground "gray20" :background "gray60"))))
+     (sgml-doctype-face ((t (:foreground "orange"))))
+     (sgml-sgml-face ((t (:foreground "yellow"))))
+     (vc-annotate-face-0046FF ((t (:foreground "wheat" :background "black"))))
+     (custom-documentation-face ((t (:foreground "white"))))
+     (sgml-end-tag-face ((t (:foreground "greenyellow"))))
+     (linemenu-face ((t (:background "gray30"))))
+     (sgml-entity-face ((t (:foreground "gold"))))
+     (message-header-to-face ((t (:foreground "floral white" :bold t))))
+     (message-header-cc-face ((t (:foreground "ivory"))))
+     (message-header-subject-face ((t (:foreground "papaya whip" :bold t))))
+     (message-header-newsgroups-face ((t (:foreground "lavender blush" :bold t :italic t))))
+     (message-header-other-face ((t (:foreground "pale turquoise"))))
+     (message-header-name-face ((t (:foreground "light sky blue"))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-separator-face ((t (:foreground "sandy brown"))))
+     (message-cited-text-face ((t (:foreground "plum1"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (gnus-group-news-1-face ((t (:foreground "white" :bold t))))
+     (gnus-group-news-1-empty-face ((t (:foreground "white"))))
+     (gnus-group-news-2-face ((t (:foreground "lightcyan" :bold t))))
+     (gnus-group-news-2-empty-face ((t (:foreground "lightcyan"))))
+     (gnus-group-news-3-face ((t (:foreground "tan" :bold t))))
+     (gnus-group-news-3-empty-face ((t (:foreground "tan"))))
+     (gnus-group-news-4-face ((t (:foreground "white" :bold t))))
+     (gnus-group-news-4-empty-face ((t (:foreground "white"))))
+     (gnus-group-news-5-face ((t (:foreground "wheat" :bold t))))
+     (gnus-group-news-5-empty-face ((t (:foreground "wheat"))))
+     (gnus-group-news-6-face ((t (:foreground "tan" :bold t))))
+     (gnus-group-news-6-empty-face ((t (:foreground "tan"))))
+     (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+     (gnus-group-mail-1-face ((t (:foreground "white" :bold t))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "gray80"))))
+     (gnus-group-mail-2-face ((t (:foreground "lightcyan" :bold t))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "lightcyan"))))
+     (gnus-group-mail-3-face ((t (:foreground "tan" :bold t))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "tan"))))
+     (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+     (gnus-summary-selected-face ((t (:background "deepskyblue4" :underline t))))
+     (gnus-summary-cancelled-face ((t (:foreground "black" :background "gray"))))
+     (gnus-summary-high-ticked-face ((t (:foreground "gray70" :bold t))))
+     (gnus-summary-low-ticked-face ((t (:foreground "gray70" :bold t))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "gray70" :bold t))))
+     (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t))))
+     (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+     (gnus-summary-high-unread-face ((t (:bold t))))
+     (gnus-summary-low-unread-face ((t (:italic t))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t))))
+     (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t))))
+     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+     (gnus-splash-face ((t (:foreground "gold"))))
+     (font-latex-bold-face ((t (nil))))
+     (font-latex-italic-face ((t (nil))))
+     (font-latex-math-face ((t (nil))))
+     (font-latex-sedate-face ((t (:foreground "Gray85"))))
+     (font-latex-string-face ((t (:foreground "orange"))))
+     (font-latex-warning-face ((t (:foreground "gold"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-button-face ((t (:bold t))))
+     (widget-field-face ((t (:background "gray20"))))
+     (widget-single-line-field-face ((t (:background "gray20"))))
+     (widget-inactive-face ((t (:foreground "wheat"))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
+     (custom-rogue-face ((t (:foreground "pink" :background "black"))))
+     (custom-modified-face ((t (:foreground "white" :background "blue"))))
+     (custom-set-face ((t (:foreground "blue"))))
+     (custom-changed-face ((t (:foreground "wheat" :background "skyblue"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-state-face ((t (:foreground "light green"))))
+     (custom-variable-tag-face ((t (:foreground "skyblue" :underline t))))
+     (custom-variable-button-face ((t (:bold t :underline t))))
+     (custom-face-tag-face ((t (:foreground "white" :underline t))))
+     (custom-group-tag-face-1 ((t (:foreground "pink" :underline t))))
+     (custom-group-tag-face ((t (:foreground "skyblue" :underline t))))
+     (swbuff-current-buffer-face ((t (:foreground "red" :bold t))))
+     (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green"))))
+     (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow"))))
+     (ediff-current-diff-face-C ((t (:foreground "white" :background "indianred"))))
+     (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed"))))
+     (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue"))))
+     (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan"))))
+     (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise"))))
+     (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green"))))
+     (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey"))))
+     (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey"))))
+     (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey"))))
+     (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey"))))
+     (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey"))))
+     (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey"))))
+     (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey"))))
+     (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey"))))
+     (gnus-emphasis-bold ((t (:bold t))))
+     (gnus-emphasis-italic ((t (:italic t))))
+     (gnus-emphasis-underline ((t (:foreground "white" :background "goldenrod4"))))
+     (gnus-emphasis-underline-bold ((t (:foreground "black" :background "yellow" :bold t :underline t))))
+     (gnus-emphasis-underline-italic ((t (:foreground "black" :background "yellow" :italic t :underline t))))
+     (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
+     (gnus-emphasis-underline-bold-italic ((t (:foreground "black" :background "yellow" :bold t :italic t :underline t))))
+     (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
+     (gnus-signature-face ((t (:italic t))))
+     (gnus-header-from-face ((t (:foreground "wheat"))))
+     (gnus-header-subject-face ((t (:foreground "wheat" :bold t))))
+     (gnus-header-newsgroups-face ((t (:foreground "wheat" :italic t))))
+     (gnus-header-name-face ((t (:foreground "white"))))
+     (gnus-header-content-face ((t (:foreground "tan" :italic t))))
+     (gnus-filterhist-face-1 ((t (nil))))
+     (gnus-splash ((t (:foreground "Brown"))))
+     (gnus-cite-attribution-face ((t (:italic t))))
+     (gnus-cite-face-1 ((t (:foreground "light blue"))))
+     (gnus-cite-face-2 ((t (:foreground "light cyan"))))
+     (gnus-cite-face-3 ((t (:foreground "light yellow"))))
+     (gnus-cite-face-4 ((t (:foreground "light pink"))))
+     (gnus-cite-face-5 ((t (:foreground "pale green"))))
+     (gnus-cite-face-6 ((t (:foreground "beige"))))
+     (gnus-cite-face-7 ((t (:foreground "orange"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise")))))))
+
+(defun color-theme-retro-green (&optional color func)
+  "Plain green on black faces for those longing for the good old days."
+  (interactive)
+  ;; Build a list of faces without parameters
+  (let ((old-faces (face-list))
+	(faces)
+	(face)
+	(foreground (or color "green")))
+    (dolist (face old-faces)
+      (cond ((memq face '(bold bold-italic))
+	     (add-to-list 'faces `(,face (( t (:bold t))))))
+	    ((memq face '(italic underline show-paren-mismatch-face))
+	     (add-to-list 'faces `(,face (( t (:underline t))))))
+	    ((memq face '(modeline modeline-buffer-id modeline-mousable
+			  modeline-mousable-minor-mode highlight region
+			  secondary-selection show-paren-match-face))
+	     (add-to-list 'faces `(,face (( t (:foreground "black"
+					       :background ,foreground
+					       :inverse t))))))
+	    (t
+	     (add-to-list 'faces `(,face (( t (nil))))))))
+    (color-theme-install
+     (append
+      (list (or func 'color-theme-retro-green)
+	    (list (cons 'foreground-color foreground)
+		  (cons 'background-color "black")
+		  (cons 'mouse-color foreground)
+		  (cons 'cursor-color foreground)
+		  (cons 'border-color foreground)
+		  (cons 'background-mode 'dark)))
+      faces))))
+
+(defun color-theme-retro-orange ()
+  "Plain orange on black faces for those longing for the good old days."
+  (interactive)
+  (color-theme-retro-green "orange" 'color-theme-retro-orange))
+
+(defun color-theme-subtle-hacker ()
+  "Subtle Hacker Color Theme.
+Based on gnome2, but uses white for important things like comments,
+and less of the unreadable tomato.  By Colin Walters <levanti@verbum.org>"
+  (interactive)
+  (color-theme-gnome2)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-install
+     '(color-theme-subtle-hacker
+       nil
+       nil
+       (custom-state-face ((t (:foreground "Coral"))))
+       (diary-face ((t (:bold t :foreground "IndianRed"))))
+       (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray"))))
+       (eshell-ls-executable-face ((t (:bold t :foreground "Coral"))))
+       (eshell-ls-missing-face ((t (:bold t :foreground "black"))))
+       (eshell-ls-special-face ((t (:bold t :foreground "Gold"))))
+       (eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
+       (font-lock-comment-face ((t (:foreground "White"))))
+       (font-lock-constant-face ((t (:bold t :foreground "Aquamarine"))))
+       (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue"))))
+       (font-lock-string-face ((t (:italic t :foreground "LightSalmon"))))
+       (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine"))))
+       (gnus-cite-face-1 ((t (:foreground "dark khaki"))))
+       (gnus-cite-face-2 ((t (:foreground "chocolate"))))
+       (gnus-cite-face-3 ((t (:foreground "tomato"))))
+       (gnus-group-mail-1-empty-face ((t (:foreground "light cyan"))))
+       (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
+       (gnus-group-mail-2-empty-face ((t (:foreground "turquoise"))))
+       (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
+       (gnus-group-mail-3-empty-face ((t (:foreground "tomato"))))
+       (gnus-group-mail-3-face ((t (:bold t :foreground "tomato"))))
+       (gnus-group-mail-low-empty-face ((t (:foreground "dodger blue"))))
+       (gnus-group-mail-low-face ((t (:bold t :foreground "dodger blue"))))
+       (gnus-group-news-1-empty-face ((t (:foreground "green yellow"))))
+       (gnus-group-news-1-face ((t (:bold t :foreground "green yellow"))))
+       (gnus-group-news-2-empty-face ((t (:foreground "dark orange"))))
+       (gnus-group-news-2-face ((t (:bold t :foreground "dark orange"))))
+       (gnus-group-news-3-empty-face ((t (:foreground "tomato"))))
+       (gnus-group-news-3-face ((t (:bold t :foreground "tomato"))))
+       (gnus-group-news-low-empty-face ((t (:foreground "yellow green"))))
+       (gnus-group-news-low-face ((t (:bold t :foreground "yellow green"))))
+       (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1"))))
+       (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
+       (gnus-signature-face ((t (:foreground "salmon"))))
+       (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+       (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+       (gnus-summary-high-read-face ((t (:bold t :foreground "forest green"))))
+       (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood"))))
+       (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "cyan"))))
+       (gnus-summary-low-ancient-face ((t (:italic t :foreground "chocolate"))))
+       (gnus-summary-low-read-face ((t (:foreground "light sea green"))))
+       (gnus-summary-low-ticked-face ((t (:italic t :foreground "chocolate"))))
+       (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green"))))
+       (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+       (gnus-summary-normal-read-face ((t (:foreground "khaki"))))
+       (gnus-summary-normal-ticked-face ((t (:foreground "sandy brown"))))
+       (gnus-summary-normal-unread-face ((t (:foreground "aquamarine"))))
+       (message-cited-text-face ((t (:foreground "White"))))
+       (message-header-name-face ((t (:foreground "DodgerBlue1"))))
+       (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
+       (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
+       (message-header-xheader-face ((t (:foreground "DodgerBlue3"))))))))
+
+(defun color-theme-pok-wog ()
+  "Low-contrast White-on-Gray by S.Pokrovsky.
+
+The following might be a good addition to your .Xdefaults file:
+
+Emacs.pane.menubar.background: darkGrey
+Emacs.pane.menubar.foreground: black"
+  (interactive)
+  (color-theme-install
+   '(color-theme-pok-wog
+     ((foreground-color . "White")
+      (background-color . "DarkSlateGray")
+      (mouse-color . "gold")
+      (cursor-color . "Cyan")
+      (border-color . "black")
+      (background-mode . dark))
+     (default ((t (nil))))
+     (bold ((t (:bold t :foreground "Wheat"))))
+     (bold-italic ((t (:italic t :bold t :foreground "wheat"))))
+     (calendar-today-face ((t (:underline t :foreground "white"))))
+     (diary-face ((t (:foreground "red"))))
+     (font-lock-builtin-face ((t (:bold t :foreground "cyan"))))
+     (font-lock-comment-face ((t (:foreground "Gold"))))
+     (font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "Yellow"))))
+     (font-lock-keyword-face ((t (:bold t :foreground "Cyan"))))
+     (font-lock-string-face ((t (:foreground "Khaki"))))
+     (font-lock-type-face ((t (:bold t :foreground "Cyan"))))
+     (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+     (gnus-cite-attribution-face ((t (:bold t :foreground "Wheat"))))
+     (gnus-cite-face-1 ((t (:foreground "wheat"))))
+     (gnus-cite-face-10 ((t (:foreground "wheat"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:foreground "cyan"))))
+     (gnus-cite-face-3 ((t (:foreground "light yellow"))))
+     (gnus-cite-face-4 ((t (:foreground "light pink"))))
+     (gnus-cite-face-5 ((t (:foreground "pale green"))))
+     (gnus-cite-face-6 ((t (:foreground "beige"))))
+     (gnus-cite-face-7 ((t (:foreground "orange"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t :foreground "wheat"))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (:italic t :foreground "white"))))
+     (gnus-emphasis-underline ((t (:underline t :foreground "white"))))
+     (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "wheat"))))
+     (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+     (gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white"))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "Salmon"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "gold"))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "Wheat"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
+     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t :foreground "Wheat"))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
+     (gnus-header-content-face ((t (:italic t :foreground "Wheat"))))
+     (gnus-header-from-face ((t (:foreground "light yellow"))))
+     (gnus-header-name-face ((t (:foreground "cyan"))))
+     (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow"))))
+     (gnus-header-subject-face ((t (:bold t :foreground "Gold"))))
+     (gnus-signature-face ((t (:italic t :foreground "wheat"))))
+     (gnus-splash-face ((t (:foreground "orange"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
+     (gnus-summary-high-unread-face ((t (:bold t :foreground "gold"))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
+     (gnus-summary-low-unread-face ((t (:italic t))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+     (gnus-summary-normal-unread-face ((t (:foreground "wheat"))))
+     (gnus-summary-selected-face ((t (:underline t :foreground "white"))))
+     (highlight ((t (:background "Blue" :foreground "white"))))
+     (highline-face ((t (:background "black" :foreground "white"))))
+     (holiday-face ((t (:background "pink" :foreground "white"))))
+     (info-menu-5 ((t (:underline t))))
+     (info-node ((t (:italic t :bold t :foreground "white"))))
+     (info-xref ((t (:bold t :foreground "wheat"))))
+     (italic ((t (:italic t :foreground "white"))))
+     (makefile-space-face ((t (:background "hotpink"))))
+     (message-cited-text-face ((t (:foreground "green"))))
+     (message-header-cc-face ((t (:bold t :foreground "Aquamarine"))))
+     (message-header-name-face ((t (:foreground "Gold"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
+     (message-header-other-face ((t (:foreground "lightGray"))))
+     (message-header-subject-face ((t (:foreground "Yellow"))))
+     (message-header-to-face ((t (:bold t :foreground "green2"))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-mml-face ((t (:bold t :foreground "khaki"))))
+     (message-separator-face ((t (:background "aquamarine" :foreground "black"))))
+     (modeline ((t (:background "DarkGray" :foreground "Black"))))
+     (modeline-buffer-id ((t (:background "DarkGray" :foreground "Black"))))
+     (modeline-mousable ((t (:background "DarkGray" :foreground "Black"))))
+     (modeline-mousable-minor-mode ((t (:background "DarkGray" :foreground "Black"))))
+     (paren-mismatch-face ((t (:background "DeepPink" :foreground "white"))))
+     (paren-no-match-face ((t (:background "yellow" :foreground "white"))))
+     (region ((t (:background "MediumSlateBlue" :foreground "white"))))
+     (secondary-selection ((t (:background "Sienna" :foreground "white"))))
+     (show-paren-match-face ((t (:background "turquoise" :foreground "white"))))
+     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+     (speedbar-button-face ((t (:bold t :foreground "magenta"))))
+     (speedbar-directory-face ((t (:bold t :foreground "orchid"))))
+     (speedbar-file-face ((t (:foreground "pink"))))
+     (speedbar-highlight-face ((t (:background "black"))))
+     (speedbar-selected-face ((t (:underline t :foreground "cyan"))))
+     (speedbar-tag-face ((t (:foreground "yellow"))))
+     (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
+     (underline ((t (:underline t :foreground "white"))))
+     (widget-button-face ((t (:bold t :foreground "wheat"))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-field-face ((t (:background "dim gray" :foreground "white"))))
+     (widget-inactive-face ((t (:foreground "light gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))))))
+
+(defun color-theme-pok-wob ()
+  "White-on-Black by S. Pokrovsky.
+
+The following might be a good addition to your .Xdefaults file:
+
+Emacs.pane.menubar.background: darkGrey
+Emacs.pane.menubar.foreground: black"
+  (interactive)
+;  (setq term-default-fg-color "white"
+;	 term-default-bg "black")
+  (color-theme-install
+   '(color-theme-pok-wob
+     ((foreground-color . "white")
+      (background-color . "black")
+      (mouse-color . "gold")
+      (cursor-color . "yellow")
+      (border-color . "black")
+      (background-mode . dark))
+   (default ((t (nil))))
+   (bold ((t (:bold t :foreground "light gray"))))
+   (bold-italic ((t (:italic t :bold t :foreground "cyan"))))
+   (calendar-today-face ((t (:underline t :foreground "white"))))
+   (custom-button-face ((t (nil))))
+   (custom-changed-face ((t (:background "blue" :foreground "white"))))
+   (custom-documentation-face ((t (nil))))
+   (custom-face-tag-face ((t (:underline t))))
+   (custom-group-tag-face ((t (:underline t))))
+   (custom-group-tag-face-1 ((t (:underline t))))
+   (custom-invalid-face ((t (:background "red" :foreground "white"))))
+   (custom-modified-face ((t (:background "blue" :foreground "white"))))
+   (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+   (custom-saved-face ((t (:underline t))))
+   (custom-set-face ((t (:background "white" :foreground "blue"))))
+   (custom-state-face ((t (nil))))
+   (custom-variable-button-face ((t (:underline t :bold t))))
+   (custom-variable-tag-face ((t (:underline t))))
+   (diary-face ((t (:foreground "gold"))))
+   (font-lock-builtin-face ((t (:bold t :foreground "cyan"))))
+   (font-lock-comment-face ((t (:foreground "Gold"))))
+   (font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue"))))
+   (font-lock-function-name-face ((t (:bold t :foreground "gold"))))
+   (font-lock-keyword-face ((t (:bold t :foreground "Cyan"))))
+   (font-lock-string-face ((t (:foreground "Khaki"))))
+   (font-lock-type-face ((t (:bold t :foreground "Cyan"))))
+   (font-lock-variable-name-face ((t (:italic t :foreground "gold"))))
+   (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+   (gnus-cite-attribution-face ((t (:underline t :foreground "beige"))))
+   (gnus-cite-face-1 ((t (:foreground "gold"))))
+   (gnus-cite-face-10 ((t (:foreground "coral"))))
+   (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+   (gnus-cite-face-2 ((t (:foreground "wheat"))))
+   (gnus-cite-face-3 ((t (:foreground "light pink"))))
+   (gnus-cite-face-4 ((t (:foreground "khaki"))))
+   (gnus-cite-face-5 ((t (:foreground "pale green"))))
+   (gnus-cite-face-6 ((t (:foreground "beige"))))
+   (gnus-cite-face-7 ((t (:foreground "orange"))))
+   (gnus-cite-face-8 ((t (:foreground "magenta"))))
+   (gnus-cite-face-9 ((t (:foreground "violet"))))
+   (gnus-emphasis-bold ((t (:bold t :foreground "light gray"))))
+   (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan"))))
+   (gnus-emphasis-highlight-words ((t (:background "black" :foreground "gold"))))
+   (gnus-emphasis-italic ((t (:italic t :foreground "cyan"))))
+   (gnus-emphasis-underline ((t (:underline t :foreground "white"))))
+   (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "white"))))
+   (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "white"))))
+   (gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white"))))
+   (gnus-group-mail-1-empty-face ((t (:foreground "Magenta"))))
+   (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta"))))
+   (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+   (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
+   (gnus-group-mail-3-empty-face ((t (:foreground "Cyan"))))
+   (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan"))))
+   (gnus-group-mail-low-empty-face ((t (:foreground "Wheat"))))
+   (gnus-group-mail-low-face ((t (:foreground "aquamarine4"))))
+   (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+   (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
+   (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+   (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
+   (gnus-group-news-3-empty-face ((t (:foreground "wheat"))))
+   (gnus-group-news-3-face ((t (:bold t :foreground "Wheat"))))
+   (gnus-group-news-4-empty-face ((t (nil))))
+   (gnus-group-news-4-face ((t (:bold t))))
+   (gnus-group-news-5-empty-face ((t (nil))))
+   (gnus-group-news-5-face ((t (:bold t))))
+   (gnus-group-news-6-empty-face ((t (nil))))
+   (gnus-group-news-6-face ((t (:bold t))))
+   (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
+   (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine"))))
+   (gnus-header-content-face ((t (:italic t :foreground "Wheat"))))
+   (gnus-header-from-face ((t (:foreground "light yellow"))))
+   (gnus-header-name-face ((t (:foreground "Wheat"))))
+   (gnus-header-newsgroups-face ((t (:italic t :foreground "gold"))))
+   (gnus-header-subject-face ((t (:bold t :foreground "Gold"))))
+   (gnus-signature-face ((t (:italic t :foreground "white"))))
+   (gnus-splash-face ((t (:foreground "orange"))))
+   (gnus-summary-cancelled-face ((t (:background "black" :foreground "orange"))))
+   (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
+   (gnus-summary-high-read-face ((t (:bold t :foreground "red"))))
+   (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral"))))
+   (gnus-summary-high-unread-face ((t (:bold t :foreground "gold"))))
+   (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
+   (gnus-summary-low-read-face ((t (:italic t :foreground "red"))))
+   (gnus-summary-low-ticked-face ((t (:italic t :foreground "coral"))))
+   (gnus-summary-low-unread-face ((t (:italic t :foreground "white"))))
+   (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+   (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+   (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+   (gnus-summary-normal-unread-face ((t (:foreground "white"))))
+   (gnus-summary-selected-face ((t (:underline t :foreground "white"))))
+   (highlight ((t (:background "Blue" :foreground "white"))))
+   (highline-face ((t (:background "dark slate gray" :foreground "white"))))
+   (holiday-face ((t (:background "red" :foreground "white"))))
+   (info-menu-5 ((t (:underline t))))
+   (info-node ((t (:italic t :bold t :foreground "white"))))
+   (info-xref ((t (:bold t :foreground "light gray"))))
+   (italic ((t (:italic t :foreground "cyan"))))
+   (makefile-space-face ((t (:background "hotpink" :foreground "white"))))
+   (message-cited-text-face ((t (:foreground "green"))))
+   (message-header-cc-face ((t (:bold t :foreground "Aquamarine"))))
+   (message-header-name-face ((t (:foreground "Gold"))))
+   (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold"))))
+   (message-header-other-face ((t (:foreground "lightGray"))))
+   (message-header-subject-face ((t (:foreground "Yellow"))))
+   (message-header-to-face ((t (:bold t :foreground "green2"))))
+   (message-header-xheader-face ((t (:foreground "sky blue"))))
+   (message-mml-face ((t (:bold t :foreground "khaki"))))
+   (message-separator-face ((t (:background "aquamarine" :foreground "black"))))
+   (modeline ((t (:background "dark gray" :foreground "black"))))
+   (modeline-buffer-id ((t (:background "dark gray" :foreground "black"))))
+   (modeline-mousable ((t (:background "dark gray" :foreground "black"))))
+   (modeline-mousable-minor-mode ((t (:background "dark gray" :foreground "black"))))
+   (paren-mismatch-face ((t (:bold t :background "white" :foreground "red"))))
+   (paren-no-match-face ((t (:bold t :background "white" :foreground "red"))))
+   (region ((t (:background "MediumSlateBlue" :foreground "white"))))
+   (secondary-selection ((t (:background "Sienna" :foreground "white"))))
+   (show-paren-match-face ((t (:background "purple" :foreground "white"))))
+   (show-paren-mismatch-face ((t (:bold t :background "white" :foreground "red"))))
+   (speedbar-button-face ((t (nil))))
+   (speedbar-directory-face ((t (nil))))
+   (speedbar-file-face ((t (:bold t))))
+   (speedbar-highlight-face ((t (nil))))
+   (speedbar-selected-face ((t (:underline t))))
+   (speedbar-tag-face ((t (nil))))
+   (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
+   (underline ((t (:underline t :foreground "white"))))
+   (widget-button-face ((t (:bold t :foreground "coral"))))
+   (widget-button-pressed-face ((t (:foreground "red"))))
+   (widget-documentation-face ((t (:foreground "lime green"))))
+   (widget-field-face ((t (:background "dim gray" :foreground "white"))))
+   (widget-inactive-face ((t (:foreground "light gray"))))
+   (widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))))))
+
+(defun color-theme-blue-sea ()
+  "The grey on midnight blue theme.
+
+Includes faces for apropos, font-lock (Emacs and XEmacs), speedbar,
+custom, widget, info, flyspell, gnus, message, man, woman, dired.
+
+This is what you should put in your .Xdefaults file, if you want to
+change the colors of the menus:
+
+emacs*Background:		DarkSlateGray
+emacs*Foreground:		Wheat"
+  (interactive)
+  (color-theme-blue-gnus)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-blue-erc)
+    (color-theme-install
+     '(color-theme-blue-sea
+       ((background-color . "MidnightBlue")
+	(background-mode . dark)
+	(border-color . "Grey")
+	(cursor-color . "Grey")
+	(foreground-color . "Grey")
+	(mouse-color . "Grey"))
+       ((Man-overstrike-face . woman-bold-face)
+	(Man-underline-face . woman-italic-face))
+       (default ((t (nil))))
+       (bold ((t (:bold t))))
+       (bold-italic ((t (:bold t :foreground "beige"))))
+       (calendar-today-face ((t (:underline t))))
+       (cperl-array-face ((t (:foreground "light salmon" :bold t))))
+       (cperl-hash-face ((t (:foreground "beige" :bold t :italic t))))
+       (cperl-nonoverridable-face ((t (:foreground "aquamarine"))))
+       (custom-button-face ((t (:foreground "gainsboro"))))
+       (custom-changed-face ((t (:foreground "white" :background "blue"))))
+       (custom-documentation-face ((t (:foreground "light blue"))))
+       (custom-face-tag-face ((t (:underline t))))
+       (custom-group-tag-face ((t (:foreground "pale turquoise" :bold t))))
+       (custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t))))
+       (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
+       (custom-modified-face ((t (:foreground "white" :background "blue"))))
+       (custom-rogue-face ((t (:foreground "pink" :background "black"))))
+       (custom-saved-face ((t (:underline t))))
+       (custom-set-face ((t (:foreground "blue" :background "white"))))
+       (custom-state-face ((t (:foreground "light salmon"))))
+       (custom-variable-button-face ((t (:bold t :underline t))))
+       (custom-variable-tag-face ((t (:foreground "turquoise" :bold t))))
+       (diary-face ((t (:foreground "red"))))
+       (dired-face-directory ((t (:bold t :foreground "sky blue"))))
+       (dired-face-permissions ((t (:foreground "aquamarine"))))
+       (dired-face-flagged ((t (:foreground "tomato"))))
+       (dired-face-marked ((t (:foreground "light salmon"))))
+       (dired-face-executable ((t (:foreground "green yellow"))))
+       (eshell-ls-archive-face ((t (:bold t :foreground "medium purple"))))
+       (eshell-ls-backup-face ((t (:foreground "dim gray"))))
+       (eshell-ls-clutter-face ((t (:foreground "dim gray"))))
+       (eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue"))))
+       (eshell-ls-executable-face ((t (:bold t :foreground "aquamarine"))))
+       (eshell-ls-missing-face ((t (:foreground "black"))))
+       (eshell-ls-picture-face ((t (:foreground "violet"))))
+       (eshell-ls-product-face ((t (:foreground "light steel blue"))))
+       (eshell-ls-readonly-face ((t (:foreground "aquamarine"))))
+       (eshell-ls-special-face ((t (:foreground "gold"))))
+       (eshell-ls-symlink-face ((t (:foreground "white"))))
+       (eshell-ls-unreadable-face ((t (:foreground "dim gray"))))
+       (eshell-prompt-face ((t (:foreground "light sky blue" :bold t))))
+       (excerpt ((t (:italic t))))
+       (fixed ((t (:bold t))))
+       (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t))))
+       (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t))))
+       (font-lock-builtin-face ((t (:foreground "aquamarine"))))
+       (font-lock-comment-face ((t (:foreground "light blue"))))
+       (font-lock-constant-face ((t (:foreground "pale green"))))
+       (font-lock-doc-string-face ((t (:foreground "sky blue"))))
+       (font-lock-function-name-face ((t (:bold t :foreground "aquamarine"))))
+       (font-lock-keyword-face ((t (:foreground "pale turquoise" :bold t))))
+       (font-lock-reference-face ((t (:foreground "pale green"))))
+       (font-lock-string-face ((t (:foreground "light sky blue"))))
+       (font-lock-type-face ((t (:foreground "sky blue" :bold t))))
+       (font-lock-variable-name-face ((t (:foreground "turquoise" :bold t))))
+       (font-lock-warning-face ((t (:foreground "Red" :bold t))))
+       (fringe ((t (:background "MidnightBlue"))))
+       (header-line ((t (:background "#002" :foreground "cornflower blue"))))
+       (highlight ((t (:background "dark slate blue" :foreground "light blue"))))
+       (highline-face ((t (:background "DeepSkyBlue4"))))
+       (holiday-face ((t (:background "pink"))))
+       (info-menu-5 ((t (:underline t))))
+       (info-node ((t (:bold t))))
+       (info-xref ((t (:bold t :foreground "sky blue"))))
+       (isearch ((t (:background "slate blue"))))
+       (italic ((t (:foreground "sky blue"))))
+       (makefile-space-face ((t (:background "hotpink"))))
+       (menu ((t (:background "MidnightBlue" :foreground "Grey"))))
+       (modeline ((t (:foreground "wheat" :background "slate blue"))))
+       (mode-line-inactive ((t (:background "dark slate blue" :foreground "wheat"))))
+       (modeline-buffer-id ((t (:foreground "beige" :background "slate blue"))))
+       (modeline-mousable ((t (:foreground "light cyan" :background "slate blue"))))
+       (modeline-mousable-minor-mode ((t (:foreground "wheat" :background "slate blue"))))
+       (region ((t (:background "DarkSlateBlue"))))
+       (secondary-selection ((t (:background "steel blue"))))
+       (show-paren-match-face ((t (:foreground "white" :background "light slate blue"))))
+       (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
+       (speedbar-button-face ((t (:foreground "seashell2"))))
+       (speedbar-directory-face ((t (:foreground "seashell3"))))
+       (speedbar-file-face ((t (:foreground "seashell4"))))
+       (speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat"))))
+       (speedbar-selected-face ((t (:foreground "seashell1" :underline t))))
+       (speedbar-tag-face ((t (:foreground "antique white"))))
+       (tool-bar ((t (:background "MidnightBlue" :foreground "Grey" :box (:line-width 1 :style released-button)))))
+       (underline ((t (:underline t))))
+       (widget-button-face ((t (:bold t))))
+       (widget-button-pressed-face ((t (:foreground "red"))))
+       (widget-documentation-face ((t (:foreground "light blue"))))
+       (widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat"))))
+       (widget-inactive-face ((t (:foreground "dim gray"))))
+       (widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat"))))
+       (woman-bold-face ((t (:foreground "sky blue" :bold t))))
+       (woman-italic-face ((t (:foreground "deep sky blue"))))
+       (woman-unknown-face ((t (:foreground "LightSalmon"))))
+       (zmacs-region ((t (:background "DarkSlateBlue"))))))))
+
+(defun color-theme-rotor ()
+  "Black on Beige color theme by Jinwei Shen, created 2000-06-08.
+Supports default faces, font-lock, custom, widget, message, man,
+show-paren, viper."
+  (interactive)
+  (color-theme-install
+   '(color-theme-rotor
+     ((background-color . "Beige")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "Maroon")
+      (foreground-color . "Black")
+      (mouse-color . "Black"))
+     ((Man-overstrike-face . font-lock-function-name-face)
+      (Man-underline-face . font-lock-type-face)
+      (list-matching-lines-face . bold)
+      (rmail-highlight-face . font-lock-function-name-face)
+      (watson-attribution-face . italic)
+      (watson-url-face . bold)
+      (watson-url-mouse-face . highlight))
+    (default ((t (nil))))
+    (bold ((t (:bold t :background "grey40" :foreground "yellow"))))
+    (bold-italic ((t (:italic t :bold t :foreground "yellow green"))))
+    (custom-button-face ((t (nil))))
+    (custom-changed-face ((t (:background "blue" :foreground "white"))))
+    (custom-documentation-face ((t (nil))))
+    (custom-face-tag-face ((t (:underline t))))
+    (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+    (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+    (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+    (custom-modified-face ((t (:background "blue" :foreground "white"))))
+    (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+    (custom-saved-face ((t (:underline t))))
+    (custom-set-face ((t (:background "white" :foreground "blue"))))
+    (custom-state-face ((t (:foreground "dark green"))))
+    (custom-variable-button-face ((t (:underline t :bold t))))
+    (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+    (font-lock-builtin-face ((t (:foreground "Orchid"))))
+    (font-lock-comment-face ((t (:foreground "MediumBlue"))))
+    (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+    (font-lock-function-name-face ((t (:foreground "MediumSlateBlue"))))
+    (font-lock-keyword-face ((t (:foreground "#80a0ff"))))
+    (font-lock-string-face ((t (:foreground "red"))))
+    (font-lock-type-face ((t (:foreground "ForestGreen"))))
+    (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+    (highlight ((t (:background "PaleGreen" :foreground "black"))))
+    (italic ((t (:italic t :foreground "yellow3"))))
+    (message-cited-text-face ((t (:foreground "red"))))
+    (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+    (message-header-name-face ((t (:foreground "cornflower blue"))))
+    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
+    (message-header-other-face ((t (:foreground "steel blue"))))
+    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-separator-face ((t (:foreground "brown"))))
+    (modeline ((t (:background "wheat" :foreground "DarkOliveGreen"))))
+    (modeline-buffer-id ((t (:background "wheat" :foreground "DarkOliveGreen"))))
+    (modeline-mousable ((t (:background "wheat" :foreground "DarkOliveGreen"))))
+    (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "DarkOliveGreen"))))
+    (nil ((t (nil))))
+    (region ((t (:background "dark cyan" :foreground "cyan"))))
+    (secondary-selection ((t (:background "Turquoise" :foreground "black"))))
+    (show-paren-match-face ((t (:background "turquoise"))))
+    (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+    (underline ((t (:underline t))))
+    (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+    (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+    (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+    (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+    (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "red"))))
+    (widget-documentation-face ((t (:foreground "dark green"))))
+    (widget-field-face ((t (:background "gray85"))))
+    (widget-inactive-face ((t (:foreground "dim gray"))))
+    (widget-single-line-field-face ((t (:background "gray85")))))))
+
+(defun color-theme-pierson ()
+  "Black on White color theme by Dan L. Pierson, created 2000-06-08.
+Supports default faces, font-lock, show-paren."
+  (interactive)
+  (color-theme-install
+   '(color-theme-pierson
+     ((background-color . "AntiqueWhite")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "Orchid")
+      (foreground-color . "black")
+      (mouse-color . "Orchid"))
+     ((list-matching-lines-face . bold))
+    (default ((t (nil))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (font-lock-builtin-face ((t (:foreground "Orchid"))))
+    (font-lock-comment-face ((t (:foreground "ForestGreen"))))
+    (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+    (font-lock-function-name-face ((t (:foreground "blue3"))))
+    (font-lock-keyword-face ((t (:foreground "Blue"))))
+    (font-lock-string-face ((t (:foreground "Firebrick"))))
+    (font-lock-type-face ((t (:foreground "Purple"))))
+    (font-lock-variable-name-face ((t (:foreground "blue3"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+    (highlight ((t (:background "darkseagreen2"))))
+    (italic ((t (:italic t))))
+    (modeline ((t (:foreground "antiquewhite" :background "black"))))
+    (modeline-mousable-minor-mode ((t (:foreground "antiquewhite" :background "black"))))
+    (modeline-mousable ((t (:foreground "antiquewhite" :background "black"))))
+    (modeline-buffer-id ((t (:foreground "antiquewhite" :background "black"))))
+    (region ((t (:background "gray"))))
+    (secondary-selection ((t (:background "paleturquoise"))))
+    (show-paren-match-face ((t (:background "turquoise"))))
+    (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+    (underline ((t (:underline t)))))))
+
+(defun color-theme-xemacs ()
+  "XEmacs standard colors.
+If you are missing standard faces in this theme, please notify the maintainer.
+Currently, this theme includes the standard faces and font-lock faces, including
+some faces used in Emacs only but which are needed to recreate the look of the
+XEmacs color theme."
+  (interactive)
+  (color-theme-install
+   '(color-theme-xemacs
+     ((background-color . "gray80")
+      (background-mode . light)
+      (background-toolbar-color . "#cf3ccf3ccf3c")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#79e77df779e7")
+      (cursor-color . "Red3")
+      (foreground-color . "black")
+      (top-toolbar-shadow-color . "#fffffbeeffff"))
+    (default ((t (nil))))
+    (blue ((t (:foreground "blue"))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (border-glyph ((t (nil))))
+    (custom-button-face ((t (:bold t))))
+    (custom-changed-face ((t (:background "blue" :foreground "white"))))
+    (custom-documentation-face ((t (nil))))
+    (custom-face-tag-face ((t (:underline t))))
+    (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+    (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+    (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+    (custom-modified-face ((t (:background "blue" :foreground "white"))))
+    (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+    (custom-saved-face ((t (:underline t))))
+    (custom-set-face ((t (:background "white" :foreground "blue"))))
+    (custom-state-face ((t (:foreground "dark green"))))
+    (custom-variable-button-face ((t (:underline t :bold t))))
+    (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+    (dired-face-boring ((t (:foreground "Gray65"))))
+    (dired-face-directory ((t (:bold t))))
+    (dired-face-executable ((t (:foreground "SeaGreen"))))
+    (dired-face-flagged ((t (:background "LightSlateGray"))))
+    (dired-face-marked ((t (:background "PaleVioletRed"))))
+    (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
+    (dired-face-setuid ((t (:foreground "Red"))))
+    (dired-face-socket ((t (:foreground "magenta"))))
+    (dired-face-symlink ((t (:foreground "cyan"))))
+    (font-lock-builtin-face ((t (:foreground "red3"))))
+    (font-lock-comment-face ((t (:foreground "blue4"))))
+    (font-lock-constant-face ((t (:foreground "red3"))))
+    (font-lock-doc-string-face ((t (:foreground "green4"))))
+    (font-lock-function-name-face ((t (:foreground "brown4"))))
+    (font-lock-keyword-face ((t (:foreground "red4"))))
+    (font-lock-preprocessor-face ((t (:foreground "blue3"))))
+    (font-lock-reference-face ((t (:foreground "red3"))))
+    (font-lock-string-face ((t (:foreground "green4"))))
+    (font-lock-type-face ((t (:foreground "steelblue"))))
+    (font-lock-variable-name-face ((t (:foreground "magenta4"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+    (green ((t (:foreground "green"))))
+    (gui-button-face ((t (:background "grey75" :foreground "black"))))
+    (gui-element ((t (:background "Gray80"))))
+    (highlight ((t (:background "darkseagreen2"))))
+    (info-node ((t (:italic t :bold t))))
+    (info-xref ((t (:bold t))))
+    (isearch ((t (:background "paleturquoise"))))
+    (italic ((t (:italic t))))
+    (left-margin ((t (nil))))
+    (list-mode-item-selected ((t (:background "gray68"))))
+    (modeline ((t (:background "Gray80"))))
+    (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
+    (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
+    (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
+    (paren-blink-off ((t (:foreground "gray80"))))
+    (paren-match ((t (:background "darkseagreen2"))))
+    (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
+    (pointer ((t (nil))))
+    (primary-selection ((t (:background "gray65"))))
+    (red ((t (:foreground "red"))))
+    (region ((t (:background "gray65"))))
+    (right-margin ((t (nil))))
+    (secondary-selection ((t (:background "paleturquoise"))))
+    (text-cursor ((t (:background "Red3" :foreground "gray80"))))
+    (toolbar ((t (:background "Gray80"))))
+    (underline ((t (:underline t))))
+    (vertical-divider ((t (:background "Gray80"))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "red"))))
+    (widget-documentation-face ((t (:foreground "dark green"))))
+    (widget-field-face ((t (:background "gray85"))))
+    (widget-inactive-face ((t (:foreground "dim gray"))))
+    (yellow ((t (:foreground "yellow"))))
+    (zmacs-region ((t (:background "gray65")))))))
+
+(defun color-theme-jsc-light ()
+  "Color theme by John S Cooper, created 2000-06-08."
+  (interactive)
+  (color-theme-install
+   '(color-theme-jsc-light
+     ((background-color . "white")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "Red")
+      (foreground-color . "black")
+      (mouse-color . "black"))
+     ((gnus-mouse-face . highlight)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight))
+     (default ((t (nil))))
+    (bold ((t (:bold t :foreground "red3"))))
+    (bold-italic ((t (:italic t :bold t :foreground "red"))))
+    (custom-button-face ((t (nil))))
+    (custom-changed-face ((t (:background "blue" :foreground "white"))))
+    (custom-documentation-face ((t (nil))))
+    (custom-face-tag-face ((t (:underline t))))
+    (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+    (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+    (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+    (custom-modified-face ((t (:background "blue" :foreground "white"))))
+    (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+    (custom-saved-face ((t (:underline t))))
+    (custom-set-face ((t (:background "white" :foreground "blue"))))
+    (custom-state-face ((t (:foreground "dark green"))))
+    (custom-variable-button-face ((t (:underline t :bold t))))
+    (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+    (font-lock-builtin-face ((t (:foreground "Orchid"))))
+    (font-lock-comment-face ((t (:italic t :bold t :foreground "Red3"))))
+    (font-lock-constant-face ((t (:foreground "navy"))))
+    (font-lock-function-name-face ((t (:bold t :foreground "Blue"))))
+    (font-lock-keyword-face ((t (:bold t :foreground "Purple"))))
+    (font-lock-string-face ((t (:foreground "Green4"))))
+    (font-lock-type-face ((t (:foreground "Navy"))))
+    (font-lock-variable-name-face ((t (:foreground "Tan4"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+    (gnus-cite-attribution-face ((t (:italic t))))
+    (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+    (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+    (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+    (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+    (gnus-cite-face-3 ((t (:foreground "dark green"))))
+    (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+    (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+    (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+    (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+    (gnus-cite-face-8 ((t (:foreground "magenta"))))
+    (gnus-cite-face-9 ((t (:foreground "violet"))))
+    (gnus-emphasis-bold ((t (:bold t))))
+    (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+    (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+    (gnus-emphasis-italic ((t (:italic t))))
+    (gnus-emphasis-underline ((t (:underline t))))
+    (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+    (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+    (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+    (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+    (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+    (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+    (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+    (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+    (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+    (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+    (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+    (gnus-group-news-1-empty-face ((t (:foreground "blue2"))))
+    (gnus-group-news-1-face ((t (:bold t :foreground "blue2"))))
+    (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+    (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+    (gnus-group-news-3-empty-face ((t (nil))))
+    (gnus-group-news-3-face ((t (:bold t))))
+    (gnus-group-news-4-empty-face ((t (nil))))
+    (gnus-group-news-4-face ((t (:bold t))))
+    (gnus-group-news-5-empty-face ((t (nil))))
+    (gnus-group-news-5-face ((t (:bold t))))
+    (gnus-group-news-6-empty-face ((t (nil))))
+    (gnus-group-news-6-face ((t (:bold t))))
+    (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+    (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-header-content-face ((t (:italic t :foreground "blue"))))
+    (gnus-header-from-face ((t (:foreground "red3"))))
+    (gnus-header-name-face ((t (:foreground "red3"))))
+    (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
+    (gnus-header-subject-face ((t (:bold t :foreground "red"))))
+    (gnus-signature-face ((t (:foreground "pink"))))
+    (gnus-splash-face ((t (:foreground "Brown"))))
+    (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+    (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+    (gnus-summary-high-read-face ((t (:bold t :foreground "navy"))))
+    (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+    (gnus-summary-high-unread-face ((t (:bold t :foreground "blue"))))
+    (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
+    (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
+    (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
+    (gnus-summary-low-unread-face ((t (:italic t))))
+    (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+    (gnus-summary-normal-read-face ((t (:foreground "red3"))))
+    (gnus-summary-normal-ticked-face ((t (:foreground "black"))))
+    (gnus-summary-normal-unread-face ((t (:bold t :foreground "red3"))))
+    (gnus-summary-selected-face ((t (:underline t))))
+    (highlight ((t (:background "antiquewhite" :foreground "blue"))))
+    (italic ((t (:italic t))))
+    (makefile-space-face ((t (:background "hotpink"))))
+    (message-cited-text-face ((t (:foreground "red"))))
+    (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+    (message-header-name-face ((t (:foreground "cornflower blue"))))
+    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
+    (message-header-other-face ((t (:foreground "steel blue"))))
+    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-mml-face ((t (:foreground "ForestGreen"))))
+    (message-separator-face ((t (:foreground "brown"))))
+    (modeline ((t (:background "plum" :foreground "black"))))
+    (modeline-buffer-id ((t (:background "plum" :foreground "black"))))
+    (modeline-mousable ((t (:background "plum" :foreground "black"))))
+    (modeline-mousable-minor-mode ((t (:background "plum" :foreground "black"))))
+    (region ((t (:background "plum"))))
+    (secondary-selection ((t (:background "palegreen"))))
+    (show-paren-match-face ((t (:background "plum"))))
+    (show-paren-mismatch-face ((t (:background "navy" :foreground "white"))))
+    (speedbar-button-face ((t (:foreground "green4"))))
+    (speedbar-directory-face ((t (:foreground "blue4"))))
+    (speedbar-file-face ((t (:foreground "cyan4"))))
+    (speedbar-highlight-face ((t (:background "green"))))
+    (speedbar-selected-face ((t (:underline t :foreground "red"))))
+    (speedbar-tag-face ((t (:foreground "brown"))))
+    (underline ((t (:underline t))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "red"))))
+    (widget-documentation-face ((t (:foreground "dark green"))))
+    (widget-field-face ((t (:background "gray85"))))
+    (widget-inactive-face ((t (:foreground "dim gray"))))
+    (widget-single-line-field-face ((t (:background "gray85")))))))
+
+(defun color-theme-jsc-dark ()
+  "Color theme by John S Cooper, created 2000-06-11."
+  (interactive)
+  (color-theme-install
+   '(color-theme-jsc-dark
+     ((background-color . "black")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "white")
+      (foreground-color . "cornsilk")
+      (mouse-color . "black"))
+     ((gnus-mouse-face . highlight)
+      (goto-address-mail-face . italic)
+      (goto-address-mail-mouse-face . secondary-selection)
+      (goto-address-url-face . bold)
+      (goto-address-url-mouse-face . highlight)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight))
+    (blank-space-face ((t (:background "LightGray"))))
+    (blank-tab-face ((t (:background "cornsilk" :foreground "black"))))
+    (default ((t (nil))))
+    (bold ((t (:bold t :foreground "white"))))
+    (bold-italic ((t (:italic t :bold t))))
+    (calendar-today-face ((t (:underline t))))
+    (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
+    (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
+    (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+    (custom-button-face ((t (:foreground "white"))))
+    (custom-changed-face ((t (:background "skyblue" :foreground "wheat"))))
+    (custom-documentation-face ((t (:foreground "white"))))
+    (custom-face-tag-face ((t (:underline t :foreground "white"))))
+    (custom-group-tag-face ((t (:underline t :foreground "skyblue"))))
+    (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
+    (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+    (custom-modified-face ((t (:background "blue" :foreground "white"))))
+    (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+    (custom-saved-face ((t (:underline t))))
+    (custom-set-face ((t (:foreground "blue"))))
+    (custom-state-face ((t (:foreground "light green"))))
+    (custom-variable-button-face ((t (:underline t :bold t))))
+    (custom-variable-tag-face ((t (:underline t :foreground "skyblue"))))
+    (diary-face ((t (:bold t :foreground "orange"))))
+    (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue"))))
+    (font-lock-comment-face ((t (:italic t :foreground "red"))))
+    (font-lock-constant-face ((t (:bold t :foreground "salmon"))))
+    (font-lock-function-name-face ((t (:bold t :foreground "orange"))))
+    (font-lock-keyword-face ((t (:bold t :foreground "gold"))))
+    (font-lock-string-face ((t (:italic t :foreground "orange"))))
+    (font-lock-type-face ((t (:bold t :foreground "gold"))))
+    (font-lock-variable-name-face ((t (:italic t :bold t :foreground "light salmon"))))
+    (font-lock-warning-face ((t (:bold t :foreground "gold"))))
+    (gnus-cite-attribution-face ((t (:italic t))))
+    (gnus-cite-face-1 ((t (:foreground "light cyan"))))
+    (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+    (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+    (gnus-cite-face-2 ((t (:foreground "light blue"))))
+    (gnus-cite-face-3 ((t (:foreground "light yellow"))))
+    (gnus-cite-face-4 ((t (:foreground "light pink"))))
+    (gnus-cite-face-5 ((t (:foreground "pale green"))))
+    (gnus-cite-face-6 ((t (:foreground "beige"))))
+    (gnus-cite-face-7 ((t (:foreground "orange"))))
+    (gnus-cite-face-8 ((t (:foreground "magenta"))))
+    (gnus-cite-face-9 ((t (:foreground "violet"))))
+    (gnus-emphasis-bold ((t (:bold t))))
+    (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+    (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+    (gnus-emphasis-italic ((t (:italic t))))
+    (gnus-emphasis-underline ((t (:background "goldenrod4" :foreground "white"))))
+    (gnus-emphasis-underline-bold ((t (:underline t :bold t :background "yellow" :foreground "black"))))
+    (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :background "yellow" :foreground "black"))))
+    (gnus-emphasis-underline-italic ((t (:underline t :italic t :background "yellow" :foreground "black"))))
+    (gnus-filterhist-face-1 ((t (nil))))
+    (gnus-group-mail-1-empty-face ((t (:foreground "gray80"))))
+    (gnus-group-mail-1-face ((t (:bold t :foreground "white"))))
+    (gnus-group-mail-2-empty-face ((t (:foreground "lightcyan"))))
+    (gnus-group-mail-2-face ((t (:bold t :foreground "lightcyan"))))
+    (gnus-group-mail-3-empty-face ((t (:foreground "tan"))))
+    (gnus-group-mail-3-face ((t (:bold t :foreground "tan"))))
+    (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+    (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
+    (gnus-group-news-1-empty-face ((t (:foreground "white"))))
+    (gnus-group-news-1-face ((t (:bold t :foreground "white"))))
+    (gnus-group-news-2-empty-face ((t (:foreground "lightcyan"))))
+    (gnus-group-news-2-face ((t (:bold t :foreground "lightcyan"))))
+    (gnus-group-news-3-empty-face ((t (:foreground "tan"))))
+    (gnus-group-news-3-face ((t (:bold t :foreground "tan"))))
+    (gnus-group-news-4-empty-face ((t (:foreground "white"))))
+    (gnus-group-news-4-face ((t (:bold t :foreground "white"))))
+    (gnus-group-news-5-empty-face ((t (:foreground "wheat"))))
+    (gnus-group-news-5-face ((t (:bold t :foreground "wheat"))))
+    (gnus-group-news-6-empty-face ((t (:foreground "tan"))))
+    (gnus-group-news-6-face ((t (:bold t :foreground "tan"))))
+    (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+    (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
+    (gnus-header-content-face ((t (:italic t :foreground "plum1"))))
+    (gnus-header-from-face ((t (:bold t :foreground "wheat"))))
+    (gnus-header-name-face ((t (:bold t :foreground "gold"))))
+    (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "wheat"))))
+    (gnus-header-subject-face ((t (:bold t :foreground "red"))))
+    (gnus-signature-face ((t (:italic t :foreground "maroon"))))
+    (gnus-splash ((t (:foreground "Brown"))))
+    (gnus-splash-face ((t (:foreground "gold"))))
+    (gnus-summary-cancelled-face ((t (:background "gray" :foreground "black"))))
+    (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
+    (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
+    (gnus-summary-high-ticked-face ((t (:bold t :foreground "gray70"))))
+    (gnus-summary-high-unread-face ((t (:italic t :bold t))))
+    (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
+    (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
+    (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "gray70"))))
+    (gnus-summary-low-unread-face ((t (:italic t))))
+    (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+    (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+    (gnus-summary-normal-ticked-face ((t (:bold t :foreground "gray70"))))
+    (gnus-summary-normal-unread-face ((t (:bold t))))
+    (gnus-summary-selected-face ((t (:underline t :background "deepskyblue4"))))
+    (highlight ((t (:background "darkslategray" :foreground "wheat"))))
+    (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
+    (highlight-changes-face ((t (:foreground "red"))))
+    (highline-face ((t (:background "gray35"))))
+    (holiday-face ((t (:background "red"))))
+    (info-menu-5 ((t (:underline t))))
+    (info-node ((t (:italic t :bold t :foreground "yellow"))))
+    (info-xref ((t (:bold t :foreground "plum"))))
+    (italic ((t (:italic t))))
+    (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
+    (linemenu-face ((t (:background "gray30"))))
+    (makefile-space-face ((t (:background "hotpink"))))
+    (message-cited-text-face ((t (:foreground "plum1"))))
+    (message-header-cc-face ((t (:bold t :foreground "ivory"))))
+    (message-header-name-face ((t (:foreground "light sky blue"))))
+    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "lavender blush"))))
+    (message-header-other-face ((t (:foreground "pale turquoise"))))
+    (message-header-subject-face ((t (:bold t :foreground "papaya whip"))))
+    (message-header-to-face ((t (:bold t :foreground "floral white"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-mml-face ((t (:bold t :foreground "ForestGreen"))))
+    (message-separator-face ((t (:foreground "sandy brown"))))
+    (modeline ((t (:background "tan" :foreground "black"))))
+    (modeline-buffer-id ((t (:background "tan" :foreground "black"))))
+    (modeline-mousable ((t (:background "tan" :foreground "black"))))
+    (modeline-mousable-minor-mode ((t (:background "tan" :foreground "black"))))
+    (paren-mismatch-face ((t (:bold t :background "white" :foreground "red"))))
+    (paren-no-match-face ((t (:bold t :background "white" :foreground "red"))))
+    (region ((t (:background "slategrey"))))
+    (secondary-selection ((t (:background "deepskyblue4"))))
+    (sgml-doctype-face ((t (:foreground "orange"))))
+    (sgml-end-tag-face ((t (:foreground "greenyellow"))))
+    (sgml-entity-face ((t (:foreground "gold"))))
+    (sgml-ignored-face ((t (:background "gray60" :foreground "gray20"))))
+    (sgml-sgml-face ((t (:foreground "yellow"))))
+    (sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
+    (show-paren-match-face ((t (:background "deepskyblue4"))))
+    (show-paren-mismatch-face ((t (:bold t :background "red" :foreground "white"))))
+    (speedbar-button-face ((t (:foreground "green4"))))
+    (speedbar-directory-face ((t (:foreground "blue4"))))
+    (speedbar-file-face ((t (:bold t :foreground "cyan4"))))
+    (speedbar-highlight-face ((t (:background "green"))))
+    (speedbar-selected-face ((t (:underline t :foreground "red"))))
+    (speedbar-tag-face ((t (:foreground "brown"))))
+    (underline ((t (:underline t))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "red"))))
+    (widget-documentation-face ((t (:foreground "lime green"))))
+    (widget-field-face ((t (:background "gray20"))))
+    (widget-inactive-face ((t (:foreground "wheat"))))
+    (widget-single-line-field-face ((t (:background "gray20"))))
+    (woman-bold-face ((t (:bold t))))
+    (woman-italic-face ((t (:foreground "beige"))))
+    (woman-unknown-face ((t (:foreground "LightSalmon")))))))
+
+(defun color-theme-greiner ()
+  "Color theme by Kevin Greiner, created 2000-06-13.
+Black on Beige, supports default, font-lock, speedbar, custom, widget
+faces.  Designed to be easy on the eyes, particularly on Win32
+computers which commonly have white window backgrounds."
+  (interactive)
+  (color-theme-install
+   '(color-theme-greiner
+     ((background-color . "beige")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "black")
+      (foreground-color . "black")
+      (mouse-color . "black"))
+     ((list-matching-lines-face . bold))
+    (default ((t (nil))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (custom-button-face ((t (nil))))
+    (custom-changed-face ((t (:background "blue" :foreground "white"))))
+    (custom-documentation-face ((t (nil))))
+    (custom-face-tag-face ((t (:underline t))))
+    (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+    (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+    (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+    (custom-modified-face ((t (:background "blue" :foreground "white"))))
+    (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+    (custom-saved-face ((t (:underline t))))
+    (custom-set-face ((t (:background "white" :foreground "blue"))))
+    (custom-state-face ((t (:foreground "dark green"))))
+    (custom-variable-button-face ((t (:underline t :bold t))))
+    (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+    (font-lock-builtin-face ((t (:foreground "blue4"))))
+    (font-lock-comment-face ((t (:foreground "Firebrick"))))
+    (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+    (font-lock-function-name-face ((t (:foreground "Blue"))))
+    (font-lock-keyword-face ((t (:foreground "royal blue"))))
+    (font-lock-string-face ((t (:foreground "RosyBrown"))))
+    (font-lock-type-face ((t (:foreground "ForestGreen"))))
+    (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+    (highlight ((t (:background "darkseagreen2"))))
+    (info-menu-5 ((t (:underline t))))
+    (info-node ((t (:italic t :bold t))))
+    (info-xref ((t (:bold t))))
+    (italic ((t (:italic t))))
+    (modeline ((t (:background "black" :foreground "white"))))
+    (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
+    (modeline-mousable ((t (:background "black" :foreground "white"))))
+    (modeline-buffer-id ((t (:background "black" :foreground "white"))))
+    (region ((t (:background "gray"))))
+    (secondary-selection ((t (:background "paleturquoise"))))
+    (show-paren-match-face ((t (:background "turquoise"))))
+    (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+    (speedbar-button-face ((t (:foreground "green4"))))
+    (speedbar-directory-face ((t (:foreground "blue4"))))
+    (speedbar-file-face ((t (:foreground "cyan4"))))
+    (speedbar-highlight-face ((t (:background "green"))))
+    (speedbar-selected-face ((t (:underline t :foreground "red"))))
+    (speedbar-tag-face ((t (:foreground "brown"))))
+    (underline ((t (:underline t))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "red"))))
+    (widget-documentation-face ((t (:foreground "dark green"))))
+    (widget-field-face ((t (:background "gray85"))))
+    (widget-inactive-face ((t (:foreground "dim gray"))))
+    (widget-single-line-field-face ((t (:background "gray85")))))))
+
+(defun color-theme-jb-simple ()
+  "Color theme by jeff, created 2000-06-14.
+Uses white background and bold for many things"
+  (interactive)
+  (color-theme-install
+   '(color-theme-jb-simple
+     ((background-color . "white")
+      (background-mode . light)
+      (background-toolbar-color . "#cf3ccf3ccf3c")
+      (border-color . "black")
+      (bottom-toolbar-shadow-color . "#79e77df779e7")
+      (cursor-color . "black")
+      (foreground-color . "black")
+      (mouse-color . "black")
+      (top-toolbar-shadow-color . "#fffffbeeffff"))
+     ((gnus-mouse-face . highlight)
+      (list-matching-lines-face . bold)
+      (rmail-highlight-face . font-lock-function-name-face)
+      (view-highlight-face . highlight))
+    (default ((t (nil))))
+    (blank-space-face ((t (nil))))
+    (blank-tab-face ((t (nil))))
+    (blue ((t (nil))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (border-glyph ((t (nil))))
+    (calendar-today-face ((t (:underline t))))
+    (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
+    (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
+    (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+    (custom-button-face ((t (:bold t))))
+    (custom-changed-face ((t (:background "blue" :foreground "white"))))
+    (custom-documentation-face ((t (nil))))
+    (custom-face-tag-face ((t (:underline t))))
+    (custom-group-tag-face ((t (:underline t :bold t :foreground "blue"))))
+    (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+    (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+    (custom-modified-face ((t (:background "blue" :foreground "white"))))
+    (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+    (custom-saved-face ((t (:underline t))))
+    (custom-set-face ((t (:background "white" :foreground "blue"))))
+    (custom-state-face ((t (:foreground "dark green"))))
+    (custom-variable-button-face ((t (:underline t :bold t))))
+    (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
+    (diary-face ((t (:bold t :foreground "red"))))
+    (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+    (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+    (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+    (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+    (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+    (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+    (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+    (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+    (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+    (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+    (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+    (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+    (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+    (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+    (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+    (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+    (erc-action-face ((t (:bold t))))
+    (erc-bold-face ((t (:bold t))))
+    (erc-default-face ((t (nil))))
+    (erc-direct-msg-face ((t (nil))))
+    (erc-error-face ((t (:bold t))))
+    (erc-input-face ((t (nil))))
+    (erc-inverse-face ((t (nil))))
+    (erc-notice-face ((t (nil))))
+    (erc-pal-face ((t (nil))))
+    (erc-prompt-face ((t (nil))))
+    (erc-underline-face ((t (nil))))
+    (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
+    (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+    (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
+    (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
+    (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
+    (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
+    (eshell-ls-picture-face ((t (nil))))
+    (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+    (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+    (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
+    (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
+    (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+    (eshell-prompt-face ((t (:bold t :foreground "Red"))))
+    (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
+    (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
+    (excerpt ((t (:italic t))))
+    (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
+    (fixed ((t (:bold t))))
+    (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
+    (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
+    (font-latex-bold-face ((t (nil))))
+    (font-latex-italic-face ((t (nil))))
+    (font-latex-math-face ((t (nil))))
+    (font-latex-sedate-face ((t (nil))))
+    (font-latex-string-face ((t (nil))))
+    (font-latex-warning-face ((t (nil))))
+    (font-lock-builtin-face ((t (:bold t :foreground "Orchid"))))
+    (font-lock-comment-face ((t (:italic t :bold t :foreground "blue4"))))
+    (font-lock-constant-face ((t (:bold t :foreground "CadetBlue"))))
+    (font-lock-doc-string-face ((t (:italic t :bold t :foreground "blue4"))))
+    (font-lock-exit-face ((t (nil))))
+    (font-lock-function-name-face ((t (:bold t :foreground "brown4"))))
+    (font-lock-keyword-face ((t (:bold t :foreground "black"))))
+    (font-lock-preprocessor-face ((t (:foreground "blue3"))))
+    (font-lock-reference-face ((t (:foreground "red3"))))
+    (font-lock-string-face ((t (:italic t :bold t :foreground "green4"))))
+    (font-lock-type-face ((t (:bold t :foreground "steelblue"))))
+    (font-lock-variable-name-face ((t (:italic t :bold t :foreground "magenta4"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+    (gnus-cite-attribution-face ((t (:italic t :bold t))))
+    (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+    (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+    (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+    (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+    (gnus-cite-face-3 ((t (:foreground "dark green"))))
+    (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+    (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+    (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+    (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+    (gnus-cite-face-8 ((t (:foreground "magenta"))))
+    (gnus-cite-face-9 ((t (:foreground "violet"))))
+    (gnus-emphasis-bold ((t (:bold t))))
+    (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+    (gnus-emphasis-highlight-words ((t (nil))))
+    (gnus-emphasis-italic ((t (:italic t))))
+    (gnus-emphasis-underline ((t (:underline t))))
+    (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+    (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+    (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+    (gnus-filterhist-face-1 ((t (nil))))
+    (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+    (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+    (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+    (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+    (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+    (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+    (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+    (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+    (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+    (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+    (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+    (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+    (gnus-group-news-3-empty-face ((t (nil))))
+    (gnus-group-news-3-face ((t (:bold t))))
+    (gnus-group-news-4-empty-face ((t (nil))))
+    (gnus-group-news-4-face ((t (:bold t))))
+    (gnus-group-news-5-empty-face ((t (nil))))
+    (gnus-group-news-5-face ((t (:bold t))))
+    (gnus-group-news-6-empty-face ((t (nil))))
+    (gnus-group-news-6-face ((t (:bold t))))
+    (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+    (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
+    (gnus-header-from-face ((t (:bold t :foreground "red3"))))
+    (gnus-header-name-face ((t (:bold t :foreground "maroon"))))
+    (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue"))))
+    (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
+    (gnus-signature-face ((t (:italic t))))
+    (gnus-splash ((t (nil))))
+    (gnus-splash-face ((t (:foreground "ForestGreen"))))
+    (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+    (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+    (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+    (gnus-summary-high-unread-face ((t (:italic t :bold t))))
+    (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
+    (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
+    (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick"))))
+    (gnus-summary-low-unread-face ((t (:italic t))))
+    (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+    (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+    (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
+    (gnus-summary-normal-unread-face ((t (:bold t))))
+    (gnus-summary-selected-face ((t (:underline t))))
+    (green ((t (nil))))
+    (gui-button-face ((t (:background "grey75"))))
+    (gui-element ((t (:background "Gray80"))))
+    (highlight ((t (:background "darkseagreen2"))))
+    (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
+    (highlight-changes-face ((t (:foreground "red"))))
+    (highline-face ((t (:background "paleturquoise"))))
+    (holiday-face ((t (:background "pink"))))
+    (html-helper-italic-face ((t (:italic t))))
+    (info-menu-5 ((t (:underline t))))
+    (info-node ((t (:italic t :bold t))))
+    (info-xref ((t (:bold t))))
+    (isearch ((t (nil))))
+    (italic ((t (:italic t))))
+    (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
+    (left-margin ((t (nil))))
+    (linemenu-face ((t (nil))))
+    (list-mode-item-selected ((t (nil))))
+    (makefile-space-face ((t (:background "hotpink"))))
+    (message-cited-text-face ((t (:foreground "red"))))
+    (message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-name-face ((t (:foreground "cornflower blue"))))
+    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
+    (message-header-other-face ((t (:foreground "steel blue"))))
+    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-mml-face ((t (:bold t))))
+    (message-separator-face ((t (:foreground "brown"))))
+    (modeline ((t (:background "darkblue" :foreground "yellow"))))
+    (modeline-buffer-id ((t (:background "black" :foreground "white"))))
+    (modeline-mousable ((t (:background "black" :foreground "white"))))
+    (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
+    (nil ((t (nil))))
+    (paren-mismatch-face ((t (:bold t))))
+    (paren-no-match-face ((t (:bold t))))
+    (pointer ((t (nil))))
+    (primary-selection ((t (nil))))
+    (red ((t (nil))))
+    (region ((t (:background "gray"))))
+    (right-margin ((t (nil))))
+    (secondary-selection ((t (:background "paleturquoise"))))
+    (sgml-doctype-face ((t (nil))))
+    (sgml-end-tag-face ((t (nil))))
+    (sgml-entity-face ((t (nil))))
+    (sgml-ignored-face ((t (nil))))
+    (sgml-sgml-face ((t (nil))))
+    (sgml-start-tag-face ((t (nil))))
+    (show-paren-match-face ((t (:background "turquoise"))))
+    (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
+    (speedbar-button-face ((t (:bold t :foreground "green4"))))
+    (speedbar-directory-face ((t (:bold t :foreground "blue4"))))
+    (speedbar-file-face ((t (:bold t :foreground "cyan4"))))
+    (speedbar-highlight-face ((t (:background "green"))))
+    (speedbar-selected-face ((t (:underline t :foreground "red"))))
+    (speedbar-tag-face ((t (:foreground "brown"))))
+    (swbuff-current-buffer-face ((t (:bold t))))
+    (term-black ((t (:foreground "black"))))
+    (term-blackbg ((t (:background "black"))))
+    (term-blue ((t (:foreground "blue"))))
+    (term-bluebg ((t (:background "blue"))))
+    (term-bold ((t (:bold t))))
+    (term-cyan ((t (:foreground "cyan"))))
+    (term-cyanbg ((t (:background "cyan"))))
+    (term-default-bg ((t (nil))))
+    (term-default-bg-inv ((t (nil))))
+    (term-default-fg ((t (nil))))
+    (term-default-fg-inv ((t (nil))))
+    (term-green ((t (:foreground "green"))))
+    (term-greenbg ((t (:background "green"))))
+    (term-invisible ((t (nil))))
+    (term-invisible-inv ((t (nil))))
+    (term-magenta ((t (:foreground "magenta"))))
+    (term-magentabg ((t (:background "magenta"))))
+    (term-red ((t (:foreground "red"))))
+    (term-redbg ((t (:background "red"))))
+    (term-underline ((t (:underline t))))
+    (term-white ((t (:foreground "white"))))
+    (term-whitebg ((t (:background "white"))))
+    (term-yellow ((t (:foreground "yellow"))))
+    (term-yellowbg ((t (:background "yellow"))))
+    (text-cursor ((t (nil))))
+    (toolbar ((t (nil))))
+    (underline ((t (:underline t))))
+    (vc-annotate-face-0046FF ((t (nil))))
+    (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
+    (vertical-divider ((t (nil))))
+    (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+    (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+    (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+    (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+    (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
+    (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
+    (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+    (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+    (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
+    (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+    (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
+    (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+    (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
+    (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+    (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
+    (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+    (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
+    (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+    (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+    (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+    (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+    (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "red"))))
+    (widget-documentation-face ((t (:foreground "dark green"))))
+    (widget-field-face ((t (:background "gray85"))))
+    (widget-inactive-face ((t (:foreground "dim gray"))))
+    (widget-single-line-field-face ((t (:background "gray85"))))
+    (woman-bold-face ((t (:bold t))))
+    (woman-italic-face ((t (nil))))
+    (woman-unknown-face ((t (nil))))
+    (yellow ((t (nil))))
+    (zmacs-region ((t (nil)))))))
+
+(defun color-theme-beige-diff ()
+  "Brownish faces for diff and change-log modes.
+This is intended for other color themes to use (eg. `color-theme-gnome2'
+and `color-theme-blue-sea')."
+  (color-theme-install
+   '(color-theme-beige-diff
+     nil
+     (change-log-acknowledgement-face ((t (:foreground "firebrick"))))
+     (change-log-conditionals-face ((t (:foreground "khaki" :background "sienna"))))
+     (change-log-date-face ((t (:foreground "gold"))))
+     (change-log-email-face ((t (:foreground "khaki" :underline t))))
+     (change-log-file-face ((t (:bold t :foreground "lemon chiffon"))))
+     (change-log-function-face ((t (:foreground "khaki" :background "sienna"))))
+     (change-log-list-face ((t (:foreground "wheat"))))
+     (change-log-name-face ((t (:bold t :foreground "light goldenrod"))))
+     (diff-added-face ((t (nil))))
+     (diff-changed-face ((t (nil))))
+     (diff-context-face ((t (:foreground "grey50"))))
+     (diff-file-header-face ((t (:bold t :foreground "lemon chiffon"))))
+     (diff-function-face ((t (:foreground "grey50"))))
+     (diff-header-face ((t (:foreground "lemon chiffon"))))
+     (diff-hunk-header-face ((t (:foreground "light goldenrod"))))
+     (diff-index-face ((t (:bold t :underline t))))
+     (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold))))
+     (diff-removed-face ((t (nil))))
+     (log-view-message-face ((t (:foreground "lemon chiffon")))))))
+
+(defun color-theme-standard-ediff ()
+  "Standard colors for ediff faces.
+This is intended for other color themes to use
+\(eg. `color-theme-goldenrod')."
+  (color-theme-install
+   '(color-theme-beige-diff
+     nil
+     (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+     (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+     (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+     (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+     (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+     (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+     (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+     (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+     (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+     (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+     (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+     (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+     (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+     (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+     (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+     (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))))))
+
+(defun color-theme-beige-eshell ()
+  "Brownish colors for eshell faces only.
+This is intended for other color themes to use (eg. `color-theme-goldenrod')."
+  (color-theme-install
+   '(color-theme-beige-eshell
+     nil
+     (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
+     (eshell-ls-backup-face ((t (:foreground "Grey"))))
+     (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "dark khaki"))))
+     (eshell-ls-executable-face ((t (:foreground "Coral"))))
+     (eshell-ls-missing-face ((t (:foreground "black"))))
+     (eshell-ls-picture-face ((t (:foreground "gold")))) ; non-standard face
+     (eshell-ls-product-face ((t (:foreground "dark sea green"))))
+     (eshell-ls-readonly-face ((t (:foreground "light steel blue"))))
+     (eshell-ls-special-face ((t (:foreground "gold"))))
+     (eshell-ls-symlink-face ((t (:foreground "peach puff"))))
+     (eshell-ls-text-face ((t (:foreground "moccasin")))) ; non-standard face
+     (eshell-ls-todo-face ((t (:bold t :foreground "yellow green")))) ; non-standard face
+     (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
+     (eshell-prompt-face ((t (:foreground "lemon chiffon")))))))
+
+(defun color-theme-goldenrod ()
+  "Brown color theme.  Very different from the others.
+Supports standard, font-lock and info faces, and it uses
+`color-theme-blue-gnus', `color-theme-blue-erc' , and
+`color-theme-beige-diff'."
+  (interactive)
+  (color-theme-blue-gnus)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-blue-erc)
+    (color-theme-beige-diff)
+    (color-theme-beige-eshell)
+    (color-theme-install
+     '(color-theme-goldenrod
+       ((background-color . "black")
+	(background-mode . dark)
+	(border-color . "black")
+	(cursor-color . "light goldenrod")
+	(foreground-color . "goldenrod")
+	(mouse-color . "goldenrod"))
+       ((goto-address-mail-face . info-xref)
+	(list-matching-lines-face . bold)
+	(view-highlight-face . highlight))
+       (default ((t (nil))))
+       (bold ((t (:bold t))))
+       (bold-italic ((t (:italic t :bold t :foreground "lavender"))))
+       (font-lock-builtin-face ((t (:foreground "pale goldenrod"))))
+       (font-lock-comment-face ((t (:foreground "indian red"))))
+       (font-lock-constant-face ((t (:foreground "pale green"))))
+       (font-lock-function-name-face ((t (:bold t :foreground "lemon chiffon"))))
+       (font-lock-keyword-face ((t (:foreground "wheat"))))
+       (font-lock-string-face ((t (:foreground "gold"))))
+       (font-lock-type-face ((t (:foreground "dark khaki" :bold t))))
+       (font-lock-variable-name-face ((t (:bold t :foreground "khaki"))))
+       (font-lock-warning-face ((t (:bold t :foreground "orange red"))))
+       (fringe ((t (:background "gray25"))))
+       (header-line ((t (:background "gray20" :foreground "gray70"))))
+       (highlight ((t (:background "dark slate blue"))))
+       (info-menu-5 ((t (:underline t))))
+       (info-node ((t (:bold t))))
+       (info-xref ((t (:bold t :foreground "pale goldenrod"))))
+       (isearch ((t (:background "SeaGreen4"))))
+       (isearch-lazy-highlight-face ((t (:background "DarkOliveGreen4"))))
+       (italic ((t (:italic t :foreground "lavender"))))
+       (menu ((t (:background "gray25" :foreground "lemon chiffon"))))
+       (modeline ((t (:background "gray40" :foreground "lemon chiffon" :box (:line-width 1 :style released-button)))))
+       (modeline-buffer-id ((t (:background "AntiqueWhite4" :foreground "lemon chiffon"))))
+       (modeline-mousable ((t (:background "AntiqueWhite4" :foreground "lemon chiffon"))))
+       (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "lemon chiffon"))))
+       (mode-line-inactive ((t (:background "gray20" :foreground "lemon chiffon" :box (:line-width 1 :style released-button)))))
+       (region ((t (:background "dark olive green"))))
+       (secondary-selection ((t (:background "dark green"))))
+       (tool-bar ((t (:background "gray25" :foreground "lemon chiffon" :box (:line-width 1 :style released-button)))))
+       (underline ((t (:underline t))))))))
+
+(defun color-theme-ramangalahy ()
+  "Color theme by Solofo Ramangalahy, created 2000-10-18.
+Black on light grey, includes faces for vm, ispell, gnus,
+dired, display-time, cperl, font-lock, widget, x-symbol."
+  (interactive)
+  (color-theme-install
+   '(color-theme-ramangalahy
+     ((background-color . "lightgrey")
+      (background-mode . light)
+      (background-toolbar-color . "#bfbfbfbfbfbf")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#737373737373")
+      (cursor-color . "blue")
+      (foreground-color . "black")
+      (top-toolbar-shadow-color . "#e6e6e6e6e6e6"))
+     ((gnus-mouse-face . highlight)
+      (goto-address-mail-face . info-xref)
+      (ispell-highlight-face . highlight)
+      (notes-bold-face . notes-bold-face)
+      (setnu-line-number-face . bold)
+      (tinyreplace-:face . highlight)
+      (vm-highlight-url-face . bold-italic)
+      (vm-highlighted-header-face . bold)
+      (vm-mime-button-face . gui-button-face)
+      (vm-summary-highlight-face . bold))
+    (default ((t (nil))))
+    (bbdb-company ((t (nil))))
+    (blue ((t (:foreground "blue"))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (border-glyph ((t (nil))))
+    (cperl-here-face ((t (:foreground "green4"))))
+    (cperl-pod-face ((t (:foreground "brown4"))))
+    (cperl-pod-head-face ((t (:foreground "steelblue"))))
+    (custom-button-face ((t (:bold t))))
+    (custom-changed-face ((t (:background "blue" :foreground "white"))))
+    (custom-documentation-face ((t (nil))))
+    (custom-face-tag-face ((t (:underline t))))
+    (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+    (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+    (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+    (custom-modified-face ((t (:background "blue" :foreground "white"))))
+    (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+    (custom-saved-face ((t (:underline t))))
+    (custom-set-face ((t (:background "white" :foreground "blue"))))
+    (custom-state-face ((t (:foreground "dark green"))))
+    (custom-variable-button-face ((t (:underline t :bold t))))
+    (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+    (dired-face-boring ((t (:foreground "Gray65"))))
+    (dired-face-directory ((t (:bold t))))
+    (dired-face-executable ((t (:foreground "SeaGreen"))))
+    (dired-face-flagged ((t (:background "LightSlateGray"))))
+    (dired-face-marked ((t (:background "PaleVioletRed"))))
+    (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
+    (dired-face-setuid ((t (:foreground "Red"))))
+    (dired-face-socket ((t (:foreground "magenta"))))
+    (dired-face-symlink ((t (:foreground "blue"))))
+    (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+    (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+    (display-time-time-balloon-face ((t (:foreground "red"))))
+    (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
+    (font-lock-comment-face ((t (:bold t :foreground "purple"))))
+    (font-lock-doc-string-face ((t (:bold t :foreground "slateblue"))))
+    (font-lock-emphasized-face ((t (:bold t :background "lightyellow2"))))
+    (font-lock-function-name-face ((t (:bold t :foreground "blue"))))
+    (font-lock-keyword-face ((t (:bold t :foreground "violetred"))))
+    (font-lock-other-emphasized-face ((t (:italic t :bold t :background "lightyellow2"))))
+    (font-lock-other-type-face ((t (:bold t :foreground "orange3"))))
+    (font-lock-preprocessor-face ((t (:bold t :foreground "mediumblue"))))
+    (font-lock-reference-face ((t (:foreground "red3"))))
+    (font-lock-string-face ((t (:foreground "green4"))))
+    (font-lock-type-face ((t (:bold t :foreground "steelblue"))))
+    (font-lock-variable-name-face ((t (:foreground "magenta4"))))
+    (font-lock-warning-face ((t (:bold t :background "yellow" :foreground "Red"))))
+    (gnus-emphasis-bold ((t (:bold t))))
+    (gnus-emphasis-bold-italic ((t (nil))))
+    (gnus-emphasis-italic ((t (nil))))
+    (gnus-emphasis-underline ((t (:underline t))))
+    (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+    (gnus-emphasis-underline-bold-italic ((t (:underline t))))
+    (gnus-emphasis-underline-italic ((t (:underline t))))
+    (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+    (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+    (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+    (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+    (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+    (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+    (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+    (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+    (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+    (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+    (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+    (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+    (gnus-group-news-3-empty-face ((t (:foreground "DeepPink4"))))
+    (gnus-group-news-3-face ((t (:bold t :foreground "DeepPink4"))))
+    (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+    (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-header-content-face ((t (:foreground "indianred4"))))
+    (gnus-header-from-face ((t (:foreground "red3"))))
+    (gnus-header-name-face ((t (:foreground "maroon"))))
+    (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue"))))
+    (gnus-header-subject-face ((t (:foreground "red4"))))
+    (gnus-signature-face ((t (:bold t))))
+    (gnus-splash-face ((t (:foreground "ForestGreen"))))
+    (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+    (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+    (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+    (gnus-summary-high-unread-face ((t (:bold t))))
+    (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue"))))
+    (gnus-summary-low-read-face ((t (:foreground "DarkGreen"))))
+    (gnus-summary-low-ticked-face ((t (:foreground "firebrick"))))
+    (gnus-summary-low-unread-face ((t (nil))))
+    (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+    (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+    (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
+    (gnus-summary-normal-unread-face ((t (nil))))
+    (gnus-summary-selected-face ((t (:underline t))))
+    (gnus-x-face ((t (:background "lightgrey" :foreground "black"))))
+    (green ((t (:foreground "green"))))
+    (gui-button-face ((t (:background "grey75" :foreground "black"))))
+    (gui-element ((t (:background "lightgrey"))))
+    (highlight ((t (:background "darkseagreen2"))))
+    (info-node ((t (:underline t :bold t :foreground "mediumpurple"))))
+    (info-xref ((t (:underline t :bold t :foreground "#0000ee"))))
+    (isearch ((t (:background "paleturquoise"))))
+    (italic ((t (:italic t))))
+    (left-margin ((t (nil))))
+    (list-mode-item-selected ((t (:background "gray68" :foreground "black"))))
+    (message-cited-text ((t (:foreground "slategrey"))))
+    (message-cited-text-face ((t (:foreground "red"))))
+    (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+    (message-header-contents ((t (:italic t))))
+    (message-header-name-face ((t (:foreground "cornflower blue"))))
+    (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
+    (message-header-other-face ((t (:foreground "steel blue"))))
+    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-headers ((t (:bold t))))
+    (message-highlighted-header-contents ((t (:bold t))))
+    (message-separator-face ((t (:foreground "brown"))))
+    (message-url ((t (:bold t))))
+    (modeline ((t (:bold t :background "Gray75" :foreground "Black"))))
+    (modeline-buffer-id ((t (:bold t :background "Gray75" :foreground "blue4"))))
+    (modeline-mousable ((t (:bold t :background "Gray75" :foreground "firebrick"))))
+    (modeline-mousable-minor-mode ((t (:bold t :background "Gray75" :foreground "green4"))))
+    (paren-blink-off ((t (:foreground "lightgrey"))))
+    (paren-match ((t (:background "darkseagreen2"))))
+    (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
+    (pointer ((t (:foreground "blue"))))
+    (primary-selection ((t (:background "gray65"))))
+    (red ((t (:foreground "red"))))
+    (region ((t (:background "black" :foreground "white"))))
+    (right-margin ((t (nil))))
+    (searchm-buffer ((t (:bold t :background "white" :foreground "red"))))
+    (searchm-button ((t (:bold t :background "CadetBlue" :foreground "white"))))
+    (searchm-field ((t (:background "grey89"))))
+    (searchm-field-label ((t (:bold t))))
+    (searchm-highlight ((t (:bold t :background "darkseagreen2" :foreground "black"))))
+    (secondary-selection ((t (:background "paleturquoise"))))
+    (template-message-face ((t (:bold t))))
+    (text-cursor ((t (:background "blue" :foreground "lightgrey"))))
+    (toolbar ((t (nil))))
+    (underline ((t (:underline t))))
+    (vertical-divider ((t (nil))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "red"))))
+    (widget-documentation-face ((t (:foreground "dark green"))))
+    (widget-field-face ((t (:background "gray85"))))
+    (widget-inactive-face ((t (:foreground "dim gray"))))
+    (x-face ((t (:background "white" :foreground "black"))))
+    (x-symbol-adobe-fontspecific-face ((t (nil))))
+    (x-symbol-face ((t (nil))))
+    (x-symbol-heading-face ((t (:underline t :bold t :foreground "green4"))))
+    (x-symbol-info-face ((t (:foreground "green4"))))
+    (x-symbol-invisible-face ((t (nil))))
+    (x-symbol-revealed-face ((t (:background "pink"))))
+    (yellow ((t (:foreground "yellow"))))
+    (zmacs-region ((t (:background "yellow")))))))
+
+(defun color-theme-raspopovic ()
+  "Color theme by Pedja Raspopovic, created 2000-10-19.
+Includes faces for dired, font-lock, info, paren."
+  (interactive)
+  (color-theme-install
+   '(color-theme-raspopovic
+     ((background-color . "darkblue")
+      (background-mode . light)
+      (background-toolbar-color . "#bfbfbfbfbfbf")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#737373737373")
+      (cursor-color . "Red3")
+      (foreground-color . "yellow")
+      (top-toolbar-shadow-color . "#e6e6e6e6e6e6"))
+     ((setnu-line-number-face . bold)
+      (goto-address-mail-face . info-xref))
+    (default ((t (nil))))
+    (blue ((t (:background "darkblue" :foreground "blue"))))
+    (bold ((t (:bold t :background "darkblue" :foreground "yellow"))))
+    (bold-italic ((t (:bold t :background "darkblue" :foreground "red3"))))
+    (comint-input-face ((t (:foreground "deepskyblue"))))
+    (dired-face-boring ((t (:foreground "Gray65"))))
+    (dired-face-directory ((t (:foreground "lightgreen"))))
+    (dired-face-executable ((t (:foreground "indianred"))))
+    (dired-face-flagged ((t (:background "LightSlateGray"))))
+    (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue"))))
+    (dired-face-permissions ((t (:background "darkblue" :foreground "white"))))
+    (dired-face-setuid ((t (:foreground "Red"))))
+    (dired-face-socket ((t (:foreground "magenta"))))
+    (dired-face-symlink ((t (:foreground "grey95"))))
+    (font-lock-comment-face ((t (:background "darkblue" :foreground "lightgreen"))))
+    (font-lock-doc-string-face ((t (:background "darkblue" :foreground "darkseagreen"))))
+    (font-lock-function-name-face ((t (:bold t :background "darkblue" :foreground "indianred"))))
+    (font-lock-keyword-face ((t (:background "darkblue" :foreground "skyblue"))))
+    (font-lock-preprocessor-face ((t (:background "darkblue" :foreground "orange"))))
+    (font-lock-reference-face ((t (:background "darkblue" :foreground "deepskyblue"))))
+    (font-lock-string-face ((t (:background "darkblue" :foreground "lightgrey"))))
+    (font-lock-type-face ((t (:background "darkblue" :foreground "orange"))))
+    (font-lock-variable-name-face ((t (:background "darkblue" :foreground "white"))))
+    (green ((t (:background "darkblue" :foreground "green"))))
+    (gui-button-face ((t (:background "grey75" :foreground "black"))))
+    (highlight ((t (:background "yellow" :foreground "darkblue"))))
+    (info-node ((t (:bold t :background "darkblue" :foreground "red3"))))
+    (info-xref ((t (:bold t :background "darkblue" :foreground "yellow"))))
+    (isearch ((t (:background "yellow" :foreground "darkblue"))))
+    (isearch-secondary ((t (:foreground "red3"))))
+    (italic ((t (:background "darkblue" :foreground "red3"))))
+    (left-margin ((t (:background "darkblue" :foreground "yellow"))))
+    (list-mode-item-selected ((t (:background "gray68" :foreground "yellow"))))
+    (makefile-space-face ((t (:background "hotpink"))))
+    (modeline ((t (:background "Gray75" :foreground "Black"))))
+    (modeline-buffer-id ((t (:background "Gray75" :foreground "blue"))))
+    (modeline-mousable ((t (:background "Gray75" :foreground "red"))))
+    (modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4"))))
+    (paren-blink-off ((t (:foreground "darkblue"))))
+    (paren-match ((t (:background "yellow" :foreground "darkblue"))))
+    (paren-mismatch ((t (:background "DeepPink" :foreground "yellow"))))
+    (pointer ((t (:background "darkblue" :foreground "red3"))))
+    (primary-selection ((t (:background "yellow" :foreground "darkblue"))))
+    (red ((t (:background "darkblue" :foreground "red"))))
+    (right-margin ((t (:background "darkblue" :foreground "yellow"))))
+    (secondary-selection ((t (:background "darkblue" :foreground "yellow"))))
+    (shell-option-face ((t (:background "darkblue" :foreground "cyan2"))))
+    (shell-output-2-face ((t (:background "darkblue" :foreground "darkseagreen"))))
+    (shell-output-3-face ((t (:background "darkblue" :foreground "lightgrey"))))
+    (shell-output-face ((t (:background "darkblue" :foreground "white"))))
+    (shell-prompt-face ((t (:background "darkblue" :foreground "red"))))
+    (text-cursor ((t (:background "Red3" :foreground "white"))))
+    (underline ((t (:underline t :background "darkblue" :foreground "yellow"))))
+    (vvb-face ((t (:background "pink" :foreground "black"))))
+    (yellow ((t (:background "darkblue" :foreground "yellow"))))
+    (zmacs-region ((t (:background "gray" :foreground "black")))))))
+
+(defun color-theme-taylor ()
+  "Color theme by Art Taylor, created 2000-10-20.
+Wheat on black.  Includes faces for font-lock, gnus, paren."
+  (interactive)
+  (color-theme-install
+   '(color-theme-taylor
+     ((background-color . "black")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "red")
+      (foreground-color . "wheat")
+      (mouse-color . "black"))
+     ((gnus-mouse-face . highlight)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight))
+    (default ((t (nil))))
+    (bold ((t (:bold t :background "grey40" :foreground "yellow"))))
+    (bold-italic ((t (:italic t :bold t :foreground "yellow green"))))
+    (fl-comment-face ((t (:foreground "medium purple"))))
+    (fl-function-name-face ((t (:foreground "green"))))
+    (fl-keyword-face ((t (:foreground "LightGreen"))))
+    (fl-string-face ((t (:foreground "light coral"))))
+    (fl-type-face ((t (:foreground "cyan"))))
+    (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+    (font-lock-comment-face ((t (:foreground "OrangeRed"))))
+    (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+    (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
+    (font-lock-keyword-face ((t (:foreground "Cyan"))))
+    (font-lock-string-face ((t (:foreground "LightSalmon"))))
+    (font-lock-type-face ((t (:foreground "PaleGreen"))))
+    (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+    (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+    (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
+    (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+    (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
+    (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+    (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
+    (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+    (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
+    (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+    (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
+    (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+    (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
+    (gnus-group-news-3-empty-face ((t (nil))))
+    (gnus-group-news-3-face ((t (:bold t))))
+    (gnus-group-news-4-empty-face ((t (nil))))
+    (gnus-group-news-4-face ((t (:bold t))))
+    (gnus-group-news-5-empty-face ((t (nil))))
+    (gnus-group-news-5-face ((t (:bold t))))
+    (gnus-group-news-6-empty-face ((t (nil))))
+    (gnus-group-news-6-face ((t (:bold t))))
+    (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+    (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
+    (gnus-splash-face ((t (:foreground "Brown"))))
+    (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+    (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
+    (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
+    (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
+    (gnus-summary-high-unread-face ((t (:bold t))))
+    (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
+    (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
+    (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
+    (gnus-summary-low-unread-face ((t (:italic t))))
+    (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+    (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+    (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+    (gnus-summary-normal-unread-face ((t (nil))))
+    (gnus-summary-selected-face ((t (:underline t))))
+    (highlight ((t (:background "black" :foreground "black"))))
+    (italic ((t (:italic t :foreground "yellow3"))))
+    (message-cited-text-face ((t (:foreground "red"))))
+    (message-header-cc-face ((t (:bold t :foreground "green4"))))
+    (message-header-name-face ((t (:foreground "DarkGreen"))))
+    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
+    (message-header-other-face ((t (:foreground "#b00000"))))
+    (message-header-subject-face ((t (:foreground "green3"))))
+    (message-header-to-face ((t (:bold t :foreground "green2"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-mml-face ((t (:foreground "ForestGreen"))))
+    (message-separator-face ((t (:foreground "blue3"))))
+    (modeline ((t (:background "wheat" :foreground "black"))))
+    (modeline-buffer-id ((t (:background "wheat" :foreground "black"))))
+    (modeline-mousable ((t (:background "wheat" :foreground "black"))))
+    (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "black"))))
+    (region ((t (:background "blue"))))
+    (secondary-selection ((t (:background "darkslateblue" :foreground "black"))))
+    (show-paren-match-face ((t (:background "turquoise"))))
+    (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+    (underline ((t (:underline t))))
+    (xref-keyword-face ((t (:foreground "blue"))))
+    (xref-list-default-face ((t (nil))))
+    (xref-list-pilot-face ((t (:foreground "navy"))))
+    (xref-list-symbol-face ((t (:foreground "navy")))))))
+
+(defun color-theme-marquardt ()
+  "Color theme by Colin Marquardt, created 2000-10-25.
+Black on bisque, a light color. Based on some settings from Robin S. Socha.
+Features some color changes to programming languages, especially vhdl-mode.
+You might also want to put something like
+   Emacs*Foreground:	       Black
+   Emacs*Background:	       bisque2
+in your ~/.Xdefaults."
+  (interactive)
+  (color-theme-install
+   '(color-theme-marquardt
+     ((background-color . "bisque")
+      (background-mode . light)
+      (background-toolbar-color . "bisque")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#909099999999")
+      (cursor-color . "Red3")
+      (foreground-color . "black")
+      (top-toolbar-shadow-color . "#ffffffffffff"))
+    (default ((t (nil))))
+    (blue ((t (:foreground "blue"))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:bold t))))
+    (border-glyph ((t (nil))))
+    (calendar-today-face ((t (:underline t))))
+    (diary-face ((t (:foreground "red"))))
+    (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+    (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+    (display-time-time-balloon-face ((t (:foreground "red"))))
+    (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
+    (font-lock-comment-face ((t (:foreground "gray50"))))
+    (font-lock-doc-string-face ((t (:foreground "green4"))))
+    (font-lock-function-name-face ((t (:foreground "darkorange"))))
+    (font-lock-keyword-face ((t (:foreground "blue3"))))
+    (font-lock-preprocessor-face ((t (:foreground "blue3"))))
+    (font-lock-reference-face ((t (:foreground "red3"))))
+    (font-lock-special-comment-face ((t (:foreground "blue4"))))
+    (font-lock-special-keyword-face ((t (:foreground "red4"))))
+    (font-lock-string-face ((t (:foreground "green4"))))
+    (font-lock-type-face ((t (:foreground "steelblue"))))
+    (font-lock-variable-name-face ((t (:foreground "black"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+    (green ((t (:foreground "green"))))
+    (gui-button-face ((t (:background "grey75" :foreground "black"))))
+    (gui-element ((t (:background "azure1" :foreground "Black"))))
+    (highlight ((t (:background "darkseagreen2" :foreground "blue"))))
+    (holiday-face ((t (:background "pink" :foreground "black"))))
+    (info-node ((t (:bold t))))
+    (info-xref ((t (:bold t))))
+    (isearch ((t (:background "yellow" :foreground "red"))))
+    (italic ((t (:bold t))))
+    (left-margin ((t (nil))))
+    (list-mode-item-selected ((t (:background "gray68" :foreground "black"))))
+    (message-cited-text-face ((t (:foreground "red"))))
+    (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+    (message-header-name-face ((t (:foreground "cornflower blue"))))
+    (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
+    (message-header-other-face ((t (:foreground "steel blue"))))
+    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-mml-face ((t (:foreground "ForestGreen"))))
+    (message-separator-face ((t (:foreground "brown"))))
+    (modeline ((t (:background "bisque2" :foreground "steelblue4"))))
+    (modeline-buffer-id ((t (:background "bisque2" :foreground "blue4"))))
+    (modeline-mousable ((t (:background "bisque2" :foreground "firebrick"))))
+    (modeline-mousable-minor-mode ((t (:background "bisque2" :foreground "green4"))))
+    (paren-blink-off ((t (:foreground "azure1"))))
+    (paren-face ((t (:background "lightgoldenrod"))))
+    (paren-match ((t (:background "bisque2"))))
+    (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
+    (paren-mismatch-face ((t (:background "DeepPink"))))
+    (paren-no-match-face ((t (:background "yellow"))))
+    (pointer ((t (:background "white" :foreground "blue"))))
+    (primary-selection ((t (:background "gray65"))))
+    (red ((t (:foreground "red"))))
+    (right-margin ((t (nil))))
+    (secondary-selection ((t (:background "paleturquoise"))))
+    (shell-option-face ((t (:foreground "gray50"))))
+    (shell-output-2-face ((t (:foreground "green4"))))
+    (shell-output-3-face ((t (:foreground "green4"))))
+    (shell-output-face ((t (:bold t))))
+    (shell-prompt-face ((t (:foreground "blue3"))))
+    (speedbar-button-face ((t (:foreground "green4"))))
+    (speedbar-directory-face ((t (:foreground "blue4"))))
+    (speedbar-file-face ((t (:foreground "cyan4"))))
+    (speedbar-highlight-face ((t (:background "green"))))
+    (speedbar-selected-face ((t (:underline t :foreground "red"))))
+    (speedbar-tag-face ((t (:foreground "brown"))))
+    (text-cursor ((t (:background "Red3" :foreground "bisque"))))
+    (toolbar ((t (:background "Gray80"))))
+    (underline ((t (:underline t))))
+    (vertical-divider ((t (nil))))
+    (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+    (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+    (vhdl-font-lock-enumvalue-face ((t (:foreground "SaddleBrown"))))
+    (vhdl-font-lock-function-face ((t (:foreground "DarkCyan"))))
+    (vhdl-font-lock-generic-/constant-face ((t (:foreground "Gold3"))))
+    (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
+    (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
+    (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+    (vhdl-font-lock-type-face ((t (:foreground "ForestGreen"))))
+    (vhdl-font-lock-variable-face ((t (:foreground "Grey50"))))
+    (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+    (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
+    (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+    (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
+    (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+    (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
+    (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+    (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
+    (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+    (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
+    (vhdl-speedbar-subprogram-face ((t (:foreground "Orchid4"))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "red"))))
+    (widget-documentation-face ((t (:foreground "dark green"))))
+    (widget-field-face ((t (:background "gray85"))))
+    (widget-inactive-face ((t (:foreground "dim gray"))))
+    (yellow ((t (:foreground "yellow"))))
+    (zmacs-region ((t (:background "steelblue" :foreground "yellow")))))))
+
+(defun color-theme-parus ()
+  "Color theme by Jon K Hellan, created 2000-11-01.
+White on dark blue color theme.
+
+There is some redundancy in the X resources, but I do not have time to
+find out which should go or which should stay:
+
+Emacs*dialog*Background:	midnightblue
+Emacs*dialog*Foreground:	white
+Emacs*popup*Background:		midnightblue
+Emacs*popup*Foreground:		white
+emacs*background:		#00005a
+emacs*cursorColor:		gray90
+emacs*foreground:		White
+emacs.dialog*.background:	midnightblue
+emacs.menu*.background:		midnightblue
+emacs.pane.menubar.background:	midnightblue"
+  (interactive)
+  (color-theme-install
+   '(color-theme-parus
+     ((background-color . "#00005a")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "yellow")
+      (foreground-color . "White")
+      (mouse-color . "yellow"))
+     ((gnus-mouse-face . highlight)
+      (list-matching-lines-face . bold)
+      (paren-face . bold)
+      (paren-mismatch-face . paren-mismatch-face)
+      (paren-no-match-face . paren-no-match-face)
+      (view-highlight-face . highlight))
+    (default ((t (nil))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (font-latex-bold-face ((t (:bold t :foreground "OliveDrab"))))
+    (font-latex-italic-face ((t (:italic t :foreground "OliveDrab"))))
+    (font-latex-math-face ((t (:foreground "burlywood"))))
+    (font-latex-sedate-face ((t (:foreground "LightGray"))))
+    (font-latex-string-face ((t (:foreground "LightSalmon"))))
+    (font-latex-warning-face ((t (:foreground "Pink"))))
+    (font-lock-builtin-face ((t (:foreground "#e0e0ff"))))
+    (font-lock-reference-face ((t (:foreground "#e0e0ff"))))
+    (font-lock-comment-face ((t (:foreground "#FFd1d1"))))
+    (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+    (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
+    (font-lock-function-name-face ((t (:foreground "#b2e4ff"))))
+    (font-lock-keyword-face ((t (:foreground "#a0ffff"))))
+    (font-lock-string-face ((t (:foreground "#efca10"))))
+    (font-lock-doc-string-face ((t (:foreground "#efca10"))))
+    (font-lock-type-face ((t (:foreground "PaleGreen"))))
+    (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+    (gnus-cite-attribution-face ((t (:italic t))))
+    (gnus-cite-face-1 ((t (:foreground "#dfdfff"))))
+    (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+    (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+    (gnus-cite-face-2 ((t (:foreground "light cyan"))))
+    (gnus-cite-face-3 ((t (:foreground "light yellow"))))
+    (gnus-cite-face-4 ((t (:foreground "light pink"))))
+    (gnus-cite-face-5 ((t (:foreground "pale green"))))
+    (gnus-cite-face-6 ((t (:foreground "beige"))))
+    (gnus-cite-face-7 ((t (:foreground "orange"))))
+    (gnus-cite-face-8 ((t (:foreground "magenta"))))
+    (gnus-cite-face-9 ((t (:foreground "violet"))))
+    (gnus-emphasis-bold ((t (:bold t))))
+    (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+    (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+    (gnus-emphasis-italic ((t (:italic t))))
+    (gnus-emphasis-underline ((t (:underline t))))
+    (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+    (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+    (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+    (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+    (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
+    (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+    (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
+    (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+    (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
+    (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+    (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
+    (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+    (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
+    (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+    (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
+    (gnus-group-news-3-empty-face ((t (nil))))
+    (gnus-group-news-3-face ((t (:bold t))))
+    (gnus-group-news-4-empty-face ((t (nil))))
+    (gnus-group-news-4-face ((t (:bold t))))
+    (gnus-group-news-5-empty-face ((t (nil))))
+    (gnus-group-news-5-face ((t (:bold t))))
+    (gnus-group-news-6-empty-face ((t (nil))))
+    (gnus-group-news-6-face ((t (:bold t))))
+    (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+    (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
+    (gnus-header-content-face ((t (:italic t :foreground "#90f490"))))
+    (gnus-header-from-face ((t (:foreground "#aaffaa"))))
+    (gnus-header-name-face ((t (:foreground "#c7e3c7"))))
+    (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow"))))
+    (gnus-header-subject-face ((t (:foreground "#a0f0a0"))))
+    (gnus-signature-face ((t (:italic t))))
+    (gnus-splash-face ((t (:foreground "Brown"))))
+    (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+    (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
+    (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
+    (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
+    (gnus-summary-high-unread-face ((t (:bold t))))
+    (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
+    (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
+    (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
+    (gnus-summary-low-unread-face ((t (:italic t))))
+    (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+    (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+    (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+    (gnus-summary-normal-unread-face ((t (nil))))
+    (gnus-summary-selected-face ((t (:underline t))))
+    (highlight ((t (:background "darkolivegreen"))))
+    (italic ((t (:italic t))))
+    (message-cited-text-face ((t (:foreground "#dfdfff"))))
+    (message-header-cc-face ((t (:bold t :foreground "#a0f0a0"))))
+    (message-header-name-face ((t (:foreground "#c7e3c7"))))
+    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
+    (message-header-other-face ((t (:foreground "#db9b9b"))))
+    (message-header-subject-face ((t (:foreground "#a0f0a0"))))
+    (message-header-to-face ((t (:bold t :foreground "#aaffaa"))))
+    (message-header-xheader-face ((t (:foreground "#e2e2ff"))))
+    (message-mml-face ((t (:foreground "#abdbab"))))
+    (message-separator-face ((t (:foreground "#dfdfff"))))
+    (modeline ((t (:background "White" :foreground "#00005a"))))
+    (modeline-buffer-id ((t (:background "White" :foreground "#00005a"))))
+    (modeline-mousable ((t (:background "White" :foreground "#00005a"))))
+    (modeline-mousable-minor-mode ((t (:background "White" :foreground "#00005a"))))
+    (paren-mismatch-face ((t (:background "DeepPink"))))
+    (paren-no-match-face ((t (:background "yellow"))))
+    (region ((t (:background "blue"))))
+    (primary-selection ((t (:background "blue"))))
+    (isearch ((t (:background "blue"))))
+    (secondary-selection ((t (:background "darkslateblue"))))
+    (underline ((t (:underline t))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "red"))))
+    (widget-documentation-face ((t (:foreground "lime green"))))
+    (widget-field-face ((t (:background "dim gray"))))
+    (widget-inactive-face ((t (:foreground "light gray"))))
+    (widget-single-line-field-face ((t (:background "dim gray")))))))
+
+(defun color-theme-high-contrast ()
+  "High contrast color theme, maybe for the visually impaired.
+Watch out!  This will set a very large font-size!
+
+If you want to modify the font as well, you should customize variable
+`color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
+The default setting will prevent color themes from installing specific
+fonts."
+  (interactive)
+  (color-theme-standard)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-install
+     '(color-theme-high-contrast
+       ((cursor-color . "red")
+	(width . 60)
+	(height . 25)
+	(background . dark))
+       (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :height 240 :width normal :family "adobe-courier"))))
+
+       (bold ((t (:bold t :underline t))))
+       (bold-italic ((t (:bold t :underline t))))
+       (font-lock-builtin-face ((t (:bold t :foreground "Red"))))
+       (font-lock-comment-face ((t (:bold t :foreground "Firebrick"))))
+       (font-lock-constant-face ((t (:bold t :underline t :foreground "Blue"))))
+       (font-lock-function-name-face ((t (:bold t :foreground "Blue"))))
+       (font-lock-keyword-face ((t (:bold t :foreground "Purple"))))
+       (font-lock-string-face ((t (:bold t :foreground "DarkGreen"))))
+       (font-lock-type-face ((t (:bold t :foreground "ForestGreen"))))
+       (font-lock-variable-name-face ((t (:bold t :foreground "DarkGoldenrod"))))
+       (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+       (highlight ((t (:background "black" :foreground "white" :bold 1))))
+       (info-menu-5 ((t (:underline t :bold t))))
+       (info-node ((t (:bold t))))
+       (info-xref ((t (:bold t ))))
+       (italic ((t (:bold t :underline t))))
+       (modeline ((t (:background "black" :foreground "white" :bold 1))))
+       (modeline-buffer-id ((t (:background "black" :foreground "white" :bold 1))))
+       (modeline-mousable ((t (:background "black" :foreground "white" :bold 1))))
+       (modeline-mousable-minor-mode ((t (:background "black" :foreground "white" :bold 1))))
+       (region ((t (:background "black" :foreground "white" :bold 1))))
+       (secondary-selection ((t (:background "black" :foreground "white" :bold 1))))
+       (underline ((t (:bold t :underline t))))))))
+
+(defun color-theme-infodoc ()
+  "Color theme by Frederic Giroud, created 2001-01-18.
+Black on wheat scheme.  Based on infodoc (xemacs variant distribution),
+with my favorit fontlock color."
+  (interactive)
+  (color-theme-install
+   '(color-theme-infodoc
+     ((background-color . "wheat")
+      (background-mode . light)
+      (background-toolbar-color . "#000000000000")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#000000000000")
+      (cursor-color . "red")
+      (foreground-color . "black")
+      (top-toolbar-shadow-color . "#ffffffffffff"))
+     nil
+    (default ((t (:bold t))))
+    (blue ((t (:bold t :foreground "blue"))))
+    (bold ((t (:background "wheat" :foreground "black"))))
+    (bold-italic ((t (:bold t :background "wheat" :foreground "black"))))
+    (border-glyph ((t (:bold t))))
+    (calendar-today-face ((t (:underline t :bold t))))
+    (custom-button-face ((t (nil))))
+    (custom-changed-face ((t (:bold t :background "blue" :foreground "white"))))
+    (custom-documentation-face ((t (:bold t :background "wheat" :foreground "purple4"))))
+    (custom-face-tag-face ((t (:underline t :bold t))))
+    (custom-group-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue"))))
+    (custom-group-tag-face-1 ((t (:underline t :bold t :background "wheat" :foreground "red"))))
+    (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow"))))
+    (custom-modified-face ((t (:bold t :background "blue" :foreground "white"))))
+    (custom-rogue-face ((t (:bold t :background "black" :foreground "pink"))))
+    (custom-saved-face ((t (:underline t :bold t))))
+    (custom-set-face ((t (:bold t :background "white" :foreground "blue"))))
+    (custom-state-face ((t (:bold t :background "wheat" :foreground "dark green"))))
+    (custom-variable-button-face ((t (:underline t))))
+    (custom-variable-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue"))))
+    (diary-face ((t (:bold t :foreground "red"))))
+    (display-time-mail-balloon-enhance-face ((t (:bold t :background "wheat" :foreground "black"))))
+    (display-time-mail-balloon-gnus-group-face ((t (:bold t :background "wheat" :foreground "blue"))))
+    (display-time-time-balloon-face ((t (:bold t :background "light salmon" :foreground "dark green"))))
+    (font-lock-comment-face ((t (:bold t :background "wheat" :foreground "turquoise4"))))
+    (font-lock-doc-string-face ((t (:bold t :background "wheat" :foreground "purple4"))))
+    (font-lock-function-name-face ((t (:bold t :background "wheat" :foreground "blue4"))))
+    (font-lock-keyword-face ((t (:bold t :background "wheat" :foreground "dark orchid"))))
+    (font-lock-preprocessor-face ((t (:bold t :background "wheat" :foreground "orchid4"))))
+    (font-lock-reference-face ((t (:bold t :background "wheat" :foreground "red3"))))
+    (font-lock-string-face ((t (:bold t :background "wheat" :foreground "dark goldenrod"))))
+    (font-lock-type-face ((t (:bold t :background "wheat" :foreground "brown"))))
+    (font-lock-variable-name-face ((t (:bold t :background "wheat" :foreground "chocolate"))))
+    (font-lock-warning-face ((t (:bold t :background "wheat" :foreground "black"))))
+    (gdb-arrow-face ((t (:bold t :background "LightGreen" :foreground "black"))))
+    (green ((t (:bold t :foreground "green"))))
+    (gui-button-face ((t (:bold t :background "wheat" :foreground "red"))))
+    (gui-element ((t (:bold t :background "wheat" :foreground "black"))))
+    (highlight ((t (:bold t :background "darkseagreen2" :foreground "dark green"))))
+    (holiday-face ((t (:bold t :background "pink" :foreground "black"))))
+    (hproperty:but-face ((t (:bold t :background "wheat" :foreground "medium violet red"))))
+    (hproperty:flash-face ((t (:bold t :background "wheat" :foreground "gray80"))))
+    (hproperty:highlight-face ((t (:bold t :background "wheat" :foreground "red"))))
+    (hproperty:item-face ((t (:bold t))))
+    (isearch ((t (:bold t :background "pale turquoise" :foreground "blue"))))
+    (italic ((t (:bold t :background "wheat" :foreground "black"))))
+    (left-margin ((t (:bold t :background "wheat" :foreground "black"))))
+    (list-mode-item-selected ((t (:bold t :background "gray68" :foreground "black"))))
+    (message-cited-text ((t (:bold t :background "wheat" :foreground "brown"))))
+    (message-header-contents ((t (:bold t :background "wheat" :foreground "black"))))
+    (message-headers ((t (:bold t :background "wheat" :foreground "black"))))
+    (message-highlighted-header-contents ((t (:bold t :background "wheat" :foreground "blue"))))
+    (message-url ((t (nil))))
+    (modeline ((t (:bold t :background "light salmon" :foreground "dark green"))))
+    (modeline-buffer-id ((t (:bold t :background "light salmon" :foreground "blue4"))))
+    (modeline-mousable ((t (:bold t :background "light salmon" :foreground "firebrick"))))
+    (modeline-mousable-minor-mode ((t (:bold t :background "light salmon" :foreground "green4"))))
+    (pointer ((t (:bold t :background "wheat" :foreground "red"))))
+    (primary-selection ((t (:bold t :background "medium sea green"))))
+    (red ((t (:bold t :foreground "red"))))
+    (right-margin ((t (:bold t :background "wheat" :foreground "black"))))
+    (secondary-selection ((t (:bold t :background "paleturquoise" :foreground "black"))))
+    (shell-input-face ((t (:bold t :background "wheat" :foreground "blue"))))
+    (shell-option-face ((t (:bold t :background "wheat" :foreground "turquoise4"))))
+    (shell-output-2-face ((t (:bold t :background "wheat" :foreground "dark goldenrod"))))
+    (shell-output-3-face ((t (:bold t :background "wheat" :foreground "dark goldenrod"))))
+    (shell-output-face ((t (:bold t :background "wheat" :foreground "black"))))
+    (shell-prompt-face ((t (:bold t :background "wheat" :foreground "dark orchid"))))
+    (text-cursor ((t (:bold t :background "red" :foreground "wheat"))))
+    (toolbar ((t (:bold t :background "wheat" :foreground "black"))))
+    (underline ((t (:underline t :bold t :background "wheat" :foreground "black"))))
+    (vertical-divider ((t (:bold t))))
+    (widget-button-face ((t (nil))))
+    (widget-button-pressed-face ((t (:bold t :background "wheat" :foreground "red"))))
+    (widget-documentation-face ((t (:bold t :background "wheat" :foreground "dark green"))))
+    (widget-field-face ((t (:bold t :background "gray85"))))
+    (widget-inactive-face ((t (:bold t :background "wheat" :foreground "dim gray"))))
+    (x-face ((t (:bold t :background "wheat" :foreground "black"))))
+    (yellow ((t (:bold t :foreground "yellow"))))
+    (zmacs-region ((t (:bold t :background "lightyellow" :foreground "darkgreen")))))))
+
+(defun color-theme-classic ()
+  "Color theme by Frederic Giroud, created 2001-01-18.
+AntiqueWhite on darkslategrey scheme.  Based on Gnome 2, with my favorit
+color foreground-color and fontlock color."
+  (interactive)
+  (color-theme-blue-gnus)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-install
+     '(color-theme-classic
+       ((foreground-color . "AntiqueWhite")
+	(background-color . "darkslategrey")
+	(mouse-color . "Grey")
+	(cursor-color . "Red")
+	(border-color . "black")
+	(background-mode . dark))
+       ((apropos-keybinding-face . underline)
+	(apropos-label-face . italic)
+	(apropos-match-face . secondary-selection)
+	(apropos-property-face . bold-italic)
+	(apropos-symbol-face . info-xref)
+	(goto-address-mail-face . message-header-to-face)
+	(goto-address-mail-mouse-face . secondary-selection)
+	(goto-address-url-face . info-xref)
+	(goto-address-url-mouse-face . highlight)
+	(list-matching-lines-face . bold)
+	(view-highlight-face . highlight))
+       (default ((t (nil))))
+       (bold ((t (:bold t))))
+       (bold-italic ((t (:italic t :bold t :foreground "beige"))))
+       (calendar-today-face ((t (:underline t))))
+       (cperl-array-face ((t (:foreground "Yellow"))))
+       (cperl-hash-face ((t (:foreground "White"))))
+       (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
+       (custom-button-face ((t (:underline t :foreground "MediumSlateBlue"))))
+       (custom-documentation-face ((t (:foreground "Grey"))))
+       (custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
+       (custom-state-face ((t (:foreground "LightSalmon"))))
+       (custom-variable-tag-face ((t (:foreground "Aquamarine"))))
+       (diary-face ((t (:foreground "IndianRed"))))
+       (erc-action-face ((t (:bold t))))
+       (erc-bold-face ((t (:bold t))))
+       (erc-default-face ((t (nil))))
+       (erc-direct-msg-face ((t (:foreground "LightSalmon"))))
+       (erc-error-face ((t (:bold t :foreground "IndianRed"))))
+       (erc-input-face ((t (:foreground "Beige"))))
+       (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
+       (erc-notice-face ((t (:foreground "MediumAquamarine"))))
+       (erc-pal-face ((t (:foreground "pale green"))))
+       (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
+       (erc-underline-face ((t (:underline t))))
+       (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
+       (eshell-ls-backup-face ((t (:foreground "Grey"))))
+       (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
+       (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
+       (eshell-ls-executable-face ((t (:foreground "Coral"))))
+       (eshell-ls-missing-face ((t (:foreground "black"))))
+       (eshell-ls-picture-face ((t (:foreground "Violet"))))
+       (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
+       (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
+       (eshell-ls-special-face ((t (:foreground "Gold"))))
+       (eshell-ls-symlink-face ((t (:foreground "White"))))
+       (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
+       (eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
+       (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen"))))
+       (font-lock-comment-face ((t (:foreground "tomato3"))))
+       (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+       (font-lock-doc-string-face ((t (:foreground "LightSalmon3"))))
+       (font-lock-function-name-face ((t (:foreground "SteelBlue1"))))
+       (font-lock-keyword-face ((t (:foreground "cyan1"))))
+       (font-lock-reference-face ((t (:foreground "LightSalmon2"))))
+       (font-lock-string-face ((t (:foreground "LightSalmon3"))))
+       (font-lock-type-face ((t (:foreground "PaleGreen3"))))
+       (font-lock-variable-name-face ((t (:foreground "khaki1"))))
+       (font-lock-warning-face ((t (:bold t :foreground "IndianRed"))))
+       (font-lock-preprocessor-face ((t (:foreground "SkyBlue3"))))
+       (widget-field-face ((t (:background "DarkCyan"))))
+       (custom-group-tag-face ((t(:foreground "brown" :underline t))))
+       (custom-state-face ((t (:foreground "khaki"))))
+       (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
+       (highline-face ((t (:background "SeaGreen"))))
+       (holiday-face ((t (:background "DimGray"))))
+       (info-menu-5 ((t (:underline t))))
+       (info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
+       (info-xref ((t (:underline t :foreground "DodgerBlue1"))))
+       (isearch ((t (:foreground "red" :background "CornflowerBlue"))))
+       (italic ((t (:italic t))))
+       (modeline ((t (:background "LightSlateGray" :foreground "AntiqueWhite"))))
+       (modeline-buffer-id ((t (:background "LightSlateGray" :foreground "DarkBlue"))))
+       (modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick"))))
+       (modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "wheat"))))
+       (region ((t (:background "dark cyan" :foreground "cyan"))))
+       (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
+       (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
+       (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
+       (underline ((t (:underline t))))
+       (widget-field-face ((t (:foreground "LightBlue"))))
+       (widget-inactive-face ((t (:foreground "DimGray"))))
+       (widget-single-line-field-face ((t (:foreground "LightBlue"))))
+       (woman-bold-face ((t (:bold t))))
+       (woman-italic-face ((t (:foreground "beige"))))
+       (woman-unknown-face ((t (:foreground "LightSalmon"))))))))
+
+(defun color-theme-scintilla ()
+  "Color theme by Gordon Messmer, created 2001-02-07.
+Based on the Scintilla editor.
+
+If you want to modify the font as well, you should customize variable
+`color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
+The default setting will prevent color themes from installing specific
+fonts."
+  (interactive)
+  (color-theme-install
+   ;; The light editor style doesn't seem to look right with
+   ;; the same font that works in the dark editor style.
+   ;; Dark letters on light background just isn't as visible.
+   '(color-theme-scintilla
+     ((font . "-monotype-courier new-bold-r-normal-*-*-140-*-*-m-*-iso8859-1")
+      (width  . 95)
+      (height . 40)
+      (background-color . "white")
+      (foreground-color . "black")
+      (background-mode . light)
+      (mouse-color . "grey15")
+      (cursor-color . "grey15"))
+     (default ((t nil)))
+     (font-lock-comment-face ((t (:italic t :foreground "ForestGreen"))))
+     (font-lock-string-face ((t (:foreground "DarkMagenta"))))
+     (font-lock-keyword-face ((t (:foreground "NavyBlue"))))
+     (font-lock-warning-face ((t (:bold t :foreground "VioletRed"))))
+     (font-lock-constant-face ((t (:foreground "Blue"))))
+     (font-lock-type-face ((t (:foreground "NavyBlue"))))
+     (font-lock-variable-name-face ((t (:foreground "DarkCyan"))))
+     (font-lock-function-name-face ((t (:foreground "DarkCyan"))))
+     (font-lock-builtin-face ((t (:foreground "NavyBlue"))))
+     (highline-face ((t (:background "Grey95"))))
+     (show-paren-match-face ((t (:background "Grey80"))))
+     (region ((t (:background "Grey80"))))
+     (highlight ((t (:foreground "ForestGreen"))))
+     (secondary-selection ((t (:background "NavyBlue" :foreground "white"))))
+     (widget-field-face ((t (:background "NavyBlue"))))
+     (widget-single-line-field-face ((t (:background "RoyalBlue")))))) )
+
+(defun color-theme-gtk-ide ()
+  "Color theme by Gordon Messmer, created 2001-02-07.
+Inspired by a GTK IDE whose name I've forgotten.
+
+If you want to modify the font as well, you should customize variable
+`color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
+The default setting will prevent color themes from installing specific
+fonts."
+  ;; The light editor style doesn't seem to look right with
+  ;; the same font that works in the dark editor style.
+  ;; Dark letters on light background just isn't as visible.
+  (interactive)
+  (color-theme-install
+   '(color-theme-gtk-ide
+     ((font . "-monotype-courier new-medium-r-normal-*-*-120-*-*-m-*-iso8859-15")
+      (width  . 95)
+      (height . 45)
+      (background-color . "white")
+      (foreground-color . "black")
+      (background-mode . light)
+      (mouse-color . "grey15")
+      (cursor-color . "grey15"))
+     (default ((t nil)))
+     (font-lock-comment-face ((t (:italic t :foreground "grey55"))))
+     (font-lock-string-face ((t (:foreground "DarkRed"))))
+     (font-lock-keyword-face ((t (:foreground "DarkBlue"))))
+     (font-lock-warning-face ((t (:bold t :foreground "VioletRed"))))
+     (font-lock-constant-face ((t (:foreground "OliveDrab"))))
+     (font-lock-type-face ((t (:foreground "SteelBlue4"))))
+     (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
+     (font-lock-function-name-face ((t (:foreground "SlateBlue"))))
+     (font-lock-builtin-face ((t (:foreground "ForestGreen"))))
+     (highline-face ((t (:background "grey95"))))
+     (show-paren-match-face ((t (:background "grey80"))))
+     (region ((t (:background "grey80"))))
+     (highlight ((t (:background "LightSkyBlue"))))
+     (secondary-selection ((t (:background "grey55"))))
+     (widget-field-face ((t (:background "navy"))))
+     (widget-single-line-field-face ((t (:background "royalblue")))))) )
+
+(defun color-theme-midnight ()
+  "Color theme by Gordon Messmer, created 2001-02-07.
+A color theme inspired by a certain IDE for Windows.  It's all from memory,
+since I only used that software in college.
+
+If you want to modify the font as well, you should customize variable
+`color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
+The default setting will prevent color themes from installing specific
+fonts."
+  (interactive)
+  (color-theme-install
+   '(color-theme-midnight
+     ((font . "fixed")
+      (width . 130)
+      (height . 50)
+      (background-color . "black")
+      (foreground-color . "grey85")
+      (background-mode . dark)
+      (mouse-color . "grey85")
+      (cursor-color . "grey85"))
+     (default ((t (nil))))
+     (font-lock-comment-face ((t (:italic t :foreground "grey60"))))
+     (font-lock-string-face ((t (:foreground "Magenta"))))
+     (font-lock-keyword-face ((t (:foreground "Cyan"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+     (font-lock-constant-face ((t (:foreground "OliveDrab"))))
+     (font-lock-type-face ((t (:foreground "DarkCyan"))))
+     (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
+     (font-lock-function-name-face ((t (:foreground "SlateBlue"))))
+     (font-lock-builtin-face ((t (:foreground "SkyBlue"))))
+     (highline-face ((t (:background "grey12"))))
+     (setnu-line-number-face ((t (:background "Grey15" :foreground "White" :bold t))))
+     (show-paren-match-face ((t (:background "grey30"))))
+     (region ((t (:background "grey15"))))
+     (highlight ((t (:background "blue"))))
+     (secondary-selection ((t (:background "navy"))))
+     (widget-field-face ((t (:background "navy"))))
+     (widget-single-line-field-face ((t (:background "royalblue")))))) )
+
+(defun color-theme-jedit-grey ()
+  "Color theme by Gordon Messmer, created 2001-02-07.
+Based on a screenshot of jedit.
+
+If you want to modify the font as well, you should customize variable
+`color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
+The default setting will prevent color themes from installing specific
+fonts."
+  (interactive)
+  (color-theme-install
+   '(color-theme-jedit-grey
+     ((font . "fixed")
+      (width . 130)
+      (height . 50)
+      (background-color . "grey77")
+      (foreground-color . "black")
+      (background-mode . light)
+      (mouse-color . "black")
+      (cursor-color . "black"))
+     (default ((t (nil))))
+     (font-lock-comment-face ((t (:italic t :foreground "RoyalBlue4"))))
+     (font-lock-string-face ((t (:foreground "Gold4"))))
+     (font-lock-keyword-face ((t (:bold t :foreground "DarkRed"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+     (font-lock-constant-face ((t (:foreground "DarkCyan"))))
+     (font-lock-type-face ((t (:foreground "DarkRed"))))
+     (font-lock-function-name-face ((t (:foreground "Green4"))))
+     (font-lock-builtin-face ((t (:bold t :foreground "DarkRed"))))
+     (highline-face ((t (:background "grey84"))))
+     (setnu-line-number-face ((t (:background "White" :foreground "MediumPurple3" :italic t))))
+     (show-paren-match-face ((t (:background "grey60"))))
+     (region ((t (:background "grey70"))))
+     (highlight ((t (:background "grey90"))))
+     (secondary-selection ((t (:background "white"))))
+     (widget-field-face ((t (:background "royalblue"))))
+     (widget-single-line-field-face ((t (:background "royalblue")))))) )
+
+(defun color-theme-snow ()
+  "Color theme by Nicolas Rist, created 2001-03-08.
+Black on gainsboro.  In Emacs, the text background is a shade darker
+than the frame background: Gainsboro instead of snow.  This makes the
+structure of the text clearer without being too agressive on the eyes.
+On XEmacs, this doesn't really work as the frame and the default face
+allways use the same foreground and background colors.
+The color theme includes gnus, message, font-lock, sgml, and speedbar."
+  (interactive)
+  (color-theme-install
+   '(color-theme-snow
+     ((background-color . "snow2")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "RoyalBlue2")
+      (foreground-color . "black")
+      (mouse-color . "black"))
+     ((gnus-mouse-face . highlight)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight))
+    (default ((t (:background "gainsboro" :foreground "dark slate gray"))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (calendar-today-face ((t (:underline t))))
+    (custom-button-face ((t (:background "gainsboro" :foreground "dark cyan"))))
+    (custom-documentation-face ((t (:background "gainsboro"))))
+    (diary-face ((t (:foreground "red"))))
+    (fg:black ((t (:foreground "black"))))
+    (font-lock-builtin-face ((t (:background "gainsboro" :foreground "medium orchid"))))
+    (font-lock-comment-face ((t (:background "gainsboro" :foreground "SteelBlue3"))))
+    (font-lock-constant-face ((t (:background "gainsboro" :foreground "orange3"))))
+    (font-lock-function-name-face ((t (:background "gainsboro" :foreground "blue3"))))
+    (font-lock-keyword-face ((t (:background "gainsboro" :foreground "red3"))))
+    (font-lock-string-face ((t (:background "gainsboro" :foreground "SpringGreen3"))))
+    (font-lock-type-face ((t (:background "gainsboro" :foreground "dark cyan"))))
+    (font-lock-variable-name-face ((t (:background "gainsboro" :foreground "purple2"))))
+    (font-lock-warning-face ((t (:bold t :background "gainsboro" :foreground "red"))))
+    (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+    (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+    (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+    (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+    (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+    (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+    (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+    (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+    (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+    (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+    (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+    (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+    (gnus-group-news-3-empty-face ((t (nil))))
+    (gnus-group-news-3-face ((t (:bold t))))
+    (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+    (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-splash-face ((t (:foreground "ForestGreen"))))
+    (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+    (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+    (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+    (gnus-summary-high-unread-face ((t (:bold t))))
+    (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
+    (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
+    (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
+    (gnus-summary-low-unread-face ((t (:italic t))))
+    (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+    (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+    (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
+    (gnus-summary-normal-unread-face ((t (nil))))
+    (gnus-summary-selected-face ((t (:underline t))))
+    (gui-button-face ((t (:foreground "light grey"))))
+    (highlight ((t (:background "LightSteelBlue1"))))
+    (holiday-face ((t (:background "pink"))))
+    (ibuffer-marked-face ((t (:foreground "red"))))
+    (italic ((t (:italic t))))
+    (message-cited-text-face ((t (:foreground "red"))))
+    (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+    (message-header-name-face ((t (:foreground "cornflower blue"))))
+    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
+    (message-header-other-face ((t (:foreground "steel blue"))))
+    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-separator-face ((t (:foreground "brown"))))
+    (modeline ((t (:background "dark slate gray" :foreground "gainsboro"))))
+    (modeline-buffer-id ((t (:background "dark slate gray" :foreground "gainsboro"))))
+    (modeline-mousable ((t (:background "dark slate gray" :foreground "gainsboro"))))
+    (modeline-mousable-minor-mode ((t (:background "dark slate gray" :foreground "gainsboro"))))
+    (region ((t (:background "lavender"))))
+    (secondary-selection ((t (:background "paleturquoise"))))
+    (sgml-comment-face ((t (:foreground "dark green"))))
+    (sgml-doctype-face ((t (:foreground "maroon"))))
+    (sgml-end-tag-face ((t (:foreground "blue2"))))
+    (sgml-entity-face ((t (:foreground "red2"))))
+    (sgml-ignored-face ((t (:background "gray90" :foreground "maroon"))))
+    (sgml-ms-end-face ((t (:foreground "maroon"))))
+    (sgml-ms-start-face ((t (:foreground "maroon"))))
+    (sgml-pi-face ((t (:foreground "maroon"))))
+    (sgml-sgml-face ((t (:foreground "maroon"))))
+    (sgml-short-ref-face ((t (:foreground "goldenrod"))))
+    (sgml-start-tag-face ((t (:foreground "blue2"))))
+    (show-paren-match-face ((t (:background "SlateGray1"))))
+    (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+    (speedbar-button-face ((t (:foreground "green4"))))
+    (speedbar-directory-face ((t (:foreground "blue4"))))
+    (speedbar-file-face ((t (:foreground "cyan4"))))
+    (speedbar-highlight-face ((t (:background "dark turquoise" :foreground "white"))))
+    (speedbar-selected-face ((t (:underline t :foreground "red"))))
+    (speedbar-tag-face ((t (:foreground "brown"))))
+    (underline ((t (:underline t)))))))
+
+(defun color-theme-montz ()
+  "Color theme by Brady Montz, created 2001-03-08.
+Black on Gray.
+Includes dired, bbdb, font-lock, gnus, message, viper, and widget."
+  (interactive)
+  (color-theme-install
+   '(color-theme-montz
+     ((background-color . "gray80")
+      (background-mode . light)
+      (background-toolbar-color . "#cccccccccccc")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a")
+      (cursor-color . "Red3")
+      (foreground-color . "black")
+      (top-toolbar-shadow-color . "#f5f5f5f5f5f5")
+      (viper-saved-cursor-color-in-replace-mode . "Red3"))
+     ((gnus-mouse-face . highlight)
+      (paren-match-face . paren-face-match)
+      (paren-mismatch-face . paren-face-mismatch)
+      (paren-no-match-face . paren-face-no-match)
+      (smiley-mouse-face . highlight))
+    (default ((t (nil))))
+    (bbdb-company ((t (:italic t))))
+    (bbdb-field-name ((t (:bold t))))
+    (bbdb-field-value ((t (nil))))
+    (bbdb-name ((t (:underline t))))
+    (blue ((t (:foreground "blue"))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (border-glyph ((t (nil))))
+    (dired-face-boring ((t (:foreground "Gray65"))))
+    (dired-face-directory ((t (:bold t))))
+    (dired-face-executable ((t (:foreground "SeaGreen"))))
+    (dired-face-flagged ((t (:background "LightSlateGray"))))
+    (dired-face-marked ((t (:background "PaleVioletRed"))))
+    (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
+    (dired-face-setuid ((t (:foreground "Red"))))
+    (dired-face-socket ((t (:foreground "magenta"))))
+    (dired-face-symlink ((t (:foreground "cyan"))))
+    (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+    (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+    (display-time-time-balloon-face ((t (:foreground "red"))))
+    (font-lock-builtin-face ((t (:foreground "red3"))))
+    (font-lock-comment-face ((t (:foreground "blue"))))
+    (font-lock-constant-face ((t (:foreground "red3"))))
+    (font-lock-doc-string-face ((t (:foreground "mediumvioletred"))))
+    (font-lock-function-name-face ((t (:foreground "firebrick"))))
+    (font-lock-keyword-face ((t (:bold t :foreground "black"))))
+    (font-lock-preprocessor-face ((t (:foreground "blue3"))))
+    (font-lock-reference-face ((t (:foreground "red3"))))
+    (font-lock-string-face ((t (:foreground "mediumvioletred"))))
+    (font-lock-type-face ((t (:foreground "darkgreen"))))
+    (font-lock-variable-name-face ((t (:foreground "black"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+    (gnus-cite-attribution-face ((t (:italic t))))
+    (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+    (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+    (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+    (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+    (gnus-cite-face-3 ((t (:foreground "dark green"))))
+    (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+    (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+    (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+    (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+    (gnus-cite-face-8 ((t (:foreground "magenta"))))
+    (gnus-cite-face-9 ((t (:foreground "violet"))))
+    (gnus-emphasis-bold ((t (:bold t))))
+    (gnus-emphasis-bold-italic ((t (:bold t))))
+    (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+    (gnus-emphasis-italic ((t (:italic t))))
+    (gnus-emphasis-underline ((t (:underline t))))
+    (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+    (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t))))
+    (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+    (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+    (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+    (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+    (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+    (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+    (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+    (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+    (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+    (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+    (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+    (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+    (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+    (gnus-group-news-3-empty-face ((t (nil))))
+    (gnus-group-news-3-face ((t (:bold t))))
+    (gnus-group-news-4-empty-face ((t (nil))))
+    (gnus-group-news-4-face ((t (:bold t))))
+    (gnus-group-news-5-empty-face ((t (nil))))
+    (gnus-group-news-5-face ((t (:bold t))))
+    (gnus-group-news-6-empty-face ((t (nil))))
+    (gnus-group-news-6-face ((t (:bold t))))
+    (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+    (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
+    (gnus-header-from-face ((t (:foreground "red3"))))
+    (gnus-header-name-face ((t (:foreground "maroon"))))
+    (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
+    (gnus-header-subject-face ((t (:foreground "red4"))))
+    (gnus-picons-face ((t (:background "white" :foreground "black"))))
+    (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
+    (gnus-signature-face ((t (:italic t))))
+    (gnus-splash-face ((t (:foreground "Brown"))))
+    (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+    (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+    (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+    (gnus-summary-high-unread-face ((t (:bold t))))
+    (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
+    (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
+    (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
+    (gnus-summary-low-unread-face ((t (:italic t))))
+    (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+    (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+    (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
+    (gnus-summary-normal-unread-face ((t (nil))))
+    (gnus-summary-selected-face ((t (:underline t))))
+    (gnus-x-face ((t (:background "white" :foreground "black"))))
+    (green ((t (:foreground "green"))))
+    (gui-button-face ((t (:background "grey75" :foreground "black"))))
+    (gui-element ((t (nil))))
+    (highlight ((t (:background "darkseagreen2"))))
+    (info-node ((t (:bold t))))
+    (info-xref ((t (:bold t))))
+    (isearch ((t (:background "paleturquoise"))))
+    (italic ((t (:italic t))))
+    (left-margin ((t (nil))))
+    (list-mode-item-selected ((t (:background "gray68" :foreground "black"))))
+    (message-cited-text-face ((t (:foreground "red"))))
+    (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+    (message-header-name-face ((t (:foreground "cornflower blue"))))
+    (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
+    (message-header-other-face ((t (:foreground "steel blue"))))
+    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-mml-face ((t (:foreground "ForestGreen"))))
+    (message-separator-face ((t (:foreground "brown"))))
+    (modeline ((t (nil))))
+    (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
+    (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
+    (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
+    (paren-face-match ((t (:background "turquoise"))))
+    (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
+    (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
+    (pointer ((t (nil))))
+    (primary-selection ((t (:background "gray65"))))
+    (red ((t (:foreground "red"))))
+    (right-margin ((t (nil))))
+    (secondary-selection ((t (:background "paleturquoise"))))
+    (text-cursor ((t (:background "Red3" :foreground "gray80"))))
+    (toolbar ((t (nil))))
+    (underline ((t (:underline t))))
+    (vertical-divider ((t (nil))))
+    (viper-minibuffer-emacs-face ((t (:background "gray80" :foreground "black"))))
+    (viper-minibuffer-insert-face ((t (:background "gray80" :foreground "black"))))
+    (viper-minibuffer-vi-face ((t (:background "gray80" :foreground "black"))))
+    (viper-replace-overlay-face ((t (:background "black" :foreground "white"))))
+    (viper-search-face ((t (:background "black" :foreground "white"))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "red"))))
+    (widget-documentation-face ((t (:foreground "dark green"))))
+    (widget-field-face ((t (:background "gray85"))))
+    (widget-inactive-face ((t (:foreground "dim gray"))))
+    (yellow ((t (:foreground "yellow"))))
+    (zmacs-region ((t (:background "black" :foreground "white")))))))
+
+(defun color-theme-aalto-light ()
+  "Color theme by Jari Aalto, created 2001-03-08.
+Black on light yellow.
+Used for Win32 on a Nokia446Xpro monitor.
+Includes cvs, font-lock, gnus, message, sgml, widget"
+  (interactive)
+  (color-theme-install
+   '(color-theme-aalto-light
+     ((background-color . "#FFFFE0")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "black")
+      (foreground-color . "black")
+      (mouse-color . "LawnGreen"))
+     ((gnus-mouse-face . highlight)
+      (list-matching-lines-face . bold)
+      (tinyreplace-:face . highlight)
+      (view-highlight-face . highlight))
+    (default ((t (nil))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (calendar-today-face ((t (:underline t))))
+    (cvs-filename-face ((t (:foreground "blue4"))))
+    (cvs-handled-face ((t (:foreground "pink"))))
+    (cvs-header-face ((t (:bold t :foreground "blue4"))))
+    (cvs-marked-face ((t (:bold t :foreground "green3"))))
+    (cvs-msg-face ((t (:italic t))))
+    (cvs-need-action-face ((t (:foreground "orange"))))
+    (cvs-unknown-face ((t (:foreground "red"))))
+    (diary-face ((t (:foreground "red"))))
+    (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
+    (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
+    (font-lock-builtin-face ((t (:foreground "Orchid"))))
+    (font-lock-comment-face ((t (:foreground "Firebrick"))))
+    (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+    (font-lock-function-name-face ((t (:foreground "Blue"))))
+    (font-lock-keyword-face ((t (:foreground "Purple"))))
+    (font-lock-string-face ((t (:foreground "RosyBrown"))))
+    (font-lock-type-face ((t (:foreground "ForestGreen"))))
+    (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+    (gnus-emphasis-bold ((t (:bold t))))
+    (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+    (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+    (gnus-emphasis-italic ((t (:italic t))))
+    (gnus-emphasis-underline ((t (:underline t))))
+    (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+    (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+    (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+    (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+    (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+    (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+    (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+    (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+    (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+    (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+    (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+    (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+    (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+    (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+    (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+    (gnus-group-news-3-empty-face ((t (nil))))
+    (gnus-group-news-3-face ((t (:bold t))))
+    (gnus-group-news-4-empty-face ((t (nil))))
+    (gnus-group-news-4-face ((t (:bold t))))
+    (gnus-group-news-5-empty-face ((t (nil))))
+    (gnus-group-news-5-face ((t (:bold t))))
+    (gnus-group-news-6-empty-face ((t (nil))))
+    (gnus-group-news-6-face ((t (:bold t))))
+    (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+    (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
+    (gnus-header-from-face ((t (:foreground "red3"))))
+    (gnus-header-name-face ((t (:foreground "maroon"))))
+    (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
+    (gnus-header-subject-face ((t (:foreground "red4"))))
+    (gnus-signature-face ((t (:italic t))))
+    (gnus-splash-face ((t (:foreground "Brown"))))
+    (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+    (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+    (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+    (gnus-summary-high-unread-face ((t (:bold t))))
+    (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
+    (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
+    (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
+    (gnus-summary-low-unread-face ((t (:italic t))))
+    (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+    (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+    (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
+    (gnus-summary-normal-unread-face ((t (nil))))
+    (gnus-summary-selected-face ((t (:underline t))))
+    (highlight ((t (:background "darkseagreen2"))))
+    (holiday-face ((t (:background "pink"))))
+    (info-menu-5 ((t (:underline t))))
+    (info-node ((t (:italic t :bold t))))
+    (info-xref ((t (:bold t))))
+    (italic ((t (:italic t))))
+    (message-cited-text-face ((t (:foreground "red"))))
+    (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+    (message-header-name-face ((t (:foreground "cornflower blue"))))
+    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
+    (message-header-other-face ((t (:foreground "steel blue"))))
+    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-mml-face ((t (:foreground "ForestGreen"))))
+    (message-separator-face ((t (:foreground "brown"))))
+    (modeline ((t (:background "black" :foreground "white"))))
+    (modeline-buffer-id ((t (:background "black" :foreground "white"))))
+    (modeline-mousable ((t (:background "black" :foreground "white"))))
+    (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
+    (region ((t (:background "gray"))))
+    (secondary-selection ((t (:background "paleturquoise"))))
+    (sgml-comment-face ((t (:foreground "dark turquoise"))))
+    (sgml-doctype-face ((t (:foreground "red"))))
+    (sgml-end-tag-face ((t (:foreground "blue"))))
+    (sgml-entity-face ((t (:foreground "magenta"))))
+    (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
+    (sgml-ms-end-face ((t (:foreground "green"))))
+    (sgml-ms-start-face ((t (:foreground "green"))))
+    (sgml-pi-face ((t (:foreground "lime green"))))
+    (sgml-sgml-face ((t (:foreground "brown"))))
+    (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
+    (sgml-start-tag-face ((t (:foreground "blue"))))
+    (show-paren-match-face ((t (:background "turquoise"))))
+    (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+    (underline ((t (:underline t))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "red"))))
+    (widget-documentation-face ((t (:foreground "dark green"))))
+    (widget-field-face ((t (:background "gray85"))))
+    (widget-inactive-face ((t (:foreground "dim gray"))))
+    (widget-single-line-field-face ((t (:background "gray85")))))))
+
+(defun color-theme-aalto-dark ()
+  "Color theme by Jari Aalto, created 2001-03-08.
+White on Deep Sky Blue 3.
+Used for Unix Exceed on a Nokia446Xpro monitor.
+Includes font-lock, info, and message."
+  (interactive)
+  (color-theme-install
+   '(color-theme-aalto-dark
+     ((background-color . "DeepSkyBlue3")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "yellow")
+      (foreground-color . "white")
+      (mouse-color . "black"))
+     ((ispell-highlight-face . highlight)
+      (list-matching-lines-face . bold)
+      (tinyreplace-:face . highlight)
+      (view-highlight-face . highlight))
+    (default ((t (nil))))
+    (bold ((t (:bold t :background "blue3" :foreground "white"))))
+    (bold-italic ((t (:italic t :bold t :foreground "blue3"))))
+    (calendar-today-face ((t (:underline t))))
+    (diary-face ((t (:foreground "red"))))
+    (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+    (font-lock-comment-face ((t (:foreground "OrangeRed"))))
+    (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+    (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
+    (font-lock-keyword-face ((t (:foreground "Cyan"))))
+    (font-lock-string-face ((t (:foreground "LightSalmon"))))
+    (font-lock-type-face ((t (:foreground "PaleGreen"))))
+    (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+    (highlight ((t (:background "blue3" :foreground "white"))))
+    (holiday-face ((t (:background "pink"))))
+    (info-menu-5 ((t (:underline t))))
+    (info-node ((t (:italic t :bold t))))
+    (info-xref ((t (:bold t))))
+    (italic ((t (:italic t :background "gray"))))
+    (message-cited-text-face ((t (:foreground "red"))))
+    (message-header-cc-face ((t (:bold t :foreground "green4"))))
+    (message-header-name-face ((t (:foreground "DarkGreen"))))
+    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
+    (message-header-other-face ((t (:foreground "#b00000"))))
+    (message-header-subject-face ((t (:foreground "green3"))))
+    (message-header-to-face ((t (:bold t :foreground "green2"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-mml-face ((t (:foreground "ForestGreen"))))
+    (message-separator-face ((t (:foreground "blue3"))))
+    (modeline ((t (:background "white" :foreground "DeepSkyBlue3"))))
+    (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3"))))
+    (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3"))))
+    (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3"))))
+    (region ((t (:background "gray"))))
+    (secondary-selection ((t (:background "darkslateblue"))))
+    (show-paren-match-face ((t (:background "turquoise"))))
+    (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+    (underline ((t (:underline t)))))))
+
+(defun color-theme-blippblopp ()
+  "Color theme by Thomas Sicheritz-Ponten, created 2001-03-12.
+Used by researchers at Uppsala University and the Center for Biological
+Sequence Analysis at the Technical University of Denmark. (As some of my
+swedish friends couldn't pronounce Sicheritz - they choose to transform
+it to something more \"swedish\": Blippblopp :-)
+Includes font-lock and message."
+  (interactive)
+  (color-theme-install
+   '(color-theme-blippblopp
+     ((background-color . "white")
+      (background-mode . light)
+      (background-toolbar-color . "#cf3ccf3ccf3c")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#79e77df779e7")
+      (cursor-color . "Red3")
+      (foreground-color . "black")
+      (mouse-color . "black")
+      (top-toolbar-shadow-color . "#fffffbeeffff")
+      (viper-saved-cursor-color-in-replace-mode . "Red3"))
+     ((ispell-highlight-face . highlight))
+    (default ((t (nil))))
+    (blue ((t (:foreground "blue"))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (excerpt ((t (:italic t))))
+    (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
+    (fg:black ((t (:foreground "black"))))
+    (fixed ((t (:bold t))))
+    (font-lock-builtin-face ((t (:foreground "red3"))))
+    (font-lock-comment-face ((t (:foreground "orange"))))
+    (font-lock-constant-face ((t (:foreground "red3"))))
+    (font-lock-doc-string-face ((t (:foreground "darkgreen"))))
+    (font-lock-exit-face ((t (:foreground "green"))))
+    (font-lock-function-name-face ((t (:bold t :foreground "red"))))
+    (font-lock-keyword-face ((t (:bold t :foreground "steelblue"))))
+    (font-lock-preprocessor-face ((t (:foreground "blue3"))))
+    (font-lock-reference-face ((t (:foreground "red3"))))
+    (font-lock-string-face ((t (:foreground "green4"))))
+    (font-lock-type-face ((t (:bold t :foreground "blue"))))
+    (font-lock-variable-name-face ((t (:foreground "black"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+    (green ((t (:foreground "green"))))
+    (message-cited-text-face ((t (:foreground "red"))))
+    (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+    (message-header-name-face ((t (:foreground "cornflower blue"))))
+    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
+    (message-header-other-face ((t (:foreground "steel blue"))))
+    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-mml-face ((t (:foreground "ForestGreen"))))
+    (message-separator-face ((t (:foreground "brown"))))
+    (modeline ((t (:background "dimgray" :foreground "lemonchiffon"))))
+    (modeline-buffer-id ((t (:background "dimgray" :foreground "green3"))))
+    (modeline-mousable ((t (:background "dimgray" :foreground "orange"))))
+    (modeline-mousable-minor-mode ((t (:background "dimgray" :foreground "blue4"))))
+    (primary-selection ((t (:background "gray65"))))
+    (red ((t (:foreground "red"))))
+    (region ((t (:background "gray65"))))
+    (secondary-selection ((t (:background "paleturquoise"))))
+    (show-paren-match-face ((t (:background "turquoise"))))
+    (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+    (text-cursor ((t (:background "Red3" :foreground "white"))))
+    (toolbar ((t (:background "Gray80"))))
+    (underline ((t (:underline t))))
+    (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
+    (vertical-divider ((t (:background "Gray80"))))
+    (xref-keyword-face ((t (:foreground "blue"))))
+    (xref-list-pilot-face ((t (:foreground "navy"))))
+    (xref-list-symbol-face ((t (:foreground "navy"))))
+    (yellow ((t (:foreground "yellow"))))
+    (zmacs-region ((t (:background "gray65")))))))
+
+(defun color-theme-hober (&optional preview)
+  "Does all sorts of crazy stuff.
+Originally based on color-theme-standard, so I probably still have some
+setting that I haven't changed. I also liberally copied settings from
+the other themes in this package. The end result isn't much like the
+other ones; I hope you like it."
+  (interactive)
+  (color-theme-install
+   '(color-theme-hober
+     ((foreground-color . "#c0c0c0")
+      (background-color . "black")
+      (mouse-color . "black")
+      (cursor-color . "medium turquoise")
+      (border-color . "black")
+      (background-mode . dark))
+     (default ((t (nil))))
+     (modeline ((t (:foreground "white" :background "darkslateblue"))))
+     (modeline-buffer-id ((t (:foreground "white" :background "darkslateblue"))))
+     (modeline-mousable ((t (:foreground "white" :background "darkslateblue"))))
+     (modeline-mousable-minor-mode ((t (:foreground "white" :background "darkslateblue"))))
+     (highlight ((t (:foreground "black" :background "#c0c0c0"))))
+     (bold ((t (:bold t))))
+     (italic ((t (:italic t))))
+     (bold-italic ((t (:bold t :italic t))))
+     (region ((t (:foreground "white" :background "darkslateblue"))))
+     (zmacs-region ((t (:foreground "white" :background "darkslateblue"))))
+     (secondary-selection ((t (:background "paleturquoise"))))
+     (underline ((t (:underline t))))
+     (diary-face ((t (:foreground "red"))))
+     (calendar-today-face ((t (:underline t))))
+     (holiday-face ((t (:background "pink"))))
+     (widget-documentation-face ((t (:foreground "dark green" :background "white"))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red" :background "black"))))
+     (widget-field-face ((t (:background "gray85" :foreground "black"))))
+     (widget-single-line-field-face ((t (:background "gray85" :foreground "black"))))
+     (widget-inactive-face ((t (:foreground "dim gray" :background "red"))))
+     (fixed ((t (:bold t))))
+     (excerpt ((t (:italic t))))
+     (term-default-fg ((t (nil))))
+     (term-default-bg ((t (nil))))
+     (term-default-fg-inv ((t (nil))))
+     (term-default-bg-inv ((t (nil))))
+     (term-bold ((t (:bold t))))
+     (term-underline ((t (:underline t))))
+     (term-invisible ((t (nil))))
+     (term-invisible-inv ((t (nil))))
+     (term-white ((t (:foreground "#c0c0c0"))))
+     (term-whitebg ((t (:background "#c0c0c0"))))
+     (term-black ((t (:foreground "black"))))
+     (term-blackbg ((t (:background "black"))))
+     (term-red ((t (:foreground "#ef8171"))))
+     (term-redbg ((t (:background "#ef8171"))))
+     (term-green ((t (:foreground "#e5f779"))))
+     (term-greenbg ((t (:background "#e5f779"))))
+     (term-yellow ((t (:foreground "#fff796"))))
+     (term-yellowbg ((t (:background "#fff796"))))
+     (term-blue ((t (:foreground "#4186be"))))
+     (term-bluebg ((t (:background "#4186be"))))
+     (term-magenta ((t (:foreground "#ef9ebe"))))
+     (term-magentabg ((t (:background "#ef9ebe"))))
+     (term-cyan ((t (:foreground "#71bebe"))))
+     (term-cyanbg ((t (:background "#71bebe"))))
+     (font-lock-keyword-face ((t (:foreground "#00ffff"))))
+     (font-lock-comment-face ((t (:foreground "Red"))))
+     (font-lock-string-face ((t (:foreground "#ffff00"))))
+     (font-lock-constant-face ((t (:foreground "#00ff00"))))
+     (font-lock-builtin-face ((t (:foreground "#ffaa00"))))
+     (font-lock-type-face ((t (:foreground "Coral"))))
+     (font-lock-warning-face ((t (:foreground "Red" :bold t))))
+     (font-lock-function-name-face ((t (:foreground "#4186be"))))
+     (font-lock-variable-name-face ((t (:foreground "white" :bold t))))
+     (message-header-to-face ((t (:foreground "#4186be" :bold t))))
+     (message-header-cc-face ((t (:foreground "#4186be"))))
+     (message-header-subject-face ((t (:foreground "#4186be" :bold t))))
+     (message-header-newsgroups-face ((t (:foreground "Coral" :bold t))))
+     (message-header-other-face ((t (:foreground "steel blue"))))
+     (message-header-name-face ((t (:foreground "white"))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-separator-face ((t (:foreground "brown"))))
+     (message-cited-text-face ((t (:foreground "white"))))
+     (gnus-header-from-face ((t (:foreground "Coral"))))
+     (gnus-header-subject-face ((t (:foreground "#4186be"))))
+     (gnus-header-newsgroups-face ((t (:foreground "#4186be" :italic t))))
+     (gnus-header-name-face ((t (:foreground "white"))))
+     (gnus-header-content-face ((t (:foreground "#4186be" :italic t))))
+     (gnus-cite-attribution-face ((t (:italic t))))
+     (gnus-cite-face-list ((t (:bold nil :foreground "red"))))
+     (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t))))
+     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+     (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t))))
+     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+     (gnus-group-news-3-face ((t (:bold t))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+     (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+     (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+     (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+     (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
+     (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t))))
+     (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
+     (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t))))
+     (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+     (gnus-summary-high-unread-face ((t (:bold t))))
+     (gnus-summary-low-unread-face ((t (:italic t))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t))))
+     (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t))))
+     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+     (gnus-splash-face ((t (:foreground "ForestGreen"))))
+     (gnus-emphasis-bold ((t (:bold t))))
+     (gnus-emphasis-italic ((t (:italic t))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
+     (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
+     (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
+     (gnus-signature-face ((t (:foreground "white"))))
+     (gnus-cite-face-1 ((t (:foreground "Khaki"))))
+     (gnus-cite-face-2 ((t (:foreground "Coral"))))
+     (gnus-cite-face-3 ((t (:foreground "#4186be"))))
+     (gnus-cite-face-4 ((t (:foreground "yellow green"))))
+     (gnus-cite-face-5 ((t (:foreground "IndianRed"))))
+     (highlight-changes-face ((t (:foreground "red"))))
+     (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
+     (show-paren-match-face ((t (:foreground "white" :background "purple"))))
+     (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
+     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+     (cperl-array-face ((t (:foreground "Blue" :bold t :background "lightyellow2"))))
+     (cperl-hash-face ((t (:foreground "Red" :bold t :italic t :background "lightyellow2"))))
+     (makefile-space-face ((t (:background "hotpink"))))
+     (sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
+     (sgml-ignored-face ((t (:foreground "gray20" :background "gray60"))))
+     (sgml-doctype-face ((t (:foreground "orange"))))
+     (sgml-sgml-face ((t (:foreground "yellow"))))
+     (sgml-end-tag-face ((t (:foreground "greenyellow"))))
+     (sgml-entity-face ((t (:foreground "gold"))))
+     (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t))))
+     (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))))))
+
+(defun color-theme-bharadwaj ()
+  "Color theme by Girish Bharadwaj, created 2001-03-28.
+Black on gainsboro.  Includes BBDB, custom, cperl, cvs, dired, ediff,
+erc, eshell, font-latex, font-lock, gnus, info, message, paren, sgml,
+shell, speedbar, term, vhdl, viper, widget, woman, xref.  Wow!"
+  (interactive)
+  (color-theme-install
+   '(color-theme-bharadwaj
+     ((background-color . "gainsboro")
+      (background-mode . light)
+      (background-toolbar-color . "#cf3ccf3ccf3c")
+      (border-color . "black")
+      (bottom-toolbar-shadow-color . "#79e77df779e7")
+      (cursor-color . "grey15")
+      (foreground-color . "black")
+      (mouse-color . "grey15")
+      (top-toolbar-shadow-color . "#fffffbeeffff")
+      (viper-saved-cursor-color-in-replace-mode . "Red3"))
+     ((gnus-mouse-face . highlight)
+      (smiley-mouse-face . highlight))
+    (default ((t (nil))))
+    (bbdb-company ((t (nil))))
+    (bbdb-field-name ((t (:bold t))))
+    (bbdb-field-value ((t (nil))))
+    (bbdb-name ((t (:underline t))))
+    (blank-space-face ((t (nil))))
+    (blank-tab-face ((t (nil))))
+    (blue ((t (nil))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:bold t))))
+    (border-glyph ((t (nil))))
+    (calendar-today-face ((t (:underline t))))
+    (comint-input-face ((t (:foreground "deepskyblue"))))
+    (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
+    (cperl-hash-face ((t (:bold t :background "lightyellow2" :foreground "Red"))))
+    (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+    (custom-button-face ((t (:bold t))))
+    (custom-changed-face ((t (:background "blue" :foreground "white"))))
+    (custom-documentation-face ((t (nil))))
+    (custom-face-tag-face ((t (:underline t))))
+    (custom-group-tag-face ((t (:underline t :bold t :foreground "blue"))))
+    (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+    (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+    (custom-modified-face ((t (:background "blue" :foreground "white"))))
+    (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+    (custom-saved-face ((t (:underline t))))
+    (custom-set-face ((t (:background "white" :foreground "blue"))))
+    (custom-state-face ((t (:foreground "dark green"))))
+    (custom-variable-button-face ((t (:underline t :bold t))))
+    (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
+    (cvs-filename-face ((t (:foreground "blue4"))))
+    (cvs-handled-face ((t (:foreground "pink"))))
+    (cvs-header-face ((t (:bold t :foreground "blue4"))))
+    (cvs-marked-face ((t (:bold t :foreground "green3"))))
+    (cvs-msg-face ((t (nil))))
+    (cvs-need-action-face ((t (:foreground "orange"))))
+    (cvs-unknown-face ((t (:foreground "red"))))
+    (diary-face ((t (:bold t :foreground "red"))))
+    (dired-face-boring ((t (:foreground "Gray65"))))
+    (dired-face-directory ((t (:bold t :foreground "forestgreen"))))
+    (dired-face-executable ((t (:foreground "indianred"))))
+    (dired-face-flagged ((t (:background "SlateGray"))))
+    (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue"))))
+    (dired-face-permissions ((t (nil))))
+    (dired-face-setuid ((t (:foreground "Red"))))
+    (dired-face-socket ((t (:foreground "magenta"))))
+    (dired-face-symlink ((t (:foreground "grey95"))))
+    (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+    (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+    (display-time-time-balloon-face ((t (:foreground "red"))))
+    (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+    (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+    (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+    (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+    (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+    (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+    (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+    (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+    (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+    (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+    (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+    (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+    (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+    (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+    (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+    (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+    (erc-action-face ((t (:bold t))))
+    (erc-bold-face ((t (:bold t))))
+    (erc-default-face ((t (nil))))
+    (erc-direct-msg-face ((t (nil))))
+    (erc-error-face ((t (:bold t))))
+    (erc-input-face ((t (nil))))
+    (erc-inverse-face ((t (nil))))
+    (erc-notice-face ((t (nil))))
+    (erc-pal-face ((t (nil))))
+    (erc-prompt-face ((t (nil))))
+    (erc-underline-face ((t (nil))))
+    (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
+    (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+    (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
+    (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
+    (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
+    (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
+    (eshell-ls-picture-face ((t (nil))))
+    (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+    (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+    (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
+    (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
+    (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+    (eshell-prompt-face ((t (:bold t :foreground "Red"))))
+    (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
+    (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
+    (excerpt ((t (nil))))
+    (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
+    (fg:black ((t (:foreground "black"))))
+    (fixed ((t (:bold t))))
+    (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
+    (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
+    (font-latex-bold-face ((t (nil))))
+    (font-latex-italic-face ((t (nil))))
+    (font-latex-math-face ((t (nil))))
+    (font-latex-sedate-face ((t (nil))))
+    (font-latex-string-face ((t (nil))))
+    (font-latex-warning-face ((t (nil))))
+    (font-lock-builtin-face ((t (:foreground "ForestGreen"))))
+    (font-lock-comment-face ((t (:foreground "grey55"))))
+    (font-lock-constant-face ((t (:foreground "OliveDrab"))))
+    (font-lock-doc-string-face ((t (:bold t :foreground "blue4"))))
+    (font-lock-exit-face ((t (nil))))
+    (font-lock-function-name-face ((t (:italic t :bold t :foreground "SlateBlue"))))
+    (font-lock-keyword-face ((t (:foreground "DarkBlue"))))
+    (font-lock-preprocessor-face ((t (:foreground "blue3"))))
+    (font-lock-reference-face ((t (:foreground "red3"))))
+    (font-lock-string-face ((t (:foreground "DarkRed"))))
+    (font-lock-type-face ((t (:foreground "SteelBlue4"))))
+    (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
+    (font-lock-warning-face ((t (:bold t :foreground "VioletRed"))))
+    (fringe ((t (:background "grey95"))))
+    (gnus-cite-attribution-face ((t (:bold t))))
+    (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+    (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+    (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+    (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+    (gnus-cite-face-3 ((t (:foreground "dark green"))))
+    (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+    (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+    (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+    (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+    (gnus-cite-face-8 ((t (:foreground "magenta"))))
+    (gnus-cite-face-9 ((t (:foreground "violet"))))
+    (gnus-emphasis-bold ((t (:bold t))))
+    (gnus-emphasis-bold-italic ((t (:bold t))))
+    (gnus-emphasis-highlight-words ((t (nil))))
+    (gnus-emphasis-italic ((t (nil))))
+    (gnus-emphasis-underline ((t (:underline t))))
+    (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+    (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t))))
+    (gnus-emphasis-underline-italic ((t (:underline t))))
+    (gnus-filterhist-face-1 ((t (nil))))
+    (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+    (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+    (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+    (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+    (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+    (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+    (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+    (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+    (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+    (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+    (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+    (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+    (gnus-group-news-3-empty-face ((t (nil))))
+    (gnus-group-news-3-face ((t (:bold t))))
+    (gnus-group-news-4-empty-face ((t (nil))))
+    (gnus-group-news-4-face ((t (:bold t))))
+    (gnus-group-news-5-empty-face ((t (nil))))
+    (gnus-group-news-5-face ((t (:bold t))))
+    (gnus-group-news-6-empty-face ((t (nil))))
+    (gnus-group-news-6-face ((t (:bold t))))
+    (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+    (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-header-content-face ((t (:foreground "indianred4"))))
+    (gnus-header-from-face ((t (:bold t :foreground "red3"))))
+    (gnus-header-name-face ((t (:bold t :foreground "maroon"))))
+    (gnus-header-newsgroups-face ((t (:bold t :foreground "MidnightBlue"))))
+    (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
+    (gnus-picons-face ((t (:background "white" :foreground "black"))))
+    (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
+    (gnus-signature-face ((t (nil))))
+    (gnus-splash ((t (nil))))
+    (gnus-splash-face ((t (:foreground "ForestGreen"))))
+    (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+    (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+    (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+    (gnus-summary-high-unread-face ((t (:bold t))))
+    (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue"))))
+    (gnus-summary-low-read-face ((t (:foreground "DarkGreen"))))
+    (gnus-summary-low-ticked-face ((t (:bold t :foreground "firebrick"))))
+    (gnus-summary-low-unread-face ((t (nil))))
+    (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+    (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+    (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
+    (gnus-summary-normal-unread-face ((t (:bold t))))
+    (gnus-summary-selected-face ((t (:underline t))))
+    (gnus-x-face ((t (:background "white" :foreground "black"))))
+    (green ((t (nil))))
+    (gui-button-face ((t (:background "grey75"))))
+    (gui-element ((t (:background "Gray80"))))
+    (highlight ((t (:background "LightSkyBlue"))))
+    (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
+    (highlight-changes-face ((t (:foreground "red"))))
+    (highline-face ((t (:background "grey95"))))
+    (holiday-face ((t (:background "pink"))))
+    (html-helper-italic-face ((t (nil))))
+    (info-menu-5 ((t (:underline t))))
+    (info-node ((t (:bold t))))
+    (info-xref ((t (:bold t))))
+    (isearch ((t (:background "yellow"))))
+    (isearch-secondary ((t (:foreground "red3"))))
+    (italic ((t (nil))))
+    (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
+    (left-margin ((t (nil))))
+    (linemenu-face ((t (nil))))
+    (list-mode-item-selected ((t (nil))))
+    (makefile-space-face ((t (:background "hotpink"))))
+    (message-cited-text-face ((t (:foreground "red"))))
+    (message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-name-face ((t (:foreground "cornflower blue"))))
+    (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
+    (message-header-other-face ((t (:foreground "steel blue"))))
+    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-xheader-face ((t (:foreground "blue"))))
+    (message-mml-face ((t (:bold t))))
+    (message-separator-face ((t (:foreground "brown"))))
+    (modeline ((t (:background "white" :foreground "black"))))
+    (modeline-buffer-id ((t (:background "white" :foreground "black"))))
+    (modeline-mousable ((t (:background "white" :foreground "black"))))
+    (modeline-mousable-minor-mode ((t (:background "white" :foreground "black"))))
+    (paren-blink-off ((t (:foreground "gray80"))))
+    (paren-face-match ((t (:background "turquoise"))))
+    (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
+    (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
+    (paren-match ((t (:background "darkseagreen2"))))
+    (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
+    (paren-mismatch-face ((t (:bold t))))
+    (paren-no-match-face ((t (:bold t))))
+    (pointer ((t (nil))))
+    (primary-selection ((t (nil))))
+    (red ((t (nil))))
+    (region ((t (:background "grey80"))))
+    (right-margin ((t (nil))))
+    (secondary-selection ((t (:background "grey55"))))
+    (sgml-comment-face ((t (:foreground "dark turquoise"))))
+    (sgml-doctype-face ((t (nil))))
+    (sgml-end-tag-face ((t (nil))))
+    (sgml-entity-face ((t (nil))))
+    (sgml-ignored-face ((t (nil))))
+    (sgml-ms-end-face ((t (:foreground "green"))))
+    (sgml-ms-start-face ((t (:foreground "green"))))
+    (sgml-pi-face ((t (:foreground "lime green"))))
+    (sgml-sgml-face ((t (nil))))
+    (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
+    (sgml-start-tag-face ((t (nil))))
+    (shell-option-face ((t (:foreground "blue"))))
+    (shell-output-2-face ((t (:foreground "darkseagreen"))))
+    (shell-output-3-face ((t (:foreground "slategrey"))))
+    (shell-output-face ((t (:foreground "palegreen"))))
+    (shell-prompt-face ((t (:foreground "red"))))
+    (show-paren-match-face ((t (:background "grey80"))))
+    (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
+    (speedbar-button-face ((t (:bold t :foreground "green4"))))
+    (speedbar-directory-face ((t (:bold t :foreground "blue4"))))
+    (speedbar-file-face ((t (:bold t :foreground "cyan4"))))
+    (speedbar-highlight-face ((t (:background "green"))))
+    (speedbar-selected-face ((t (:underline t :foreground "red"))))
+    (speedbar-tag-face ((t (:foreground "brown"))))
+    (swbuff-current-buffer-face ((t (:bold t))))
+    (template-message-face ((t (:bold t))))
+    (term-black ((t (:foreground "black"))))
+    (term-blackbg ((t (:background "black"))))
+    (term-blue ((t (:foreground "blue"))))
+    (term-bluebg ((t (:background "blue"))))
+    (term-bold ((t (:bold t))))
+    (term-cyan ((t (:foreground "cyan"))))
+    (term-cyanbg ((t (:background "cyan"))))
+    (term-default-bg ((t (nil))))
+    (term-default-bg-inv ((t (nil))))
+    (term-default-fg ((t (nil))))
+    (term-default-fg-inv ((t (nil))))
+    (term-green ((t (:foreground "green"))))
+    (term-greenbg ((t (:background "green"))))
+    (term-invisible ((t (nil))))
+    (term-invisible-inv ((t (nil))))
+    (term-magenta ((t (:foreground "magenta"))))
+    (term-magentabg ((t (:background "magenta"))))
+    (term-red ((t (:foreground "red"))))
+    (term-redbg ((t (:background "red"))))
+    (term-underline ((t (:underline t))))
+    (term-white ((t (:foreground "white"))))
+    (term-whitebg ((t (:background "white"))))
+    (term-yellow ((t (:foreground "yellow"))))
+    (term-yellowbg ((t (:background "yellow"))))
+    (text-cursor ((t (:background "grey15" :foreground "gainsboro"))))
+    (toolbar ((t (nil))))
+    (underline ((t (:underline t))))
+    (vc-annotate-face-0046FF ((t (nil))))
+    (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
+    (vertical-divider ((t (nil))))
+    (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+    (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+    (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+    (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+    (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
+    (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
+    (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+    (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+    (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
+    (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+    (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
+    (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+    (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
+    (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+    (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
+    (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+    (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
+    (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+    (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+    (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+    (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+    (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+    (vvb-face ((t (:background "pink" :foreground "black"))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "red"))))
+    (widget-documentation-face ((t (:foreground "dark green"))))
+    (widget-field-face ((t (:background "navy" :foreground "white"))))
+    (widget-inactive-face ((t (:foreground "dim gray"))))
+    (widget-single-line-field-face ((t (:background "royalblue" :foreground "white"))))
+    (woman-bold-face ((t (:bold t))))
+    (woman-italic-face ((t (nil))))
+    (woman-unknown-face ((t (nil))))
+    (xref-keyword-face ((t (:foreground "blue"))))
+    (xref-list-pilot-face ((t (:foreground "navy"))))
+    (xref-list-symbol-face ((t (:foreground "navy"))))
+    (yellow ((t (nil))))
+    (zmacs-region ((t (:background "royalblue")))))))
+
+(defun color-theme-oswald ()
+  "Color theme by Tom Oswald, created 2001-04-18.
+Green on black, includes font-lock, show-paren, and ediff."
+  (interactive)
+  (color-theme-install
+   '(color-theme-oswald
+     ((background-color . "black")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "black")
+      (foreground-color . "green")
+      (mouse-color . "black"))
+     ((blank-space-face . blank-space-face)
+      (blank-tab-face . blank-tab-face)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight))
+    (default ((t (nil))))
+    (blank-space-face ((t (:background "LightGray"))))
+    (blank-tab-face ((t (:background "green" :foreground "black"))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+    (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+    (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+    (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+    (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+    (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+    (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+    (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+    (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+    (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+    (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+    (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+    (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+    (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+    (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+    (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+    (font-lock-builtin-face ((t (:italic t :bold t :foreground "LightSteelBlue"))))
+    (font-lock-comment-face ((t (:italic t :foreground "LightGoldenrod4"))))
+    (font-lock-constant-face ((t (:italic t :foreground "HotPink"))))
+    (font-lock-doc-string-face ((t (:italic t :foreground "orange"))))
+    (font-lock-function-name-face ((t (:italic t :bold t :foreground "red"))))
+    (font-lock-keyword-face ((t (:foreground "red"))))
+    (font-lock-preprocessor-face ((t (:italic t :foreground "HotPink"))))
+    (font-lock-string-face ((t (:italic t :foreground "orange"))))
+    (font-lock-reference-face ((t (:italic t :bold t :foreground "LightSteelBlue"))))
+    (font-lock-type-face ((t (:italic t :foreground "LightSlateBlue"))))
+    (font-lock-variable-name-face ((t (:underline t :foreground "LightGoldenrod"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+    (highlight ((t (:background "yellow" :foreground "red"))))
+    (isearch ((t (:background "dim gray" :foreground "aquamarine"))))
+    (ispell-face ((t (:bold t :background "#3454b4" :foreground "yellow"))))
+    (italic ((t (:italic t))))
+    (modeline ((t (:background "green" :foreground "black"))))
+    (modeline-buffer-id ((t (:background "green" :foreground "black"))))
+    (modeline-mousable ((t (:background "green" :foreground "black"))))
+    (modeline-mousable-minor-mode ((t (:background "green" :foreground "black"))))
+    (region ((t (:background "dim gray" :foreground "aquamarine"))))
+    (secondary-selection ((t (:background "darkslateblue" :foreground "light goldenrod"))))
+    (show-paren-match-face ((t (:background "turquoise" :foreground "black"))))
+    (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+    (underline ((t (:underline t))))
+    (zmacs-region ((t (:background "dim gray" :foreground "aquamarine")))))))
+
+(defun color-theme-salmon-diff ()
+  "Salmon and aquamarine faces for diff and change-log modes.
+This is intended for other color themes to use (eg. `color-theme-gnome2')."
+  (color-theme-install
+   '(color-theme-salmon-diff
+     nil
+     (change-log-acknowledgement-face ((t (:foreground "LightBlue"))))
+     (change-log-conditionals-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
+     (change-log-date-face ((t (:foreground "LightSalmon"))))
+     (change-log-email-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
+     (change-log-file-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
+     (change-log-function-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
+     (change-log-list-face ((t (:foreground "Salmon"))))
+     (change-log-name-face ((t (:foreground "Aquamarine"))))
+     (diff-added-face ((t (nil))))
+     (diff-changed-face ((t (nil))))
+     (diff-context-face ((t (:foreground "grey70"))))
+     (diff-file-header-face ((t (:bold t))))
+     (diff-function-face ((t (:foreground "grey70"))))
+     (diff-header-face ((t (:foreground "light salmon"))))
+     (diff-hunk-header-face ((t (:foreground "light salmon"))))
+     (diff-index-face ((t (:bold t))))
+     (diff-nonexistent-face ((t (:bold t))))
+     (diff-removed-face ((t (nil))))
+     (log-view-message-face ((t (:foreground "light salmon")))))))
+
+(defun color-theme-robin-hood ()
+  "`color-theme-gnome2' with navajo white on green.
+This theme tries to avoid underlined and italic faces, because
+the fonts either look ugly, or do not exist.  The author himself
+uses neep, for example."
+  (interactive)
+  (color-theme-gnome2)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-install
+     '(color-theme-robin-hood
+       ((foreground-color . "navajo white")
+	(background-color . "#304020"))
+       ((CUA-mode-read-only-cursor-color . "white")
+	(help-highlight-face . info-xref)
+	(list-matching-lines-buffer-name-face . bold))
+       (default ((t (nil))))
+       (button ((t (:bold t))))
+       (calendar-today-face ((t (:foreground "lemon chiffon"))))
+       (custom-button-face ((t (:bold t :foreground "DodgerBlue1"))))
+       (diary-face ((t (:bold t :foreground "yellow"))))
+       (fringe ((t (:background "#003700"))))
+       (header-line ((t (:background "#030" :foreground "#AA7"))))
+       (holiday-face ((t (:bold t :foreground "peru"))))
+       (ido-subdir-face ((t (:foreground "MediumSlateBlue"))))
+       (isearch ((t (:foreground "pink" :background "red"))))
+       (isearch-lazy-highlight-face ((t (:foreground "red"))))
+       (menu ((t (:background "#304020" :foreground "navajo white"))))
+       (minibuffer-prompt ((t (:foreground "pale green"))))
+       (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width 1 :style released-button)))))
+       (mode-line-inactive ((t (:background "dark olive green" :foreground "khaki" :box (:line-width 1 :style released-button)))))
+       (semantic-dirty-token-face ((t (:background "grey22"))))
+       (tool-bar ((t (:background "#304020" :foreground "wheat" :box (:line-width 1 :style released-button)))))
+       (tooltip ((t (:background "lemon chiffon" :foreground "black"))))))))
+
+(defun color-theme-snowish ()
+  "Color theme by Girish Bharadwaj, created 2001-05-17.
+Dark slate gray on snow2, lots of blue colors.
+Includes custom, eshell, font-lock, gnus, html-helper,
+hyper-apropos, jde, message, paren, semantic, speedbar,
+term, widget."
+  (interactive)
+  (color-theme-install
+   '(color-theme-snowish
+     ((background-color . "snow2")
+      (background-mode . light)
+      (cursor-color . "Red3")
+      (foreground-color . "darkslategray"))
+     ((buffers-tab-face . buffers-tab)
+      (gnus-mouse-face . highlight)
+      (sgml-set-face . t)
+      (smiley-mouse-face . highlight))
+     (default ((t (nil))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t :foreground "peru"))))
+     (bold-italic ((t (:italic t :bold t))))
+     (border-glyph ((t (nil))))
+     (buffers-tab ((t (:background "snow2" :foreground "darkslategray"))))
+     (custom-button-face ((t (:bold t))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "gray85"))))
+     (custom-comment-tag-face ((t (:foreground "blue4"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+     (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "dark green"))))
+     (custom-variable-button-face ((t (:underline t :bold t))))
+     (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+     (cyan ((t (:foreground "cyan"))))
+     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+     (display-time-time-balloon-face ((t (:foreground "red"))))
+     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
+     (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
+     (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
+     (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
+     (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+     (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+     (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
+     (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan"))))
+     (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+     (eshell-prompt-face ((t (:bold t :foreground "Red"))))
+     (font-lock-builtin-face ((t (:underline t :foreground "blue"))))
+     (font-lock-comment-face ((t (:foreground "snow4"))))
+     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+     (font-lock-doc-string-face ((t (:foreground "mediumblue"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "darkblue"))))
+     (font-lock-keyword-face ((t (:bold t :foreground "dodgerblue"))))
+     (font-lock-preprocessor-face ((t (:underline t :foreground "blue3"))))
+     (font-lock-reference-face ((t (:foreground "red3"))))
+     (font-lock-string-face ((t (:foreground "darkviolet"))))
+     (font-lock-type-face ((t (:foreground "goldenrod"))))
+     (font-lock-variable-name-face ((t (:foreground "tomato"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+     (gnus-cite-attribution-face ((t (nil))))
+     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+     (gnus-cite-face-3 ((t (:foreground "dark green"))))
+     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t))))
+     (gnus-emphasis-bold-italic ((t (nil))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (nil))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+     (gnus-emphasis-underline-bold-italic ((t (:underline t))))
+     (gnus-emphasis-underline-italic ((t (:underline t))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+     (gnus-header-content-face ((t (:foreground "indianred4"))))
+     (gnus-header-from-face ((t (:foreground "red3"))))
+     (gnus-header-name-face ((t (:foreground "maroon"))))
+     (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue"))))
+     (gnus-header-subject-face ((t (:foreground "red4"))))
+     (gnus-picons-face ((t (:background "white" :foreground "black"))))
+     (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
+     (gnus-signature-face ((t (nil))))
+     (gnus-splash-face ((t (:foreground "Brown"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+     (gnus-summary-high-unread-face ((t (:bold t))))
+     (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue"))))
+     (gnus-summary-low-read-face ((t (:foreground "DarkGreen"))))
+     (gnus-summary-low-ticked-face ((t (:foreground "firebrick"))))
+     (gnus-summary-low-unread-face ((t (nil))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (gnus-x-face ((t (:background "white" :foreground "black"))))
+     (green ((t (:foreground "green"))))
+     (gui-button-face ((t (:background "grey75" :foreground "black"))))
+     (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
+     (highlight ((t (:background "darkseagreen2"))))
+     (html-helper-bold-face ((t (:bold t))))
+     (html-helper-bold-italic-face ((t (nil))))
+     (html-helper-builtin-face ((t (:underline t :foreground "blue3"))))
+     (html-helper-italic-face ((t (:foreground "medium sea green"))))
+     (html-helper-underline-face ((t (:underline t))))
+     (html-tag-face ((t (:bold t))))
+     (hyper-apropos-documentation ((t (:foreground "darkred"))))
+     (hyper-apropos-heading ((t (:bold t))))
+     (hyper-apropos-hyperlink ((t (:foreground "blue4"))))
+     (hyper-apropos-major-heading ((t (:bold t))))
+     (hyper-apropos-section-heading ((t (nil))))
+     (hyper-apropos-warning ((t (:bold t :foreground "red"))))
+     (info-menu-6 ((t (nil))))
+     (isearch ((t (:background "paleturquoise"))))
+     (isearch-secondary ((t (:foreground "red3"))))
+     (italic ((t (nil))))
+     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+     (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
+     (jde-java-font-lock-link-face ((t (:underline t :foreground "blue"))))
+     (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
+     (left-margin ((t (nil))))
+     (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray"))))
+     (magenta ((t (:foreground "magenta"))))
+     (message-cited-text-face ((t (:foreground "red"))))
+     (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+     (message-header-name-face ((t (:foreground "cornflower blue"))))
+     (message-header-newsgroups-face ((t (:foreground "blue4"))))
+     (message-header-other-face ((t (:foreground "steel blue"))))
+     (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+     (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (message-separator-face ((t (:foreground "brown"))))
+     (modeline ((t (nil))))
+     (modeline-buffer-id ((t (:background "#D4D0C8" :foreground "blue4"))))
+     (modeline-mousable ((t (:background "#D4D0C8" :foreground "firebrick"))))
+     (modeline-mousable-minor-mode ((t (:background "#D4D0C8" :foreground "green4"))))
+     (paren-blink-off ((t (:foreground "snow2"))))
+     (paren-match ((t (:background "darkseagreen2"))))
+     (paren-mismatch ((t (:background "snow2" :foreground "darkslategray"))))
+     (pointer ((t (nil))))
+     (primary-selection ((t (:background "gray65"))))
+     (red ((t (:foreground "red"))))
+     (right-margin ((t (nil))))
+     (secondary-selection ((t (:background "paleturquoise"))))
+     (semantic-intangible-face ((t (:foreground "gray25"))))
+     (semantic-read-only-face ((t (:background "gray25"))))
+     (senator-momentary-highlight-face ((t (:background "gray70"))))
+     (speedbar-button-face ((t (:foreground "green4"))))
+     (speedbar-directory-face ((t (:foreground "blue4"))))
+     (speedbar-file-face ((t (:foreground "cyan4"))))
+     (speedbar-highlight-face ((t (:background "green"))))
+     (speedbar-selected-face ((t (:underline t :foreground "red"))))
+     (speedbar-tag-face ((t (:foreground "brown"))))
+     (template-message-face ((t (:bold t))))
+     (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue"))))
+     (term-blue-face ((t (:foreground "blue"))))
+     (term-blue-inv-face ((t (:background "blue"))))
+     (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue"))))
+     (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan"))))
+     (term-cyan-face ((t (:foreground "cyan"))))
+     (term-cyan-inv-face ((t (:background "cyan"))))
+     (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan"))))
+     (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray"))))
+     (term-default-face ((t (:background "snow2" :foreground "darkslategray"))))
+     (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2"))))
+     (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray"))))
+     (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green"))))
+     (term-green-face ((t (:foreground "green"))))
+     (term-green-inv-face ((t (:background "green"))))
+     (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green"))))
+     (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta"))))
+     (term-magenta-face ((t (:foreground "magenta"))))
+     (term-magenta-inv-face ((t (:background "magenta"))))
+     (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta"))))
+     (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red"))))
+     (term-red-face ((t (:foreground "red"))))
+     (term-red-inv-face ((t (:background "red"))))
+     (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red"))))
+     (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white"))))
+     (term-white-face ((t (:foreground "white"))))
+     (term-white-inv-face ((t (:background "snow2"))))
+     (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white"))))
+     (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow"))))
+     (term-yellow-face ((t (:foreground "yellow"))))
+     (term-yellow-inv-face ((t (:background "yellow"))))
+     (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow"))))
+     (text-cursor ((t (:background "Red3" :foreground "snow2"))))
+     (toolbar ((t (nil))))
+     (underline ((t (:underline t))))
+     (vertical-divider ((t (nil))))
+     (white ((t (:foreground "white"))))
+     (widget ((t (nil))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (yellow ((t (:foreground "yellow"))))
+     (zmacs-region ((t (:background "gray65")))))))
+
+(defun color-theme-dark-laptop ()
+  "Color theme by Laurent Michel, created 2001-05-24.
+Includes custom, fl, font-lock, gnus, message, widget."
+  (interactive)
+  (color-theme-install
+   '(color-theme-dark-laptop
+     ((background-color . "black")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "yellow")
+      (foreground-color . "white")
+      (mouse-color . "sienna1"))
+     ((gnus-mouse-face . highlight)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight))
+     (default ((t (nil))))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (:italic t :bold t))))
+     (custom-button-face ((t (nil))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face ((t (:underline t :foreground "light blue"))))
+     (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "lime green"))))
+     (custom-variable-button-face ((t (:underline t :bold t))))
+     (custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
+     (fl-comment-face ((t (:foreground "pink"))))
+     (fl-doc-string-face ((t (:foreground "purple"))))
+     (fl-function-name-face ((t (:foreground "red"))))
+     (fl-keyword-face ((t (:foreground "cyan"))))
+     (fl-string-face ((t (:foreground "green"))))
+     (fl-type-face ((t (:foreground "yellow"))))
+     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+     (font-lock-comment-face ((t (:foreground "OrangeRed"))))
+     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
+     (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
+     (font-lock-keyword-face ((t (:foreground "Cyan"))))
+     (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
+     (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
+     (font-lock-string-face ((t (:foreground "LightSalmon"))))
+     (font-lock-type-face ((t (:foreground "PaleGreen"))))
+     (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+     (gnus-cite-attribution-face ((t (:italic t))))
+     (gnus-cite-face-1 ((t (:bold t :foreground "deep sky blue"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:bold t :foreground "cyan"))))
+     (gnus-cite-face-3 ((t (:bold t :foreground "gold"))))
+     (gnus-cite-face-4 ((t (:foreground "light pink"))))
+     (gnus-cite-face-5 ((t (:foreground "pale green"))))
+     (gnus-cite-face-6 ((t (:bold t :foreground "chocolate"))))
+     (gnus-cite-face-7 ((t (:foreground "orange"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (:italic t))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+     (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+     (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
+     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
+     (gnus-header-content-face ((t (:italic t :foreground "forest green"))))
+     (gnus-header-from-face ((t (:bold t :foreground "spring green"))))
+     (gnus-header-name-face ((t (:foreground "deep sky blue"))))
+     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "purple"))))
+     (gnus-header-subject-face ((t (:bold t :foreground "orange"))))
+     (gnus-signature-face ((t (:bold t :foreground "khaki"))))
+     (gnus-splash-face ((t (:foreground "Brown"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
+     (gnus-summary-high-unread-face ((t (:bold t))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
+     (gnus-summary-low-unread-face ((t (:italic t))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (highlight ((t (:background "darkolivegreen"))))
+     (italic ((t (:italic t))))
+     (message-cited-text-face ((t (:bold t :foreground "red"))))
+     (message-header-cc-face ((t (:bold t :foreground "green4"))))
+     (message-header-name-face ((t (:bold t :foreground "orange"))))
+     (message-header-newsgroups-face ((t (:bold t :foreground "violet"))))
+     (message-header-other-face ((t (:bold t :foreground "chocolate"))))
+     (message-header-subject-face ((t (:bold t :foreground "yellow"))))
+     (message-header-to-face ((t (:bold t :foreground "cyan"))))
+     (message-header-xheader-face ((t (:bold t :foreground "light blue"))))
+     (message-mml-face ((t (:bold t :background "Green3"))))
+     (message-separator-face ((t (:foreground "blue3"))))
+     (modeline ((t (:background "white" :foreground "black"))))
+     (modeline-buffer-id ((t (:background "white" :foreground "black"))))
+     (modeline-mousable ((t (:background "white" :foreground "black"))))
+     (modeline-mousable-minor-mode ((t (:background "white" :foreground "black"))))
+     (region ((t (:background "blue"))))
+     (primary-selection ((t (:background "blue"))))
+     (isearch ((t (:background "blue"))))
+     (zmacs-region ((t (:background "blue"))))
+     (secondary-selection ((t (:background "darkslateblue"))))
+     (underline ((t (:underline t))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-field-face ((t (:background "dim gray"))))
+     (widget-inactive-face ((t (:foreground "light gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray")))))))
+
+(defun color-theme-taming-mr-arneson ()
+  "Color theme by Erik Arneson, created 2001-06-12.
+Light sky blue on black.  Includes bbdb, cperl, custom, cvs, diff,
+dired, font-lock, html-helper, hyper-apropos, info, isearch, man,
+message, paren, shell, and widget."
+  (interactive)
+  (color-theme-install
+   '(color-theme-taming-mr-arneson
+     ((background-color . "black")
+      (background-mode . light)
+      (background-toolbar-color . "#cf3ccf3ccf3c")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#79e77df779e7")
+      (cursor-color . "Red3")
+      (foreground-color . "LightSkyBlue")
+      (top-toolbar-shadow-color . "#fffffbeeffff"))
+     ((buffers-tab-face . buffers-tab)
+      (cperl-here-face . font-lock-string-face)
+      (cperl-invalid-face quote default)
+      (cperl-pod-face . font-lock-comment-face)
+      (cperl-pod-head-face . font-lock-variable-name-face)
+      (ispell-highlight-face . highlight)
+      (vc-mode-face . highlight)
+      (vm-highlight-url-face . bold-italic)
+      (vm-highlighted-header-face . bold)
+      (vm-mime-button-face . gui-button-face)
+      (vm-summary-highlight-face . bold))
+     (default ((t (nil))))
+     (bbdb-company ((t (nil))))
+     (bbdb-field-name ((t (:bold t))))
+     (bbdb-field-value ((t (nil))))
+     (bbdb-name ((t (:underline t))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (:bold t :foreground "yellow"))))
+     (border-glyph ((t (nil))))
+     (buffers-tab ((t (:background "black" :foreground "LightSkyBlue"))))
+     (cperl-array-face ((t (:bold t :foreground "SkyBlue2"))))
+     (cperl-hash-face ((t (:foreground "LightBlue2"))))
+     (cperl-invalid-face ((t (:foreground "white"))))
+     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+     (custom-button-face ((t (:bold t))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:foreground "white"))))
+     (custom-comment-tag-face ((t (:foreground "white"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+     (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "white"))))
+     (custom-variable-button-face ((t (:underline t :bold t))))
+     (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+     (cvs-filename-face ((t (:foreground "white"))))
+     (cvs-handled-face ((t (:foreground "pink"))))
+     (cvs-header-face ((t (:foreground "green"))))
+     (cvs-marked-face ((t (:bold t :foreground "green3"))))
+     (cvs-msg-face ((t (:foreground "red"))))
+     (cvs-need-action-face ((t (:foreground "yellow"))))
+     (cvs-unknown-face ((t (:foreground "grey"))))
+     (diff-added-face ((t (nil))))
+     (diff-changed-face ((t (nil))))
+     (diff-file-header-face ((t (:bold t :background "grey70"))))
+     (diff-hunk-header-face ((t (:background "grey85"))))
+     (diff-index-face ((t (:bold t :background "grey70"))))
+     (diff-removed-face ((t (nil))))
+     (dired-face-boring ((t (:foreground "Gray65"))))
+     (dired-face-directory ((t (:bold t :foreground "SkyBlue2"))))
+     (dired-face-executable ((t (:foreground "Green"))))
+     (dired-face-flagged ((t (:background "LightSlateGray"))))
+     (dired-face-header ((t (:background "grey75" :foreground "black"))))
+     (dired-face-marked ((t (:background "PaleVioletRed"))))
+     (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
+     (dired-face-setuid ((t (:foreground "Red"))))
+     (dired-face-socket ((t (:foreground "magenta"))))
+     (dired-face-symlink ((t (:foreground "cyan"))))
+     (excerpt ((t (nil))))
+     (fixed ((t (:bold t))))
+     (font-lock-builtin-face ((t (:foreground "red3"))))
+     (font-lock-comment-face ((t (:foreground "red"))))
+     (font-lock-constant-face ((t (nil))))
+     (font-lock-doc-string-face ((t (:foreground "turquoise"))))
+     (font-lock-function-name-face ((t (:foreground "white"))))
+     (font-lock-keyword-face ((t (:foreground "green"))))
+     (font-lock-preprocessor-face ((t (:foreground "green3"))))
+     (font-lock-reference-face ((t (:foreground "red3"))))
+     (font-lock-string-face ((t (:foreground "turquoise"))))
+     (font-lock-type-face ((t (:foreground "steelblue"))))
+     (font-lock-variable-name-face ((t (:foreground "magenta2"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+     (green ((t (:foreground "green"))))
+     (gui-button-face ((t (:background "grey75" :foreground "black"))))
+     (gui-element ((t (nil))))
+     (highlight ((t (:background "darkseagreen2" :foreground "blue"))))
+     (html-helper-bold-face ((t (:bold t))))
+     (html-helper-italic-face ((t (:bold t :foreground "yellow"))))
+     (html-helper-underline-face ((t (:underline t))))
+     (hyper-apropos-documentation ((t (:foreground "white"))))
+     (hyper-apropos-heading ((t (:bold t))))
+     (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
+     (hyper-apropos-major-heading ((t (:bold t))))
+     (hyper-apropos-section-heading ((t (:bold t))))
+     (hyper-apropos-warning ((t (:bold t :foreground "red"))))
+     (info-node ((t (:bold t :foreground "yellow"))))
+     (info-xref ((t (:bold t))))
+     (isearch ((t (:background "paleturquoise" :foreground "dark red"))))
+     (isearch-secondary ((t (:foreground "red3"))))
+     (italic ((t (:bold t :foreground "yellow"))))
+     (left-margin ((t (nil))))
+     (list-mode-item-selected ((t (:background "gray68" :foreground "dark green"))))
+     (man-bold ((t (:bold t))))
+     (man-heading ((t (:bold t))))
+     (man-italic ((t (:foreground "yellow"))))
+     (man-xref ((t (:underline t))))
+     (message-cited-text ((t (:foreground "orange"))))
+     (message-header-contents ((t (:foreground "white"))))
+     (message-headers ((t (:bold t :foreground "orange"))))
+     (message-highlighted-header-contents ((t (:bold t))))
+     (message-url ((t (:bold t :foreground "pink"))))
+     (mmm-face ((t (:background "black" :foreground "green"))))
+     (modeline ((t (nil))))
+     (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
+     (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
+     (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
+     (paren-blink-off ((t (:foreground "gray80"))))
+     (paren-match ((t (:background "dark blue"))))
+     (paren-mismatch ((t (:background "DeepPink" :foreground "LightSkyBlue"))))
+     (pointer ((t (nil))))
+     (primary-selection ((t (:background "gray65" :foreground "DarkBlue"))))
+     (red ((t (:foreground "red"))))
+     (region ((t (:background "gray65" :foreground "DarkBlue"))))
+     (right-margin ((t (nil))))
+     (secondary-selection ((t (:background "paleturquoise" :foreground "black"))))
+     (shell-option-face ((t (:foreground "blue4"))))
+     (shell-output-2-face ((t (:foreground "green4"))))
+     (shell-output-3-face ((t (:foreground "green4"))))
+     (shell-output-face ((t (:bold t))))
+     (shell-prompt-face ((t (:foreground "red4"))))
+     (text-cursor ((t (:background "Red3" :foreground "black"))))
+     (toolbar ((t (:background "Gray80" :foreground "black"))))
+     (underline ((t (:underline t))))
+     (vertical-divider ((t (nil))))
+     (vm-xface ((t (:background "white" :foreground "black"))))
+     (vmpc-pre-sig-face ((t (:foreground "forestgreen"))))
+     (vmpc-sig-face ((t (:foreground "steelblue"))))
+     (widget ((t (nil))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85" :foreground "black"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (x-face ((t (:background "white" :foreground "black"))))
+     (xrdb-option-name-face ((t (:foreground "red"))))
+     (yellow ((t (:foreground "yellow"))))
+     (zmacs-region ((t (:background "gray65")))))))
+
+(defun color-theme-digital-ofs1 ()
+  "Color theme by Gareth Owen, created 2001-06-13.
+This works well on an old, beat-up Digital Unix box with its 256 colour
+display, on which other color themes hog too much of the palette.
+Black on some shade of dark peach.  Includes bbdb, cperl, custom,
+cvs, diff, dired, ediff, erc, eshell, font-latex, font-lock, gnus,
+highlight, hproperty, html-helper, hyper-apropos, info, jde, man,
+message, paren, searchm, semantic, sgml, shell, speedbar, term,
+vhdl, viper, w3m, widget, woman, x-symbol, xref."
+  (interactive)
+  (color-theme-install
+   '(color-theme-digital-ofs1
+     ((background-color . "#CA94AA469193")
+      (background-mode . light)
+      (background-toolbar-color . "#cf3ccf3ccf3c")
+      (border-color . "black")
+      (bottom-toolbar-shadow-color . "#79e77df779e7")
+      (cursor-color . "Black")
+      (foreground-color . "Black")
+      (mouse-color . "Black")
+      (top-toolbar-shadow-color . "#fffffbeeffff")
+      (viper-saved-cursor-color-in-replace-mode . "Red3"))
+     ((Man-overstrike-face . bold)
+      (Man-underline-face . underline)
+      (gnus-mouse-face . highlight)
+      (goto-address-mail-face . italic)
+      (goto-address-mail-mouse-face . secondary-selection)
+      (goto-address-url-face . bold)
+      (goto-address-url-mouse-face . highlight)
+      (ispell-highlight-face . highlight)
+      (list-matching-lines-face . bold)
+      (rmail-highlight-face . font-lock-function-name-face)
+      (view-highlight-face . highlight))
+    (default ((t (:bold t))))
+    (bbdb-company ((t (:italic t))))
+    (bbdb-field-name ((t (:bold t))))
+    (bbdb-field-value ((t (nil))))
+    (bbdb-name ((t (:underline t))))
+    (blank-space-face ((t (nil))))
+    (blank-tab-face ((t (nil))))
+    (blue ((t (:bold t :foreground "blue"))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (border-glyph ((t (:bold t))))
+    (buffers-tab ((t (:background "black" :foreground "LightSkyBlue"))))
+    (calendar-today-face ((t (:underline t :bold t :foreground "white"))))
+    (comint-input-face ((t (nil))))
+    (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
+    (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
+    (cperl-here-face ((t (nil))))
+    (cperl-invalid-face ((t (:foreground "white"))))
+    (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+    (cperl-pod-face ((t (nil))))
+    (cperl-pod-head-face ((t (nil))))
+    (custom-button-face ((t (:bold t))))
+    (custom-changed-face ((t (:bold t :background "blue" :foreground "white"))))
+    (custom-comment-face ((t (:foreground "white"))))
+    (custom-comment-tag-face ((t (:foreground "white"))))
+    (custom-documentation-face ((t (:bold t))))
+    (custom-face-tag-face ((t (:underline t :bold t))))
+    (custom-group-tag-face ((t (:underline t :bold t :foreground "DarkBlue"))))
+    (custom-group-tag-face-1 ((t (:underline t :bold t :foreground "red"))))
+    (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow"))))
+    (custom-modified-face ((t (:bold t :background "blue" :foreground "white"))))
+    (custom-rogue-face ((t (:bold t :background "black" :foreground "pink"))))
+    (custom-saved-face ((t (:underline t :bold t))))
+    (custom-set-face ((t (:bold t :background "white" :foreground "blue"))))
+    (custom-state-face ((t (:bold t :foreground "dark green"))))
+    (custom-variable-button-face ((t (:underline t :bold t))))
+    (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
+    (cvs-filename-face ((t (:foreground "white"))))
+    (cvs-handled-face ((t (:foreground "pink"))))
+    (cvs-header-face ((t (:bold t :foreground "green"))))
+    (cvs-marked-face ((t (:bold t :foreground "green3"))))
+    (cvs-msg-face ((t (:italic t :foreground "red"))))
+    (cvs-need-action-face ((t (:foreground "yellow"))))
+    (cvs-unknown-face ((t (:foreground "grey"))))
+    (cyan ((t (:foreground "cyan"))))
+    (diary-face ((t (:bold t :foreground "red"))))
+    (diff-added-face ((t (nil))))
+    (diff-changed-face ((t (nil))))
+    (diff-file-header-face ((t (:bold t :background "grey70"))))
+    (diff-hunk-header-face ((t (:background "grey85"))))
+    (diff-index-face ((t (:bold t :background "grey70"))))
+    (diff-removed-face ((t (nil))))
+    (dired-face-boring ((t (:foreground "Gray65"))))
+    (dired-face-directory ((t (:bold t))))
+    (dired-face-executable ((t (:foreground "SeaGreen"))))
+    (dired-face-flagged ((t (:background "LightSlateGray"))))
+    (dired-face-header ((t (:background "grey75" :foreground "black"))))
+    (dired-face-marked ((t (:background "PaleVioletRed"))))
+    (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
+    (dired-face-setuid ((t (:foreground "Red"))))
+    (dired-face-socket ((t (:foreground "magenta"))))
+    (dired-face-symlink ((t (:foreground "cyan"))))
+    (display-time-mail-balloon-enhance-face ((t (:bold t :background "orange"))))
+    (display-time-mail-balloon-gnus-group-face ((t (:bold t :foreground "blue"))))
+    (display-time-time-balloon-face ((t (:bold t :foreground "red"))))
+    (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+    (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+    (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+    (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+    (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+    (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+    (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+    (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+    (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+    (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+    (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+    (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+    (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+    (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+    (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+    (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+    (erc-action-face ((t (:bold t))))
+    (erc-bold-face ((t (:bold t))))
+    (erc-default-face ((t (nil))))
+    (erc-direct-msg-face ((t (nil))))
+    (erc-error-face ((t (:bold t))))
+    (erc-input-face ((t (nil))))
+    (erc-inverse-face ((t (nil))))
+    (erc-notice-face ((t (nil))))
+    (erc-pal-face ((t (nil))))
+    (erc-prompt-face ((t (nil))))
+    (erc-underline-face ((t (nil))))
+    (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
+    (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+    (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
+    (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
+    (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
+    (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
+    (eshell-ls-picture-face ((t (:foreground "Violet"))))
+    (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+    (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+    (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
+    (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
+    (eshell-ls-text-face ((t (:foreground "medium aquamarine"))))
+    (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine"))))
+    (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+    (eshell-prompt-face ((t (:bold t :foreground "Red"))))
+    (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
+    (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
+    (excerpt ((t (:italic t))))
+    (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
+    (fg:black ((t (:foreground "black"))))
+    (fixed ((t (:bold t))))
+    (fl-comment-face ((t (:foreground "medium purple"))))
+    (fl-doc-string-face ((t (nil))))
+    (fl-function-name-face ((t (:foreground "green"))))
+    (fl-keyword-face ((t (:foreground "LightGreen"))))
+    (fl-string-face ((t (:foreground "light coral"))))
+    (fl-type-face ((t (:foreground "cyan"))))
+    (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
+    (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
+    (font-latex-bold-face ((t (:bold t))))
+    (font-latex-italic-face ((t (:italic t))))
+    (font-latex-math-face ((t (nil))))
+    (font-latex-sedate-face ((t (nil))))
+    (font-latex-string-face ((t (nil))))
+    (font-latex-warning-face ((t (nil))))
+    (font-lock-builtin-face ((t (:italic t :bold t :foreground "Orchid"))))
+    (font-lock-comment-face ((t (:bold t :foreground "Firebrick"))))
+    (font-lock-constant-face ((t (:italic t :bold t :foreground "CadetBlue"))))
+    (font-lock-doc-string-face ((t (:italic t :bold t :foreground "green4"))))
+    (font-lock-emphasized-face ((t (:bold t))))
+    (font-lock-exit-face ((t (:foreground "green"))))
+    (font-lock-function-name-face ((t (:italic t :bold t :foreground "Blue"))))
+    (font-lock-keyword-face ((t (:bold t :foreground "dark olive green"))))
+    (font-lock-other-emphasized-face ((t (:italic t :bold t))))
+    (font-lock-other-type-face ((t (:bold t :foreground "DarkBlue"))))
+    (font-lock-preprocessor-face ((t (:italic t :bold t :foreground "blue3"))))
+    (font-lock-reference-face ((t (:italic t :bold t :foreground "red3"))))
+    (font-lock-special-comment-face ((t (nil))))
+    (font-lock-special-keyword-face ((t (nil))))
+    (font-lock-string-face ((t (:italic t :bold t :foreground "DarkBlue"))))
+    (font-lock-type-face ((t (:italic t :bold t :foreground "DarkGreen"))))
+    (font-lock-variable-name-face ((t (:italic t :bold t :foreground "darkgreen"))))
+    (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+    (fringe ((t (:background "grey95"))))
+    (gdb-arrow-face ((t (:bold t))))
+    (gnus-cite-attribution-face ((t (:italic t :bold t))))
+    (gnus-cite-face-1 ((t (:bold t :foreground "MidnightBlue"))))
+    (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+    (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+    (gnus-cite-face-2 ((t (:bold t :foreground "firebrick"))))
+    (gnus-cite-face-3 ((t (:bold t :foreground "dark green"))))
+    (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+    (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+    (gnus-cite-face-6 ((t (:bold t :foreground "dark violet"))))
+    (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+    (gnus-cite-face-8 ((t (:foreground "magenta"))))
+    (gnus-cite-face-9 ((t (:foreground "violet"))))
+    (gnus-cite-face-list ((t (nil))))
+    (gnus-emphasis-bold ((t (:bold t))))
+    (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+    (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+    (gnus-emphasis-italic ((t (:italic t))))
+    (gnus-emphasis-underline ((t (:underline t))))
+    (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+    (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+    (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+    (gnus-filterhist-face-1 ((t (nil))))
+    (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+    (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+    (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+    (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+    (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+    (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+    (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+    (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+    (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+    (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+    (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+    (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+    (gnus-group-news-3-empty-face ((t (nil))))
+    (gnus-group-news-3-face ((t (:bold t))))
+    (gnus-group-news-4-empty-face ((t (nil))))
+    (gnus-group-news-4-face ((t (:bold t))))
+    (gnus-group-news-5-empty-face ((t (nil))))
+    (gnus-group-news-5-face ((t (:bold t))))
+    (gnus-group-news-6-empty-face ((t (nil))))
+    (gnus-group-news-6-face ((t (:bold t))))
+    (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+    (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
+    (gnus-header-from-face ((t (:bold t :foreground "red3"))))
+    (gnus-header-name-face ((t (:bold t :foreground "maroon"))))
+    (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue"))))
+    (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
+    (gnus-picons-face ((t (:background "white" :foreground "black"))))
+    (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
+    (gnus-signature-face ((t (:italic t :bold t))))
+    (gnus-splash ((t (nil))))
+    (gnus-splash-face ((t (:foreground "Brown"))))
+    (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+    (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+    (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+    (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+    (gnus-summary-high-unread-face ((t (:italic t :bold t))))
+    (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
+    (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
+    (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick"))))
+    (gnus-summary-low-unread-face ((t (:italic t))))
+    (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+    (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+    (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
+    (gnus-summary-normal-unread-face ((t (:bold t))))
+    (gnus-summary-selected-face ((t (:underline t))))
+    (gnus-x-face ((t (:background "white" :foreground "black"))))
+    (green ((t (:bold t :foreground "green"))))
+    (gui-button-face ((t (:bold t :background "grey75" :foreground "black"))))
+    (gui-element ((t (:bold t :background "Gray80"))))
+    (highlight ((t (:bold t :background "darkseagreen2"))))
+    (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
+    (highlight-changes-face ((t (:foreground "red"))))
+    (highline-face ((t (:background "black" :foreground "white"))))
+    (holiday-face ((t (:bold t :background "pink" :foreground "white"))))
+    (hproperty:but-face ((t (:bold t))))
+    (hproperty:flash-face ((t (:bold t))))
+    (hproperty:highlight-face ((t (:bold t))))
+    (hproperty:item-face ((t (:bold t))))
+    (html-helper-bold-face ((t (:bold t))))
+    (html-helper-bold-italic-face ((t (nil))))
+    (html-helper-builtin-face ((t (:underline t :foreground "blue3"))))
+    (html-helper-italic-face ((t (:italic t :bold t :foreground "yellow"))))
+    (html-helper-underline-face ((t (:underline t))))
+    (html-tag-face ((t (:bold t))))
+    (hyper-apropos-documentation ((t (:foreground "white"))))
+    (hyper-apropos-heading ((t (:bold t))))
+    (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
+    (hyper-apropos-major-heading ((t (:bold t))))
+    (hyper-apropos-section-heading ((t (:bold t))))
+    (hyper-apropos-warning ((t (:bold t :foreground "red"))))
+    (ibuffer-marked-face ((t (:foreground "red"))))
+    (info-menu-5 ((t (:underline t :bold t))))
+    (info-menu-6 ((t (nil))))
+    (info-node ((t (:italic t :bold t))))
+    (info-xref ((t (:bold t))))
+    (isearch ((t (:bold t :background "paleturquoise"))))
+    (isearch-secondary ((t (:foreground "red3"))))
+    (ispell-face ((t (:bold t))))
+    (italic ((t (:italic t :bold t))))
+    (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+    (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
+    (jde-java-font-lock-link-face ((t (:underline t :foreground "blue"))))
+    (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
+    (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
+    (left-margin ((t (:bold t))))
+    (linemenu-face ((t (nil))))
+    (list-mode-item-selected ((t (:bold t :background "gray68"))))
+    (magenta ((t (:foreground "magenta"))))
+    (makefile-space-face ((t (:background "hotpink"))))
+    (man-bold ((t (:bold t))))
+    (man-heading ((t (:bold t))))
+    (man-italic ((t (:foreground "yellow"))))
+    (man-xref ((t (:underline t))))
+    (message-cited-text ((t (:bold t :foreground "orange"))))
+    (message-cited-text-face ((t (:bold t :foreground "red"))))
+    (message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-contents ((t (:italic t :bold t :foreground "white"))))
+    (message-header-name-face ((t (:bold t :foreground "cornflower blue"))))
+    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
+    (message-header-other-face ((t (:bold t :foreground "steel blue"))))
+    (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+    (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+    (message-header-xheader-face ((t (:bold t :foreground "blue"))))
+    (message-headers ((t (:bold t :foreground "orange"))))
+    (message-highlighted-header-contents ((t (:bold t))))
+    (message-mml-face ((t (:bold t :foreground "ForestGreen"))))
+    (message-separator-face ((t (:foreground "brown"))))
+    (message-url ((t (:bold t :foreground "pink"))))
+    (mmm-face ((t (:background "black" :foreground "green"))))
+    (modeline ((t (:bold t :background "Black" :foreground "#CA94AA469193"))))
+    (modeline-buffer-id ((t (:bold t :background "Gray80" :foreground "blue4"))))
+    (modeline-mousable ((t (:bold t :background "Gray80" :foreground "firebrick"))))
+    (modeline-mousable-minor-mode ((t (:bold t :background "Gray80" :foreground "green4"))))
+    (my-tab-face ((t (nil))))
+    (nil ((t (nil))))
+    (p4-diff-del-face ((t (:bold t))))
+    (paren-blink-off ((t (:foreground "gray80"))))
+    (paren-face ((t (nil))))
+    (paren-face-match ((t (nil))))
+    (paren-face-mismatch ((t (nil))))
+    (paren-face-no-match ((t (nil))))
+    (paren-match ((t (:background "darkseagreen2"))))
+    (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
+    (paren-mismatch-face ((t (:bold t :background "DeepPink" :foreground "white"))))
+    (paren-no-match-face ((t (:bold t :background "yellow" :foreground "white"))))
+    (pointer ((t (:bold t))))
+    (primary-selection ((t (:bold t :background "gray65"))))
+    (red ((t (:bold t :foreground "red"))))
+    (region ((t (:bold t :background "gray"))))
+    (right-margin ((t (:bold t))))
+    (searchm-buffer ((t (:bold t))))
+    (searchm-button ((t (:bold t))))
+    (searchm-field ((t (nil))))
+    (searchm-field-label ((t (:bold t))))
+    (searchm-highlight ((t (:bold t))))
+    (secondary-selection ((t (:bold t :background "paleturquoise"))))
+    (semantic-intangible-face ((t (:foreground "gray25"))))
+    (semantic-read-only-face ((t (:background "gray25"))))
+    (senator-momentary-highlight-face ((t (:background "gray70"))))
+    (setnu-line-number-face ((t (:italic t :bold t))))
+    (sgml-comment-face ((t (:foreground "dark green"))))
+    (sgml-doctype-face ((t (:foreground "maroon"))))
+    (sgml-end-tag-face ((t (:foreground "blue2"))))
+    (sgml-entity-face ((t (:foreground "red2"))))
+    (sgml-ignored-face ((t (:background "gray90" :foreground "maroon"))))
+    (sgml-ms-end-face ((t (:foreground "maroon"))))
+    (sgml-ms-start-face ((t (:foreground "maroon"))))
+    (sgml-pi-face ((t (:foreground "maroon"))))
+    (sgml-sgml-face ((t (:foreground "maroon"))))
+    (sgml-short-ref-face ((t (:foreground "goldenrod"))))
+    (sgml-start-tag-face ((t (:foreground "blue2"))))
+    (shell-input-face ((t (:bold t))))
+    (shell-option-face ((t (:bold t :foreground "blue4"))))
+    (shell-output-2-face ((t (:bold t :foreground "green4"))))
+    (shell-output-3-face ((t (:bold t :foreground "green4"))))
+    (shell-output-face ((t (:bold t))))
+    (shell-prompt-face ((t (:bold t :foreground "red4"))))
+    (show-paren-match-face ((t (:bold t :background "turquoise"))))
+    (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
+    (speedbar-button-face ((t (:bold t :foreground "magenta"))))
+    (speedbar-directory-face ((t (:bold t :foreground "orchid"))))
+    (speedbar-file-face ((t (:bold t :foreground "pink"))))
+    (speedbar-highlight-face ((t (:background "black"))))
+    (speedbar-selected-face ((t (:underline t :foreground "cyan"))))
+    (speedbar-tag-face ((t (:foreground "yellow"))))
+    (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
+    (template-message-face ((t (:bold t))))
+    (term-black ((t (:foreground "black"))))
+    (term-blackbg ((t (:background "black"))))
+    (term-blue ((t (:foreground "blue"))))
+    (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue"))))
+    (term-blue-face ((t (:foreground "blue"))))
+    (term-blue-inv-face ((t (:background "blue"))))
+    (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue"))))
+    (term-bluebg ((t (:background "blue"))))
+    (term-bold ((t (:bold t))))
+    (term-cyan ((t (:foreground "cyan"))))
+    (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan"))))
+    (term-cyan-face ((t (:foreground "cyan"))))
+    (term-cyan-inv-face ((t (:background "cyan"))))
+    (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan"))))
+    (term-cyanbg ((t (:background "cyan"))))
+    (term-default-bg ((t (nil))))
+    (term-default-bg-inv ((t (nil))))
+    (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray"))))
+    (term-default-face ((t (:background "snow2" :foreground "darkslategray"))))
+    (term-default-fg ((t (nil))))
+    (term-default-fg-inv ((t (nil))))
+    (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2"))))
+    (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray"))))
+    (term-green ((t (:foreground "green"))))
+    (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green"))))
+    (term-green-face ((t (:foreground "green"))))
+    (term-green-inv-face ((t (:background "green"))))
+    (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green"))))
+    (term-greenbg ((t (:background "green"))))
+    (term-invisible ((t (nil))))
+    (term-invisible-inv ((t (nil))))
+    (term-magenta ((t (:foreground "magenta"))))
+    (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta"))))
+    (term-magenta-face ((t (:foreground "magenta"))))
+    (term-magenta-inv-face ((t (:background "magenta"))))
+    (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta"))))
+    (term-magentabg ((t (:background "magenta"))))
+    (term-red ((t (:foreground "red"))))
+    (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red"))))
+    (term-red-face ((t (:foreground "red"))))
+    (term-red-inv-face ((t (:background "red"))))
+    (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red"))))
+    (term-redbg ((t (:background "red"))))
+    (term-underline ((t (:underline t))))
+    (term-white ((t (:foreground "white"))))
+    (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white"))))
+    (term-white-face ((t (:foreground "white"))))
+    (term-white-inv-face ((t (:background "snow2"))))
+    (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white"))))
+    (term-whitebg ((t (:background "white"))))
+    (term-yellow ((t (:foreground "yellow"))))
+    (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow"))))
+    (term-yellow-face ((t (:foreground "yellow"))))
+    (term-yellow-inv-face ((t (:background "yellow"))))
+    (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow"))))
+    (term-yellowbg ((t (:background "yellow"))))
+    (text-cursor ((t (:bold t :background "Red3" :foreground "gray80"))))
+    (toolbar ((t (:bold t :background "Gray80"))))
+    (underline ((t (:underline t :bold t))))
+    (vc-annotate-face-0046FF ((t (nil))))
+    (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
+    (vertical-divider ((t (:bold t :background "Gray80"))))
+    (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+    (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+    (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+    (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+    (vhdl-font-lock-generic-/constant-face ((t (nil))))
+    (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
+    (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
+    (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+    (vhdl-font-lock-type-face ((t (nil))))
+    (vhdl-font-lock-variable-face ((t (nil))))
+    (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+    (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
+    (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+    (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
+    (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+    (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
+    (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+    (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
+    (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+    (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
+    (vhdl-speedbar-subprogram-face ((t (nil))))
+    (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+    (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+    (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+    (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+    (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+    (vm-xface ((t (:background "white" :foreground "black"))))
+    (vmpc-pre-sig-face ((t (:foreground "forestgreen"))))
+    (vmpc-sig-face ((t (:foreground "steelblue"))))
+    (vvb-face ((t (nil))))
+    (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1"))))
+    (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3"))))
+    (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
+    (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
+    (white ((t (:foreground "white"))))
+    (widget ((t (nil))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:bold t :foreground "red"))))
+    (widget-documentation-face ((t (:bold t :foreground "dark green"))))
+    (widget-field-face ((t (:bold t :background "gray85"))))
+    (widget-inactive-face ((t (:bold t :foreground "dim gray"))))
+    (widget-single-line-field-face ((t (:background "gray85"))))
+    (woman-bold-face ((t (:bold t))))
+    (woman-italic-face ((t (:foreground "beige"))))
+    (woman-unknown-face ((t (:foreground "LightSalmon"))))
+    (x-face ((t (:bold t :background "white" :foreground "black"))))
+    (x-symbol-adobe-fontspecific-face ((t (nil))))
+    (x-symbol-face ((t (nil))))
+    (x-symbol-heading-face ((t (:bold t))))
+    (x-symbol-info-face ((t (nil))))
+    (x-symbol-invisible-face ((t (nil))))
+    (x-symbol-revealed-face ((t (nil))))
+    (xrdb-option-name-face ((t (:foreground "red"))))
+    (xref-keyword-face ((t (:foreground "blue"))))
+    (xref-list-default-face ((t (nil))))
+    (xref-list-pilot-face ((t (:foreground "navy"))))
+    (xref-list-symbol-face ((t (:foreground "navy"))))
+    (yellow ((t (:bold t :foreground "yellow"))))
+    (zmacs-region ((t (:bold t :background "gray65")))))))
+
+(defun color-theme-mistyday ()
+  "Color theme by K.C. Hari Kumar, created 2001-06-13.
+Black on mistyrose.  Includes CUA, calendar, diary, font-latex and
+font-lock.  Uses backgrounds on some font-lock faces."
+  (interactive)
+  (color-theme-install
+   '(color-theme-mistyday
+     ((background-color . "mistyrose")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "deep pink")
+      (foreground-color . "Black")
+      (mouse-color . "black"))
+     ((goto-address-mail-face . italic)
+      (goto-address-mail-mouse-face . secondary-selection)
+      (goto-address-url-face . bold)
+      (goto-address-url-mouse-face . highlight)
+      (list-matching-lines-face . bold)
+      (paren-match-face . paren-face-match)
+      (paren-mismatch-face . paren-face-mismatch)
+      (paren-no-match-face . paren-face-no-match))
+    (default ((t (nil))))
+    (CUA-global-mark-face ((t (:background "cyan" :foreground "black"))))
+    (CUA-rectangle-face ((t (:background "maroon" :foreground "white"))))
+    (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white"))))
+    (bold ((t (:bold t))))
+    (bold-italic ((t (:italic t :bold t))))
+    (calendar-today-face ((t (:underline t :background "Spring Green" :foreground "Brown"))))
+    (custom-button-face ((t (:background "dark slate grey" :foreground "azure"))))
+    (custom-documentation-face ((t (:background "white" :foreground "blue"))))
+    (diary-face ((t (:background "navy" :foreground "yellow"))))
+    (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen"))))
+    (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen"))))
+    (font-latex-math-face ((t (:foreground "navy"))))
+    (font-latex-sedate-face ((t (:foreground "DimGray"))))
+    (font-latex-string-face ((t (nil))))
+    (font-latex-warning-face ((t (nil))))
+    (font-lock-builtin-face ((t (:background "DarkTurquoise" :foreground "Navy"))))
+    (font-lock-comment-face ((t (:italic t :foreground "royal blue"))))
+    (font-lock-constant-face ((t (:background "pale green" :foreground "dark slate blue"))))
+    (font-lock-doc-string-face ((t (:background "medium aquamarine" :foreground "deep pink"))))
+    (font-lock-function-name-face ((t (:background "SpringGreen" :foreground "MidnightBlue"))))
+    (font-lock-keyword-face ((t (:foreground "dark magenta"))))
+    (font-lock-preprocessor-face ((t (:background "pale green" :foreground "dark slate blue"))))
+    (font-lock-reference-face ((t (:background "DarkTurquoise" :foreground "Navy"))))
+    (font-lock-string-face ((t (:background "medium aquamarine" :foreground "deep pink"))))
+    (font-lock-type-face ((t (:background "steel blue" :foreground "khaki"))))
+    (font-lock-variable-name-face ((t (:background "thistle" :foreground "orange red"))))
+    (font-lock-warning-face ((t (:background "LemonChiffon" :foreground "Red"))))
+    (highlight ((t (:background "dark slate grey" :foreground "light cyan"))))
+    (holiday-face ((t (:background "orangered" :foreground "lightyellow"))))
+    (ido-first-match-face ((t (:bold t))))
+    (ido-only-match-face ((t (:foreground "ForestGreen"))))
+    (ido-subdir-face ((t (:foreground "red"))))
+    (italic ((t (:italic t))))
+    (isearch ((t (:background "sienna" :foreground "light cyan"))))
+    (modeline ((t (:background "Royalblue4" :foreground "lawn green"))))
+    (modeline-buffer-id ((t (:background "Royalblue4" :foreground "lawn green"))))
+    (modeline-mousable ((t (:background "Royalblue4" :foreground "lawn green"))))
+    (modeline-mousable-minor-mode ((t (:background "Royalblue4" :foreground "lawn green"))))
+    (paren-face-match ((t (:background "turquoise"))))
+    (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
+    (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
+    (primary-selection ((t (:background "sienna" :foreground "light cyan"))))
+    (region ((t (:background "sienna" :foreground "light cyan"))))
+    (secondary-selection ((t (:background "forest green" :foreground "white smoke"))))
+    (underline ((t (:underline t))))
+    (zmacs-region ((t (:background "sienna" :foreground "light cyan")))))))
+
+(defun color-theme-marine ()
+  "Color theme by Girish Bharadwaj, created 2001-06-22.
+Matches the MS Windows Marine color theme.
+Includes custom, font-lock, paren, widget."
+  (interactive)
+  (color-theme-install
+   '(color-theme-marine
+     ((background-color . "#9dcec9")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "yellow")
+      (foreground-color . "darkslategray")
+      (mouse-color . "sienna1"))
+     ((buffers-tab-face . buffers-tab)
+      (gnus-mouse-face . highlight)
+      (smiley-mouse-face . highlight))
+     (default ((t (nil))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (nil))))
+     (border-glyph ((t (nil))))
+     (buffers-tab ((t (:background "#9dcec9" :foreground "darkslategray"))))
+     (custom-button-face ((t (nil))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "gray85"))))
+     (custom-comment-tag-face ((t (:foreground "blue4"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+     (custom-group-tag-face-1 ((t (:underline t :foreground "deeppink"))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "darkgreen"))))
+     (custom-variable-button-face ((t (:underline t :bold t))))
+     (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+     (display-time-time-balloon-face ((t (:foreground "red"))))
+     (font-lock-builtin-face ((t (:foreground "SteelBlue"))))
+     (font-lock-comment-face ((t (:foreground "cadetblue"))))
+     (font-lock-constant-face ((t (:foreground "OrangeRed"))))
+     (font-lock-doc-string-face ((t (:foreground "Salmon"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "NavyBlue"))))
+     (font-lock-keyword-face ((t (:bold t :foreground "purple"))))
+     (font-lock-preprocessor-face ((t (:foreground "SteelBlue"))))
+     (font-lock-reference-face ((t (:foreground "SteelBlue"))))
+     (font-lock-string-face ((t (:foreground "royalblue"))))
+     (font-lock-type-face ((t (:foreground "darkmagenta"))))
+     (font-lock-variable-name-face ((t (:foreground "violetred"))))
+     (font-lock-warning-face ((t (:bold t :foreground "red"))))
+     (green ((t (:foreground "green"))))
+     (gui-button-face ((t (:background "grey75" :foreground "black"))))
+     (gui-element ((t (:background "#489088" :foreground "black"))))
+     (highlight ((t (:background "darkolivegreen" :foreground "white"))))
+     (isearch ((t (:background "blue"))))
+     (isearch-secondary ((t (:foreground "red3"))))
+     (italic ((t (nil))))
+     (left-margin ((t (nil))))
+     (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray"))))
+     (modeline ((t (:background "black" :foreground "white"))))
+     (modeline-buffer-id ((t (:background "black" :foreground "white"))))
+     (modeline-mousable ((t (:background "black" :foreground "white"))))
+     (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
+     (paren-blink-off ((t (:foreground "black"))))
+     (paren-match ((t (:background "darkolivegreen" :foreground "white"))))
+     (paren-mismatch ((t (:background "#9dcec9" :foreground "darkslategray"))))
+     (pointer ((t (nil))))
+     (primary-selection ((t (:background "blue"))))
+     (red ((t (:foreground "red"))))
+     (region ((t (:background "blue"))))
+     (right-margin ((t (nil))))
+     (secondary-selection ((t (:background "darkslateblue" :foreground "white"))))
+     (template-message-face ((t (:bold t))))
+     (text-cursor ((t (:background "yellow" :foreground "#9dcec9"))))
+     (toolbar ((t (nil))))
+     (underline ((t (:underline t))))
+     (vertical-divider ((t (nil))))
+     (widget ((t (nil))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "forestgreen"))))
+     (widget-field-face ((t (:background "gray"))))
+     (widget-inactive-face ((t (:foreground "dimgray"))))
+     (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))
+     (yellow ((t (:foreground "yellow"))))
+     (zmacs-region ((t (:background "blue")))))))
+
+(defun color-theme-blue-erc ()
+  "Color theme for erc faces only.
+This is intended for other color themes to use (eg. `color-theme-gnome2')."
+  (color-theme-install
+   '(color-theme-blue-erc
+     nil
+     (erc-action-face ((t (nil))))
+     (erc-bold-face ((t (:bold t))))
+     (erc-current-nick-face ((t (:bold t :foreground "yellow"))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "pale green"))))
+     (erc-error-face ((t (:bold t :foreground "IndianRed"))))
+     (erc-highlight-face ((t (:bold t :foreground "pale green"))))
+     (erc-input-face ((t (:foreground "light blue"))))
+     (erc-inverse-face ((t (:background "steel blue"))))
+     (erc-keyword-face ((t (:foreground "orange" :bold t))))
+     (erc-notice-face ((t  (:foreground "light salmon"))))
+     (erc-notice-face ((t (:foreground "MediumAquamarine"))))
+     (erc-pal-face ((t (:foreground "pale green"))))
+     (erc-prompt-face  ((t  (:foreground "light blue" :bold t))))
+     (fg:erc-color-face0 ((t (:foreground "white"))))
+     (fg:erc-color-face1 ((t (:foreground "beige"))))
+     (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
+     (fg:erc-color-face3 ((t (:foreground "light cyan"))))
+     (fg:erc-color-face4 ((t (:foreground "powder blue"))))
+     (fg:erc-color-face5 ((t (:foreground "sky blue"))))
+     (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
+     (fg:erc-color-face7 ((t (:foreground "pale green"))))
+     (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
+     (fg:erc-color-face9 ((t (:foreground "khaki"))))
+     (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
+     (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
+     (fg:erc-color-face12 ((t (:foreground "light yellow"))))
+     (fg:erc-color-face13 ((t (:foreground "yellow"))))
+     (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
+     (fg:erc-color-face15 ((t (:foreground "lime green"))))
+     (bg:erc-color-face0 ((t (nil))))
+     (bg:erc-color-face1 ((t (nil))))
+     (bg:erc-color-face2 ((t (nil))))
+     (bg:erc-color-face3 ((t (nil))))
+     (bg:erc-color-face4 ((t (nil))))
+     (bg:erc-color-face5 ((t (nil))))
+     (bg:erc-color-face6 ((t (nil))))
+     (bg:erc-color-face7 ((t (nil))))
+     (bg:erc-color-face8 ((t (nil))))
+     (bg:erc-color-face9 ((t (nil))))
+     (bg:erc-color-face10 ((t (nil))))
+     (bg:erc-color-face11 ((t (nil))))
+     (bg:erc-color-face12 ((t (nil))))
+     (bg:erc-color-face13 ((t (nil))))
+     (bg:erc-color-face14 ((t (nil))))
+     (bg:erc-color-face15 ((t (nil)))))))
+
+(defun color-theme-dark-erc ()
+  "Color theme for erc faces only.
+This is intended for other color themes to use (eg. `color-theme-late-night')."
+  (interactive)
+  (color-theme-install
+   '(color-theme-dark-erc
+     nil
+     (erc-action-face ((t (nil))))
+     (erc-bold-face ((t (:bold t))))
+     (erc-current-nick-face ((t (:bold t))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (nil))))
+     (erc-error-face ((t (:bold t :foreground "IndianRed"))))
+     (erc-highlight-face ((t (:bold t :foreground "pale green"))))
+     (erc-input-face ((t (:foreground "#555"))))
+     (erc-inverse-face ((t (:background "steel blue"))))
+     (erc-keyword-face ((t (:foreground "#999" :bold t))))
+     (erc-nick-msg-face ((t (:foreground "#888"))))
+     (erc-notice-face ((t (:foreground "#444"))))
+     (erc-pal-face ((t (:foreground "#888"))))
+     (erc-prompt-face ((t (:foreground "#777" :bold t))))
+     (erc-timestamp-face ((t (:foreground "#777" :bold t))))
+     (fg:erc-color-face0 ((t (:foreground "white"))))
+     (fg:erc-color-face1 ((t (:foreground "beige"))))
+     (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
+     (fg:erc-color-face3 ((t (:foreground "light cyan"))))
+     (fg:erc-color-face4 ((t (:foreground "powder blue"))))
+     (fg:erc-color-face5 ((t (:foreground "sky blue"))))
+     (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
+     (fg:erc-color-face7 ((t (:foreground "pale green"))))
+     (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
+     (fg:erc-color-face9 ((t (:foreground "khaki"))))
+     (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
+     (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
+     (fg:erc-color-face12 ((t (:foreground "light yellow"))))
+     (fg:erc-color-face13 ((t (:foreground "yellow"))))
+     (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
+     (fg:erc-color-face15 ((t (:foreground "lime green"))))
+     (bg:erc-color-face0 ((t (nil))))
+     (bg:erc-color-face1 ((t (nil))))
+     (bg:erc-color-face2 ((t (nil))))
+     (bg:erc-color-face3 ((t (nil))))
+     (bg:erc-color-face4 ((t (nil))))
+     (bg:erc-color-face5 ((t (nil))))
+     (bg:erc-color-face6 ((t (nil))))
+     (bg:erc-color-face7 ((t (nil))))
+     (bg:erc-color-face8 ((t (nil))))
+     (bg:erc-color-face9 ((t (nil))))
+     (bg:erc-color-face10 ((t (nil))))
+     (bg:erc-color-face11 ((t (nil))))
+     (bg:erc-color-face12 ((t (nil))))
+     (bg:erc-color-face13 ((t (nil))))
+     (bg:erc-color-face14 ((t (nil))))
+     (bg:erc-color-face15 ((t (nil)))))))
+
+(defun color-theme-subtle-blue ()
+  "Color theme by Chris McMahan, created 2001-09-06.
+Light blue background.  Includes bbdb, comint, cperl, custom, cvs,
+diary, dired, display-time, ecb, ediff, erc, eshell, font-lock,
+gnus, html-helper, info, isearch, jde, message, paren, semantic,
+sgml, speedbar, term, vhdl, viper, vm, widget, woman, xref, xxml."
+  (interactive)
+  (color-theme-install
+   '(color-theme-subtle-blue
+     ((background-color . "#65889C")
+      (background-mode . dark)
+      (background-toolbar-color . "#cf3ccf3ccf3c")
+      (border-color . "black")
+      (bottom-toolbar-shadow-color . "#79e77df779e7")
+      (cursor-color . "white")
+      (foreground-color . "#eedfcc")
+      (mouse-color . "Grey")
+      (top-toolbar-shadow-color . "#fffffbeeffff")
+      (viper-saved-cursor-color-in-replace-mode . "Red3"))
+     ((blank-space-face . blank-space-face)
+      (blank-tab-face . blank-tab-face)
+      (ecb-source-in-directories-buffer-face . ecb-sources-face)
+      (gnus-mouse-face . highlight)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight)
+      (vm-highlight-url-face . my-url-face)
+      (vm-highlighted-header-face . my-url-face)
+      (vm-mime-button-face . gui-button-face)
+      (vm-summary-highlight-face . my-summary-highlight-face))
+    (default ((t (nil))))
+    (bbdb-company ((t (:italic t))))
+    (bbdb-field-name ((t (:bold t :foreground "MediumAquamarine"))))
+    (bbdb-field-value ((t (nil))))
+    (bbdb-name ((t (:underline t))))
+    (blank-space-face ((t (:background "gray80"))))
+    (blank-tab-face ((t (:background "LightBlue" :foreground "DarkSlateGray"))))
+    (blue ((t (:foreground "blue"))))
+    (bold ((t (:bold t :foreground "MediumAquamarine"))))
+    (bold-italic ((t (:italic t :bold t :foreground "SkyBlue"))))
+    (border ((t (:background "black"))))
+    (border-glyph ((t (nil))))
+    (calendar-today-face ((t (:underline t))))
+    (comint-highlight-input ((t (:bold t))))
+    (comint-highlight-prompt ((t (:foreground "cyan"))))
+    (comint-input-face ((t (:foreground "deepskyblue"))))
+    (cperl-array-face ((t (:bold t :foreground "Yellow"))))
+    (cperl-hash-face ((t (:italic t :bold t :foreground "White"))))
+    (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
+    (cursor ((t (:background "white"))))
+    (custom-button-face ((t (:underline t :bold t :foreground "MediumAquaMarine"))))
+    (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black"))))
+    (custom-changed-face ((t (:background "blue" :foreground "white"))))
+    (custom-comment-face ((t (:background "dim gray"))))
+    (custom-comment-tag-face ((t (:foreground "gray80"))))
+    (custom-documentation-face ((t (:foreground "Grey"))))
+    (custom-face-tag-face ((t (:underline t))))
+    (custom-group-tag-face ((t (:bold t :foreground "MediumAquamarine"))))
+    (custom-group-tag-face-1 ((t (:foreground "MediumAquaMarine"))))
+    (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+    (custom-modified-face ((t (:background "blue" :foreground "white"))))
+    (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+    (custom-saved-face ((t (:underline t))))
+    (custom-set-face ((t (:background "white" :foreground "blue"))))
+    (custom-state-face ((t (:foreground "yellow"))))
+    (custom-variable-button-face ((t (:underline t :bold t))))
+    (custom-variable-tag-face ((t (:bold t :foreground "Aquamarine"))))
+    (cvs-filename-face ((t (:foreground "blue4"))))
+    (cvs-handled-face ((t (:foreground "pink"))))
+    (cvs-header-face ((t (:bold t :foreground "blue4"))))
+    (cvs-marked-face ((t (:bold t :foreground "green3"))))
+    (cvs-msg-face ((t (:italic t))))
+    (cvs-need-action-face ((t (:foreground "orange"))))
+    (cvs-unknown-face ((t (:foreground "red"))))
+    (diary-face ((t (:bold t :foreground "cyan"))))
+    (dired-face-boring ((t (:foreground "Gray65"))))
+    (dired-face-directory ((t (:bold t :foreground "sky blue"))))
+    (dired-face-executable ((t (:foreground "MediumAquaMarine"))))
+    (dired-face-flagged ((t (:foreground "Cyan"))))
+    (dired-face-marked ((t (:foreground "cyan"))))
+    (dired-face-permissions ((t (:foreground "aquamarine"))))
+    (dired-face-setuid ((t (:foreground "LightSalmon"))))
+    (dired-face-socket ((t (:foreground "LightBlue"))))
+    (dired-face-symlink ((t (:foreground "gray95"))))
+    (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+    (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+    (display-time-time-balloon-face ((t (:foreground "red"))))
+    (ecb-sources-face ((t (:foreground "LightBlue1"))))
+    (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+    (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+    (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+    (ediff-current-diff-face-C ((t (:background "indianred" :foreground "white"))))
+    (ediff-even-diff-face-A ((t (:background "light gray" :foreground "Black"))))
+    (ediff-even-diff-face-Ancestor ((t (:background "Gray" :foreground "White"))))
+    (ediff-even-diff-face-B ((t (:background "Gray" :foreground "White"))))
+    (ediff-even-diff-face-C ((t (:background "light gray" :foreground "Black"))))
+    (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+    (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+    (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+    (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+    (ediff-odd-diff-face-A ((t (:background "Gray" :foreground "White"))))
+    (ediff-odd-diff-face-Ancestor ((t (:background "light gray" :foreground "Black"))))
+    (ediff-odd-diff-face-B ((t (:background "light gray" :foreground "Black"))))
+    (ediff-odd-diff-face-C ((t (:background "Gray" :foreground "White"))))
+    (erc-action-face ((t (:bold t))))
+    (erc-bold-face ((t (:bold t))))
+    (erc-default-face ((t (nil))))
+    (erc-direct-msg-face ((t (:foreground "LightSalmon"))))
+    (erc-error-face ((t (:bold t :foreground "yellow"))))
+    (erc-input-face ((t (:foreground "Beige"))))
+    (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
+    (erc-notice-face ((t (:foreground "MediumAquamarine"))))
+    (erc-pal-face ((t (:foreground "PaleGreen"))))
+    (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
+    (erc-underline-face ((t (:underline t))))
+    (eshell-ls-archive-face ((t (:bold t :foreground "wheat"))))
+    (eshell-ls-backup-face ((t (:foreground "Grey"))))
+    (eshell-ls-clutter-face ((t (:bold t :foreground "wheat"))))
+    (eshell-ls-directory-face ((t (:bold t :foreground "Yellow"))))
+    (eshell-ls-executable-face ((t (:bold t :foreground "wheat"))))
+    (eshell-ls-missing-face ((t (:bold t :foreground "wheat"))))
+    (eshell-ls-picture-face ((t (:foreground "wheat"))))
+    (eshell-ls-product-face ((t (:foreground "wheat"))))
+    (eshell-ls-readonly-face ((t (:foreground "wheat"))))
+    (eshell-ls-special-face ((t (:bold t :foreground "wheat"))))
+    (eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
+    (eshell-ls-text-face ((t (:foreground "wheat"))))
+    (eshell-ls-todo-face ((t (:foreground "wheat"))))
+    (eshell-ls-unreadable-face ((t (:foreground "wheat3"))))
+    (eshell-prompt-face ((t (:bold t :foreground "PaleGreen"))))
+    (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
+    (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
+    (excerpt ((t (:italic t))))
+    (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
+    (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
+    (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
+    (font-latex-italic-face ((t (nil))))
+    (font-latex-math-face ((t (nil))))
+    (font-latex-sedate-face ((t (:foreground "Gray85"))))
+    (font-latex-string-face ((t (:foreground "orange"))))
+    (font-latex-warning-face ((t (:foreground "gold"))))
+    (font-lock-builtin-face ((t (:foreground "PaleGreen"))))
+    (font-lock-comment-face ((t (:italic t :foreground "Wheat3"))))
+    (font-lock-constant-face ((t (:foreground "LightBlue"))))
+    (font-lock-doc-face ((t (:bold t :foreground "DarkSeaGreen"))))
+    (font-lock-doc-string-face ((t (:bold t :foreground "DarkSeaGreen"))))
+    (font-lock-exit-face ((t (:foreground "green"))))
+    (font-lock-function-name-face ((t (:italic t :bold t :foreground "cyan"))))
+    (font-lock-keyword-face ((t (:bold t :foreground "LightBlue"))))
+    (font-lock-preprocessor-face ((t (:foreground "blue3"))))
+    (font-lock-reference-face ((t (:foreground "PaleGreen"))))
+    (font-lock-string-face ((t (:italic t :foreground "MediumAquamarine"))))
+    (font-lock-type-face ((t (:bold t :foreground "LightBlue"))))
+    (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightBlue"))))
+    (font-lock-warning-face ((t (:bold t :foreground "LightSalmon"))))
+    (fringe ((t (:background "darkslategrey"))))
+    (gnus-cite-attribution-face ((t (:italic t :bold t))))
+    (gnus-cite-face-1 ((t (:foreground "LightBlue"))))
+    (gnus-cite-face-10 ((t (:foreground "LightBlue"))))
+    (gnus-cite-face-11 ((t (:foreground "LightBlue"))))
+    (gnus-cite-face-2 ((t (:foreground "LightBlue"))))
+    (gnus-cite-face-3 ((t (:foreground "LightBlue"))))
+    (gnus-cite-face-4 ((t (:foreground "LightBlue"))))
+    (gnus-cite-face-5 ((t (:foreground "LightBlue"))))
+    (gnus-cite-face-6 ((t (:foreground "LightBlue"))))
+    (gnus-cite-face-7 ((t (:foreground "LightBlue"))))
+    (gnus-cite-face-8 ((t (:foreground "LightBlue"))))
+    (gnus-cite-face-9 ((t (:foreground "LightBlue"))))
+    (gnus-emphasis-bold ((t (:bold t))))
+    (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+    (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+    (gnus-emphasis-italic ((t (:italic t))))
+    (gnus-emphasis-underline ((t (:underline t))))
+    (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+    (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+    (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+    (gnus-filterhist-face-1 ((t (nil))))
+    (gnus-group-mail-1-empty-face ((t (:foreground "gray80"))))
+    (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
+    (gnus-group-mail-2-empty-face ((t (:foreground "gray80"))))
+    (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
+    (gnus-group-mail-3-empty-face ((t (:foreground "gray80"))))
+    (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
+    (gnus-group-mail-low-empty-face ((t (:foreground "gray80"))))
+    (gnus-group-mail-low-face ((t (:bold t :foreground "LightBlue"))))
+    (gnus-group-news-1-empty-face ((t (:foreground "gray80"))))
+    (gnus-group-news-1-face ((t (:bold t :foreground "green yellow"))))
+    (gnus-group-news-2-empty-face ((t (:foreground "gray80"))))
+    (gnus-group-news-2-face ((t (:bold t :foreground "Aquamarine"))))
+    (gnus-group-news-3-empty-face ((t (:foreground "gray80"))))
+    (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
+    (gnus-group-news-4-empty-face ((t (:foreground "gray80"))))
+    (gnus-group-news-4-face ((t (:bold t :foreground "Wheat"))))
+    (gnus-group-news-5-empty-face ((t (:foreground "gray80"))))
+    (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
+    (gnus-group-news-6-empty-face ((t (:foreground "gray80"))))
+    (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
+    (gnus-group-news-low-empty-face ((t (:foreground "gray80"))))
+    (gnus-group-news-low-face ((t (:bold t :foreground "yellow green"))))
+    (gnus-header-content-face ((t (:italic t :foreground "LightSkyBlue3"))))
+    (gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
+    (gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
+    (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
+    (gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
+    (gnus-picons-face ((t (:background "white" :foreground "black"))))
+    (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
+    (gnus-signature-face ((t (:italic t :foreground "LightBlue"))))
+    (gnus-splash ((t (:foreground "Brown"))))
+    (gnus-splash-face ((t (:foreground "LightBlue"))))
+    (gnus-summary-cancelled-face ((t (:background "black" :foreground "gray80"))))
+    (gnus-summary-high-ancient-face ((t (:bold t :foreground "LightBlue"))))
+    (gnus-summary-high-read-face ((t (:bold t :foreground "gray80"))))
+    (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood"))))
+    (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "wheat"))))
+    (gnus-summary-low-ancient-face ((t (:italic t :foreground "LightBlue"))))
+    (gnus-summary-low-read-face ((t (:italic t :foreground "light sea green"))))
+    (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "LightBlue"))))
+    (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green"))))
+    (gnus-summary-normal-ancient-face ((t (:foreground "gray80"))))
+    (gnus-summary-normal-read-face ((t (:foreground "gray80"))))
+    (gnus-summary-normal-ticked-face ((t (:bold t :foreground "sandy brown"))))
+    (gnus-summary-normal-unread-face ((t (:bold t :foreground "wheat"))))
+    (gnus-summary-selected-face ((t (:underline t))))
+    (gnus-x-face ((t (:background "white" :foreground "black"))))
+    (green ((t (:foreground "green"))))
+    (gui-button-face ((t (:background "cyan" :foreground "#65889C"))))
+    (gui-element ((t (:background "Gray"))))
+    (header-line ((t (:background "grey20" :foreground "grey90"))))
+    (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
+    (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
+    (highlight-changes-face ((t (:foreground "red"))))
+    (highline-face ((t (:background "SeaGreen"))))
+    (holiday-face ((t (:background "DimGray"))))
+    (html-helper-bold-face ((t (:foreground "DarkRed"))))
+    (html-helper-italic-face ((t (:foreground "DarkBlue"))))
+    (html-helper-underline-face ((t (:underline t :foreground "Black"))))
+    (html-tag-face ((t (:foreground "Blue"))))
+    (info-menu-5 ((t (:underline t))))
+    (info-node ((t (:underline t :italic t :bold t :foreground "light blue"))))
+    (info-xref ((t (:bold t :foreground "light blue"))))
+    (isearch ((t (:background "Aquamarine" :foreground "SteelBlue"))))
+    (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+    (isearch-secondary ((t (:foreground "red3"))))
+    (italic ((t (:italic t))))
+    (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+    (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
+    (jde-java-font-lock-api-face ((t (:foreground "LightBlue"))))
+    (jde-java-font-lock-bold-face ((t (:bold t))))
+    (jde-java-font-lock-code-face ((t (nil))))
+    (jde-java-font-lock-constant-face ((t (:foreground "LightBlue"))))
+    (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue"))))
+    (jde-java-font-lock-italic-face ((t (:italic t))))
+    (jde-java-font-lock-link-face ((t (:underline t :foreground "LightBlue"))))
+    (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue"))))
+    (jde-java-font-lock-number-face ((t (:foreground "LightBlue"))))
+    (jde-java-font-lock-package-face ((t (:foreground "LightBlue"))))
+    (jde-java-font-lock-pre-face ((t (nil))))
+    (jde-java-font-lock-underline-face ((t (:underline t))))
+    (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
+    (left-margin ((t (nil))))
+    (linemenu-face ((t (:background "gray30"))))
+    (list-mode-item-selected ((t (nil))))
+    (makefile-space-face ((t (:background "hotpink"))))
+    (menu ((t (:background "wheat" :foreground "gray30"))))
+    (message-cited-text-face ((t (:foreground "White"))))
+    (message-header-cc-face ((t (:bold t :foreground "light cyan"))))
+    (message-header-name-face ((t (:foreground "LightBlue"))))
+    (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
+    (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
+    (message-header-subject-face ((t (:bold t :foreground "light cyan"))))
+    (message-header-to-face ((t (:bold t :foreground "light cyan"))))
+    (message-header-xheader-face ((t (:foreground "LightBlue"))))
+    (message-mml-face ((t (:bold t :foreground "LightBlue"))))
+    (message-separator-face ((t (:foreground "LightBlue"))))
+    (mmm-default-submode-face ((t (:background "#c0c0c5"))))
+    (modeline ((t (:background "#4f657d" :foreground "gray80"))))
+    (modeline-buffer-id ((t (:background "#4f657d" :foreground "gray80"))))
+    (modeline-mousable ((t (:background "#4f657d" :foreground "gray80"))))
+    (modeline-mousable-minor-mode ((t (:background "#4f657d" :foreground "gray80"))))
+    (mouse ((t (:background "Grey"))))
+    (my-summary-highlight-face ((t (:foreground "White"))))
+    (my-url-face ((t (:foreground "PaleTurquoise"))))
+    (nil ((t (nil))))
+    (paren-blink-off ((t (:foreground "gray"))))
+    (paren-face-match ((t (:background "turquoise"))))
+    (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
+    (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
+    (paren-match ((t (:background "darkseagreen2"))))
+    (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
+    (paren-mismatch-face ((t (:bold t))))
+    (paren-no-match-face ((t (:bold t))))
+    (pointer ((t (nil))))
+    (primary-selection ((t (:background "gray65"))))
+    (red ((t (:foreground "red"))))
+    (region ((t (:background "CadetBlue" :foreground "gray80"))))
+    (right-margin ((t (nil))))
+    (scroll-bar ((t (nil))))
+    (secondary-selection ((t (:background "LightBlue" :foreground "#4f657d"))))
+    (semantic-dirty-token-face ((t (:background "gray10"))))
+    (semantic-intangible-face ((t (:foreground "gray25"))))
+    (semantic-read-only-face ((t (:background "gray25"))))
+    (senator-intangible-face ((t (:foreground "gray75"))))
+    (senator-momentary-highlight-face ((t (:background "gray80"))))
+    (senator-read-only-face ((t (:background "#664444"))))
+    (sgml-comment-face ((t (:foreground "dark turquoise"))))
+    (sgml-doctype-face ((t (:foreground "red"))))
+    (sgml-end-tag-face ((t (:foreground "blue"))))
+    (sgml-entity-face ((t (:foreground "magenta"))))
+    (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
+    (sgml-ms-end-face ((t (:foreground "green"))))
+    (sgml-ms-start-face ((t (:foreground "yellow"))))
+    (sgml-pi-face ((t (:foreground "lime green"))))
+    (sgml-sgml-face ((t (:foreground "brown"))))
+    (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
+    (sgml-start-tag-face ((t (:foreground "dark green"))))
+    (shell-option-face ((t (:foreground "blue"))))
+    (shell-output-2-face ((t (:foreground "darkseagreen"))))
+    (shell-output-3-face ((t (:foreground "slategray"))))
+    (shell-output-face ((t (:foreground "palegreen"))))
+    (shell-prompt-face ((t (:foreground "red"))))
+    (show-paren-match-face ((t (:background "Aquamarine" :foreground "steel blue"))))
+    (show-paren-mismatch-face ((t (:bold t :background "IndianRed" :foreground "White"))))
+    (speedbar-button-face ((t (:bold t :foreground "LightBlue"))))
+    (speedbar-directory-face ((t (:bold t :foreground "yellow"))))
+    (speedbar-file-face ((t (:bold t :foreground "wheat"))))
+    (speedbar-highlight-face ((t (:background "sea green"))))
+    (speedbar-selected-face ((t (:underline t))))
+    (speedbar-tag-face ((t (:foreground "LightBlue"))))
+    (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
+    (template-message-face ((t (:bold t))))
+    (term-black ((t (:foreground "black"))))
+    (term-blackbg ((t (:background "black"))))
+    (term-blue ((t (:foreground "blue"))))
+    (term-bluebg ((t (:background "blue"))))
+    (term-bold ((t (:bold t))))
+    (term-cyan ((t (:foreground "cyan"))))
+    (term-cyanbg ((t (:background "cyan"))))
+    (term-default-bg ((t (nil))))
+    (term-default-bg-inv ((t (nil))))
+    (term-default-fg ((t (nil))))
+    (term-default-fg-inv ((t (nil))))
+    (term-green ((t (:foreground "green"))))
+    (term-greenbg ((t (:background "green"))))
+    (term-invisible ((t (nil))))
+    (term-invisible-inv ((t (nil))))
+    (term-magenta ((t (:foreground "magenta"))))
+    (term-magentabg ((t (:background "magenta"))))
+    (term-red ((t (:foreground "red"))))
+    (term-redbg ((t (:background "red"))))
+    (term-underline ((t (:underline t))))
+    (term-white ((t (:foreground "white"))))
+    (term-whitebg ((t (:background "white"))))
+    (term-yellow ((t (:foreground "yellow"))))
+    (term-yellowbg ((t (:background "yellow"))))
+    (text-cursor ((t (:background "Red3" :foreground "white"))))
+    (tool-bar ((t (:background "grey75" :foreground "black"))))
+    (toolbar ((t (:background "Gray"))))
+    (trailing-whitespace ((t (:background "red"))))
+    (underline ((t (:underline t))))
+    (variable-pitch ((t (nil))))
+    (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat"))))
+    (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
+    (vertical-divider ((t (:background "Gray"))))
+    (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+    (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+    (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+    (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+    (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
+    (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
+    (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+    (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+    (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
+    (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+    (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
+    (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+    (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
+    (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+    (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
+    (vhdl-speedbar-package-face ((t (:foreground "Gray50"))))
+    (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Gray50"))))
+    (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+    (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+    (viper-minibuffer-vi-face ((t (:background "gray" :foreground "DarkGreen"))))
+    (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+    (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+    (vm-header-content-face ((t (:italic t :foreground "gray80"))))
+    (vm-header-from-face ((t (:italic t :background "#65889C" :foreground "cyan"))))
+    (vm-header-name-face ((t (:foreground "cyan"))))
+    (vm-header-subject-face ((t (:foreground "cyan"))))
+    (vm-header-to-face ((t (:italic t :foreground "cyan"))))
+    (vm-message-cited-face ((t (:foreground "Gray80"))))
+    (vm-summary-face-1 ((t (:foreground "MediumAquamarine"))))
+    (vm-summary-face-2 ((t (:foreground "MediumAquamarine"))))
+    (vm-summary-face-3 ((t (:foreground "MediumAquamarine"))))
+    (vm-summary-face-4 ((t (:foreground "MediumAquamarine"))))
+    (vm-summary-highlight-face ((t (:foreground "White"))))
+    (vmpc-pre-sig-face ((t (:foreground "Aquamarine"))))
+    (vmpc-sig-face ((t (:foreground "LightBlue"))))
+    (vvb-face ((t (:background "pink" :foreground "black"))))
+    (widget-button-face ((t (:bold t))))
+    (widget-button-pressed-face ((t (:foreground "cyan"))))
+    (widget-documentation-face ((t (:foreground "LightBlue"))))
+    (widget-field-face ((t (:foreground "LightBlue"))))
+    (widget-inactive-face ((t (:foreground "Wheat3"))))
+    (widget-single-line-field-face ((t (:foreground "LightBlue"))))
+    (woman-bold-face ((t (:bold t))))
+    (woman-italic-face ((t (:foreground "beige"))))
+    (woman-unknown-face ((t (:foreground "LightSalmon"))))
+    (xref-keyword-face ((t (:foreground "Cyan"))))
+    (xref-list-pilot-face ((t (:foreground "navy"))))
+    (xref-list-symbol-face ((t (:foreground "navy"))))
+    (xxml-emph-1-face ((t (:background "lightyellow"))))
+    (xxml-emph-2-face ((t (:background "lightyellow"))))
+    (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine"))))
+    (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue"))))
+    (xxml-header-3-face ((t (:background "seashell1"))))
+    (xxml-header-4-face ((t (:background "seashell1"))))
+    (xxml-interaction-face ((t (:background "lightcyan"))))
+    (xxml-rug-face ((t (:background "cyan"))))
+    (xxml-sparkle-face ((t (:background "yellow"))))
+    (xxml-unbreakable-space-face ((t (:underline t :foreground "grey"))))
+    (yellow ((t (:foreground "yellow"))))
+    (zmacs-region ((t (:background "#4f657d")))))))
+
+(defun color-theme-dark-blue ()
+  "Color theme by Chris McMahan, created 2001-09-09.
+Based on `color-theme-subtle-blue' with a slightly darker background."
+  (interactive)
+  (color-theme-subtle-blue)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-install
+     '(color-theme-dark-blue
+       ((background-color . "#537182")
+	(foreground-color . "AntiqueWhite2"))
+       nil
+       (default ((t (nil))))
+       (blank-space-face ((t (:background "LightGray"))))
+       (blank-tab-face ((t (:background "Wheat" :foreground "DarkSlateGray"))))
+       (cursor ((t (:background "LightGray"))))
+       (dired-face-executable ((t (:foreground "green yellow"))))
+       (dired-face-flagged ((t (:foreground "tomato"))))
+       (dired-face-marked ((t (:foreground "light salmon"))))
+       (dired-face-setuid ((t (:foreground "Red"))))
+       (dired-face-socket ((t (:foreground "magenta"))))
+       (fixed ((t (:bold t))))
+       (font-lock-comment-face ((t (:italic t :foreground "Gray80"))))
+       (font-lock-doc-face ((t (:bold t))))
+       (font-lock-function-name-face ((t (:italic t :bold t :foreground "Yellow"))))
+       (font-lock-string-face ((t (:italic t :foreground "DarkSeaGreen"))))
+       (font-lock-type-face ((t (:bold t :foreground "YellowGreen"))))
+       (gui-button-face ((t (:background "DarkSalmon" :foreground "white"))))
+       (modeline ((t (:background "#c1ccd9" :foreground "#4f657d"))))
+       (modeline-buffer-id ((t (:background "#c1ccd9" :foreground "#4f657d"))))
+       (modeline-mousable ((t (:background "#c1ccd9" :foreground "#4f657d"))))
+       (modeline-mousable-minor-mode ((t (:background "#c1ccd9" :foreground "#4f657d"))))
+       (my-url-face ((t (:foreground "LightBlue"))))
+       (region ((t (:background "PaleTurquoise4" :foreground "gray80"))))
+       (secondary-selection ((t (:background "sea green" :foreground "yellow"))))
+       (vm-header-content-face ((t (:italic t :foreground "wheat"))))
+       (vm-header-from-face ((t (:italic t :foreground "wheat"))))
+       (widget-button-pressed-face ((t (:foreground "red"))))
+       (xref-keyword-face ((t (:foreground "blue"))))
+       (zmacs-region ((t (:background "SlateGray"))))))))
+
+(defun color-theme-jonadabian-slate ()
+  "Another slate-and-wheat color theme by Jonadab the Unsightly One.
+Updated 2001-10-12."
+  (interactive)
+  (color-theme-install
+   '(color-theme-jonadabian-slate
+     ((background-color . "#305050")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "medium turquoise")
+      (foreground-color . "#CCBB77")
+      (mouse-color . "black"))
+     ((list-matching-lines-face . bold)
+      (ued-mode-keyname-face . modeline)
+      (view-highlight-face . highlight))
+     (default ((t (nil))))
+     (fringe ((t (:background "#007080"))))
+     (bold ((t (:bold t :foreground "#EEDDAA"))))
+     (gnus-emphasis-bold ((t (:bold t :foreground "#EEDDAA"))))
+     (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "#EEDDAA"))))
+     (bold-italic ((t (:italic t :bold t :foreground "#AA0000"))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "#AA0000"))))
+     (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "#AA0000"))))
+     (gnus-emphasis-underline-italic ((t (:underline t :italic t :bold t :foreground "#AA0000"))))
+     (calendar-today-face ((t (:underline t :background "darkslategrey"))))
+     (cperl-array-face ((t (:background "#004060"))))
+     (cperl-hash-face ((t (:background "#004400"))))
+     (custom-button-face ((t (:background "dark blue" :foreground "rgbi:1.00/1.00/0.00"))))
+     (custom-documentation-face ((t (:foreground "#10D010"))))
+     (custom-face-tag-face ((t (:underline t :foreground "goldenrod"))))
+     (custom-group-tag-face ((t (:underline t :foreground "light blue"))))
+     (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:foreground "#6666dd"))))
+     (custom-state-face ((t (:foreground "mediumaquamarine"))))
+     (custom-variable-button-face ((t (:underline t :bold t))))
+     (custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
+     (diary-face ((t (:foreground "red"))))
+     (eshell-ls-archive-face ((t (:foreground "green"))))
+     (eshell-ls-backup-face ((t (:foreground "grey60"))))
+     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue"))))
+     (eshell-ls-executable-face ((t (:foreground "white"))))
+     (eshell-ls-missing-face ((t (:foreground "red"))))
+     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
+     (eshell-ls-readonly-face ((t (:foreground "indian red"))))
+     (eshell-ls-special-face ((t (:foreground "yellow"))))
+     (eshell-ls-symlink-face ((t (:foreground "#6666dd"))))
+     (eshell-ls-unreadable-face ((t (:foreground "red"))))
+     (eshell-prompt-face ((t (:bold t :background "#305050" :foreground "#EEDD99"))))
+     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+     (font-lock-comment-face ((t (:italic t :bold t :foreground "grey66"))))
+     (font-lock-constant-face ((t (:foreground "indian red"))))
+     (font-lock-function-name-face ((t (:foreground "#D0D000"))))
+     (font-lock-keyword-face ((t (:foreground "#00BBBB"))))
+     (font-lock-string-face ((t (:foreground "#10D010"))))
+     (font-lock-type-face ((t (:bold t :foreground "#ff7788"))))
+     (font-lock-variable-name-face ((t (:foreground "#eeddaa"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+     (header-line ((t (:box (:line-width 1 :style released-button)))))
+     (highlight ((t (:background "#226644"))))
+     (highlight-changes-delete-face ((t (:background "navy" :foreground "red"))))
+     (highlight-changes-face ((t (:background "navy"))))
+     (holiday-face ((t (:foreground "#ff7744"))))
+     (italic ((t (:italic t :foreground "#AA0000"))))
+     (gnus-emphasis-italic ((t (:italic t :foreground "#AA0000"))))
+     (modeline ((t (:background "#007080" :foreground "cyan"))))
+     (modeline-buffer-id ((t (:background "#007080" :foreground "cyan"))))
+     (modeline-mousable ((t (:background "#007080" :foreground "cyan"))))
+     (modeline-mousable-minor-mode ((t (:background "#007080" :foreground "cyan"))))
+     (region ((t (:background "#226644"))))
+     (secondary-selection ((t (:background "darkslategrey"))))
+     (sgml-comment-face ((t (:foreground "grey60"))))
+     (sgml-doctype-face ((t (:foreground "red"))))
+     (sgml-end-tag-face ((t (:foreground "#00D0D0"))))
+     (sgml-entity-face ((t (:foreground "indian red"))))
+     (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
+     (sgml-ms-end-face ((t (:foreground "green"))))
+     (sgml-ms-start-face ((t (:foreground "green"))))
+     (sgml-pi-face ((t (:foreground "lime green"))))
+     (sgml-sgml-face ((t (:foreground "brown"))))
+     (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
+     (sgml-start-tag-face ((t (:foreground "#D0D000"))))
+     (show-paren-match-face ((t (:background "#400055" :foreground "cyan"))))
+     (show-paren-mismatch-face ((t (:background "red"))))
+     (special-string-face ((t (:foreground "light green"))))
+     (term-black ((t (:background "#000055" :foreground "black"))))
+     (term-blackbg ((t (:background "black" :foreground "#CCBB77"))))
+     (term-blue ((t (:background "#000055" :foreground "blue"))))
+     (term-bluebg ((t (:background "blue" :foreground "#CCBB77"))))
+     (term-bold ((t (:bold t :background "#000055" :foreground "#CCBB77"))))
+     (term-cyan ((t (:background "#000055" :foreground "cyan"))))
+     (term-cyanbg ((t (:background "darkcyan"))))
+     (term-default-bg ((t (:foreground "#CCBB77"))))
+     (term-default-bg-inv ((t (:foreground "#CCBB77"))))
+     (term-default-fg ((t (:background "#000055"))))
+     (term-default-fg-inv ((t (:background "#000055"))))
+     (term-green ((t (:background "#000055" :foreground "green"))))
+     (term-greenbg ((t (:background "darkgreen"))))
+     (term-invisible ((t (:foreground "#CCBB77"))))
+     (term-invisible-inv ((t (:foreground "#CCBB77"))))
+     (term-magenta ((t (:background "#000055" :foreground "magenta"))))
+     (term-magentabg ((t (:background "darkmagenta"))))
+     (term-red ((t (:background "#000055" :foreground "red"))))
+     (term-redbg ((t (:background "darkred"))))
+     (term-underline ((t (:underline t :background "#000055" :foreground "#CCBB77"))))
+     (term-white ((t (:background "#000055" :foreground "white"))))
+     (term-whitebg ((t (:background "grey50"))))
+     (term-yellow ((t (:background "#000055" :foreground "yellow"))))
+     (term-yellowbg ((t (:background "#997700"))))
+     (trailing-whitespace ((t (:background "#23415A"))))
+     (underline ((t (:underline t))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "green"))))
+     (widget-field-face ((t (:background "grey35" :foreground "black"))))
+     (widget-inactive-face ((t (:foreground "gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray")))))))
+
+(defun color-theme-gray1 ()
+  "Color theme by Paul Pulli, created 2001-10-19."
+  (interactive)
+  (color-theme-install
+   '(color-theme-gray1
+     ((background-color . "darkgray")
+      (background-mode . light)
+      (background-toolbar-color . "#949494949494")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#595959595959")
+      (cursor-color . "Yellow")
+      (foreground-color . "black")
+      (top-toolbar-shadow-color . "#b2b2b2b2b2b2"))
+     nil
+     (default ((t (nil))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (:italic t :bold t))))
+     (border-glyph ((t (nil))))
+     (cperl-here-face ((t (:background "gray68" :foreground "DeepPink"))))
+     (font-lock-builtin-face ((t (:bold t :foreground "red3"))))
+     (font-lock-comment-face ((t (:foreground "gray50"))))
+     (font-lock-constant-face ((t (:bold t :foreground "blue3"))))
+     (font-lock-doc-string-face ((t (:foreground "black"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "DeepPink3"))))
+     (font-lock-keyword-face ((t (:bold t :foreground "red"))))
+     (font-lock-other-type-face ((t (:bold t :foreground "green4"))))
+     (font-lock-preprocessor-face ((t (:bold t :foreground "blue3"))))
+     (font-lock-reference-face ((t (:bold t :foreground "red3"))))
+     (font-lock-string-face ((t (:foreground "red"))))
+     (font-lock-type-face ((t (:bold t :foreground "white"))))
+     (font-lock-variable-name-face ((t (:bold t :foreground "blue3"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+     (green ((t (:foreground "green4"))))
+     (gui-button-face ((t (:background "black" :foreground "red"))))
+     (gui-element ((t (:background "gray58"))))
+     (highlight ((t (:background "magenta" :foreground "yellow"))))
+     (isearch ((t (:background "red" :foreground "yellow"))))
+     (italic ((t (:italic t))))
+     (left-margin ((t (nil))))
+     (list-mode-item-selected ((t (:background "gray90" :foreground "purple"))))
+     (m4-face ((t (:background "gray90" :foreground "orange3"))))
+     (message-cited-text ((t (nil))))
+     (message-header-contents ((t (nil))))
+     (message-headers ((t (nil))))
+     (message-highlighted-header-contents ((t (nil))))
+     (modeline ((t (:background "#aa80aa" :foreground "White"))))
+     (modeline-buffer-id ((t (:background "#aa80aa" :foreground "linen"))))
+     (modeline-mousable ((t (:background "#aa80aa" :foreground "cyan"))))
+     (modeline-mousable-minor-mode ((t (:background "#aa80aa" :foreground "yellow"))))
+     (paren-blink-off ((t (:foreground "gray58"))))
+     (paren-blink-on ((t (:foreground "purple"))))
+     (paren-match ((t (:background "gray68" :foreground "white"))))
+     (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
+     (pointer ((t (nil))))
+     (primary-selection ((t (:background "gray"))))
+     (red ((t (:foreground "red"))))
+     (right-margin ((t (nil))))
+     (secondary-selection ((t (:background "paleturquoise"))))
+     (text-cursor ((t (:background "Yellow" :foreground "darkgray"))))
+     (toolbar ((t (:background "#aa80aa" :foreground "linen"))))
+     (underline ((t (:underline t))))
+     (vertical-divider ((t (nil))))
+     (x-face ((t (:background "black" :foreground "lavenderblush"))))
+     (yellow ((t (:foreground "yellow3"))))
+     (zmacs-region ((t (:background "paleturquoise" :foreground "black")))))))
+
+(defun color-theme-word-perfect ()
+  "White on blue background, based on WordPerfect 5.1.
+Color theme by Thomas Gehrlein, created 2001-10-21."
+  (interactive)
+  (color-theme-install
+   '(color-theme-word-perfect
+     ((background-color . "blue4")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "gold")
+      (foreground-color . "white")
+      (mouse-color . "black"))
+     ((ecb-source-in-directories-buffer-face . ecb-sources-face)
+      (gnus-mouse-face . highlight)
+      (goto-address-mail-face . italic)
+      (goto-address-mail-mouse-face . secondary-selection)
+      (goto-address-url-face . bold)
+      (goto-address-url-mouse-face . highlight)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight))
+     (default ((t (nil))))
+     (bbdb-field-name ((t (:foreground "lime green"))))
+     (bbdb-field-value ((t (:foreground "white"))))
+     (bbdb-name ((t (:underline t :foreground "lime green"))))
+     (bold ((t (:bold t :foreground "white"))))
+     (bold-italic ((t (:italic t :bold t :foreground "yellow"))))
+     (calendar-today-face ((t (:underline t :foreground "deep sky blue"))))
+     (diary-face ((t (:foreground "gold"))))
+     (ecb-sources-face ((t (:foreground "LightBlue1"))))
+     (edb-inter-field-face ((t (:foreground "deep sky blue"))))
+     (edb-normal-summary-face ((t (:foreground "gold"))))
+     (emacs-wiki-bad-link-face ((t (:underline "coral" :bold t :foreground "coral"))))
+     (emacs-wiki-link-face ((t (:underline "cyan" :bold t :foreground "cyan"))))
+     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+     (font-lock-comment-face ((t (:foreground "deep sky blue"))))
+     (font-lock-constant-face ((t (:foreground "lime green"))))
+     (font-lock-doc-face ((t (:foreground "gold"))))
+     (font-lock-doc-string-face ((t (:foreground "gold"))))
+     (font-lock-function-name-face ((t (:background "blue4" :foreground "IndianRed"))))
+     (font-lock-keyword-face ((t (:foreground "lime green"))))
+     (font-lock-preprocessor-face ((t (:foreground "lime green"))))
+     (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
+     (font-lock-string-face ((t (:foreground "gold"))))
+     (font-lock-type-face ((t (:foreground "lime green"))))
+     (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
+     (font-lock-warning-face ((t (:bold t :foreground "firebrick"))))
+     (gnus-emphasis-bold ((t (:foreground "yellow2"))))
+     (gnus-emphasis-bold-italic ((t (:foreground "yellow2"))))
+     (gnus-emphasis-italic ((t (:foreground "yellow2"))))
+     (gnus-emphasis-underline ((t (:foreground "yellow2"))))
+     (gnus-emphasis-underline-bold ((t (:foreground "yellow2"))))
+     (gnus-emphasis-underline-bold-italic ((t (:foreground "yellow2"))))
+     (gnus-emphasis-underline-italic ((t (:foreground "yellow2"))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
+     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
+     (gnus-group-news-3-empty-face ((t (:foreground "deep sky blue"))))
+     (gnus-group-news-3-face ((t (:bold t :foreground "deep sky blue"))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
+     (gnus-header-content-face ((t (:foreground "gold"))))
+     (gnus-header-from-face ((t (:foreground "gold"))))
+     (gnus-header-name-face ((t (:foreground "deep sky blue"))))
+     (gnus-header-newsgroups-face ((t (:foreground "gold"))))
+     (gnus-header-subject-face ((t (:foreground "gold"))))
+     (gnus-signature-face ((t (:foreground "gold"))))
+     (gnus-splash-face ((t (:foreground "firebrick"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "deep sky blue"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "deep sky blue"))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "deep sky blue"))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "deep sky blue"))))
+     (gnus-summary-high-unread-face ((t (:bold t :foreground "lime green"))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "deep sky blue"))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "deep sky blue"))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "deep sky blue"))))
+     (gnus-summary-low-unread-face ((t (:italic t :foreground "lime green"))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "deep sky blue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "deep sky blue"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "deep sky blue"))))
+     (gnus-summary-normal-unread-face ((t (:foreground "lime green"))))
+     (gnus-summary-selected-face ((t (:underline t :foreground "gold"))))
+     (highlight ((t (:background "steel blue" :foreground "black"))))
+     (holiday-face ((t (:background "blue4" :foreground "IndianRed1"))))
+     (info-menu-5 ((t (:underline t :foreground "gold"))))
+     (info-node ((t (:italic t :bold t :foreground "gold"))))
+     (info-xref ((t (:bold t :foreground "gold"))))
+     (isearch ((t (:background "firebrick" :foreground "white"))))
+     (italic ((t (:italic t :foreground "yellow2"))))
+     (message-cited-text-face ((t (:foreground "gold"))))
+     (message-header-cc-face ((t (:bold t :foreground "green4"))))
+     (message-header-name-face ((t (:foreground "deep sky blue"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold"))))
+     (message-header-other-face ((t (:foreground "gold"))))
+     (message-header-subject-face ((t (:foreground "gold"))))
+     (message-header-to-face ((t (:bold t :foreground "gold"))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-separator-face ((t (:foreground "lime green"))))
+     (modeline ((t (:foreground "white" :background "black"))))
+     (modeline-buffer-id ((t (:foreground "white" :background "black"))))
+     (modeline-mousable ((t (:foreground "white" :background "black"))))
+     (modeline-mousable-minor-mode ((t (:foreground "white" :background "black"))))
+     (overlay-empty-face ((t (nil))))
+     (primary-selection ((t (:background "firebrick" :foreground "white"))))
+     (region ((t (:background "firebrick" :foreground "white"))))
+     (secondary-selection ((t (:background "yellow2" :foreground "black"))))
+     (semantic-dirty-token-face ((t (:background "gray10"))))
+     (show-paren-match-face ((t (:background "deep sky blue" :foreground "black"))))
+     (show-paren-mismatch-face ((t (:background "firebrick" :foreground "white"))))
+     (underline ((t (:underline t :background "blue4" :foreground "white")))))))
+
+;; In order to produce this, follow these steps:
+;;
+;; 0. Make sure .Xresources and .Xdefaults don't have any Emacs related
+;;    entries.
+;;
+;; 1. cd into the Emacs lisp directory and run the following command:
+;;    ( for d in `find -type d`; \
+;;      do grep --files-with-matches 'defface[		]' $d/*.el; \
+;;      done ) | sort | uniq
+;;    Put the result in a lisp block, using load-library calls.
+;;
+;;    Repeat this for any directories on your load path which you want to
+;;    include in the standard.  This might include W3, eshell, etc.
+;;
+;;    Add some of the libraries that don't use defface:
+;;
+;; 2. Start emacs using the --no-init-file and --no-site-file command line
+;;    arguments.  Evaluate the lisp block you prepared.
+;; 3. Load color-theme and run color-theme-print.  Save the output and use it
+;;    to define color-theme-standard.
+;;
+;; (progn
+;; (load-library "add-log")
+;; (load-library "calendar")
+;; (load-library "comint")
+;; (load-library "cus-edit")
+;; (load-library "cus-face")
+;; (load-library "custom")
+;; (load-library "diff-mode")
+;; (load-library "ediff-init")
+;; (load-library "re-builder")
+;; (load-library "viper-init")
+;; (load-library "enriched")
+;; (load-library "em-ls")
+;; (load-library "em-prompt")
+;; (load-library "esh-test")
+;; (load-library "faces")
+;; (load-library "font-lock")
+;; (load-library "generic-x")
+;; (load-library "gnus-art")
+;; (load-library "gnus-cite")
+;; (load-library "gnus")
+;; (load-library "message")
+;; (load-library "hilit-chg")
+;; (load-library "hi-lock")
+;; (load-library "info")
+;; (load-library "isearch")
+;; (load-library "log-view")
+;; (load-library "paren")
+;; (load-library "pcvs-info")
+;; (load-library "antlr-mode")
+;; (load-library "cperl-mode")
+;; (load-library "ebrowse")
+;; (load-library "idlwave")
+;; (load-library "idlw-shell")
+;; (load-library "make-mode")
+;; (load-library "sh-script")
+;; (load-library "vhdl-mode")
+;; (load-library "smerge-mode")
+;; (load-library "speedbar")
+;; (load-library "strokes")
+;; (load-library "artist")
+;; (load-library "flyspell")
+;; (load-library "texinfo")
+;; (load-library "tex-mode")
+;; (load-library "tooltip")
+;; (load-library "vcursor")
+;; (load-library "wid-edit")
+;; (load-library "woman")
+;; (load-library "term")
+;; (load-library "man")
+;; (load-file "/home/alex/elisp/color-theme.el")
+;; (color-theme-print))
+;;
+;; 4. Make the color theme usable on Xemacs (add more faces, resolve
+;;    :inherit attributes)
+;;
+(defun color-theme-emacs-21 ()
+  "Color theme used by Emacs 21.1.
+Added and adapted for XEmacs by Alex Schroeder.  Adaptation mostly
+consisted of resolving :inherit attributes and adding missing faces.
+This theme includes faces from the following Emacs libraries: add-log
+calendar comint cus-edit cus-face custom diff-mode ediff-init re-builder
+viper-init enriched em-ls em-prompt esh-test faces font-lock generic-x
+gnus-art gnus-cite gnus message hilit-chg hi-lock info isearch log-view
+paren pcvs-info antlr-mode cperl-mode ebrowse idlwave idlw-shell
+make-mode sh-script vhdl-mode smerge-mode speedbar strokes artist
+flyspell texinfo tex-mode tooltip vcursor wid-edit woman term man"
+  (interactive)
+  (color-theme-install
+   '(color-theme-emacs-21
+     ((background-color . "white")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "black")
+      (foreground-color . "black")
+      (mouse-color . "black"))
+     ((Man-overstrike-face . bold)
+      (Man-underline-face . underline)
+      (cperl-here-face . font-lock-string-face)
+      (cperl-invalid-face . underline)
+      (cperl-pod-face . font-lock-comment-face)
+      (cperl-pod-head-face . font-lock-variable-name-face)
+      (gnus-article-button-face . bold)
+      (gnus-article-mouse-face . highlight)
+      (gnus-cite-attribution-face . gnus-cite-attribution-face)
+      (gnus-mouse-face . highlight)
+      (gnus-signature-face . gnus-signature-face)
+      (gnus-summary-selected-face . gnus-summary-selected-face)
+      (help-highlight-face . underline)
+      (idlwave-class-arrow-face . bold)
+      (idlwave-shell-breakpoint-face . idlwave-shell-bp-face)
+      (idlwave-shell-expression-face . secondary-selection)
+      (idlwave-shell-stop-line-face . highlight)
+      (ispell-highlight-face . highlight)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight)
+      (viper-insert-state-cursor-color . "Green")
+      (viper-replace-overlay-cursor-color . "Red")
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
+     (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
+     (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
+     (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
+     (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold))))
+     (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold))))
+     (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold))))
+     (antlr-font-lock-ruleref-face ((t (:foreground "blue4"))))
+     (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold))))
+     (antlr-font-lock-tokenref-face ((t (:foreground "orange4"))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (calendar-today-face ((t (:underline t))))
+     (change-log-acknowledgement-face ((t (:foreground "Firebrick"))))
+     (change-log-conditionals-face ((t (:foreground "DarkGoldenrod"))))
+     (change-log-date-face ((t (:foreground "RosyBrown"))))
+     (change-log-email-face ((t (:foreground "DarkGoldenrod"))))
+     (change-log-file-face ((t (:foreground "Blue"))))
+     (change-log-function-face ((t (:foreground "DarkGoldenrod"))))
+     (change-log-list-face ((t (:foreground "Purple"))))
+     (change-log-name-face ((t (:foreground "CadetBlue"))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "dark blue"))))
+     (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
+     (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
+     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+     (cursor ((t (:background "black"))))
+     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "gray85"))))
+     (custom-comment-tag-face ((t (:foreground "blue4"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
+     (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
+     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "dark green"))))
+     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
+     (cvs-filename-face ((t (:foreground "blue4"))))
+     (cvs-handled-face ((t (:foreground "pink"))))
+     (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold))))
+     (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
+     (cvs-msg-face ((t (:italic t :slant italic))))
+     (cvs-need-action-face ((t (:foreground "orange"))))
+     (cvs-unknown-face ((t (:foreground "red"))))
+     (diary-face ((t (:foreground "red"))))
+     (diff-added-face ((t (nil))))
+     (diff-changed-face ((t (nil))))
+     (diff-context-face ((t (:foreground "grey50"))))
+     (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
+     (diff-function-face ((t (:foreground "grey50"))))
+     (diff-header-face ((t (:background "grey85"))))
+     (diff-hunk-header-face ((t (:background "grey85"))))
+     (diff-index-face ((t (:bold t :weight bold :background "grey70"))))
+     (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70"))))
+     (diff-removed-face ((t (nil))))
+     (dired-face-boring ((t (:foreground "RosyBrown"))))
+     (dired-face-directory ((t (:foreground "Blue"))))
+     (dired-face-executable ((t (nil))))
+     (dired-face-flagged ((t (:foreground "Red" :weight bold))))
+     (dired-face-marked ((t (:foreground "Red" :weight bold))))
+     (dired-face-permissions ((t (nil))))
+     (dired-face-setuid ((t (nil))))
+     (dired-face-socket ((t (nil))))
+     (dired-face-symlink ((t (:foreground "Purple"))))
+     (ebrowse-default-face ((t (nil))))
+     (ebrowse-file-name-face ((t (:italic t :slant italic))))
+     (ebrowse-member-attribute-face ((t (:foreground "red"))))
+     (ebrowse-member-class-face ((t (:foreground "purple"))))
+     (ebrowse-progress-face ((t (:background "blue"))))
+     (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold))))
+     (ebrowse-tree-mark-face ((t (:foreground "red"))))
+     (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+     (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+     (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+     (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+     (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+     (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+     (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+     (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+     (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+     (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+     (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+     (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+     (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+     (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+     (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+     (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
+     (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold))))
+     (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
+     (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
+     (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+     (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+     (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
+     (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold))))
+     (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+     (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
+     (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
+     (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
+     (excerpt ((t (:italic t :slant italic))))
+     (fixed ((t (:bold t :weight bold))))
+     (fixed-pitch ((t (:family "courier"))))
+     (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
+     (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
+     (font-lock-builtin-face ((t (:foreground "Orchid"))))
+     (font-lock-comment-face ((t (:foreground "Firebrick"))))
+     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+     (font-lock-doc-face ((t (:foreground "RosyBrown"))))
+     (font-lock-doc-string-face ((t (:foreground "RosyBrown"))))
+     (font-lock-function-name-face ((t (:foreground "Blue"))))
+     (font-lock-keyword-face ((t (:foreground "Purple"))))
+     (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
+     (font-lock-reference-face ((t (:foreground "Orchid"))))
+     (font-lock-string-face ((t (:foreground "RosyBrown"))))
+     (font-lock-type-face ((t (:foreground "ForestGreen"))))
+     (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
+     (fringe ((t (:background "grey95"))))
+     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
+     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+     (gnus-cite-face-3 ((t (:foreground "dark green"))))
+     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t :weight bold))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (:italic t :slant italic))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold))))
+     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
+     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t :weight bold))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t :weight bold))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t :weight bold))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t :weight bold))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
+     (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic))))
+     (gnus-header-from-face ((t (:foreground "red3"))))
+     (gnus-header-name-face ((t (:foreground "maroon"))))
+     (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic))))
+     (gnus-header-subject-face ((t (:foreground "red4"))))
+     (gnus-signature-face ((t (:italic t :slant italic))))
+     (gnus-splash-face ((t (:foreground "Brown"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold))))
+     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic))))
+     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
+     (hi-black-b ((t (:bold t :weight bold))))
+     (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67))))
+     (hi-blue ((t (:background "light blue"))))
+     (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
+     (hi-green ((t (:background "green"))))
+     (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
+     (hi-pink ((t (:background "pink"))))
+     (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
+     (hi-yellow ((t (:background "yellow"))))
+     (highlight ((t (:background "darkseagreen2"))))
+     (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
+     (highlight-changes-face ((t (:foreground "red"))))
+     (holiday-face ((t (:background "pink"))))
+     (idlwave-help-link-face ((t (:foreground "Blue"))))
+     (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
+     (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown"))))
+     (info-header-xref ((t (:bold t :weight bold :foreground "magenta4"))))
+     (info-menu-5 ((t (:foreground "red1"))))
+     (info-menu-header ((t (:bold t :family "helv" :weight bold))))
+     (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
+     (info-xref ((t (:bold t :foreground "magenta4" :weight bold))))
+     (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
+     (italic ((t (:italic t :slant italic))))
+     (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
+     (log-view-message-face ((t (:background "grey85"))))
+     (makefile-space-face ((t (:background "hotpink"))))
+     (menu ((t (nil))))
+     (message-cited-text-face ((t (:foreground "red"))))
+     (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+     (message-header-name-face ((t (:foreground "cornflower blue"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
+     (message-header-other-face ((t (:foreground "steel blue"))))
+     (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold))))
+     (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (message-separator-face ((t (:foreground "brown"))))
+     (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+     (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+     (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+     (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+     (mouse ((t (:background "black"))))
+     (primary-selection ((t (:background "lightgoldenrod2"))))
+     (reb-match-0 ((t (:background "lightblue"))))
+     (reb-match-1 ((t (:background "aquamarine"))))
+     (reb-match-2 ((t (:background "springgreen"))))
+     (reb-match-3 ((t (:background "yellow"))))
+     (region ((t (:background "lightgoldenrod2"))))
+     (scroll-bar ((t (:background "grey75"))))
+     (secondary-selection ((t (:background "yellow"))))
+     (sh-heredoc-face ((t (:foreground "tan"))))
+     (show-paren-match-face ((t (:background "turquoise"))))
+     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+     (show-tabs-space-face ((t (:foreground "yellow"))))
+     (show-tabs-tab-face ((t (:foreground "red"))))
+     (smerge-base-face ((t (:foreground "red"))))
+     (smerge-markers-face ((t (:background "grey85"))))
+     (smerge-mine-face ((t (:foreground "blue"))))
+     (smerge-other-face ((t (:foreground "darkgreen"))))
+     (speedbar-button-face ((t (:foreground "green4"))))
+     (speedbar-directory-face ((t (:foreground "blue4"))))
+     (speedbar-file-face ((t (:foreground "cyan4"))))
+     (speedbar-highlight-face ((t (:background "green"))))
+     (speedbar-selected-face ((t (:foreground "red" :underline t))))
+     (speedbar-tag-face ((t (:foreground "brown"))))
+     (strokes-char-face ((t (:background "lightgray"))))
+     (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier"))))
+     (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (tex-math-face ((t (:foreground "RosyBrown"))))
+     (texinfo-heading-face ((t (:foreground "Blue"))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
+     (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+     (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+     (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+     (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+     (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
+     (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
+     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+     (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+     (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
+     (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+     (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
+     (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+     (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
+     (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+     (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
+     (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+     (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
+     (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+     (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+     (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+     (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+     (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "gray85"))))
+     (woman-addition-face ((t (:foreground "orange"))))
+     (woman-bold-face ((t (:bold t :foreground "blue" :weight bold))))
+     (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic))))
+     (woman-unknown-face ((t (:foreground "brown"))))
+     (zmacs-region ((t (:background "lightgoldenrod2")))))))
+
+(defun color-theme-jsc-light2 ()
+  "Color theme by John S Cooper, created 2001-10-29.
+This builds on `color-theme-jsc-light'."
+  (interactive)
+  (color-theme-jsc-light)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-install
+     '(color-theme-jsc-light2
+       ((vc-annotate-very-old-color . "#0046FF")
+	(senator-eldoc-use-color . t))
+       nil
+       (bold ((t (:bold t :weight bold))))
+       (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+       (change-log-file-face ((t (:foreground "Blue"))))
+       (change-log-name-face ((t (:foreground "Maroon"))))
+       (comint-highlight-prompt ((t (:foreground "dark blue"))))
+       (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+       (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
+       (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
+       (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
+       (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
+       (font-lock-constant-face ((t (:foreground "Maroon"))))
+       (font-lock-function-name-face ((t (:foreground "Blue"))))
+       (font-lock-type-face ((t (:italic t :foreground "Navy" :slant italic))))
+       (fringe ((t (:background "grey88"))))
+       (gnus-group-mail-1-empty-face ((t (:foreground "Blue2"))))
+       (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+       (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
+       (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic))))
+       (gnus-header-name-face ((t (:bold t :foreground "maroon" :weight bold))))
+       (gnus-header-subject-face ((t (:foreground "red4"))))
+       (gnus-signature-face ((t (:italic t :slant italic))))
+       (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
+       (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
+       (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+       (gnus-summary-normal-ticked-face ((t (:foreground "Navy"))))
+       (gnus-summary-normal-unread-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
+       (header-line ((t (:background "grey90" :foreground "grey20" :box nil))))
+       (highlight ((t (:background "darkseagreen2"))))
+       (ido-subdir-face ((t (:foreground "red"))))
+       (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
+       (mode-line ((t (:background "grey88" :foreground "black" :box (:line-width -1 :style released-button)))))
+       (region ((t (:background "lightgoldenrod2"))))
+       (scroll-bar ((t (nil))))
+       (secondary-selection ((t (:background "yellow"))))
+       (show-paren-match-face ((t (:background "turquoise"))))
+       (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+       (tooltip ((t (:background "lightyellow" :foreground "black"))))))))
+
+(defun color-theme-ld-dark ()
+  "Dark Color theme by Linh Dang, created 2001-11-06."
+  (interactive)
+  (color-theme-install
+   '(color-theme-ld-dark
+     ((background-color . "black")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "yellow")
+      (foreground-color . "white")
+      (mouse-color . "white"))
+     ((align-highlight-change-face . highlight)
+      (align-highlight-nochange-face . secondary-selection)
+      (apropos-keybinding-face . underline)
+      (apropos-label-face . italic)
+      (apropos-match-face . secondary-selection)
+      (apropos-property-face . bold-italic)
+      (apropos-symbol-face . bold)
+      (ebnf-except-border-color . "Black")
+      (ebnf-line-color . "Black")
+      (ebnf-non-terminal-border-color . "Black")
+      (ebnf-repeat-border-color . "Black")
+      (ebnf-special-border-color . "Black")
+      (ebnf-terminal-border-color . "Black")
+      (gnus-article-button-face . bold)
+      (gnus-article-mouse-face . highlight)
+      (gnus-carpal-button-face . bold)
+      (gnus-carpal-header-face . bold-italic)
+      (gnus-cite-attribution-face . gnus-cite-attribution-face)
+      (gnus-mouse-face . highlight)
+      (gnus-selected-tree-face . modeline)
+      (gnus-signature-face . gnus-signature-face)
+      (gnus-summary-selected-face . gnus-summary-selected-face)
+      (help-highlight-face . underline)
+      (list-matching-lines-face . bold)
+      (ps-line-number-color . "black")
+      (ps-zebra-color . 0.95)
+      (tags-tag-face . default)
+      (vc-annotate-very-old-color . "#0046FF")
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
+     (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
+     (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
+     (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
+     (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
+     (bbdb-company ((t (:italic t :slant italic))))
+     (bbdb-field-name ((t (:bold t :weight bold))))
+     (bbdb-field-value ((t (nil))))
+     (bbdb-name ((t (:underline t))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (change-log-acknowledgement-face ((t (:italic t :slant oblique :foreground "AntiqueWhite3"))))
+     (change-log-conditionals-face ((t (:foreground "Aquamarine"))))
+     (change-log-date-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
+     (change-log-email-face ((t (:foreground "Aquamarine"))))
+     (change-log-file-face ((t (:bold t :family "Verdana" :weight bold :foreground "LightSkyBlue" :height 0.9))))
+     (change-log-function-face ((t (:foreground "Aquamarine"))))
+     (change-log-list-face ((t (:foreground "LightSkyBlue"))))
+     (change-log-name-face ((t (:bold t :weight bold :foreground "Gold"))))
+     (clear-case-mode-string-face ((t (:bold t :family "Arial" :box (:line-width 2 :color "grey" :style released-button) :foreground "black" :background "grey" :weight bold :height 0.9))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "cyan"))))
+     (cursor ((t (:background "yellow"))))
+     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "dim gray"))))
+     (custom-comment-tag-face ((t (:foreground "gray80"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.1))))
+     (custom-group-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.1))))
+     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.1))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "lime green"))))
+     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
+     (diff-added-face ((t (nil))))
+     (diff-changed-face ((t (nil))))
+     (diff-context-face ((t (:foreground "grey70"))))
+     (diff-file-header-face ((t (:bold t :background "grey60" :weight bold))))
+     (diff-function-face ((t (:foreground "grey70"))))
+     (diff-header-face ((t (:background "grey45"))))
+     (diff-hunk-header-face ((t (:background "grey45"))))
+     (diff-index-face ((t (:bold t :weight bold :background "grey60"))))
+     (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60"))))
+     (diff-removed-face ((t (nil))))
+     (fixed-pitch ((t (:family "courier"))))
+     (font-lock-builtin-face ((t (:foreground "SteelBlue"))))
+     (font-lock-comment-face ((t (:italic t :foreground "AntiqueWhite3" :slant oblique))))
+     (font-lock-constant-face ((t (:bold t :foreground "Gold" :weight bold))))
+     (font-lock-doc-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
+     (font-lock-doc-string-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "LightSkyBlue" :weight bold :height 0.9 :family "Verdana"))))
+     (font-lock-keyword-face ((t (:foreground "LightSkyBlue"))))
+     (font-lock-preprocessor-face ((t (:bold t :foreground "Gold" :weight bold))))
+     (font-lock-reference-face ((t (:foreground "SteelBlue"))))
+     (font-lock-string-face ((t (:italic t :foreground "BurlyWood" :slant oblique))))
+     (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold :height 0.9 :family "Verdana"))))
+     (font-lock-variable-name-face ((t (:foreground "Aquamarine"))))
+     (font-lock-warning-face ((t (:bold t :foreground "chocolate" :weight bold))))
+     (fringe ((t (:family "outline-courier new" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :stipple nil :background "grey4" :foreground "Wheat"))))
+     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
+     (gnus-cite-face-1 ((t (:foreground "light blue"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:foreground "light cyan"))))
+     (gnus-cite-face-3 ((t (:foreground "light yellow"))))
+     (gnus-cite-face-4 ((t (:foreground "light pink"))))
+     (gnus-cite-face-5 ((t (:foreground "pale green"))))
+     (gnus-cite-face-6 ((t (:foreground "beige"))))
+     (gnus-cite-face-7 ((t (:foreground "orange"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t :weight bold))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (:italic t :slant italic))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
+     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
+     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t :weight bold))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t :weight bold))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t :weight bold))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t :weight bold))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
+     (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic))))
+     (gnus-header-from-face ((t (:foreground "spring green"))))
+     (gnus-header-name-face ((t (:foreground "SeaGreen"))))
+     (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
+     (gnus-header-subject-face ((t (:foreground "SeaGreen3"))))
+     (gnus-signature-face ((t (:italic t :slant italic))))
+     (gnus-splash-face ((t (:foreground "Brown"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
+     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
+     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (header-line ((t (:family "Arial" :background "grey20" :foreground "grey75" :box (:line-width 3 :color "grey20" :style released-button) :height 0.9))))
+     (highlight ((t (:background "darkolivegreen"))))
+     (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white"))))
+     (info-header-xref ((t (:bold t :weight bold :foreground "cyan"))))
+     (info-menu-5 ((t (:foreground "red1"))))
+     (info-menu-header ((t (:bold t :family "helv" :weight bold))))
+     (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold))))
+     (info-xref ((t (:bold t :foreground "cyan" :weight bold))))
+     (isearch ((t (:background "palevioletred2"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+     (italic ((t (:italic t :slant italic))))
+     (makefile-space-face ((t (:background "hotpink"))))
+     (menu ((t (nil))))
+     (message-cited-text-face ((t (:foreground "red"))))
+     (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
+     (message-header-name-face ((t (:foreground "DarkGreen"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
+     (message-header-other-face ((t (:foreground "#b00000"))))
+     (message-header-subject-face ((t (:foreground "green3"))))
+     (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (message-separator-face ((t (:foreground "blue3"))))
+     (modeline ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
+     (modeline-mousable-minor-mode ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
+     (modeline-mousable ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
+     (modeline-buffer-id ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
+     (mouse ((t (:background "white"))))
+     (primary-selection ((t (:background "DarkSlateGray"))))
+     (region ((t (:background "DarkSlateGray"))))
+     (scroll-bar ((t (nil))))
+     (secondary-selection ((t (:background "SkyBlue4"))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+     (trailing-whitespace ((t (:background "white"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-field-face ((t (:background "dim gray"))))
+     (widget-inactive-face ((t (:foreground "light gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray"))))
+     (zmacs-region ((t (:background "DarkSlateGray")))))))
+
+(defun color-theme-deep-blue ()
+   "Color theme by Tomas Cerha, created 2001-11-13."
+   (interactive)
+   (color-theme-install
+    '(color-theme-deep-blue
+      ((background-color . "#102e4e")
+       (background-mode . dark)
+       (border-color . "black")
+       (cursor-color . "green")
+       (foreground-color . "#eeeeee")
+       (mouse-color . "white"))
+      ((browse-kill-ring-separator-face . bold)
+       (display-time-mail-face . mode-line)
+       (help-highlight-face . underline)
+       (list-matching-lines-face . secondary-selection)
+       (vc-annotate-very-old-color . "#0046FF")
+       (view-highlight-face . highlight)
+       (widget-mouse-face . highlight))
+      (default ((t (:stipple nil :background "#102e4e" :foreground "#eeeeee" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "misc-fixed"))))
+      (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
+      (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
+      (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
+      (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
+      (bold ((t (:bold t :weight bold))))
+      (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+      (border ((t (:background "black"))))
+      (calendar-today-face ((t (:background "blue"))))
+      (change-log-acknowledgement-face ((t (:italic t :slant italic :foreground "CadetBlue"))))
+      (change-log-conditionals-face ((t (:foreground "SeaGreen2"))))
+      (change-log-date-face ((t (:foreground "burlywood"))))
+      (change-log-email-face ((t (:foreground "SeaGreen2"))))
+      (change-log-file-face ((t (:bold t :weight bold :foreground "goldenrod"))))
+      (change-log-function-face ((t (:foreground "SeaGreen2"))))
+      (change-log-list-face ((t (:bold t :weight bold :foreground "DeepSkyBlue1"))))
+      (change-log-name-face ((t (:foreground "gold"))))
+      (comint-highlight-input ((t (:bold t :weight bold))))
+      (comint-highlight-prompt ((t (:foreground "cyan"))))
+      (cursor ((t (:background "green" :foreground "black"))))
+      (cvs-filename-face ((t (:foreground "lightblue"))))
+      (cvs-handled-face ((t (:foreground "pink"))))
+      (cvs-header-face ((t (:bold t :foreground "lightyellow" :weight bold))))
+      (cvs-marked-face ((t (:bold t :foreground "green" :weight bold))))
+      (cvs-msg-face ((t (:italic t :slant italic))))
+      (cvs-need-action-face ((t (:foreground "orange"))))
+      (cvs-unknown-face ((t (:foreground "red"))))
+      (diary-face ((t (:foreground "orange red"))))
+      (diff-added-face ((t (nil))))
+      (diff-changed-face ((t (nil))))
+      (diff-context-face ((t (:foreground "grey70"))))
+      (diff-file-header-face ((t (:bold t :background "grey60" :weight bold))))
+      (diff-function-face ((t (:foreground "grey70"))))
+      (diff-header-face ((t (:background "grey45"))))
+      (diff-hunk-header-face ((t (:background "grey45"))))
+      (diff-index-face ((t (:bold t :weight bold :background "grey60"))))
+      (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60"))))
+      (diff-removed-face ((t (nil))))
+      (fixed-pitch ((t (:family "fixed"))))
+      (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold))))
+      (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic))))
+      (font-latex-math-face ((t (:foreground "burlywood"))))
+      (font-latex-sedate-face ((t (:foreground "LightGray"))))
+      (font-latex-string-face ((t (:foreground "LightSalmon"))))
+      (font-latex-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
+      (font-lock-builtin-face ((t (:foreground "LightCoral"))))
+      (font-lock-comment-face ((t (:italic t :foreground "CadetBlue" :slant italic))))
+      (font-lock-constant-face ((t (:foreground "gold"))))
+      (font-lock-doc-face ((t (:foreground "BlanchedAlmond"))))
+      (font-lock-doc-string-face ((t (:foreground "BlanchedAlmond"))))
+      (font-lock-function-name-face ((t (:bold t :foreground "goldenrod" :weight bold))))
+      (font-lock-keyword-face ((t (:bold t :foreground "DeepSkyBlue1" :weight bold))))
+      (font-lock-preprocessor-face ((t (:foreground "gold"))))
+      (font-lock-reference-face ((t (:foreground "LightCoral"))))
+      (font-lock-string-face ((t (:foreground "burlywood"))))
+      (font-lock-type-face ((t (:foreground "CadetBlue1"))))
+      (font-lock-variable-name-face ((t (:foreground "SeaGreen2"))))
+      (font-lock-warning-face ((t (:foreground "yellow"))))
+      (fringe ((t (:background "#405060"))))
+      (header-line ((t (:box (:line-width 2 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
+      (highlight ((t (:background "darkgreen"))))
+      (holiday-face ((t (:foreground "green"))))
+      (info-header-node ((t (:foreground "DeepSkyBlue1"))))
+      (info-header-xref ((t (:bold t :weight bold :foreground "SeaGreen2"))))
+      (info-menu-5 ((t (:foreground "wheat"))))
+      (info-menu-header ((t (:bold t :family "helv" :weight bold))))
+      (info-node ((t (:foreground "DeepSkyBlue1"))))
+      (info-xref ((t (:bold t :foreground "SeaGreen2" :weight bold))))
+      (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
+      (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+      (italic ((t (:italic t :slant italic))))
+      (menu ((t (:background "gray" :foreground "black" :family "helvetica"))))
+      (modeline ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
+      (modeline-buffer-id ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
+      (modeline-mousable ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
+      (modeline-mousable-minor-mode ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
+      (mouse ((t (:background "white"))))
+      (region ((t (:background "DarkCyan"))))
+      (scroll-bar ((t (:background "gray" :foreground "#506070"))))
+      (secondary-selection ((t (:background "yellow" :foreground "gray10"))))
+      (show-paren-match-face ((t (:bold t :foreground "yellow" :weight bold))))
+      (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold))))
+      (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+      (tooltip ((t (:background "lightyellow" :foreground "black"))))
+      (trailing-whitespace ((t (:background "#102e4e"))))
+      (underline ((t (:underline t))))
+      (variable-pitch ((t (:family "helv"))))
+      (widget-button-face ((t (:bold t :weight bold))))
+      (widget-button-pressed-face ((t (:foreground "red"))))
+      (widget-documentation-face ((t (:foreground "lime green"))))
+      (widget-field-face ((t (:background "dim gray"))))
+      (widget-inactive-face ((t (:foreground "light gray"))))
+      (widget-single-line-field-face ((t (:background "dim gray")))))))
+
+(defun color-theme-kingsajz ()
+  "Color theme by Olgierd \"Kingsajz\" Ziolko, created 2001-12-04.
+Another theme with wheat on DarkSlatGrey. Based on Subtle Hacker. 
+Used on Emacs 21.1 @ WinMe. Not tested on any other systems. 
+
+Some faces uses Andale mono font (nice fixed-width font). 
+It is available at:  http://www.microsoft.com/typography/downloads/andale32.exe
+
+Hail Eris! All hail Discordia!"
+  (interactive)
+  (color-theme-install
+   '(color-theme-kingsajz
+     ((background-color . "darkslategrey")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "LightGray")
+      (foreground-color . "wheat")
+      (mouse-color . "Grey"))
+     ((apropos-keybinding-face . underline)
+      (apropos-label-face face italic mouse-face highlight)
+      (apropos-match-face . secondary-selection)
+      (apropos-property-face . bold-italic)
+      (apropos-symbol-face . info-xref)
+      (display-time-mail-face . mode-line)
+      (gnus-article-button-face . bold)
+      (gnus-article-mouse-face . highlight)
+      (gnus-carpal-button-face . bold)
+      (gnus-carpal-header-face . bold-italic)
+      (gnus-cite-attribution-face . gnus-cite-attribution-face)
+      (gnus-mouse-face . highlight)
+      (gnus-selected-tree-face . modeline)
+      (gnus-signature-face . gnus-signature-face)
+      (gnus-summary-selected-face . gnus-summary-selected-face)
+      (gnus-treat-display-xface . head)
+      (help-highlight-face . underline)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "darkslategrey" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono"))))
+     (bbdb-field-name ((t (:foreground "green"))))
+     (bg:erc-color-face0 ((t (:background "White"))))
+     (bg:erc-color-face1 ((t (:background "black"))))
+     (bg:erc-color-face10 ((t (:background "lightblue1"))))
+     (bg:erc-color-face11 ((t (:background "cyan"))))
+     (bg:erc-color-face12 ((t (:background "blue"))))
+     (bg:erc-color-face13 ((t (:background "deeppink"))))
+     (bg:erc-color-face14 ((t (:background "gray50"))))
+     (bg:erc-color-face15 ((t (:background "gray90"))))
+     (bg:erc-color-face2 ((t (:background "blue4"))))
+     (bg:erc-color-face3 ((t (:background "green4"))))
+     (bg:erc-color-face4 ((t (:background "red"))))
+     (bg:erc-color-face5 ((t (:background "brown"))))
+     (bg:erc-color-face6 ((t (:background "purple"))))
+     (bg:erc-color-face7 ((t (:background "orange"))))
+     (bg:erc-color-face8 ((t (:background "yellow"))))
+     (bg:erc-color-face9 ((t (:background "green"))))
+     (blue ((t (:foreground "cyan"))))
+     (bold ((t (:bold t :foreground "OrangeRed" :weight bold :family "Arial"))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold :family "Arial"))))
+     (border ((t (:background "black"))))
+     (calendar-today-face ((t (:underline t))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "cyan"))))
+     (cperl-array-face ((t (:foreground "Yellow"))))
+     (cperl-hash-face ((t (:foreground "White"))))
+     (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
+     (cursor ((t (:background "LightGray"))))
+     (custom-button-face ((t (:foreground "MediumSlateBlue" :underline t))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "dim gray"))))
+     (custom-comment-tag-face ((t (:foreground "gray80"))))
+     (custom-documentation-face ((t (:foreground "Grey"))))
+     (custom-face-tag-face ((t (:bold t :family "Arial" :weight bold :height 1.2))))
+     (custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
+     (custom-group-tag-face-1 ((t (:bold t :family "Arial" :foreground "pink" :weight bold :height 1.2))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "Coral"))))
+     (custom-variable-button-face ((t (:underline t))))
+     (custom-variable-tag-face ((t (:foreground "Aquamarine"))))
+     (date ((t (:foreground "green"))))
+     (diary-face ((t (:bold t :foreground "IndianRed" :weight bold))))
+     (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold))))
+     (dired-face-executable ((t (:foreground "green yellow"))))
+     (dired-face-flagged ((t (:foreground "tomato"))))
+     (dired-face-marked ((t (:foreground "light salmon"))))
+     (dired-face-permissions ((t (:foreground "aquamarine"))))
+     (erc-action-face ((t (:bold t :weight bold))))
+     (erc-bold-face ((t (:bold t :weight bold))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "pale green"))))
+     (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold))))
+     (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
+     (erc-host-danger-face ((t (:foreground "red"))))
+     (erc-input-face ((t (:foreground "light blue"))))
+     (erc-inverse-face ((t (:background "steel blue"))))
+     (erc-notice-face ((t (:foreground "light salmon"))))
+     (erc-pal-face ((t (:foreground "pale green"))))
+     (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
+     (erc-underline-face ((t (:underline t))))
+     (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed" :weight bold))))
+     (eshell-ls-backup-face ((t (:foreground "Grey"))))
+     (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray" :weight bold))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold))))
+     (eshell-ls-executable-face ((t (:bold t :foreground "Coral" :weight bold))))
+     (eshell-ls-missing-face ((t (:bold t :foreground "black" :weight bold))))
+     (eshell-ls-picture-face ((t (:foreground "Violet"))))
+     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
+     (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
+     (eshell-ls-special-face ((t (:bold t :foreground "Gold" :weight bold))))
+     (eshell-ls-symlink-face ((t (:bold t :foreground "White" :weight bold))))
+     (eshell-ls-text-face ((t (:foreground "medium aquamarine"))))
+     (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine" :weight bold))))
+     (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
+     (eshell-prompt-face ((t (:foreground "powder blue"))))
+     (face-1 ((t (:stipple nil :foreground "royal blue" :family "andale mono"))))
+     (face-2 ((t (:stipple nil :foreground "DeepSkyBlue1" :overline nil :underline nil :slant normal :family "outline-andale mono"))))
+     (face-3 ((t (:stipple nil :foreground "NavajoWhite3"))))
+     (fg:erc-color-face0 ((t (:foreground "white"))))
+     (fg:erc-color-face1 ((t (:foreground "beige"))))
+     (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
+     (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
+     (fg:erc-color-face12 ((t (:foreground "light yellow"))))
+     (fg:erc-color-face13 ((t (:foreground "yellow"))))
+     (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
+     (fg:erc-color-face15 ((t (:foreground "lime green"))))
+     (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
+     (fg:erc-color-face3 ((t (:foreground "light cyan"))))
+     (fg:erc-color-face4 ((t (:foreground "powder blue"))))
+     (fg:erc-color-face5 ((t (:foreground "sky blue"))))
+     (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
+     (fg:erc-color-face7 ((t (:foreground "pale green"))))
+     (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
+     (fg:erc-color-face9 ((t (:foreground "khaki"))))
+     (fixed-pitch ((t (:family "courier"))))
+     (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
+     (font-lock-comment-face ((t (:foreground "White"))))
+     (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
+     (font-lock-doc-face ((t (:italic t :slant italic :foreground "LightSalmon"))))
+     (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold))))
+     (font-lock-keyword-face ((t (:foreground "Salmon"))))
+     (font-lock-preprocessor-face ((t (:foreground "Salmon"))))
+     (font-lock-reference-face ((t (:foreground "pale green"))))
+     (font-lock-string-face ((t (:italic t :foreground "LightSalmon" :slant italic))))
+     (font-lock-type-face ((t (:bold t :foreground "YellowGreen" :weight bold))))
+     (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine" :slant italic :weight bold))))
+     (font-lock-warning-face ((t (:bold t :foreground "IndianRed" :weight bold))))
+     (fringe ((t (:background "darkslategrey"))))
+     (gnus-cite-attribution-face ((t (:family "arial"))))
+     (gnus-cite-face-1 ((t (:foreground "DarkGoldenrod3"))))
+     (gnus-cite-face-10 ((t (nil))))
+     (gnus-cite-face-11 ((t (nil))))
+     (gnus-cite-face-2 ((t (:foreground "IndianRed3"))))
+     (gnus-cite-face-3 ((t (:foreground "tomato"))))
+     (gnus-cite-face-4 ((t (:foreground "yellow green"))))
+     (gnus-cite-face-5 ((t (:foreground "SteelBlue3"))))
+     (gnus-cite-face-6 ((t (:foreground "Azure3"))))
+     (gnus-cite-face-7 ((t (:foreground "Azure4"))))
+     (gnus-cite-face-8 ((t (:foreground "SpringGreen4"))))
+     (gnus-cite-face-9 ((t (:foreground "SlateGray4"))))
+     (gnus-emphasis-bold ((t (:bold t :foreground "greenyellow" :weight bold :family "Arial"))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "OrangeRed1" :slant italic :weight bold :family "arial"))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "khaki"))))
+     (gnus-emphasis-italic ((t (:italic t :bold t :foreground "orange" :slant italic :weight bold :family "Arial"))))
+     (gnus-emphasis-underline ((t (:foreground "greenyellow" :underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :foreground "khaki" :underline t :weight bold :family "Arial"))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold :family "Arial"))))
+     (gnus-emphasis-underline-italic ((t (:italic t :foreground "orange" :underline t :slant italic :family "Arial"))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "Salmon4"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "firebrick1" :weight bold))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "turquoise4"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "LightCyan4"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "LightCyan1" :weight bold))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "SteelBlue4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "SteelBlue2" :weight bold))))
+     (gnus-group-news-1-empty-face ((t (:foreground "Salmon4"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "FireBrick1" :weight bold))))
+     (gnus-group-news-2-empty-face ((t (:foreground "darkorange3"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "dark orange" :weight bold))))
+     (gnus-group-news-3-empty-face ((t (:foreground "turquoise4"))))
+     (gnus-group-news-3-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
+     (gnus-group-news-4-empty-face ((t (:foreground "SpringGreen4"))))
+     (gnus-group-news-4-face ((t (:bold t :foreground "SpringGreen2" :weight bold))))
+     (gnus-group-news-5-empty-face ((t (:foreground "OliveDrab4"))))
+     (gnus-group-news-5-face ((t (:bold t :foreground "OliveDrab2" :weight bold))))
+     (gnus-group-news-6-empty-face ((t (:foreground "DarkGoldenrod4"))))
+     (gnus-group-news-6-face ((t (:bold t :foreground "DarkGoldenrod3" :weight bold))))
+     (gnus-group-news-low-empty-face ((t (:foreground "wheat4"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "tan4" :weight bold))))
+     (gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
+     (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold))))
+     (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1" :weight bold))))
+     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold))))
+     (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
+     (gnus-signature-face ((t (:italic t :foreground "salmon" :slant italic))))
+     (gnus-splash-face ((t (:foreground "Firebrick1"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "MistyRose4" :weight bold))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "tomato3" :weight bold))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold))))
+     (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "red1" :slant italic :weight bold))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "DarkSeaGreen4" :slant italic))))
+     (gnus-summary-low-read-face ((t (:foreground "SeaGreen4"))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "Green4" :slant italic))))
+     (gnus-summary-low-unread-face ((t (:italic t :foreground "green3" :slant italic))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "khaki4"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "khaki3"))))
+     (gnus-summary-normal-unread-face ((t (:foreground "khaki"))))
+     (gnus-summary-selected-face ((t (:foreground "gold" :underline t))))
+     (green ((t (:foreground "green"))))
+     (gui-button-face ((t (:foreground "red" :background "black"))))
+     (gui-element ((t (:bold t :background "#ffffff" :foreground "#000000" :weight bold))))
+     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
+     (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
+     (highline-face ((t (:background "SeaGreen"))))
+     (holiday-face ((t (:background "DimGray"))))
+     (info-menu-5 ((t (:underline t))))
+     (info-node ((t (:bold t :foreground "DodgerBlue1" :underline t :weight bold))))
+     (info-xref ((t (:bold t :foreground "DodgerBlue3" :weight bold))))
+     (isearch ((t (:background "sea green" :foreground "black"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+     (italic ((t (:italic t :foreground "chocolate3" :slant italic))))
+     (menu ((t (nil))))
+     (message-cited-text-face ((t (:foreground "White"))))
+     (message-header-cc-face ((t (:foreground "light cyan"))))
+     (message-header-name-face ((t (:foreground "DodgerBlue1"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold))))
+     (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
+     (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
+     (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold))))
+     (message-header-xheader-face ((t (:foreground "DodgerBlue3"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (message-separator-face ((t (:background "cornflower blue" :foreground "chocolate"))))
+     (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width -1 :style released-button)))))
+     (modeline-buffer-id ((t (:bold t :background "dark olive green" :foreground "beige" :weight bold :family "arial"))))
+     (modeline-mousable ((t (:bold t :background "dark olive green" :foreground "yellow green" :weight bold :family "arial"))))
+     (modeline-mousable-minor-mode ((t (:bold t :background "dark olive green" :foreground "wheat" :weight bold :family "arial"))))
+     (mouse ((t (:background "Grey"))))
+     (paren-blink-off ((t (:foreground "brown"))))
+     (region ((t (:background "dark cyan" :foreground "cyan"))))
+     (ruler-mode-column-number-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "black"))))
+     (ruler-mode-current-column-face ((t (:bold t :box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :width normal :family "outline-andale mono" :foreground "yellow" :weight bold))))
+     (ruler-mode-default-face ((t (:family "outline-andale mono" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :inverse-video nil :stipple nil :background "grey76" :foreground "grey64" :box (:color "grey76" :line-width 1 :style released-button)))))
+     (ruler-mode-fill-column-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "red"))))
+     (ruler-mode-margins-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :foreground "grey64" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :background "grey64"))))
+     (ruler-mode-tab-stop-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "steelblue"))))
+     (scroll-bar ((t (nil))))
+     (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
+     (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue" :weight bold))))
+     (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
+     (swbuff-current-buffer-face ((t (:bold t :foreground "red" :weight bold))))
+     (text-cursor ((t (:background "Red" :foreground "white"))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "Arial"))))
+     (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1" :weight bold))))
+     (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3" :weight bold))))
+     (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
+     (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
+     (widget-button-face ((t (:bold t :foreground "green" :weight bold :family "courier"))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-field-face ((t (:foreground "LightBlue"))))
+     (widget-inactive-face ((t (:foreground "DimGray"))))
+     (widget-single-line-field-face ((t (:foreground "LightBlue"))))
+     (woman-bold-face ((t (:bold t :weight bold :family "Arial"))))
+     (woman-italic-face ((t (:italic t :foreground "beige" :slant italic :family "Arial"))))
+     (woman-unknown-face ((t (:foreground "LightSalmon"))))
+     (zmacs-region ((t (:background "dark cyan" :foreground "cyan")))))))
+
+(defun color-theme-comidia ()
+  "Color theme by Marcelo Dias de Toledo, created 2001-12-17.
+Steel blue on black."
+  (interactive)
+  (color-theme-install
+   '(color-theme-comidia
+     ((background-color . "Black")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "SteelBlue")
+      (foreground-color . "SteelBlue")
+      (mouse-color . "SteelBlue"))
+     ((display-time-mail-face . mode-line)
+      (gnus-mouse-face . highlight)
+      (gnus-summary-selected-face . gnus-summary-selected-face)
+      (help-highlight-face . underline)
+      (ispell-highlight-face . highlight)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "Black" :foreground "SteelBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width semi-condensed :family "misc-fixed"))))
+     (bg:erc-color-face0 ((t (:background "White"))))
+     (bg:erc-color-face1 ((t (:background "black"))))
+     (bg:erc-color-face10 ((t (:background "lightblue1"))))
+     (bg:erc-color-face11 ((t (:background "cyan"))))
+     (bg:erc-color-face12 ((t (:background "blue"))))
+     (bg:erc-color-face13 ((t (:background "deeppink"))))
+     (bg:erc-color-face14 ((t (:background "gray50"))))
+     (bg:erc-color-face15 ((t (:background "gray90"))))
+     (bg:erc-color-face2 ((t (:background "blue4"))))
+     (bg:erc-color-face3 ((t (:background "green4"))))
+     (bg:erc-color-face4 ((t (:background "red"))))
+     (bg:erc-color-face5 ((t (:background "brown"))))
+     (bg:erc-color-face6 ((t (:background "purple"))))
+     (bg:erc-color-face7 ((t (:background "orange"))))
+     (bg:erc-color-face8 ((t (:background "yellow"))))
+     (bg:erc-color-face9 ((t (:background "green"))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "cyan"))))
+     (cursor ((t (:background "SteelBlue"))))
+     (erc-action-face ((t (:bold t :weight bold))))
+     (erc-bold-face ((t (:bold t :weight bold))))
+     (erc-dangerous-host-face ((t (:foreground "red"))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
+     (erc-error-face ((t (:background "Red" :foreground "White"))))
+     (erc-fool-face ((t (:foreground "dim gray"))))
+     (erc-input-face ((t (:foreground "brown"))))
+     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
+     (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
+     (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
+     (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold))))
+     (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
+     (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
+     (erc-underline-face ((t (:underline t))))
+     (fg:erc-color-face0 ((t (:foreground "White"))))
+     (fg:erc-color-face1 ((t (:foreground "black"))))
+     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
+     (fg:erc-color-face11 ((t (:foreground "cyan"))))
+     (fg:erc-color-face12 ((t (:foreground "blue"))))
+     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
+     (fg:erc-color-face14 ((t (:foreground "gray50"))))
+     (fg:erc-color-face15 ((t (:foreground "gray90"))))
+     (fg:erc-color-face2 ((t (:foreground "blue4"))))
+     (fg:erc-color-face3 ((t (:foreground "green4"))))
+     (fg:erc-color-face4 ((t (:foreground "red"))))
+     (fg:erc-color-face5 ((t (:foreground "brown"))))
+     (fg:erc-color-face6 ((t (:foreground "purple"))))
+     (fg:erc-color-face7 ((t (:foreground "orange"))))
+     (fg:erc-color-face8 ((t (:foreground "yellow"))))
+     (fg:erc-color-face9 ((t (:foreground "green"))))
+     (fixed-pitch ((t (:family "courier"))))
+     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+     (font-lock-comment-face ((t (:foreground "chocolate1"))))
+     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (font-lock-doc-face ((t (:foreground "LightSalmon"))))
+     (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
+     (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
+     (font-lock-keyword-face ((t (:foreground "Cyan"))))
+     (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
+     (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
+     (font-lock-string-face ((t (:foreground "LightSalmon"))))
+     (font-lock-type-face ((t (:foreground "PaleGreen"))))
+     (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
+     (fringe ((t (:background "grey10"))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
+     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
+     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t :weight bold))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t :weight bold))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t :weight bold))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t :weight bold))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
+     (gnus-splash-face ((t (:foreground "Brown"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
+     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
+     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (header-line ((t (:family "neep" :width condensed :box (:line-width 1 :style none) :background "grey20" :foreground "grey90" :box nil))))
+     (highlight ((t (:background "darkolivegreen"))))
+     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+     (italic ((t (:italic t :slant italic))))
+     (menu ((t (nil))))
+     (message-cited-text-face ((t (:foreground "red"))))
+     (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
+     (message-header-name-face ((t (:foreground "DarkGreen"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
+     (message-header-other-face ((t (:foreground "#b00000"))))
+     (message-header-subject-face ((t (:foreground "green3"))))
+     (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (message-separator-face ((t (:foreground "blue3"))))
+     (modeline ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
+     (modeline-buffer-id ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
+     (modeline-mousable-minor-mode ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
+     (modeline-mousable ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
+     (mouse ((t (:background "SteelBlue"))))
+     (primary-selection ((t (:background "blue3"))))
+     (region ((t (:background "blue3"))))
+     (scroll-bar ((t (:background "grey75"))))
+     (secondary-selection ((t (:background "SkyBlue4"))))
+     (speedbar-button-face ((t (:foreground "green3"))))
+     (speedbar-directory-face ((t (:foreground "light blue"))))
+     (speedbar-file-face ((t (:foreground "cyan"))))
+     (speedbar-highlight-face ((t (:background "sea green"))))
+     (speedbar-selected-face ((t (:foreground "red" :underline t))))
+     (speedbar-tag-face ((t (:foreground "yellow"))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-field-face ((t (:background "dim gray"))))
+     (widget-inactive-face ((t (:foreground "light gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray"))))
+     (zmacs-region ((t (:background "blue3")))))))
+
+(defun color-theme-katester ()
+  "Color theme by walterh@rocketmail.com, created 2001-12-12.
+A pastelly-mac like color-theme."
+  (interactive)
+  (color-theme-standard)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-install
+     '(color-theme-katester
+       ((background-color . "ivory")
+	(cursor-color . "slateblue")
+	(foreground-color . "black")
+	(mouse-color . "slateblue"))
+       (default ((t ((:background "ivory" :foreground "black")))))
+       (bold ((t (:bold t))))
+       (font-lock-string-face ((t (:foreground "maroon"))))
+       (font-lock-keyword-face ((t (:foreground "blue"))))
+       (font-lock-constant-face ((t  (:foreground "darkblue"))))
+       (font-lock-type-face ((t (:foreground "black"))))
+       (font-lock-variable-name-face ((t (:foreground "black"))))
+       (font-lock-function-name-face ((t (:bold t :underline t))))
+       (font-lock-comment-face ((t (:background "seashell"))))
+       (highlight ((t (:background "lavender"))))
+       (italic ((t (:italic t))))
+       (modeline ((t (:background "moccasin" :foreground "black"))))
+       (region ((t (:background "lavender" ))))
+       (underline ((t (:underline t))))))))
+
+(defun color-theme-arjen ()
+  "Color theme by awiersma, created 2001-08-27."
+  (interactive)
+  (color-theme-install
+   '(color-theme-arjen
+     ((background-color . "black")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "yellow")
+      (foreground-color . "White")
+      (mouse-color . "sienna1"))
+     ((buffers-tab-face . buffers-tab)
+      (cperl-here-face . font-lock-string-face)
+      (cperl-invalid-face quote underline)
+      (cperl-pod-face . font-lock-comment-face)
+      (cperl-pod-head-face . font-lock-variable-name-face)
+      (vc-mode-face . highlight))
+     (default ((t (:background "black" :foreground "white"))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (:bold t))))
+     (border-glyph ((t (nil))))
+     (buffers-tab ((t (:background "black" :foreground "white"))))
+     (calendar-today-face ((t (:underline t))))
+     (cperl-array-face ((t (:foreground "darkseagreen"))))
+     (cperl-hash-face ((t (:foreground "darkseagreen"))))
+     (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
+     (custom-button-face ((t (nil))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face ((t (:underline t :foreground "light blue"))))
+     (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "lime green"))))
+     (custom-variable-button-face ((t (:underline t :bold t))))
+     (custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
+     (diary-face ((t (:foreground "IndianRed"))))
+     (erc-action-face ((t (:bold t))))
+     (erc-bold-face ((t (:bold t))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "sandybrown"))))
+     (erc-error-face ((t (:bold t :foreground "IndianRed"))))
+     (erc-input-face ((t (:foreground "Beige"))))
+     (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
+     (erc-notice-face ((t (:foreground "MediumAquamarine"))))
+     (erc-pal-face ((t (:foreground "pale green"))))
+     (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
+     (erc-underline-face ((t (:underline t))))
+     (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
+     (eshell-ls-backup-face ((t (:foreground "Grey"))))
+     (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
+     (eshell-ls-executable-face ((t (:foreground "Coral"))))
+     (eshell-ls-missing-face ((t (:foreground "black"))))
+     (eshell-ls-picture-face ((t (:foreground "Violet"))))
+     (eshell-ls-product-face ((t (:foreground "sandybrown"))))
+     (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
+     (eshell-ls-special-face ((t (:foreground "Gold"))))
+     (eshell-ls-symlink-face ((t (:foreground "White"))))
+     (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
+     (eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
+     (fl-comment-face ((t (:foreground "pink"))))
+     (fl-doc-string-face ((t (:foreground "purple"))))
+     (fl-function-name-face ((t (:foreground "red"))))
+     (fl-keyword-face ((t (:foreground "cadetblue"))))
+     (fl-string-face ((t (:foreground "green"))))
+     (fl-type-face ((t (:foreground "yellow"))))
+     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+     (font-lock-comment-face ((t (:foreground "IndianRed"))))
+     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
+     (font-lock-function-name-face ((t (:foreground "YellowGreen"))))
+     (font-lock-keyword-face ((t (:foreground "PaleYellow"))))
+     (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
+     (font-lock-reference-face ((t (:foreground "SlateBlue"))))
+     (font-lock-string-face ((t (:foreground "Orange"))))
+     (font-lock-type-face ((t (:foreground "Green"))))
+     (font-lock-variable-name-face ((t (:foreground "darkseagreen"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
+     (qt-classes-face ((t (:foreground "Red"))))
+     (gnus-cite-attribution-face ((t (nil))))
+     (gnus-cite-face-1 ((t (:bold nil :foreground "deep sky blue"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:bold nil :foreground "cadetblue"))))
+     (gnus-cite-face-3 ((t (:bold nil :foreground "gold"))))
+     (gnus-cite-face-4 ((t (:foreground "light pink"))))
+     (gnus-cite-face-5 ((t (:foreground "pale green"))))
+     (gnus-cite-face-6 ((t (:bold nil :foreground "chocolate"))))
+     (gnus-cite-face-7 ((t (:foreground "orange"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold nil))))
+     (gnus-emphasis-bold-italic ((t (:bold nil))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (nil))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:underline t :bold nil))))
+     (gnus-emphasis-underline-bold-italic ((t (:underline t :bold nil))))
+     (gnus-emphasis-underline-italic ((t (:underline t))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+     (gnus-group-mail-1-face ((t (:bold nil :foreground "aquamarine1"))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+     (gnus-group-mail-2-face ((t (:bold nil :foreground "aquamarine2"))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+     (gnus-group-mail-3-face ((t (:bold nil :foreground "aquamarine3"))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+     (gnus-group-mail-low-face ((t (:bold nil :foreground "aquamarine4"))))
+     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+     (gnus-group-news-1-face ((t (:bold nil :foreground "PaleTurquoise"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-news-2-face ((t (:bold nil :foreground "turquoise"))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold nil))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold nil))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold nil))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold nil))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+     (gnus-group-news-low-face ((t (:bold nil :foreground "DarkTurquoise"))))
+     (gnus-header-content-face ((t (:foreground "forest green"))))
+     (gnus-header-from-face ((t (:bold nil :foreground "spring green"))))
+     (gnus-header-name-face ((t (:foreground "deep sky blue"))))
+     (gnus-header-newsgroups-face ((t (:bold nil :foreground "purple"))))
+     (gnus-header-subject-face ((t (:bold nil :foreground "orange"))))
+     (gnus-signature-face ((t (:bold nil :foreground "khaki"))))
+     (gnus-splash-face ((t (:foreground "Brown"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold nil :foreground "SkyBlue"))))
+     (gnus-summary-high-read-face ((t (:bold nil :foreground "PaleGreen"))))
+     (gnus-summary-high-ticked-face ((t (:bold nil :foreground "pink"))))
+     (gnus-summary-high-unread-face ((t (:bold nil))))
+     (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue"))))
+     (gnus-summary-low-read-face ((t (:foreground "PaleGreen"))))
+     (gnus-summary-low-ticked-face ((t (:foreground "pink"))))
+     (gnus-summary-low-unread-face ((t (nil))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (green ((t (:foreground "green"))))
+     (gui-button-face ((t (:background "grey75" :foreground "black"))))
+     (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
+     (highlight ((t (:background "darkolivegreen"))))
+     (highline-face ((t (:background "SeaGreen"))))
+     (holiday-face ((t (:background "DimGray"))))
+     (info-menu-5 ((t (:underline t))))
+     (info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
+     (info-xref ((t (:underline t :foreground "DodgerBlue1"))))
+     (isearch ((t (:background "blue"))))
+     (isearch-secondary ((t (:foreground "red3"))))
+     (italic ((t (nil))))
+     (left-margin ((t (nil))))
+     (list-mode-item-selected ((t (:background "gray68" :foreground "white"))))
+     (message-cited-text-face ((t (:bold t :foreground "green"))))
+     (message-header-cc-face ((t (:bold t :foreground "green4"))))
+     (message-header-name-face ((t (:bold t :foreground "orange"))))
+     (message-header-newsgroups-face ((t (:bold t :foreground "violet"))))
+     (message-header-other-face ((t (:bold t :foreground "chocolate"))))
+     (message-header-subject-face ((t (:bold t :foreground "yellow"))))
+     (message-header-to-face ((t (:bold t :foreground "cadetblue"))))
+     (message-header-xheader-face ((t (:bold t :foreground "light blue"))))
+     (message-mml-face ((t (:bold t :foreground "Green3"))))
+     (message-separator-face ((t (:foreground "blue3"))))
+     (modeline ((t (:background "DarkRed" :foreground "white" :box (:line-width 1 :style released-button)))))
+     (modeline-buffer-id ((t (:background "DarkRed" :foreground "white"))))
+     (modeline-mousable ((t (:background "DarkRed" :foreground "white"))))
+     (modeline-mousable-minor-mode ((t (:background "DarkRed" :foreground "white"))))
+     (p4-depot-added-face ((t (:foreground "blue"))))
+     (p4-depot-deleted-face ((t (:foreground "red"))))
+     (p4-depot-unmapped-face ((t (:foreground "grey30"))))
+     (p4-diff-change-face ((t (:foreground "dark green"))))
+     (p4-diff-del-face ((t (:foreground "red"))))
+     (p4-diff-file-face ((t (:background "gray90"))))
+     (p4-diff-head-face ((t (:background "gray95"))))
+     (p4-diff-ins-face ((t (:foreground "blue"))))
+     (pointer ((t (nil))))
+     (primary-selection ((t (:background "blue"))))
+     (red ((t (:foreground "red"))))
+     (region ((t (:background "blue"))))
+     (right-margin ((t (nil))))
+     (secondary-selection ((t (:background "darkslateblue"))))
+     (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
+     (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
+     (text-cursor ((t (:background "yellow" :foreground "black"))))
+     (toolbar ((t (nil))))
+     (underline ((nil (:underline nil))))
+     (vertical-divider ((t (nil))))
+     (widget ((t (nil))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-field-face ((t (:background "dim gray"))))
+     (widget-inactive-face ((t (:foreground "light gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray"))))
+     (woman-bold-face ((t (:bold t))))
+     (woman-italic-face ((t (:foreground "beige"))))
+     (woman-unknown-face ((t (:foreground "LightSalmon"))))
+     (yellow ((t (:foreground "yellow"))))
+     (zmacs-region ((t (:background "snow" :foreground "blue")))))))
+
+(defun color-theme-tty-dark ()
+  "Color theme by Oivvio Polite, created 2002-02-01.  Good for tty display."
+  (interactive)
+  (color-theme-install
+   '(color-theme-tty-dark
+     ((background-color . "black")
+      (background-mode . dark)
+      (border-color . "blue")
+      (cursor-color . "red")
+      (foreground-color . "white")
+      (mouse-color . "black"))
+     ((ispell-highlight-face . highlight)
+      (list-matching-lines-face . bold)
+      (tinyreplace-:face . highlight)
+      (view-highlight-face . highlight))
+     (default ((t (nil))))
+     (bold ((t (:underline t :background "black" :foreground "white"))))
+     (bold-italic ((t (:underline t :foreground "white"))))
+     (calendar-today-face ((t (:underline t))))
+     (diary-face ((t (:foreground "red"))))
+     (font-lock-builtin-face ((t (:foreground "blue"))))
+     (font-lock-comment-face ((t (:foreground "cyan"))))
+     (font-lock-constant-face ((t (:foreground "magenta"))))
+     (font-lock-function-name-face ((t (:foreground "cyan"))))
+     (font-lock-keyword-face ((t (:foreground "red"))))
+     (font-lock-string-face ((t (:foreground "green"))))
+     (font-lock-type-face ((t (:foreground "yellow"))))
+     (font-lock-variable-name-face ((t (:foreground "blue"))))
+     (font-lock-warning-face ((t (:bold t :foreground "magenta"))))
+     (highlight ((t (:background "blue" :foreground "yellow"))))
+     (holiday-face ((t (:background "cyan"))))
+     (info-menu-5 ((t (:underline t))))
+     (info-node ((t (:italic t :bold t))))
+     (info-xref ((t (:bold t))))
+     (italic ((t (:underline t :background "red"))))
+     (message-cited-text-face ((t (:foreground "red"))))
+     (message-header-cc-face ((t (:bold t :foreground "green"))))
+     (message-header-name-face ((t (:foreground "green"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
+     (message-header-other-face ((t (:foreground "#b00000"))))
+     (message-header-subject-face ((t (:foreground "green"))))
+     (message-header-to-face ((t (:bold t :foreground "green"))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-mml-face ((t (:foreground "green"))))
+     (message-separator-face ((t (:foreground "blue"))))
+
+     (modeline ((t (:background "white" :foreground "blue"))))
+     (modeline-buffer-id ((t (:background "white" :foreground "red"))))
+     (modeline-mousable ((t (:background "white" :foreground "magenta"))))
+     (modeline-mousable-minor-mode ((t (:background "white" :foreground "yellow"))))
+     (region ((t (:background "white" :foreground "black"))))
+     (zmacs-region ((t (:background "cyan" :foreground "black"))))
+     (secondary-selection ((t (:background "blue"))))
+     (show-paren-match-face ((t (:background "red"))))
+     (show-paren-mismatch-face ((t (:background "magenta" :foreground "white"))))
+     (underline ((t (:underline t)))))))
+
+(defun color-theme-aliceblue ()
+  "Color theme by Girish Bharadwaj, created 2002-03-27.
+Includes comint prompt, custom, font-lock, isearch,
+jde, senator, speedbar, and widget."
+  (interactive)
+  (color-theme-install
+   '(color-theme-aliceblue
+     ((background-color . "AliceBlue")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "black")
+      (foreground-color . "DarkSlateGray4")
+      (mouse-color . "black"))
+     ((help-highlight-face . underline)
+      (list-matching-lines-face . bold)
+      (semantic-which-function-use-color . t)
+      (senator-eldoc-use-color . t)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "AliceBlue" :foreground "DarkSlateGray4" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "dark blue"))))
+     (cursor ((t (:background "black"))))
+     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "gray85"))))
+     (custom-comment-tag-face ((t (:foreground "blue4"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
+     (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
+     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "dark green"))))
+     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
+     (fixed-pitch ((t (:family "courier"))))
+     (font-lock-builtin-face ((t (:foreground "Orchid"))))
+     (font-lock-comment-face ((t (:italic t :foreground "Firebrick" :slant oblique))))
+     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "Blue" :weight extra-bold :family "outline-verdana"))))
+     (font-lock-keyword-face ((t (:bold t :foreground "Purple" :weight semi-bold :family "outline-verdana"))))
+     (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
+     (font-lock-reference-face ((t (:foreground "Orchid"))))
+     (font-lock-string-face ((t (:foreground "RosyBrown"))))
+     (font-lock-type-face ((t (:italic t :foreground "ForestGreen" :slant italic))))
+     (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod" :width condensed))))
+     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
+     (fringe ((t (:background "DarkSlateBlue"))))
+     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
+     (highlight ((t (:background "darkseagreen2"))))
+     (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
+     (italic ((t (:italic t :slant italic))))
+     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
+     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
+     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
+     (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod"))))
+     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
+     (jde-java-font-lock-code-face ((t (nil))))
+     (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue"))))
+     (jde-java-font-lock-doc-tag-face ((t (:foreground "green4"))))
+     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
+     (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
+     (jde-java-font-lock-modifier-face ((t (:foreground "Orchid"))))
+     (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
+     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
+     (jde-java-font-lock-package-face ((t (:foreground "blue3"))))
+     (jde-java-font-lock-pre-face ((t (nil))))
+     (jde-java-font-lock-underline-face ((t (:underline t))))
+     (menu ((t (nil))))
+     (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+     (modeline-buffer-id ((t (:background "grey75" :foreground "black"))))
+     (modeline-mousable ((t (:background "grey75" :foreground "black"))))
+     (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black"))))
+     (mouse ((t (:background "black"))))
+     (primary-selection ((t (:background "lightgoldenrod2"))))
+     (region ((t (:background "lightgoldenrod2"))))
+     (scroll-bar ((t (nil))))
+     (secondary-selection ((t (:background "yellow"))))
+     (semantic-dirty-token-face ((t (:background "lightyellow"))))
+     (semantic-unmatched-syntax-face ((t (:underline "red"))))
+     (senator-intangible-face ((t (:foreground "gray25"))))
+     (senator-momentary-highlight-face ((t (:background "gray70"))))
+     (senator-read-only-face ((t (:background "#CCBBBB"))))
+     (show-paren-match-face ((t (:background "turquoise"))))
+     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+     (speedbar-button-face ((t (:foreground "green4"))))
+     (speedbar-directory-face ((t (:foreground "blue4"))))
+     (speedbar-file-face ((t (:foreground "cyan4"))))
+     (speedbar-highlight-face ((t (:background "green"))))
+     (speedbar-selected-face ((t (:foreground "red" :underline t))))
+     (speedbar-tag-face ((t (:foreground "brown"))))
+     (template-message-face ((t (:bold t :weight bold))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "gray85"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "gray85"))))
+     (zmacs-region ((t (:background "lightgoldenrod2")))))))
+
+(defun color-theme-black-on-gray ()
+  "Color theme by sbhojwani, created 2002-04-03.
+Includes ecb, font-lock, paren, semantic, and widget faces.
+Some of the font-lock faces are disabled, ie. they look just
+like the default face.  This is for people that don't like
+the look of \"angry fruit salad\" when editing."
+  (interactive)
+  (color-theme-install
+   '(color-theme-black-on-gray
+     ((background-color . "white")
+      (background-mode . light)
+      (border-color . "blue")
+      (foreground-color . "black"))
+     ((buffers-tab-face . buffers-tab)
+      (ecb-directories-general-face . ecb-default-general-face)
+      (ecb-directory-face . ecb-default-highlight-face)
+      (ecb-history-face . ecb-default-highlight-face)
+      (ecb-history-general-face . ecb-default-general-face)
+      (ecb-method-face . ecb-default-highlight-face)
+      (ecb-methods-general-face . ecb-default-general-face)
+      (ecb-source-face . ecb-default-highlight-face)
+      (ecb-source-in-directories-buffer-face . ecb-source-in-directories-buffer-face)
+      (ecb-sources-general-face . ecb-default-general-face)
+      (ecb-token-header-face . ecb-token-header-face))
+     (default ((t (nil))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t :size "10pt"))))
+     (bold-italic ((t (:italic t :bold t :size "10pt"))))
+     (border-glyph ((t (:size "11pt"))))
+     (buffers-tab ((t (:background "gray75"))))
+     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+     (display-time-time-balloon-face ((t (:foreground "red"))))
+     (ecb-bucket-token-face ((t (:bold t :size "10pt"))))
+     (ecb-default-general-face ((t (nil))))
+     (ecb-default-highlight-face ((t (:background "cornflower blue" :foreground "yellow"))))
+     (ecb-directories-general-face ((t (nil))))
+     (ecb-directory-face ((t (:background "cornflower blue" :foreground "yellow"))))
+     (ecb-history-face ((t (:background "cornflower blue" :foreground "yellow"))))
+     (ecb-history-general-face ((t (nil))))
+     (ecb-method-face ((t (:background "cornflower blue" :foreground "yellow"))))
+     (ecb-methods-general-face ((t (nil))))
+     (ecb-source-face ((t (:background "cornflower blue" :foreground "yellow"))))
+     (ecb-source-in-directories-buffer-face ((t (:foreground "medium blue"))))
+     (ecb-sources-general-face ((t (nil))))
+     (ecb-token-header-face ((t (:background "SeaGreen1"))))
+     (ecb-type-token-class-face ((t (:bold t :size "10pt"))))
+     (ecb-type-token-enum-face ((t (:bold t :size "10pt"))))
+     (ecb-type-token-group-face ((t (:bold t :size "10pt" :foreground "dimgray"))))
+     (ecb-type-token-interface-face ((t (:bold t :size "10pt"))))
+     (ecb-type-token-struct-face ((t (:bold t :size "10pt"))))
+     (ecb-type-token-typedef-face ((t (:bold t :size "10pt"))))
+     (font-lock-builtin-face ((t (:foreground "red3"))))
+     (font-lock-constant-face ((t (:foreground "blue3"))))
+     (font-lock-comment-face ((t (:foreground "blue"))))
+     (font-lock-doc-face ((t (:foreground "green4"))))
+     (font-lock-doc-string-face ((t (:foreground "green4"))))
+     (font-lock-function-name-face ((t (nil))))
+     (font-lock-keyword-face ((t (nil))))
+     (font-lock-preprocessor-face ((t (:foreground "blue3"))))
+     (font-lock-reference-face ((t (:foreground "red3"))))
+     (font-lock-string-face ((t (nil))))
+     (font-lock-type-face ((t (nil))))
+     (font-lock-variable-name-face ((t (nil))))
+     (font-lock-warning-face ((t (nil))))
+     (green ((t (:foreground "green"))))
+     (gui-button-face ((t (:background "grey75"))))
+     (gui-element ((t (:size "8pt" :background "gray75"))))
+     (highlight ((t (:background "darkseagreen2"))))
+     (isearch ((t (:background "paleturquoise"))))
+     (isearch-secondary ((t (:foreground "red3"))))
+     (italic ((t (:size "10pt"))))
+     (left-margin ((t (nil))))
+     (list-mode-item-selected ((t (:background "gray68"))))
+     (modeline ((t (:background "gray75"))))
+     (modeline-buffer-id ((t (:background "gray75" :foreground "blue4"))))
+     (modeline-mousable ((t (:background "gray75" :foreground "firebrick"))))
+     (modeline-mousable-minor-mode ((t (:background "gray75" :foreground "green4"))))
+     (paren-blink-off ((t (:foreground "gray"))))
+     (paren-match ((t (:background "darkseagreen2"))))
+     (paren-mismatch ((t (nil))))
+     (pointer ((t (nil))))
+     (primary-selection ((t (:background "gray65"))))
+     (red ((t (:foreground "red"))))
+     (region ((t (:background "gray65"))))
+     (right-margin ((t (nil))))
+     (secondary-selection ((t (:background "paleturquoise"))))
+     (semantic-dirty-token-face ((t (nil))))
+     (semantic-unmatched-syntax-face ((t (nil))))
+     (text-cursor ((t (:background "red" :foreground "gray"))))
+     (toolbar ((t (:background "gray75"))))
+     (underline ((t (:underline t))))
+     (vertical-divider ((t (:background "gray75"))))
+     (widget ((t (:size "8pt" :background "gray75"))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (nil))))
+     (yellow ((t (:foreground "yellow"))))
+     (zmacs-region ((t (:background "gray65")))))))
+
+(defun color-theme-dark-blue2 ()
+  "Color theme by Chris McMahan, created 2002-04-12.
+Includes antlr, bbdb, change-log, comint, cperl, custom cvs, diff,
+dired, display-time, ebrowse, ecb, ediff, erc, eshell, fl, font-lock,
+gnus, hi, highlight, html-helper, hyper-apropos, info, isearch, jde,
+message, mmm, paren, semantic, senator, sgml, smerge, speedbar,
+strokes, term, vhdl, viper, vm, widget, xref, xsl, xxml.  Yes, it is
+a large theme."
+  (interactive)
+  (color-theme-install
+   '(color-theme-dark-blue2
+     ((background-color . "#233b5a")
+      (background-mode . dark)
+      (background-toolbar-color . "#cf3ccf3ccf3c")
+      (border-color . "black")
+      (bottom-toolbar-shadow-color . "#79e77df779e7")
+      (cursor-color . "Yellow")
+      (foreground-color . "#fff8dc")
+      (mouse-color . "Grey")
+      (top-toolbar-shadow-color . "#fffffbeeffff")
+      (viper-saved-cursor-color-in-replace-mode . "Red3"))
+     ((blank-space-face . blank-space-face)
+      (blank-tab-face . blank-tab-face)
+      (cperl-invalid-face . underline)
+      (ecb-directories-general-face . ecb-directories-general-face)
+      (ecb-directory-face . ecb-directory-face)
+      (ecb-history-face . ecb-history-face)
+      (ecb-history-general-face . ecb-history-general-face)
+      (ecb-method-face . ecb-method-face)
+      (ecb-methods-general-face . ecb-methods-general-face)
+      (ecb-source-face . ecb-source-face)
+      (ecb-source-in-directories-buffer-face . ecb-sources-face)
+      (ecb-sources-general-face . ecb-sources-general-face)
+      (ecb-token-header-face . ecb-token-header-face)
+      (gnus-article-button-face . bold)
+      (gnus-article-mouse-face . highlight)
+      (gnus-cite-attribution-face . gnus-cite-attribution-face)
+      (gnus-signature-face . gnus-signature-face)
+      (gnus-summary-selected-face . gnus-summary-selected-face)
+      (help-highlight-face . underline)
+      (highline-face . highline-face)
+      (highline-vertical-face . highline-vertical-face)
+      (list-matching-lines-face . bold)
+      (ps-zebra-color . 0.95)
+      (senator-eldoc-use-color . t)
+      (sgml-set-face . t)
+      (tags-tag-face . default)
+      (view-highlight-face . highlight)
+      (vm-highlight-url-face . bold-italic)
+      (vm-highlighted-header-face . bold)
+      (vm-mime-button-face . gui-button-face)
+      (vm-summary-highlight-face . bold)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "#233b5a" :foreground "#fff8dc" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console"))))
+     (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv"))))
+     (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv"))))
+     (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv"))))
+     (Info-title-4-face ((t (:bold t :weight bold :family "helv"))))
+     (antlr-font-lock-keyword-face ((t (:bold t :foreground "Gray85" :weight bold))))
+     (antlr-font-lock-literal-face ((t (:bold t :foreground "Gray85" :weight bold))))
+     (antlr-font-lock-ruledef-face ((t (:bold t :foreground "Gray85" :weight bold))))
+     (antlr-font-lock-ruleref-face ((t (:foreground "Gray85"))))
+     (antlr-font-lock-tokendef-face ((t (:bold t :foreground "Gray85" :weight bold))))
+     (antlr-font-lock-tokenref-face ((t (:foreground "Gray85"))))
+     (bbdb-company ((t (:italic t :slant italic))))
+     (bbdb-field-name ((t (:bold t :weight bold))))
+     (bbdb-field-value ((t (nil))))
+     (bbdb-name ((t (:underline t))))
+     (bg:erc-color-face0 ((t (:background "White"))))
+     (bg:erc-color-face1 ((t (:background "black"))))
+     (bg:erc-color-face10 ((t (:background "lightblue1"))))
+     (bg:erc-color-face11 ((t (:background "cyan"))))
+     (bg:erc-color-face12 ((t (:background "blue"))))
+     (bg:erc-color-face13 ((t (:background "deeppink"))))
+     (bg:erc-color-face14 ((t (:background "gray50"))))
+     (bg:erc-color-face15 ((t (:background "gray90"))))
+     (bg:erc-color-face2 ((t (:background "blue4"))))
+     (bg:erc-color-face3 ((t (:background "green4"))))
+     (bg:erc-color-face4 ((t (:background "red"))))
+     (bg:erc-color-face5 ((t (:background "brown"))))
+     (bg:erc-color-face6 ((t (:background "purple"))))
+     (bg:erc-color-face7 ((t (:background "orange"))))
+     (bg:erc-color-face8 ((t (:background "yellow"))))
+     (bg:erc-color-face9 ((t (:background "green"))))
+     (blank-space-face ((t (:background "LightGray"))))
+     (blank-tab-face ((t (:background "Wheat"))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t :foreground "cyan" :weight bold))))
+     (bold-italic ((t (:italic t :bold t :foreground "cyan2" :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (border-glyph ((t (nil))))
+     (buffers-tab ((t (:background "gray30" :foreground "LightSkyBlue"))))
+     (calendar-today-face ((t (:underline t))))
+     (change-log-acknowledgement-face ((t (:foreground "firebrick"))))
+     (change-log-conditionals-face ((t (:background "sienna" :foreground "khaki"))))
+     (change-log-date-face ((t (:foreground "gold"))))
+     (change-log-email-face ((t (:foreground "khaki" :underline t))))
+     (change-log-file-face ((t (:bold t :foreground "lemon chiffon" :weight bold))))
+     (change-log-function-face ((t (:background "sienna" :foreground "khaki"))))
+     (change-log-list-face ((t (:foreground "wheat"))))
+     (change-log-name-face ((t (:bold t :foreground "light goldenrod" :weight bold))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "cyan"))))
+     (comint-input-face ((t (:foreground "deepskyblue"))))
+     (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
+     (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
+     (cperl-invalid-face ((t (:foreground "white"))))
+     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+     (cursor ((t (:background "Yellow"))))
+     (custom-button-face ((t (:bold t :weight bold))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "gray30"))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:foreground "white"))))
+     (custom-comment-tag-face ((t (:foreground "white"))))
+     (custom-documentation-face ((t (:foreground "light blue"))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold))))
+     (custom-group-tag-face-1 ((t (:foreground "gray85" :underline t))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "gray30" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "gray85"))))
+     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+     (custom-variable-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold))))
+     (cvs-filename-face ((t (:foreground "white"))))
+     (cvs-handled-face ((t (:foreground "pink"))))
+     (cvs-header-face ((t (:foreground "green"))))
+     (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
+     (cvs-msg-face ((t (:foreground "gray85"))))
+     (cvs-need-action-face ((t (:foreground "yellow"))))
+     (cvs-unknown-face ((t (:foreground "grey"))))
+     (cyan ((t (:foreground "cyan"))))
+     (diary-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (diff-added-face ((t (nil))))
+     (diff-changed-face ((t (nil))))
+     (diff-context-face ((t (:foreground "grey50"))))
+     (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
+     (diff-function-face ((t (:foreground "grey50"))))
+     (diff-header-face ((t (:foreground "lemon chiffon"))))
+     (diff-hunk-header-face ((t (:background "grey85"))))
+     (diff-index-face ((t (:bold t :background "grey70" :weight bold))))
+     (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold))))
+     (diff-removed-face ((t (nil))))
+     (dired-face-boring ((t (:foreground "Gray65"))))
+     (dired-face-directory ((t (:bold t :weight bold))))
+     (dired-face-executable ((t (:foreground "gray85"))))
+     (dired-face-flagged ((t (:background "LightSlateGray"))))
+     (dired-face-header ((t (:background "grey75" :foreground "gray30"))))
+     (dired-face-marked ((t (:background "PaleVioletRed"))))
+     (dired-face-permissions ((t (:background "grey75" :foreground "gray30"))))
+     (dired-face-setuid ((t (:foreground "gray85"))))
+     (dired-face-socket ((t (:foreground "gray85"))))
+     (dired-face-symlink ((t (:foreground "cyan"))))
+     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+     (display-time-time-balloon-face ((t (:foreground "gray85"))))
+     (ebrowse-default-face ((t (nil))))
+     (ebrowse-file-name-face ((t (:italic t :slant italic))))
+     (ebrowse-member-attribute-face ((t (:foreground "red"))))
+     (ebrowse-member-class-face ((t (:foreground "Gray85"))))
+     (ebrowse-progress-face ((t (:background "blue"))))
+     (ebrowse-root-class-face ((t (:bold t :foreground "Gray85" :weight bold))))
+     (ebrowse-tree-mark-face ((t (:foreground "Gray85"))))
+     (ecb-bucket-token-face ((t (:bold t :weight bold))))
+     (ecb-default-general-face ((t (:height 1.0))))
+     (ecb-default-highlight-face ((t (:background "magenta" :height 1.0))))
+     (ecb-directories-general-face ((t (:height 0.9))))
+     (ecb-directory-face ((t (:background "Cyan4"))))
+     (ecb-history-face ((t (:background "Cyan4"))))
+     (ecb-history-general-face ((t (:height 0.9))))
+     (ecb-method-face ((t (:background "Cyan4" :slant normal :weight normal))))
+     (ecb-methods-general-face ((t (:slant normal))))
+     (ecb-source-face ((t (:background "Cyan4"))))
+     (ecb-source-in-directories-buffer-face ((t (:foreground "LightBlue1"))))
+     (ecb-sources-face ((t (:foreground "LightBlue1"))))
+     (ecb-sources-general-face ((t (:height 0.9))))
+     (ecb-token-header-face ((t (:background "Steelblue4"))))
+     (ecb-type-token-class-face ((t (:bold t :weight bold))))
+     (ecb-type-token-enum-face ((t (:bold t :weight bold))))
+     (ecb-type-token-group-face ((t (:bold t :foreground "dim gray" :weight bold))))
+     (ecb-type-token-interface-face ((t (:bold t :weight bold))))
+     (ecb-type-token-struct-face ((t (:bold t :weight bold))))
+     (ecb-type-token-typedef-face ((t (:bold t :weight bold))))
+     (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+     (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Gray30"))))
+     (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+     (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+     (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Gray30"))))
+     (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+     (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+     (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Gray30"))))
+     (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+     (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Gray30"))))
+     (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Gray30"))))
+     (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Gray30"))))
+     (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+     (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Gray30"))))
+     (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Gray30"))))
+     (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+     (erc-action-face ((t (:bold t :weight bold))))
+     (erc-bold-face ((t (:bold t :weight bold))))
+     (erc-dangerous-host-face ((t (:foreground "red"))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "pale green"))))
+     (erc-error-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (erc-fool-face ((t (:foreground "Gray85"))))
+     (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
+     (erc-input-face ((t (:foreground "light blue"))))
+     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
+     (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
+     (erc-notice-face ((t (:foreground "light salmon"))))
+     (erc-pal-face ((t (:foreground "pale green"))))
+     (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
+     (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
+     (erc-underline-face ((t (:underline t))))
+     (eshell-ls-archive-face ((t (:bold t :weight bold))))
+     (eshell-ls-backup-face ((t (:foreground "gray85"))))
+     (eshell-ls-clutter-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "Cyan" :weight bold))))
+     (eshell-ls-executable-face ((t (:bold t :weight bold))))
+     (eshell-ls-missing-face ((t (:bold t :weight bold))))
+     (eshell-ls-picture-face ((t (:foreground "gray85"))))
+     (eshell-ls-product-face ((t (:foreground "gray85"))))
+     (eshell-ls-readonly-face ((t (:foreground "gray70"))))
+     (eshell-ls-special-face ((t (:bold t :weight bold))))
+     (eshell-ls-symlink-face ((t (:bold t :weight bold))))
+     (eshell-ls-text-face ((t (:foreground "gray85"))))
+     (eshell-ls-todo-face ((t (:bold t :weight bold))))
+     (eshell-ls-unreadable-face ((t (:foreground "gray85"))))
+     (eshell-prompt-face ((t (:bold t :foreground "Yellow" :weight bold))))
+     (eshell-test-failed-face ((t (:bold t :weight bold))))
+     (eshell-test-ok-face ((t (:bold t :weight bold))))
+     (excerpt ((t (:italic t :slant italic))))
+     (ff-paths-non-existant-file-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (fg:black ((t (:foreground "black"))))
+     (fg:erc-color-face0 ((t (:foreground "White"))))
+     (fg:erc-color-face1 ((t (:foreground "black"))))
+     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
+     (fg:erc-color-face11 ((t (:foreground "cyan"))))
+     (fg:erc-color-face12 ((t (:foreground "blue"))))
+     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
+     (fg:erc-color-face14 ((t (:foreground "gray50"))))
+     (fg:erc-color-face15 ((t (:foreground "gray90"))))
+     (fg:erc-color-face2 ((t (:foreground "blue4"))))
+     (fg:erc-color-face3 ((t (:foreground "green4"))))
+     (fg:erc-color-face4 ((t (:foreground "red"))))
+     (fg:erc-color-face5 ((t (:foreground "brown"))))
+     (fg:erc-color-face6 ((t (:foreground "purple"))))
+     (fg:erc-color-face7 ((t (:foreground "orange"))))
+     (fg:erc-color-face8 ((t (:foreground "yellow"))))
+     (fg:erc-color-face9 ((t (:foreground "green"))))
+     (fixed ((t (:bold t :weight bold))))
+     (fixed-pitch ((t (:family "outline-lucida console"))))
+     (fl-comment-face ((t (:foreground "gray85"))))
+     (fl-function-name-face ((t (:foreground "green"))))
+     (fl-keyword-face ((t (:foreground "LightGreen"))))
+     (fl-string-face ((t (:foreground "light coral"))))
+     (fl-type-face ((t (:foreground "cyan"))))
+     (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
+     (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
+     (font-latex-bold-face ((t (nil))))
+     (font-latex-italic-face ((t (nil))))
+     (font-latex-math-face ((t (nil))))
+     (font-latex-sedate-face ((t (:foreground "Gray85"))))
+     (font-latex-string-face ((t (:foreground "orange"))))
+     (font-latex-warning-face ((t (:foreground "gold"))))
+     (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue" :weight bold))))
+     (font-lock-comment-face ((t (:italic t :foreground "medium aquamarine" :slant italic))))
+     (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
+     (font-lock-doc-face ((t (:bold t :weight bold))))
+     (font-lock-doc-string-face ((t (:bold t :foreground "aquamarine" :weight bold))))
+     (font-lock-exit-face ((t (:foreground "green"))))
+     (font-lock-function-name-face ((t (:italic t :bold t :foreground "LightSkyBlue" :slant italic :weight bold))))
+     (font-lock-keyword-face ((t (:bold t :foreground "Cyan" :weight bold))))
+     (font-lock-preprocessor-face ((t (:foreground "Gray85"))))
+     (font-lock-reference-face ((t (:foreground "cyan"))))
+     (font-lock-string-face ((t (:italic t :foreground "aquamarine" :slant italic))))
+     (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
+     (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightGoldenrod" :slant italic :weight bold))))
+     (font-lock-warning-face ((t (:bold t :foreground "Salmon" :weight bold))))
+     (fringe ((t (:background "#3c5473"))))
+     (gnus-cite-attribution-face ((t (:italic t :bold t :foreground "beige" :underline t :slant italic :weight bold))))
+     (gnus-cite-face-1 ((t (:foreground "gold"))))
+     (gnus-cite-face-10 ((t (:foreground "coral"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:foreground "wheat"))))
+     (gnus-cite-face-3 ((t (:foreground "light pink"))))
+     (gnus-cite-face-4 ((t (:foreground "khaki"))))
+     (gnus-cite-face-5 ((t (:foreground "pale green"))))
+     (gnus-cite-face-6 ((t (:foreground "beige"))))
+     (gnus-cite-face-7 ((t (:foreground "orange"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t :foreground "light gray" :weight bold))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold))))
+     (gnus-emphasis-highlight-words ((t (:background "gray30" :foreground "gold"))))
+     (gnus-emphasis-italic ((t (:italic t :foreground "cyan" :slant italic))))
+     (gnus-emphasis-underline ((t (:foreground "white" :underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :foreground "white" :underline t :weight bold))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :foreground "white" :underline t :slant italic :weight bold))))
+     (gnus-emphasis-underline-italic ((t (:italic t :foreground "white" :underline t :slant italic))))
+     (gnus-filterhist-face-1 ((t (nil))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "Magenta"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta" :weight bold))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "Cyan"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan" :weight bold))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "Wheat"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "Gray85" :weight bold))))
+     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
+     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
+     (gnus-group-news-3-empty-face ((t (:foreground "wheat"))))
+     (gnus-group-news-3-face ((t (:bold t :foreground "Wheat" :weight bold))))
+     (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
+     (gnus-group-news-4-face ((t (:bold t :weight bold))))
+     (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
+     (gnus-group-news-5-face ((t (:bold t :weight bold))))
+     (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
+     (gnus-group-news-6-face ((t (:bold t :weight bold))))
+     (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
+     (gnus-header-content-face ((t (:italic t :foreground "Wheat" :slant italic))))
+     (gnus-header-from-face ((t (:bold t :foreground "light yellow" :weight bold))))
+     (gnus-header-name-face ((t (:bold t :foreground "Wheat" :weight bold))))
+     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold))))
+     (gnus-header-subject-face ((t (:bold t :foreground "Gold" :weight bold))))
+     (gnus-picons-face ((t (:background "white" :foreground "gray30"))))
+     (gnus-picons-xbm-face ((t (:background "white" :foreground "gray30"))))
+     (gnus-signature-face ((t (:italic t :foreground "white" :slant italic))))
+     (gnus-splash ((t (:foreground "Brown"))))
+     (gnus-splash-face ((t (:foreground "orange"))))
+     (gnus-summary-cancelled-face ((t (:background "gray30" :foreground "orange"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold))))
+     (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "gray85" :slant italic))))
+     (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "coral" :slant italic :weight bold))))
+     (gnus-summary-low-unread-face ((t (:italic t :foreground "white" :slant italic))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "gray70"))))
+     (gnus-summary-normal-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
+     (gnus-summary-normal-unread-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (gnus-summary-selected-face ((t (:foreground "white" :underline t))))
+     (gnus-x-face ((t (:background "white" :foreground "gray30"))))
+     (green ((t (:foreground "green"))))
+     (gui-button-face ((t (:background "grey75" :foreground "gray30"))))
+     (gui-element ((t (:background "Gray80"))))
+     (header-line ((t (:background "grey20" :foreground "grey90"))))
+     (hi-black-b ((t (:bold t :weight bold))))
+     (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv"))))
+     (hi-blue ((t (:background "light blue"))))
+     (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
+     (hi-green ((t (:background "green"))))
+     (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
+     (hi-pink ((t (:background "pink"))))
+     (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
+     (hi-yellow ((t (:background "yellow"))))
+     (highlight ((t (:background "SkyBlue3"))))
+     (highlight-changes-delete-face ((t (:foreground "gray85" :underline t))))
+     (highlight-changes-face ((t (:foreground "gray85"))))
+     (highline-face ((t (:background "#3c5473"))))
+     (highline-vertical-face ((t (:background "lightcyan"))))
+     (holiday-face ((t (:background "pink" :foreground "gray30"))))
+     (html-helper-bold-face ((t (:bold t :weight bold))))
+     (html-helper-bold-italic-face ((t (nil))))
+     (html-helper-builtin-face ((t (:foreground "gray85" :underline t))))
+     (html-helper-italic-face ((t (:bold t :foreground "yellow" :weight bold))))
+     (html-helper-underline-face ((t (:underline t))))
+     (html-tag-face ((t (:bold t :weight bold))))
+     (hyper-apropos-documentation ((t (:foreground "white"))))
+     (hyper-apropos-heading ((t (:bold t :weight bold))))
+     (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
+     (hyper-apropos-major-heading ((t (:bold t :weight bold))))
+     (hyper-apropos-section-heading ((t (:bold t :weight bold))))
+     (hyper-apropos-warning ((t (:bold t :foreground "gray85" :weight bold))))
+     (ibuffer-marked-face ((t (:foreground "gray85"))))
+     (idlwave-help-link-face ((t (:foreground "Blue"))))
+     (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
+     (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
+     (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold))))
+     (info-menu-5 ((t (:underline t))))
+     (info-menu-6 ((t (nil))))
+     (info-menu-header ((t (:bold t :weight bold :family "helv"))))
+     (info-node ((t (:italic t :bold t :slant italic :weight bold))))
+     (info-xref ((t (:bold t :weight bold))))
+     (isearch ((t (:background "LightSeaGreen"))))
+     (isearch-lazy-highlight-face ((t (:background "cyan4"))))
+     (isearch-secondary ((t (:foreground "red3"))))
+     (italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+     (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
+     (jde-java-font-lock-api-face ((t (:foreground "LightBlue"))))
+     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
+     (jde-java-font-lock-code-face ((t (nil))))
+     (jde-java-font-lock-constant-face ((t (:foreground "LightBlue"))))
+     (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue"))))
+     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
+     (jde-java-font-lock-link-face ((t (:foreground "cyan3" :underline t))))
+     (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue"))))
+     (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
+     (jde-java-font-lock-operator-face ((t (:foreground "cyan3"))))
+     (jde-java-font-lock-package-face ((t (:foreground "LightBlue"))))
+     (jde-java-font-lock-pre-face ((t (nil))))
+     (jde-java-font-lock-underline-face ((t (:underline t))))
+     (lazy-highlight-face ((t (:bold t :foreground "yellow" :weight bold))))
+     (left-margin ((t (nil))))
+     (linemenu-face ((t (:background "gray30"))))
+     (list-mode-item-selected ((t (:background "gray68"))))
+     (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
+     (log-view-message-face ((t (:background "grey85"))))
+     (magenta ((t (:foreground "gray85"))))
+     (makefile-space-face ((t (:background "hotpink" :foreground "white"))))
+     (man-bold ((t (:bold t :weight bold))))
+     (man-heading ((t (:bold t :weight bold))))
+     (man-italic ((t (:foreground "yellow"))))
+     (man-xref ((t (:underline t))))
+     (menu ((t (:background "wheat" :foreground "gray30"))))
+     (message-cited-text ((t (:foreground "orange"))))
+     (message-cited-text-face ((t (:foreground "medium aquamarine"))))
+     (message-header-cc-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (message-header-contents ((t (:foreground "white"))))
+     (message-header-name-face ((t (:foreground "gray85"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
+     (message-header-other-face ((t (:foreground "gray85"))))
+     (message-header-subject-face ((t (:bold t :foreground "green3" :weight bold))))
+     (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-headers ((t (:bold t :foreground "orange" :weight bold))))
+     (message-highlighted-header-contents ((t (:bold t :weight bold))))
+     (message-mml-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (message-separator-face ((t (:foreground "gray85"))))
+     (message-url ((t (:bold t :foreground "pink" :weight bold))))
+     (mmm-default-submode-face ((t (:background "#c0c0c5"))))
+     (mmm-face ((t (:background "black" :foreground "green"))))
+     (modeline ((t (:background "#3c5473" :foreground "lightgray" :box (:line-width -1 :style released-button :family "helv")))))
+     (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3" :slant normal :weight normal :width normal :family "outline-verdana"))))
+     (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3"))))
+     (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3"))))
+     (mouse ((t (:background "Grey"))))
+     (my-summary-highlight-face ((t (:background "PaleTurquoise4" :foreground "White"))))
+     (my-url-face ((t (:foreground "LightBlue"))))
+     (nil ((t (nil))))
+     (paren-blink-off ((t (:foreground "gray80"))))
+     (paren-face-match ((t (:background "turquoise"))))
+     (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
+     (paren-face-no-match ((t (:background "yellow" :foreground "gray30"))))
+     (paren-match ((t (:background "darkseagreen2"))))
+     (paren-mismatch ((t (:background "RosyBrown" :foreground "gray30"))))
+     (paren-mismatch-face ((t (:bold t :background "white" :foreground "red" :weight bold))))
+     (paren-no-match-face ((t (:bold t :background "white" :foreground "red" :weight bold))))
+     (pointer ((t (nil))))
+     (primary-selection ((t (:background "gray40"))))
+     (reb-match-0 ((t (:background "lightblue"))))
+     (reb-match-1 ((t (:background "aquamarine"))))
+     (reb-match-2 ((t (:background "springgreen"))))
+     (reb-match-3 ((t (:background "yellow"))))
+     (red ((t (:foreground "red"))))
+     (region ((t (:background "Cyan4"))))
+     (right-margin ((t (nil))))
+     (scroll-bar ((t (:background "grey75"))))
+     (secondary-selection ((t (:background "gray60"))))
+     (semantic-dirty-token-face ((t (:background "gray10"))))
+     (semantic-intangible-face ((t (:foreground "gray25"))))
+     (semantic-read-only-face ((t (:background "gray25"))))
+     (semantic-unmatched-syntax-face ((t (:underline "red"))))
+     (senator-intangible-face ((t (:foreground "gray75"))))
+     (senator-momentary-highlight-face ((t (:background "gray70"))))
+     (senator-read-only-face ((t (:background "#664444"))))
+     (sgml-comment-face ((t (:foreground "dark turquoise"))))
+     (sgml-doctype-face ((t (:foreground "turquoise"))))
+     (sgml-end-tag-face ((t (:foreground "aquamarine"))))
+     (sgml-entity-face ((t (:foreground "gray85"))))
+     (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
+     (sgml-ms-end-face ((t (:foreground "green"))))
+     (sgml-ms-start-face ((t (:foreground "yellow"))))
+     (sgml-pi-face ((t (:foreground "lime green"))))
+     (sgml-sgml-face ((t (:foreground "brown"))))
+     (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
+     (sgml-start-tag-face ((t (:foreground "aquamarine"))))
+     (sh-heredoc-face ((t (:foreground "tan"))))
+     (shell-option-face ((t (:foreground "gray85"))))
+     (shell-output-2-face ((t (:foreground "gray85"))))
+     (shell-output-3-face ((t (:foreground "gray85"))))
+     (shell-output-face ((t (:bold t :weight bold))))
+     (shell-prompt-face ((t (:foreground "yellow"))))
+     (show-paren-match-face ((t (:bold t :background "turquoise" :weight bold))))
+     (show-paren-mismatch-face ((t (:bold t :background "RosyBrown" :foreground "white" :weight bold))))
+     (show-tabs-space-face ((t (:foreground "yellow"))))
+     (show-tabs-tab-face ((t (:foreground "red"))))
+     (smerge-base-face ((t (:foreground "red"))))
+     (smerge-markers-face ((t (:background "grey85"))))
+     (smerge-mine-face ((t (:foreground "Gray85"))))
+     (smerge-other-face ((t (:foreground "darkgreen"))))
+     (speedbar-button-face ((t (:bold t :weight bold))))
+     (speedbar-directory-face ((t (:bold t :weight bold))))
+     (speedbar-file-face ((t (:bold t :weight bold))))
+     (speedbar-highlight-face ((t (:background "sea green"))))
+     (speedbar-selected-face ((t (:underline t))))
+     (speedbar-tag-face ((t (:foreground "yellow"))))
+     (strokes-char-face ((t (:background "lightgray"))))
+     (swbuff-current-buffer-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (template-message-face ((t (:bold t :weight bold))))
+     (term-black ((t (:foreground "black"))))
+     (term-blackbg ((t (:background "black"))))
+     (term-blue ((t (:foreground "blue"))))
+     (term-bluebg ((t (:background "blue"))))
+     (term-bold ((t (:bold t :weight bold))))
+     (term-cyan ((t (:foreground "cyan"))))
+     (term-cyanbg ((t (:background "cyan"))))
+     (term-default ((t (:background "gray80" :foreground "gray30" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console"))))
+     (term-default-bg ((t (nil))))
+     (term-default-bg-inv ((t (nil))))
+     (term-default-fg ((t (nil))))
+     (term-default-fg-inv ((t (nil))))
+     (term-green ((t (:foreground "green"))))
+     (term-greenbg ((t (:background "green"))))
+     (term-invisible ((t (nil))))
+     (term-invisible-inv ((t (nil))))
+     (term-magenta ((t (:foreground "magenta"))))
+     (term-magentabg ((t (:background "magenta"))))
+     (term-red ((t (:foreground "red"))))
+     (term-redbg ((t (:background "red"))))
+     (term-underline ((t (:underline t))))
+     (term-white ((t (:foreground "white"))))
+     (term-whitebg ((t (:background "white"))))
+     (term-yellow ((t (:foreground "yellow"))))
+     (term-yellowbg ((t (:background "yellow"))))
+     (tex-math-face ((t (:foreground "RosyBrown"))))
+     (texinfo-heading-face ((t (:foreground "Blue"))))
+     (text-cursor ((t (:background "Red3" :foreground "gray80"))))
+     (tool-bar ((t (:background "grey75" :foreground "black"))))
+     (toolbar ((t (:background "Gray80"))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat"))))
+     (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
+     (vertical-divider ((t (:background "Gray80"))))
+     (vhdl-font-lock-attribute-face ((t (:foreground "gray85"))))
+     (vhdl-font-lock-directive-face ((t (:foreground "gray85"))))
+     (vhdl-font-lock-enumvalue-face ((t (:foreground "gray85"))))
+     (vhdl-font-lock-function-face ((t (:foreground "gray85"))))
+     (vhdl-font-lock-prompt-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+     (vhdl-speedbar-architecture-face ((t (:foreground "gray85"))))
+     (vhdl-speedbar-architecture-selected-face ((t (:foreground "gray85" :underline t))))
+     (vhdl-speedbar-configuration-face ((t (:foreground "gray85"))))
+     (vhdl-speedbar-configuration-selected-face ((t (:foreground "gray85" :underline t))))
+     (vhdl-speedbar-entity-face ((t (:foreground "gray85"))))
+     (vhdl-speedbar-entity-selected-face ((t (:foreground "gray85" :underline t))))
+     (vhdl-speedbar-instantiation-face ((t (:foreground "gray85"))))
+     (vhdl-speedbar-instantiation-selected-face ((t (:foreground "gray85" :underline t))))
+     (vhdl-speedbar-package-face ((t (:foreground "gray85"))))
+     (vhdl-speedbar-package-selected-face ((t (:foreground "gray85" :underline t))))
+     (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+     (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+     (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+     (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+     (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+     (vm-header-content-face ((t (:italic t :foreground "wheat" :slant italic))))
+     (vm-header-from-face ((t (:italic t :foreground "wheat" :slant italic))))
+     (vm-header-name-face ((t (:foreground "cyan"))))
+     (vm-header-subject-face ((t (:foreground "cyan"))))
+     (vm-header-to-face ((t (:italic t :foreground "cyan" :slant italic))))
+     (vm-message-cited-face ((t (:foreground "Gray80"))))
+     (vm-monochrome-image ((t (:background "white" :foreground "gray30"))))
+     (vm-summary-face-1 ((t (:foreground "MediumAquamarine"))))
+     (vm-summary-face-2 ((t (:foreground "MediumAquamarine"))))
+     (vm-summary-face-3 ((t (:foreground "MediumAquamarine"))))
+     (vm-summary-face-4 ((t (:foreground "MediumAquamarine"))))
+     (vm-summary-highlight-face ((t (:foreground "White"))))
+     (vm-xface ((t (:background "white" :foreground "gray30"))))
+     (vmpc-pre-sig-face ((t (:foreground "gray85"))))
+     (vmpc-sig-face ((t (:foreground "gray85"))))
+     (vvb-face ((t (:background "pink" :foreground "gray30"))))
+     (w3m-anchor-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (w3m-arrived-anchor-face ((t (:bold t :foreground "gray85" :weight bold))))
+     (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
+     (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
+     (white ((t (:foreground "white"))))
+     (widget ((t (nil))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "gray85"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85" :foreground "gray30"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))
+     (woman-addition-face ((t (:foreground "orange"))))
+     (woman-bold-face ((t (:bold t :weight bold))))
+     (woman-italic-face ((t (:foreground "beige"))))
+     (woman-unknown-face ((t (:foreground "LightSalmon"))))
+     (x-face ((t (:background "white" :foreground "gray30"))))
+     (xrdb-option-name-face ((t (:foreground "gray85"))))
+     (xref-keyword-face ((t (:foreground "gray85"))))
+     (xref-list-default-face ((t (nil))))
+     (xref-list-pilot-face ((t (:foreground "gray85"))))
+     (xref-list-symbol-face ((t (:foreground "navy"))))
+     (xsl-fo-alternate-face ((t (:foreground "Yellow"))))
+     (xsl-fo-main-face ((t (:foreground "PaleGreen"))))
+     (xsl-other-element-face ((t (:foreground "Coral"))))
+     (xsl-xslt-alternate-face ((t (:foreground "LightGray"))))
+     (xsl-xslt-main-face ((t (:foreground "Wheat"))))
+     (xxml-emph-1-face ((t (:background "lightyellow"))))
+     (xxml-emph-2-face ((t (:background "lightyellow"))))
+     (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine"))))
+     (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue"))))
+     (xxml-header-3-face ((t (:background "seashell1"))))
+     (xxml-header-4-face ((t (:background "seashell1"))))
+     (xxml-interaction-face ((t (:background "lightcyan"))))
+     (xxml-rug-face ((t (:background "cyan"))))
+     (xxml-sparkle-face ((t (:background "yellow"))))
+     (xxml-unbreakable-space-face ((t (:foreground "grey" :underline t))))
+     (yellow ((t (:foreground "yellow"))))
+     (zmacs-region ((t (:background "Cyan4")))))))
+
+(defun color-theme-blue-mood ()
+  "Color theme by Nelson Loyola, created 2002-04-15.
+Includes cperl, custom, font-lock, p4, speedbar, widget."
+  (interactive)
+  (color-theme-install
+   '(color-theme-blue-mood
+     ((background-color . "DodgerBlue4")
+      (background-mode . dark)
+      (background-toolbar-color . "#bfbfbfbfbfbf")
+      (border-color . "Blue")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#6c6c68686868")
+      (cursor-color . "DarkGoldenrod1")
+      (foreground-color . "white smoke")
+      (mouse-color . "black")
+      (top-toolbar-shadow-color . "#e5e5e0e0e1e1"))
+     ((vc-annotate-very-old-color . "#0046FF"))
+     (default ((t (nil))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (nil))))
+     (border-glyph ((t (nil))))
+     (cmode-bracket-face ((t (:bold t))))
+     (cperl-array-face ((t (:bold t :foreground "wheat"))))
+     (cperl-hash-face ((t (:bold t :foreground "chartreuse"))))
+     (custom-button-face ((t (nil))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+     (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:bold t :foreground "cyan"))))
+     (custom-variable-button-face ((t (:underline t :bold t))))
+     (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+     (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
+     (font-lock-builtin-face ((t (:bold t :foreground "wheat"))))
+     (font-lock-comment-face ((t (:bold t :foreground "gray72"))))
+     (font-lock-constant-face ((t (:bold t :foreground "cyan3"))))
+     (font-lock-doc-string-face ((t (:foreground "#00C000"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "chartreuse"))))
+     (font-lock-keyword-face ((t (:bold t :foreground "gold1"))))
+     (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1"))))
+     (font-lock-other-type-face ((t (:bold t :foreground "gold1"))))
+     (font-lock-preprocessor-face ((t (:foreground "plum"))))
+     (font-lock-reference-face ((t (:bold t :foreground "orangered"))))
+     (font-lock-string-face ((t (:foreground "tomato"))))
+     (font-lock-type-face ((t (:bold t :foreground "gold1"))))
+     (font-lock-variable-name-face ((t (:foreground "light yellow"))))
+     (font-lock-warning-face ((t (:foreground "tomato"))))
+     (green ((t (:foreground "green"))))
+     (gui-button-face ((t (:background "grey75" :foreground "black"))))
+     (gui-element ((t (:size "nil" :background "#e7e3d6" :foreground" #000000"))))
+     (highlight ((t (:background "red" :foreground "yellow"))))
+     (isearch ((t (:bold t :background "pale turquoise" :foreground "blue"))))
+     (italic ((t (nil))))
+     (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
+     (left-margin ((t (nil))))
+     (list-mode-item-selected ((t (:bold t :background "gray68" :foreground "yellow"))))
+     (modeline ((t (:background "goldenrod" :foreground "darkblue"))))
+     (modeline-buffer-id ((t (:background "goldenrod" :foreground "darkblue"))))
+     (modeline-mousable ((t (:background "goldenrod" :foreground "darkblue"))))
+     (modeline-mousable-minor-mode ((t (:background "goldenrod" :foreground "darkblue"))))
+     (my-tab-face ((t (:background "SlateBlue1"))))
+     (p4-depot-added-face ((t (:foreground "steelblue1"))))
+     (p4-depot-deleted-face ((t (:foreground "red"))))
+     (p4-depot-unmapped-face ((t (:foreground "grey90"))))
+     (p4-diff-change-face ((t (:foreground "dark green"))))
+     (p4-diff-del-face ((t (:bold t :foreground "salmon"))))
+     (p4-diff-file-face ((t (:background "blue"))))
+     (p4-diff-head-face ((t (:background "blue"))))
+     (p4-diff-ins-face ((t (:foreground "steelblue1"))))
+     (paren-blink-off ((t (:foreground "DodgerBlue4"))))
+     (paren-match ((t (:background "red" :foreground "yellow"))))
+     (paren-mismatch ((t (:background "DeepPink"))))
+     (pointer ((t (:background "white"))))
+     (primary-selection ((t (:bold t :background "medium sea green"))))
+     (red ((t (:foreground "red"))))
+     (region ((t (:background "red" :foreground "yellow"))))
+     (right-margin ((t (nil))))
+     (secondary-selection ((t (:background "gray91" :foreground "sienna3"))))
+     (show-paren-match-face ((t (:background "cyan3" :foreground "blue"))))
+     (show-paren-mismatch-face ((t (:background "red" :foreground "blue"))))
+     (show-trailing-whitespace ((t (:background "red" :foreground "blue"))))
+     (speedbar-button-face ((t (:foreground "white"))))
+     (speedbar-directory-face ((t (:foreground "gray"))))
+     (speedbar-file-face ((t (:foreground "gold1"))))
+     (speedbar-highlight-face ((t (:background "lightslateblue" :foreground "gold1"))))
+     (speedbar-selected-face ((t (:underline t :foreground "red"))))
+     (speedbar-tag-face ((t (:foreground "chartreuse"))))
+     (text-cursor ((t (:background "DarkGoldenrod1" :foreground "DodgerBlue4"))))
+     (toolbar ((t (:background "#e7e3d6" :foreground "#000000"))))
+     (underline ((t (:underline t))))
+     (vertical-divider ((t (:background "#e7e3d6" :foreground "#000000"))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "gray85"))))
+     (yellow ((t (:foreground "yellow"))))
+     (zmacs-region ((t (:background "white" :foreground "midnightblue")))))))
+
+(defun color-theme-euphoria ()
+  "Color theme by oGLOWo, created 2000-04-19.
+Green on black theme including font-lock, speedbar, and widget."
+  (interactive)
+  (color-theme-install
+   '(color-theme-euphoria
+     ((background-color . "black")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "yellow")
+      (foreground-color . "#00ff00")
+      (mouse-color . "yellow"))
+     ((help-highlight-face . underline)
+      (list-matching-lines-face . bold)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "black" :foreground "#00ff00" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "misc-fixed"))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "cyan"))))
+     (cursor ((t (:background "yellow"))))
+     (fixed-pitch ((t (:family "courier"))))
+     (font-lock-builtin-face ((t (:foreground "magenta"))))
+     (font-lock-comment-face ((t (:foreground "deeppink"))))
+     (font-lock-constant-face ((t (:foreground "blue"))))
+     (font-lock-doc-face ((t (:foreground "cyan"))))
+     (font-lock-doc-string-face ((t (:foreground "cyan"))))
+     (font-lock-function-name-face ((t (:foreground "purple"))))
+     (font-lock-keyword-face ((t (:foreground "red"))))
+     (font-lock-preprocessor-face ((t (:foreground "blue1"))))
+     (font-lock-reference-face ((t (nil))))
+     (font-lock-string-face ((t (:foreground "cyan"))))
+     (font-lock-type-face ((t (:foreground "yellow"))))
+     (font-lock-variable-name-face ((t (:foreground "violet"))))
+     (font-lock-warning-face ((t (:bold t :foreground "red" :weight bold))))
+     (fringe ((t (:background "gray16" :foreground "#00ff00"))))
+     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
+     (highlight ((t (:background "darkolivegreen"))))
+     (horizontal-divider ((t (:background "gray16" :foreground "#00ff00"))))
+     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+     (italic ((t (:italic t :slant italic))))
+     (menu ((t (:background "gray16" :foreground "green"))))
+     (modeline ((t (:background "gray16" :foreground "#00ff00" :box (:line-width -1 :style released-button)))))
+     (modeline-buffer-id ((t (:background "gray16" :foreground "#00ff00"))))
+     (modeline-mousable ((t (:background "gray16" :foreground "#00ff00"))))
+     (modeline-mousable-minor-mode ((t (:background "gray16" :foreground "#00ff00"))))
+     (mouse ((t (:background "yellow"))))
+     (primary-selection ((t (:background "#00ff00" :foreground "black"))))
+     (region ((t (:background "steelblue" :foreground "white"))))
+     (scroll-bar ((t (:background "gray16" :foreground "#00ff00"))))
+     (secondary-selection ((t (:background "#00ff00" :foreground "black"))))
+     (show-paren-match-face ((t (:background "turquoise"))))
+     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+     (speedbar-button-face ((t (:foreground "#00ff00"))))
+     (speedbar-directory-face ((t (:foreground "#00ff00"))))
+     (speedbar-file-face ((t (:foreground "cyan"))))
+     (speedbar-highlight-face ((t (:background "#00ff00" :foreground "purple"))))
+     (speedbar-selected-face ((t (:foreground "deeppink" :underline t))))
+     (speedbar-tag-face ((t (:foreground "yellow"))))
+     (tool-bar ((t (:background "gray16" :foreground "green" :box (:line-width 1 :style released-button)))))
+     (tooltip ((t (:background "gray16" :foreground "#00ff00"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (vertical-divider ((t (:background "gray16" :foreground "#00ff00"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-field-face ((t (:background "dim gray"))))
+     (widget-inactive-face ((t (:foreground "light gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray"))))
+     (zmacs-region ((t (:background "steelblue" :foreground "white")))))))
+
+(defun color-theme-resolve ()
+  "Color theme by Damien Elmes, created 2002-04-24.
+A white smoke on blue color theme."
+  (interactive)
+  (color-theme-install
+   '(color-theme-resolve
+     ((background-color . "#00457f")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "DarkGoldenrod1")
+      (foreground-color . "white smoke")
+      (mouse-color . "white"))
+     ((display-time-mail-face . mode-line)
+      (help-highlight-face . underline)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "#00457f" :foreground "white smoke" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "b&h-lucidatypewriter"))))
+     (bold ((t (:bold t :foreground "snow2" :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (calendar-today-face ((t (:underline t))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "cyan"))))
+     (cperl-array-face ((t (:bold t :foreground "wheat" :weight bold))))
+     (cperl-hash-face ((t (:bold t :foreground "chartreuse" :weight bold))))
+     (cursor ((t (:background "DarkGoldenrod1"))))
+     (diary-face ((t (:foreground "yellow"))))
+     (erc-input-face ((t (:foreground "lightblue2"))))
+     (erc-notice-face ((t (:foreground "lightyellow3"))))
+     (fixed-pitch ((t (:family "courier"))))
+     (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold))))
+     (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic))))
+     (font-latex-math-face ((t (:foreground "burlywood"))))
+     (font-latex-sedate-face ((t (:foreground "LightGray"))))
+     (font-latex-string-face ((t (:foreground "RosyBrown"))))
+     (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold))))
+     (font-lock-builtin-face ((t (:foreground "wheat"))))
+     (font-lock-comment-face ((t (:foreground "light steel blue"))))
+     (font-lock-constant-face ((t (:foreground "seashell3"))))
+     (font-lock-doc-face ((t (:foreground "plum"))))
+     (font-lock-doc-string-face ((t (:foreground "#008000"))))
+     (font-lock-function-name-face ((t (:foreground "thistle1"))))
+     (font-lock-keyword-face ((t (:foreground "wheat"))))
+     (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1" :weight bold))))
+     (font-lock-other-type-face ((t (:bold t :foreground "gold1" :weight bold))))
+     (font-lock-preprocessor-face ((t (:foreground "#800080"))))
+     (font-lock-reference-face ((t (:foreground "wheat"))))
+     (font-lock-string-face ((t (:foreground "plum"))))
+     (font-lock-type-face ((t (:foreground "lawn green"))))
+     (font-lock-variable-name-face ((t (:foreground "light yellow"))))
+     (font-lock-warning-face ((t (:foreground "plum"))))
+     (fringe ((t (:background "#000000"))))
+     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
+     (gnus-cite-face-1 ((t (:foreground "light blue"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:foreground "light cyan"))))
+     (gnus-cite-face-3 ((t (:foreground "light yellow"))))
+     (gnus-cite-face-4 ((t (:foreground "light pink"))))
+     (gnus-cite-face-5 ((t (:foreground "pale green"))))
+     (gnus-cite-face-6 ((t (:foreground "beige"))))
+     (gnus-cite-face-7 ((t (:foreground "orange"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t :weight bold))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (:italic t :slant italic))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
+     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
+     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t :weight bold))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t :weight bold))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t :weight bold))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t :weight bold))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
+     (gnus-header-content-face ((t (:italic t :foreground "snow2" :slant italic))))
+     (gnus-header-from-face ((t (:foreground "spring green"))))
+     (gnus-header-name-face ((t (:bold t :foreground "snow2" :weight bold))))
+     (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
+     (gnus-header-subject-face ((t (:bold t :foreground "peach puff" :weight bold))))
+     (gnus-signature-face ((t (:italic t :slant italic))))
+     (gnus-splash-face ((t (:foreground "Brown"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
+     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
+     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (header-line ((t (:background "grey20" :foreground "grey90"))))
+     (highlight ((t (:background "gray91" :foreground "firebrick"))))
+     (highline-face ((t (:background "paleturquoise" :foreground "black"))))
+     (holiday-face ((t (:background "chocolate4"))))
+     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+     (italic ((t (:italic t :slant italic))))
+     (menu ((t (nil))))
+     (message-cited-text-face ((t (:foreground "seashell3"))))
+     (message-header-cc-face ((t (:bold t :foreground "snow2" :weight bold))))
+     (message-header-name-face ((t (:bold t :foreground "snow1" :weight bold))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
+     (message-header-other-face ((t (:foreground "snow2"))))
+     (message-header-subject-face ((t (:bold t :foreground "snow2" :weight bold))))
+     (message-header-to-face ((t (:bold t :foreground "snow2" :weight bold))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (message-separator-face ((t (:foreground "misty rose"))))
+     (modeline ((t (:foreground "white" :background "#001040" :box (:line-width -1 :style released-button)))))
+     (modeline-buffer-id ((t (:foreground "white" :background "#001040"))))
+     (modeline-mousable ((t (:foreground "white" :background "#001040"))))
+     (modeline-mousable-minor-mode ((t (:foreground "white" :background "#001040"))))
+     (mouse ((t (:background "white"))))
+     (my-tab-face ((t (:background "SlateBlue1"))))
+     (p4-diff-del-face ((t (:bold t :foreground "salmon" :weight bold))))
+     (primary-selection ((t (:background "gray91" :foreground "DodgerBlue4"))))
+     (region ((t (:background "gray91" :foreground "DodgerBlue4"))))
+     (scroll-bar ((t (:background "grey75"))))
+     (secondary-selection ((t (:background "gray91" :foreground "sienna3"))))
+     (show-paren-match-face ((t (:background "cyan3" :foreground "blue"))))
+     (show-paren-mismatch-face ((t (:background "red" :foreground "blue"))))
+     (tool-bar ((t (:background "grey75" :foreground "black"))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "steel blue"))))
+     (widget-inactive-face ((t (:foreground "grey"))))
+     (widget-single-line-field-face ((t (:background "gray85"))))
+     (zmacs-region ((t (:background "gray91" :foreground "DodgerBlue4")))))))
+
+(defun color-theme-xp ()
+  "Color theme by Girish Bharadwaj, created 2002-04-25.
+Includes custom, erc, font-lock, jde, semantic, speedbar, widget."
+  (interactive)
+  (color-theme-install
+   '(color-theme-xp
+     ((background-color . "lightyellow2")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "black")
+      (foreground-color . "gray20")
+      (mouse-color . "black"))
+     ((help-highlight-face . underline)
+      (list-matching-lines-face . bold)
+      (semantic-which-function-use-color . t)
+      (senator-eldoc-use-color . t)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "lightyellow2" :foreground "gray20" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
+     (bg:erc-color-face0 ((t (:background "White"))))
+     (bg:erc-color-face1 ((t (:background "black"))))
+     (bg:erc-color-face10 ((t (:background "lightblue1"))))
+     (bg:erc-color-face11 ((t (:background "cyan"))))
+     (bg:erc-color-face12 ((t (:background "blue"))))
+     (bg:erc-color-face13 ((t (:background "deeppink"))))
+     (bg:erc-color-face14 ((t (:background "gray50"))))
+     (bg:erc-color-face15 ((t (:background "gray90"))))
+     (bg:erc-color-face2 ((t (:background "blue4"))))
+     (bg:erc-color-face3 ((t (:background "green4"))))
+     (bg:erc-color-face4 ((t (:background "red"))))
+     (bg:erc-color-face5 ((t (:background "brown"))))
+     (bg:erc-color-face6 ((t (:background "purple"))))
+     (bg:erc-color-face7 ((t (:background "orange"))))
+     (bg:erc-color-face8 ((t (:background "yellow"))))
+     (bg:erc-color-face9 ((t (:background "green"))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (button ((t (:underline t))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "dark blue"))))
+     (cursor ((t (:background "black"))))
+     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "gray85"))))
+     (custom-comment-tag-face ((t (:foreground "blue4"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
+     (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
+     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "dark green"))))
+     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
+     (erc-action-face ((t (:bold t :weight bold))))
+     (erc-bold-face ((t (:bold t :weight bold))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
+     (erc-error-face ((t (:background "Red" :foreground "White"))))
+     (erc-input-face ((t (:foreground "brown"))))
+     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
+     (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
+     (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
+     (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
+     (erc-underline-face ((t (:underline t))))
+     (fg:erc-color-face0 ((t (:foreground "White"))))
+     (fg:erc-color-face1 ((t (:foreground "black"))))
+     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
+     (fg:erc-color-face11 ((t (:foreground "cyan"))))
+     (fg:erc-color-face12 ((t (:foreground "blue"))))
+     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
+     (fg:erc-color-face14 ((t (:foreground "gray50"))))
+     (fg:erc-color-face15 ((t (:foreground "gray90"))))
+     (fg:erc-color-face2 ((t (:foreground "blue4"))))
+     (fg:erc-color-face3 ((t (:foreground "green4"))))
+     (fg:erc-color-face4 ((t (:foreground "red"))))
+     (fg:erc-color-face5 ((t (:foreground "brown"))))
+     (fg:erc-color-face6 ((t (:foreground "purple"))))
+     (fg:erc-color-face7 ((t (:foreground "orange"))))
+     (fg:erc-color-face8 ((t (:foreground "yellow"))))
+     (fg:erc-color-face9 ((t (:foreground "green"))))
+     (fixed-pitch ((t (:family "courier"))))
+     (font-lock-builtin-face ((t (:foreground "magenta3" :underline t :height 0.9))))
+     (font-lock-comment-face ((t (:italic t :foreground "gray60" :slant oblique :height 0.9))))
+     (font-lock-constant-face ((t (:bold t :foreground "medium purple" :weight bold :height 0.9))))
+     (font-lock-function-name-face ((t (:bold t :foreground "black" :weight bold))))
+     (font-lock-keyword-face ((t (:bold t :foreground "blue" :weight bold))))
+     (font-lock-string-face ((t (:foreground "red" :height 0.9))))
+     (font-lock-type-face ((t (:foreground "Royalblue"))))
+     (font-lock-variable-name-face ((t (:bold t :foreground "maroon" :weight bold :height 0.9))))
+     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
+     (fringe ((t (:background "dodgerblue"))))
+     (header-line ((t (:underline "red" :overline "red" :background "grey90" :foreground "grey20" :box nil))))
+     (highlight ((t (:background "darkseagreen2"))))
+     (isearch ((t (:background "magenta2" :foreground "lightskyblue1"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
+     (italic ((t (:italic t :slant italic))))
+     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
+     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
+     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
+     (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod"))))
+     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
+     (jde-java-font-lock-code-face ((t (nil))))
+     (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue"))))
+     (jde-java-font-lock-doc-tag-face ((t (:foreground "green4"))))
+     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
+     (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal))))
+     (jde-java-font-lock-modifier-face ((t (:foreground "Orchid"))))
+     (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
+     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
+     (jde-java-font-lock-package-face ((t (:foreground "blue3"))))
+     (jde-java-font-lock-pre-face ((t (nil))))
+     (jde-java-font-lock-underline-face ((t (:underline t))))
+     (menu ((t (nil))))
+     (minibuffer-prompt ((t (:foreground "dark blue"))))
+     (modeline ((t (:background "dodgerblue" :foreground "black" :overline "red" :underline "red"))))
+     (modeline-buffer-id ((t (:background "dodgerblue" :foreground "black"))))
+     (modeline-mousable ((t (:background "dodgerblue" :foreground "black"))))
+     (modeline-mousable-minor-mode ((t (:background "dodgerblue" :foreground "black"))))
+     (mode-line-inactive ((t (:italic t :underline "red" :overline "red" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light))))
+     (mouse ((t (:background "black"))))
+     (primary-selection ((t (:background "lightgoldenrod2"))))
+     (region ((t (:background "lightgoldenrod2"))))
+     (scroll-bar ((t (nil))))
+     (secondary-selection ((t (:background "yellow"))))
+     (semantic-dirty-token-face ((t (:background "lightyellow"))))
+     (semantic-unmatched-syntax-face ((t (:underline "red"))))
+     (senator-intangible-face ((t (:foreground "gray25"))))
+     (senator-momentary-highlight-face ((t (:background "gray70"))))
+     (senator-read-only-face ((t (:background "#CCBBBB"))))
+     (show-paren-match-face ((t (:background "turquoise"))))
+     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+     (speedbar-button-face ((t (:foreground "green4"))))
+     (speedbar-directory-face ((t (:foreground "blue4"))))
+     (speedbar-file-face ((t (:foreground "cyan4"))))
+     (speedbar-highlight-face ((t (:background "green"))))
+     (speedbar-selected-face ((t (:foreground "red" :underline t))))
+     (speedbar-tag-face ((t (:foreground "brown"))))
+     (template-message-face ((t (:bold t :weight bold))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "gray85"))))
+     (zmacs-region ((t (:background "lightgoldenrod2")))))))
+
+(defun color-theme-gray30 ()
+  "Color theme by Girish Bharadwaj, created 2002-04-22."
+  (interactive)
+  (color-theme-install
+   '(color-theme-gray30
+     ((background-color . "grey30")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "black")
+      (foreground-color . "gainsboro")
+      (mouse-color . "black"))
+     ((help-highlight-face . underline)
+      (list-matching-lines-face . bold)
+      (semantic-which-function-use-color . t)
+      (senator-eldoc-use-color . t)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "grey30" :foreground "gainsboro" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
+     (bg:erc-color-face0 ((t (:background "White"))))
+     (bg:erc-color-face1 ((t (:background "black"))))
+     (bg:erc-color-face10 ((t (:background "lightblue1"))))
+     (bg:erc-color-face11 ((t (:background "cyan"))))
+     (bg:erc-color-face12 ((t (:background "blue"))))
+     (bg:erc-color-face13 ((t (:background "deeppink"))))
+     (bg:erc-color-face14 ((t (:background "gray50"))))
+     (bg:erc-color-face15 ((t (:background "gray90"))))
+     (bg:erc-color-face2 ((t (:background "blue4"))))
+     (bg:erc-color-face3 ((t (:background "green4"))))
+     (bg:erc-color-face4 ((t (:background "red"))))
+     (bg:erc-color-face5 ((t (:background "brown"))))
+     (bg:erc-color-face6 ((t (:background "purple"))))
+     (bg:erc-color-face7 ((t (:background "orange"))))
+     (bg:erc-color-face8 ((t (:background "yellow"))))
+     (bg:erc-color-face9 ((t (:background "green"))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (button ((t (:underline t))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "cyan"))))
+     (cursor ((t (:background "black"))))
+     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "dim gray"))))
+     (custom-comment-tag-face ((t (:foreground "gray80"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
+     (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
+     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "lime green"))))
+     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
+     (erc-action-face ((t (:bold t :weight bold))))
+     (erc-bold-face ((t (:bold t :weight bold))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
+     (erc-error-face ((t (:background "Red" :foreground "White"))))
+     (erc-input-face ((t (:foreground "brown"))))
+     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
+     (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
+     (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
+     (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
+     (erc-underline-face ((t (:underline t))))
+     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
+     (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
+     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
+     (eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold))))
+     (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
+     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
+     (eshell-ls-readonly-face ((t (:foreground "Pink"))))
+     (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
+     (eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold))))
+     (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
+     (fg:erc-color-face0 ((t (:foreground "White"))))
+     (fg:erc-color-face1 ((t (:foreground "black"))))
+     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
+     (fg:erc-color-face11 ((t (:foreground "cyan"))))
+     (fg:erc-color-face12 ((t (:foreground "blue"))))
+     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
+     (fg:erc-color-face14 ((t (:foreground "gray50"))))
+     (fg:erc-color-face15 ((t (:foreground "gray90"))))
+     (fg:erc-color-face2 ((t (:foreground "blue4"))))
+     (fg:erc-color-face3 ((t (:foreground "green4"))))
+     (fg:erc-color-face4 ((t (:foreground "red"))))
+     (fg:erc-color-face5 ((t (:foreground "brown"))))
+     (fg:erc-color-face6 ((t (:foreground "purple"))))
+     (fg:erc-color-face7 ((t (:foreground "orange"))))
+     (fg:erc-color-face8 ((t (:foreground "yellow"))))
+     (fg:erc-color-face9 ((t (:foreground "green"))))
+     (fixed-pitch ((t (:family "courier"))))
+     (font-lock-builtin-face ((t (:foreground "LightSkyBlue" :underline t))))
+     (font-lock-comment-face ((t (:italic t :foreground "lightgreen" :slant oblique))))
+     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold :height 1.05))))
+     (font-lock-keyword-face ((t (:foreground "LightPink" :height 1.05))))
+     (font-lock-string-face ((t (:foreground "LightSalmon"))))
+     (font-lock-type-face ((t (:foreground "yellow" :height 1.05))))
+     (font-lock-variable-name-face ((t (:foreground "gold"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
+     (fringe ((t (:background "grey10"))))
+     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
+     (highlight ((t (:background "darkolivegreen"))))
+     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+     (italic ((t (:italic t :slant italic))))
+     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
+     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
+     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
+     (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
+     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
+     (jde-java-font-lock-code-face ((t (nil))))
+     (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
+     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
+     (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal))))
+     (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
+     (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
+     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
+     (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
+     (jde-java-font-lock-pre-face ((t (nil))))
+     (jde-java-font-lock-underline-face ((t (:underline t))))
+     (menu ((t (nil))))
+     (minibuffer-prompt ((t (:foreground "cyan"))))
+     (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+     (mode-line-inactive ((t (:background "grey30" :foreground "grey80" :box (:line-width -1 :color "grey40" :style nil) :weight light))))
+     (mouse ((t (:background "black"))))
+     (primary-selection ((t (:background "blue3"))))
+     (region ((t (:background "blue3"))))
+     (scroll-bar ((t (nil))))
+     (secondary-selection ((t (:background "SkyBlue4"))))
+     (semantic-dirty-token-face ((t (:background "lightyellow"))))
+     (semantic-unmatched-syntax-face ((t (:underline "red"))))
+     (senator-intangible-face ((t (:foreground "gray75"))))
+     (senator-momentary-highlight-face ((t (:background "gray30"))))
+     (senator-read-only-face ((t (:background "#664444"))))
+     (show-paren-match-face ((t (:background "steelblue3"))))
+     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+     (speedbar-button-face ((t (:foreground "green3"))))
+     (speedbar-directory-face ((t (:foreground "light blue"))))
+     (speedbar-file-face ((t (:foreground "cyan"))))
+     (speedbar-highlight-face ((t (:background "sea green"))))
+     (speedbar-selected-face ((t (:foreground "red" :underline t))))
+     (speedbar-tag-face ((t (:foreground "yellow"))))
+     (template-message-face ((t (:bold t :weight bold))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-field-face ((t (:background "dim gray"))))
+     (widget-inactive-face ((t (:foreground "light gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray"))))
+     (zmacs-region ((t (:background "blue3")))))))
+
+(defun color-theme-dark-green ()
+  "Color theme by ces93, created 2002-03-30."
+  (interactive)
+  (color-theme-install
+   '(color-theme-dark-green
+     ((background-mode . light)
+      (background-toolbar-color . "#e79ddf7ddf7d")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#8e3886178617")
+      (top-toolbar-shadow-color . "#ffffffffffff"))
+     nil
+     (default ((t (nil))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (:italic t :bold t))))
+     (border-glyph ((t (nil))))
+     (fringe ((t (nil))))
+     (green ((t (:foreground "green"))))
+     (gui-button-face ((t (:background "grey75" :foreground "black"))))
+     (gui-element ((t (:background "#ffffff" :foreground "#000000"))))
+     (highlight ((t (:background "gray" :foreground "darkred"))))
+     (isearch ((t (:background "LightSlateGray" :foreground "red"))))
+     (italic ((t (:italic t))))
+     (left-margin ((t (nil))))
+     (list-mode-item-selected ((t (:background "gray68"))))
+     (mode-line ((t (:background "LightSlateGray" :foreground "black"))))
+     (modeline ((t (:background "LightSlateGray" :foreground "black"))))
+     (modeline-buffer-id ((t (:background "LightSlateGray" :foreground "blue4"))))
+     (modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick"))))
+     (modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "green4"))))
+     (pointer ((t (:background "#ffffff" :foreground "#000000"))))
+     (primary-selection ((t (:background "gray65"))))
+     (red ((t (:foreground "red"))))
+     (region ((t (:background "gray65"))))
+     (right-margin ((t (nil))))
+     (rpm-spec-dir-face ((t (:foreground "green"))))
+     (rpm-spec-doc-face ((t (:foreground "magenta"))))
+     (rpm-spec-ghost-face ((t (:foreground "red"))))
+     (rpm-spec-macro-face ((t (:foreground "purple"))))
+     (rpm-spec-package-face ((t (:foreground "red"))))
+     (rpm-spec-tag-face ((t (:foreground "blue"))))
+     (secondary-selection ((t (:background "paleturquoise"))))
+     (text-cursor ((t (:background "Red3" :foreground "DarkSlateGray"))))
+     (tool-bar ((t (nil))))
+     (toolbar ((t (:background "#ffffff" :foreground "#000000"))))
+     (underline ((t (:underline t))))
+     (vertical-divider ((t (:background "#ffffff" :foreground "#000000"))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (yellow ((t (:foreground "yellow"))))
+     (zmacs-region ((t (:background "darkorange" :foreground "black")))))))
+
+(defun color-theme-whateveryouwant ()
+  "Color theme by Fabien Penso, created 2002-05-02."
+  (interactive)
+  (color-theme-install
+   '(color-theme-whateveryouwant
+     ((background-color . "white")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "black")
+      (foreground-color . "black")
+      (mouse-color . "black"))
+     ((cperl-here-face . font-lock-string-face)
+      (cperl-invalid-face . underline)
+      (cperl-pod-face . font-lock-comment-face)
+      (cperl-pod-head-face . font-lock-variable-name-face)
+      (display-time-mail-face . mode-line)
+      (gnus-article-button-face . bold)
+      (gnus-article-mouse-face . highlight)
+      (gnus-carpal-button-face . bold)
+      (gnus-carpal-header-face . bold-italic)
+      (gnus-cite-attribution-face . gnus-cite-attribution-face)
+      (gnus-mouse-face . highlight)
+      (gnus-selected-tree-face . modeline)
+      (gnus-signature-face . gnus-signature-face)
+      (gnus-summary-selected-face . gnus-summary-selected-face)
+      (gnus-treat-display-xface . head)
+      (help-highlight-face . underline)
+      (ispell-highlight-face . flyspell-incorrect-face)
+      (list-matching-lines-face . bold)
+      (sgml-set-face . t)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight)
+      (x-face-mouse-face . highlight))
+     (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new"))))
+     (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv"))))
+     (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv"))))
+     (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv"))))
+     (Info-title-4-face ((t (:bold t :weight bold :family "helv"))))
+     (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold))))
+     (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold))))
+     (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold))))
+     (antlr-font-lock-ruleref-face ((t (:foreground "blue4"))))
+     (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold))))
+     (antlr-font-lock-tokenref-face ((t (:foreground "orange4"))))
+     (bbdb-company ((t (:italic t :slant italic))))
+     (bbdb-field-name ((t (:bold t :foreground "gray40" :weight bold))))
+     (bbdb-field-value ((t (nil))))
+     (bbdb-name ((t (:underline t))))
+     (bold ((t (:bold t :foreground "gray40" :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (calendar-today-face ((t (:underline t))))
+     (change-log-acknowledgement-face ((t (:foreground "Firebrick"))))
+     (change-log-conditionals-face ((t (:foreground "DarkGoldenrod"))))
+     (change-log-date-face ((t (:foreground "RosyBrown"))))
+     (change-log-email-face ((t (:foreground "DarkGoldenrod"))))
+     (change-log-file-face ((t (:foreground "Blue"))))
+     (change-log-function-face ((t (:foreground "DarkGoldenrod"))))
+     (change-log-list-face ((t (:foreground "Purple"))))
+     (change-log-name-face ((t (:foreground "CadetBlue"))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "dark blue"))))
+     (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
+     (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
+     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+     (cursor ((t (:background "black"))))
+     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "gray85"))))
+     (custom-comment-tag-face ((t (:foreground "blue4"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:bold t :weight bold :height 1.2 :family "helv"))))
+     (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
+     (custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2 :family "helv"))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "dark green"))))
+     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+     (custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2 :family "helv"))))
+     (cvs-filename-face ((t (:foreground "blue4"))))
+     (cvs-handled-face ((t (:foreground "pink"))))
+     (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold))))
+     (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
+     (cvs-msg-face ((t (:italic t :slant italic))))
+     (cvs-need-action-face ((t (:foreground "orange"))))
+     (cvs-unknown-face ((t (:foreground "red"))))
+     (diary-face ((t (:foreground "red"))))
+     (diff-added-face ((t (nil))))
+     (diff-changed-face ((t (nil))))
+     (diff-context-face ((t (:foreground "grey50"))))
+     (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
+     (diff-function-face ((t (:foreground "grey50"))))
+     (diff-header-face ((t (:background "grey85"))))
+     (diff-hunk-header-face ((t (:background "grey85"))))
+     (diff-index-face ((t (:bold t :background "grey70" :weight bold))))
+     (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold))))
+     (diff-removed-face ((t (nil))))
+     (dired-face-boring ((t (:foreground "RosyBrown"))))
+     (dired-face-directory ((t (:foreground "Blue"))))
+     (dired-face-executable ((t (nil))))
+     (dired-face-flagged ((t (:bold t :foreground "Red" :weight bold))))
+     (dired-face-marked ((t (:bold t :foreground "Red" :weight bold))))
+     (dired-face-permissions ((t (nil))))
+     (dired-face-setuid ((t (nil))))
+     (dired-face-socket ((t (nil))))
+     (dired-face-symlink ((t (:foreground "Purple"))))
+     (ebrowse-default-face ((t (nil))))
+     (ebrowse-file-name-face ((t (:italic t :slant italic))))
+     (ebrowse-member-attribute-face ((t (:foreground "red"))))
+     (ebrowse-member-class-face ((t (:foreground "purple"))))
+     (ebrowse-progress-face ((t (:background "blue"))))
+     (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold))))
+     (ebrowse-tree-mark-face ((t (:foreground "red"))))
+     (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+     (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+     (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+     (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+     (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+     (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+     (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+     (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+     (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+     (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+     (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+     (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+     (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+     (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+     (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+     (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+     (erc-action-face ((t (:bold t :weight bold))))
+     (erc-bold-face ((t (:bold t :weight bold))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "LightSalmon"))))
+     (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold))))
+     (erc-input-face ((t (:foreground "Beige"))))
+     (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
+     (erc-notice-face ((t (:foreground "MediumAquamarine"))))
+     (erc-pal-face ((t (:foreground "pale green"))))
+     (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
+     (erc-underline-face ((t (:underline t))))
+     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
+     (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold))))
+     (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
+     (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
+     (eshell-ls-picture-face ((t (:foreground "Violet"))))
+     (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+     (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+     (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
+     (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold))))
+     (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+     (eshell-prompt-face ((t (:bold t :foreground "#aa0000" :weight bold :width condensed :family "neep-alt"))))
+     (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
+     (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
+     (excerpt ((t (:italic t :slant italic))))
+     (fixed ((t (:bold t :weight bold))))
+     (fixed-pitch ((t (:family "courier"))))
+     (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
+     (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
+     (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold))))
+     (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic))))
+     (font-latex-math-face ((t (:foreground "SaddleBrown"))))
+     (font-latex-sedate-face ((t (:foreground "DimGray"))))
+     (font-latex-string-face ((t (:foreground "RosyBrown"))))
+     (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold))))
+     (font-lock-builtin-face ((t (:foreground "dodgerblue3"))))
+     (font-lock-comment-face ((t (:foreground "#cc0000" :width semi-condensed :family "helvetica"))))
+     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+     (font-lock-doc-face ((t (:foreground "RosyBrown"))))
+     (font-lock-doc-string-face ((t (:foreground "RosyBrown"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "navy" :weight bold :height 100))))
+     (font-lock-keyword-face ((t (:bold t :foreground "red4" :weight bold))))
+     (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
+     (font-lock-reference-face ((t (:foreground "Orchid"))))
+     (font-lock-string-face ((t (:foreground "navy"))))
+     (font-lock-type-face ((t (:bold t :foreground "black" :weight bold))))
+     (font-lock-variable-name-face ((t (:foreground "black"))))
+     (font-lock-warning-face ((t (:foreground "orange2"))))
+     (fringe ((t (:background "white"))))
+     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
+     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+     (gnus-cite-face-3 ((t (:foreground "dark green"))))
+     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t :weight bold))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (:italic t :slant italic))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold))))
+     (gnus-group-news-1-empty-face ((t (:foreground "red" :weight normal :height 120 :family "courier"))))
+     (gnus-group-news-1-face ((t (:foreground "red" :weight normal :height 120 :family "courier"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t :weight bold))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t :weight bold))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t :weight bold))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t :weight bold))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
+     (gnus-header-content-face ((t (:foreground "goldenrod" :slant normal :family "helvetica"))))
+     (gnus-header-from-face ((t (:bold t :foreground "grey75" :weight bold :height 140 :family "helvetica"))))
+     (gnus-header-name-face ((t (:foreground "grey75" :height 120 :family "helvetica"))))
+     (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic))))
+     (gnus-header-subject-face ((t (:bold t :foreground "firebrick" :weight bold :height 160 :family "helvetica"))))
+     (gnus-picon-face ((t (:background "white" :foreground "black"))))
+     (gnus-picon-xbm-face ((t (:background "white" :foreground "black"))))
+     (gnus-signature-face ((t (:italic t :slant italic))))
+     (gnus-splash-face ((t (:foreground "Brown"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold))))
+     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic))))
+     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "grey65" :height 110 :width condensed :family "neep"))))
+     (gnus-summary-normal-read-face ((t (:foreground "grey75" :height 110 :width condensed :family "neep"))))
+     (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick" :weight bold :height 110 :width condensed :family "neep"))))
+     (gnus-summary-normal-unread-face ((t (:foreground "firebrick" :height 110 :width condensed :family "neep"))))
+     (gnus-summary-selected-face ((t (:background "gold" :foreground "black" :box (:line-width 1 :color "yellow" :style released-button) :height 140 :width condensed :family "neep"))))
+     (header-line ((t (:background "grey90" :foreground "grey20" :box nil))))
+     (hi-black-b ((t (:bold t :weight bold))))
+     (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv"))))
+     (hi-blue ((t (:background "light blue"))))
+     (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
+     (hi-green ((t (:background "green"))))
+     (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
+     (hi-pink ((t (:background "pink"))))
+     (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
+     (hi-yellow ((t (:background "yellow"))))
+     (highlight ((t (:background "black" :foreground "white"))))
+     (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
+     (highlight-changes-face ((t (:foreground "red"))))
+     (highline-face ((t (:background "gray80"))))
+     (holiday-face ((t (:background "pink"))))
+     (idlwave-help-link-face ((t (:foreground "Blue"))))
+     (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
+     (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
+     (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold))))
+     (info-menu-5 ((t (:foreground "red1"))))
+     (info-menu-header ((t (:bold t :weight bold :family "helv"))))
+     (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
+     (info-xref ((t (:bold t :foreground "magenta4" :weight bold))))
+     (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
+     (italic ((t (:italic t :slant italic))))
+     (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
+     (log-view-message-face ((t (:background "grey85"))))
+     (makefile-space-face ((t (:background "hotpink"))))
+     (menu ((t (nil))))
+     (message-cited-text-face ((t (:foreground "red"))))
+     (message-header-cc-face ((t (:foreground "grey45" :weight normal :family "helvetica"))))
+     (message-header-name-face ((t (:foreground "cornflower blue"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
+     (message-header-other-face ((t (:foreground "steel blue"))))
+     (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold))))
+     (message-header-to-face ((t (:bold t :foreground "grey60" :weight bold :height 120 :family "helvetica"))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (message-separator-face ((t (:foreground "brown"))))
+     (mode-line ((t (:background "grey90" :foreground "black" :box (:line-width 1 :style none) :width condensed :family "neep"))))
+     (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button) :weight bold))))
+     (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+     (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+     (mouse ((t (:background "black"))))
+     (mpg123-face-cur ((t (:background "#004080" :foreground "yellow"))))
+     (mpg123-face-slider ((t (:background "yellow" :foreground "black"))))
+     (primary-selection ((t (:background "lightgoldenrod2"))))
+     (reb-match-0 ((t (:background "lightblue"))))
+     (reb-match-1 ((t (:background "aquamarine"))))
+     (reb-match-2 ((t (:background "springgreen"))))
+     (reb-match-3 ((t (:background "yellow"))))
+     (region ((t (:background "#aa0000" :foreground "white"))))
+     (scroll-bar ((t (:background "grey75"))))
+     (secondary-selection ((t (:background "yellow"))))
+     (sgml-comment-face ((t (:italic t :foreground "SeaGreen" :slant italic))))
+     (sgml-doctype-face ((t (:bold t :foreground "FireBrick" :weight bold))))
+     (sgml-end-tag-face ((t (:stipple nil :background "white" :foreground "SlateBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new"))))
+     (sgml-entity-face ((t (:stipple nil :background "SlateBlue" :foreground "Red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new"))))
+     (sgml-ignored-face ((t (nil))))
+     (sgml-ms-end-face ((t (nil))))
+     (sgml-ms-start-face ((t (nil))))
+     (sgml-pi-face ((t (:bold t :foreground "gray40" :weight bold))))
+     (sgml-sgml-face ((t (:bold t :foreground "gray40" :weight bold))))
+     (sgml-short-ref-face ((t (nil))))
+     (sgml-shortref-face ((t (:bold t :foreground "gray40" :weight bold))))
+     (sgml-start-tag-face ((t (:stipple nil :background "white" :foreground "SlateBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new"))))
+     (sh-heredoc-face ((t (:foreground "tan"))))
+     (show-paren-match-face ((t (:background "gray80" :foreground "black"))))
+     (show-paren-mismatch-face ((t (:background "red" :foreground "yellow"))))
+     (show-tabs-space-face ((t (:foreground "yellow"))))
+     (show-tabs-tab-face ((t (:foreground "red"))))
+     (smerge-base-face ((t (:foreground "red"))))
+     (smerge-markers-face ((t (:background "grey85"))))
+     (smerge-mine-face ((t (:foreground "blue"))))
+     (smerge-other-face ((t (:foreground "darkgreen"))))
+     (speedbar-button-face ((t (:foreground "green4"))))
+     (speedbar-directory-face ((t (:foreground "blue4"))))
+     (speedbar-file-face ((t (:foreground "cyan4"))))
+     (speedbar-highlight-face ((t (:background "green"))))
+     (speedbar-selected-face ((t (:foreground "red" :underline t))))
+     (speedbar-tag-face ((t (:foreground "brown"))))
+     (strokes-char-face ((t (:background "lightgray"))))
+     (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier"))))
+     (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (tex-math-face ((t (:foreground "RosyBrown"))))
+     (texinfo-heading-face ((t (:foreground "Blue"))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:foreground "navy" :underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
+     (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+     (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+     (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+     (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+     (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
+     (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
+     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+     (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+     (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
+     (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+     (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
+     (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+     (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
+     (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+     (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
+     (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+     (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
+     (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+     (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+     (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+     (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+     (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "gray85"))))
+     (woman-addition-face ((t (:foreground "orange"))))
+     (woman-bold-face ((t (:bold t :foreground "blue" :weight bold))))
+     (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic))))
+     (woman-unknown-face ((t (:foreground "brown"))))
+     (zmacs-region ((t (:background "lightgoldenrod2")))))))
+
+(defun color-theme-bharadwaj-slate ()
+  "Color theme by Girish Bharadwaj, created 2002-05-06."
+  (interactive)
+  (color-theme-install
+   '(color-theme-bharadwaj-slate
+     ((background-color . "DarkSlateGray")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "khaki")
+      (foreground-color . "palegreen")
+      (mouse-color . "black"))
+     ((display-time-mail-face . mode-line)
+      (gnus-article-button-face . bold)
+      (gnus-article-mouse-face . highlight)
+      (gnus-mouse-face . highlight)
+      (help-highlight-face . underline)
+      (ibuffer-deletion-face . font-lock-type-face)
+      (ibuffer-filter-group-name-face . bold)
+      (ibuffer-marked-face . font-lock-warning-face)
+      (ibuffer-title-face . font-lock-type-face)
+      (list-matching-lines-buffer-name-face . underline)
+      (list-matching-lines-face . bold)
+      (semantic-which-function-use-color . t)
+      (senator-eldoc-use-color . t)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "DarkSlateGray" :foreground "palegreen" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida sans typewriter"))))
+     (bg:erc-color-face0 ((t (:background "White"))))
+     (bg:erc-color-face1 ((t (:background "black"))))
+     (bg:erc-color-face10 ((t (:background "lightblue1"))))
+     (bg:erc-color-face11 ((t (:background "cyan"))))
+     (bg:erc-color-face12 ((t (:background "blue"))))
+     (bg:erc-color-face13 ((t (:background "deeppink"))))
+     (bg:erc-color-face14 ((t (:background "gray50"))))
+     (bg:erc-color-face15 ((t (:background "gray90"))))
+     (bg:erc-color-face2 ((t (:background "blue4"))))
+     (bg:erc-color-face3 ((t (:background "green4"))))
+     (bg:erc-color-face4 ((t (:background "red"))))
+     (bg:erc-color-face5 ((t (:background "brown"))))
+     (bg:erc-color-face6 ((t (:background "purple"))))
+     (bg:erc-color-face7 ((t (:background "orange"))))
+     (bg:erc-color-face8 ((t (:background "yellow"))))
+     (bg:erc-color-face9 ((t (:background "green"))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (button ((t (:underline t))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "cyan"))))
+     (cursor ((t (:background "khaki"))))
+     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "dim gray"))))
+     (custom-comment-tag-face ((t (:foreground "gray80"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
+     (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
+     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "lime green"))))
+     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
+     (erc-action-face ((t (:bold t :box (:line-width 2 :color "grey75") :weight bold))))
+     (erc-bold-face ((t (:bold t :weight bold))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
+     (erc-error-face ((t (:background "Red" :foreground "White"))))
+     (erc-input-face ((t (:foreground "lightblue"))))
+     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
+     (erc-notice-face ((t (:bold t :foreground "dodgerblue" :weight bold))))
+     (erc-prompt-face ((t (:bold t :background "black" :foreground "white" :weight bold))))
+     (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
+     (erc-underline-face ((t (:underline t))))
+     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
+     (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
+     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
+     (eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold))))
+     (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
+     (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
+     (eshell-ls-readonly-face ((t (:foreground "Pink"))))
+     (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
+     (eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold))))
+     (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
+     (eshell-prompt-face ((t (:bold t :foreground "Pink" :weight bold))))
+     (fg:erc-color-face0 ((t (:foreground "White"))))
+     (fg:erc-color-face1 ((t (:foreground "black"))))
+     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
+     (fg:erc-color-face11 ((t (:foreground "cyan"))))
+     (fg:erc-color-face12 ((t (:foreground "blue"))))
+     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
+     (fg:erc-color-face14 ((t (:foreground "gray50"))))
+     (fg:erc-color-face15 ((t (:foreground "gray90"))))
+     (fg:erc-color-face2 ((t (:foreground "blue4"))))
+     (fg:erc-color-face3 ((t (:foreground "green4"))))
+     (fg:erc-color-face4 ((t (:foreground "red"))))
+     (fg:erc-color-face5 ((t (:foreground "brown"))))
+     (fg:erc-color-face6 ((t (:foreground "purple"))))
+     (fg:erc-color-face7 ((t (:foreground "orange"))))
+     (fg:erc-color-face8 ((t (:foreground "yellow"))))
+     (fg:erc-color-face9 ((t (:foreground "green"))))
+     (fixed-pitch ((t (:family "courier"))))
+     (font-lock-builtin-face ((t (:bold t :foreground "pink" :weight bold :height 1.1))))
+     (font-lock-comment-face ((t (:foreground "violet" :height 1.0))))
+     (font-lock-constant-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0))))
+     (font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold))))
+     (font-lock-keyword-face ((t (:bold t :foreground "turquoise" :weight bold))))
+     (font-lock-preprocessor-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0))))
+     (font-lock-reference-face ((t (:bold t :foreground "pink" :weight bold :height 1.1))))
+     (font-lock-string-face ((t (:foreground "red" :height 1.0))))
+     (font-lock-type-face ((t (:foreground "lightblue3"))))
+     (font-lock-variable-name-face ((t (:bold t :foreground "gray" :weight bold :height 1.0))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
+     (fringe ((t (:background "DarkSlateGray"))))
+     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
+     (gnus-cite-face-1 ((t (:foreground "light blue"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:foreground "light cyan"))))
+     (gnus-cite-face-3 ((t (:foreground "light yellow"))))
+     (gnus-cite-face-4 ((t (:foreground "light pink"))))
+     (gnus-cite-face-5 ((t (:foreground "pale green"))))
+     (gnus-cite-face-6 ((t (:foreground "beige"))))
+     (gnus-cite-face-7 ((t (:foreground "orange"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t :weight bold))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (:italic t :slant italic))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
+     (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
+     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t :weight bold))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t :weight bold))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t :weight bold))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t :weight bold))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
+     (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic))))
+     (gnus-header-from-face ((t (:foreground "spring green"))))
+     (gnus-header-name-face ((t (:foreground "SeaGreen"))))
+     (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
+     (gnus-header-subject-face ((t (:foreground "SeaGreen3"))))
+     (gnus-signature-face ((t (:italic t :slant italic))))
+     (gnus-splash-face ((t (:foreground "Brown"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
+     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
+     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (header-line ((t (:underline "blueviolet" :overline "blueviolet" :box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
+     (highlight ((t (:background "darkolivegreen"))))
+     (html-helper-bold-face ((t (:bold t :foreground "wheat" :weight bold))))
+     (html-helper-italic-face ((t (:italic t :foreground "spring green" :slant italic))))
+     (html-helper-underline-face ((t (:foreground "cornsilk" :underline t))))
+     (html-tag-face ((t (:bold t :foreground "deep sky blue" :weight bold))))
+     (info-menu-6 ((t (nil))))
+     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+     (italic ((t (:italic t :slant italic))))
+     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
+     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
+     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
+     (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
+     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
+     (jde-java-font-lock-code-face ((t (nil))))
+     (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
+     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
+     (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
+     (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
+     (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
+     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
+     (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
+     (jde-java-font-lock-pre-face ((t (nil))))
+     (jde-java-font-lock-underline-face ((t (:underline t))))
+     (menu ((t (nil))))
+     (message-cited-text-face ((t (:foreground "red"))))
+     (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
+     (message-header-name-face ((t (:foreground "DarkGreen"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
+     (message-header-other-face ((t (:foreground "#b00000"))))
+     (message-header-subject-face ((t (:foreground "green3"))))
+     (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (message-separator-face ((t (:foreground "blue3"))))
+     (minibuffer-prompt ((t (:foreground "cyan"))))
+     (mode-line ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
+     (mode-line-inactive ((t (:italic t :underline "blueviolet" :overline "blueviolet" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light))))
+     (modeline ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
+     (modeline-buffer-id ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
+     (modeline-mousable ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
+     (modeline-mousable-minor-mode ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
+     (mouse ((t (:background "black"))))
+     (primary-selection ((t (:background "dimgray"))))
+     (region ((t (:background "dimgray"))))
+     (scroll-bar ((t (nil))))
+     (secondary-selection ((t (:background "SkyBlue4"))))
+     (semantic-dirty-token-face ((t (:background "lightyellow"))))
+     (semantic-unmatched-syntax-face ((t (:underline "red"))))
+     (senator-intangible-face ((t (:foreground "gray75"))))
+     (senator-momentary-highlight-face ((t (:background "gray30"))))
+     (senator-read-only-face ((t (:background "#664444"))))
+     (show-paren-match-face ((t (:bold t :foreground "lightblue" :weight bold :height 1.1))))
+     (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold :height 1.1))))
+     (show-tabs-space-face ((t (:foreground "yellow"))))
+     (show-tabs-tab-face ((t (:foreground "red"))))
+     (speedbar-button-face ((t (:foreground "green3"))))
+     (speedbar-directory-face ((t (:foreground "light blue"))))
+     (speedbar-file-face ((t (:foreground "cyan"))))
+     (speedbar-highlight-face ((t (:background "sea green"))))
+     (speedbar-selected-face ((t (:foreground "red" :underline t))))
+     (speedbar-tag-face ((t (:foreground "yellow"))))
+     (template-message-face ((t (:bold t :weight bold))))
+     (term-black ((t (:foreground "black"))))
+     (term-blackbg ((t (:background "black"))))
+     (term-blue ((t (:foreground "blue"))))
+     (term-bluebg ((t (:background "blue"))))
+     (term-bold ((t (:bold t :weight bold))))
+     (term-cyan ((t (:foreground "cyan"))))
+     (term-cyanbg ((t (:background "cyan"))))
+     (term-default ((t (:stipple nil :background "DarkSlateGray" :foreground "palegreen" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida sans typewriter"))))
+     (term-default-bg ((t (nil))))
+     (term-default-bg-inv ((t (nil))))
+     (term-default-fg ((t (nil))))
+     (term-default-fg-inv ((t (nil))))
+     (term-green ((t (:foreground "green"))))
+     (term-greenbg ((t (:background "green"))))
+     (term-invisible ((t (nil))))
+     (term-invisible-inv ((t (nil))))
+     (term-magenta ((t (:foreground "magenta"))))
+     (term-magentabg ((t (:background "magenta"))))
+     (term-red ((t (:foreground "red"))))
+     (term-redbg ((t (:background "red"))))
+     (term-underline ((t (:underline t))))
+     (term-white ((t (:foreground "white"))))
+     (term-whitebg ((t (:background "white"))))
+     (term-yellow ((t (:foreground "yellow"))))
+     (term-yellowbg ((t (:background "yellow"))))
+     (tool-bar ((t (:background "DarkSlateGray" :foreground "White" :box (:line-width 1 :color "blue")))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-field-face ((t (:background "dim gray"))))
+     (widget-inactive-face ((t (:foreground "light gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray"))))
+     (zmacs-region ((t (:background "dimgray")))))))
+
+(defun color-theme-lethe ()
+  "Color theme by Ivica Loncar, created 2002-08-02.
+Some additional X resources as suggested by the author:
+
+Emacs*menubar.Foreground:		Yellow
+Emacs*menubar.Background:		#1a2b3c
+Emacs*menubar.topShadowColor:		gray
+Emacs*menubar.bottomShadowColor:	dimgray
+
+Some fonts I really like (note: this fonts are not highly
+available):
+
+Emacs.default.attributeFont: -letl-*-medium-r-*-*-*-*-*-*-*-*-iso8859-2
+Emacs*menubar*Font:  -etl-fixed-medium-r-normal--14-*-*-*-*-*-iso8859-1
+
+Mouse fix:
+
+Emacs*dialog*XmPushButton.translations:#override\n\
+	  <Btn1Down>:         Arm()\n\
+ <Btn1Down>,<Btn1Up>: Activate()\
+			 Disarm()\n\
+      <Btn1Down>(2+):     MultiArm()\n\
+	<Btn1Up>(2+):       MultiActivate()\n\
+	    <Btn1Up>:           Activate()\
+			 Disarm()\n\
+      <Key>osfSelect:    ArmAndActivate()\n\
+    <Key>osfActivate:   ArmAndActivate()\n\
+	<Key>osfHelp:    Help()\n\
+ ~Shift ~Meta ~Alt <Key>Return:  ArmAndActivate()\n\
+       <EnterWindow>:      Enter()\n\
+       <LeaveWindow>:      Leave()\n
+
+Bonus: do not use 3D modeline."
+  (interactive)
+  (color-theme-install
+   '(color-theme-lethe
+     ((background-color . "black")
+      (background-mode . dark)
+      (background-toolbar-color . "#000000000000")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "red")
+      (cursor-color . "red")
+      (foreground-color . "peachpuff")
+      (mouse-color . "red")
+      (top-toolbar-shadow-color . "#f5f5f5f5f5f5"))
+     ((buffers-tab-face . buffers-tab)
+      (cscope-use-face . t)
+      (gnus-mouse-face . highlight))
+     (default ((t (nil))))
+     (bg:erc-color-face0 ((t (:background "White"))))
+     (bg:erc-color-face1 ((t (nil))))
+     (bg:erc-color-face10 ((t (:background "lightblue1"))))
+     (bg:erc-color-face11 ((t (:background "cyan"))))
+     (bg:erc-color-face12 ((t (:background "blue"))))
+     (bg:erc-color-face13 ((t (:background "deeppink"))))
+     (bg:erc-color-face14 ((t (:background "gray50"))))
+     (bg:erc-color-face15 ((t (:background "gray90"))))
+     (bg:erc-color-face2 ((t (:background "blue4"))))
+     (bg:erc-color-face3 ((t (:background "green4"))))
+     (bg:erc-color-face4 ((t (:background "red"))))
+     (bg:erc-color-face5 ((t (:background "brown"))))
+     (bg:erc-color-face6 ((t (:background "purple"))))
+     (bg:erc-color-face7 ((t (:background "orange"))))
+     (bg:erc-color-face8 ((t (:background "yellow"))))
+     (bg:erc-color-face9 ((t (:background "green"))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (:italic t :bold t))))
+     (border ((t (nil))))
+     (border-glyph ((t (nil))))
+     (buffers-tab ((t (:bold t :foreground "red"))))
+     (button ((t (:underline t))))
+     (calendar-today-face ((t (:underline t))))
+     (comint-highlight-input ((t (:bold t))))
+     (comint-highlight-prompt ((t (:foreground "cyan"))))
+     (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
+     (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
+     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+     (cscope-file-face ((t (:foreground "blue"))))
+     (cscope-function-face ((t (:foreground "magenta"))))
+     (cscope-line-face ((t (:foreground "green"))))
+     (cscope-line-number-face ((t (:foreground "red"))))
+     (cscope-mouse-face ((t (:background "blue" :foreground "white"))))
+     (cursor ((t (nil))))
+     (custom-button-face ((t (nil))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black"))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "dim gray"))))
+     (custom-comment-tag-face ((t (:foreground "gray80"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+     (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "dark green"))))
+     (custom-variable-button-face ((t (:underline t :bold t))))
+     (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
+     (cyan ((t (:foreground "cyan"))))
+     (diary-face ((t (:foreground "red"))))
+     (dired-face-boring ((t (:foreground "Gray65"))))
+     (dired-face-directory ((t (:bold t))))
+     (dired-face-executable ((t (:foreground "SeaGreen"))))
+     (dired-face-flagged ((t (:background "LightSlateGray"))))
+     (dired-face-marked ((t (:background "PaleVioletRed"))))
+     (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
+     (dired-face-setuid ((t (:foreground "Red"))))
+     (dired-face-socket ((t (:foreground "magenta"))))
+     (dired-face-symlink ((t (:foreground "cyan"))))
+     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+     (display-time-time-balloon-face ((t (:foreground "red"))))
+     (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+     (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+     (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+     (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+     (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+     (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+     (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+     (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+     (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+     (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+     (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+     (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+     (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+     (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+     (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+     (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+     (erc-action-face ((t (:bold t))))
+     (erc-bold-face ((t (:bold t))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
+     (erc-error-face ((t (:background "Red" :foreground "White"))))
+     (erc-input-face ((t (:foreground "brown"))))
+     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
+     (erc-notice-face ((t (:bold t :foreground "SlateBlue"))))
+     (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black"))))
+     (erc-timestamp-face ((t (:bold t :foreground "green"))))
+     (erc-underline-face ((t (:underline t))))
+     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
+     (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
+     (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
+     (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
+     (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+     (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+     (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
+     (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
+     (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+     (eshell-prompt-face ((t (:bold t :foreground "Red"))))
+     (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
+     (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
+     (excerpt ((t (:italic t))))
+     (fg:erc-color-face0 ((t (:foreground "White"))))
+     (fg:erc-color-face1 ((t (:foreground "black"))))
+     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
+     (fg:erc-color-face11 ((t (:foreground "cyan"))))
+     (fg:erc-color-face12 ((t (:foreground "blue"))))
+     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
+     (fg:erc-color-face14 ((t (:foreground "gray50"))))
+     (fg:erc-color-face15 ((t (:foreground "gray90"))))
+     (fg:erc-color-face2 ((t (:foreground "blue4"))))
+     (fg:erc-color-face3 ((t (:foreground "green4"))))
+     (fg:erc-color-face4 ((t (:foreground "red"))))
+     (fg:erc-color-face5 ((t (:foreground "brown"))))
+     (fg:erc-color-face6 ((t (:foreground "purple"))))
+     (fg:erc-color-face7 ((t (:foreground "orange"))))
+     (fg:erc-color-face8 ((t (:foreground "yellow"))))
+     (fg:erc-color-face9 ((t (:foreground "green"))))
+     (fixed ((t (:bold t))))
+     (fixed-pitch ((t (:size "16"))))
+     (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
+     (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
+     (font-lock-builtin-face ((t (:foreground "Orchid"))))
+     (font-lock-comment-face ((t (:bold t :foreground "cyan"))))
+     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+     (font-lock-doc-face ((t (:bold t :foreground "red"))))
+     (font-lock-doc-string-face ((t (:bold t :foreground "red"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "white"))))
+     (font-lock-keyword-face ((t (:bold t :foreground "yellow"))))
+     (font-lock-preprocessor-face ((t (:bold t :foreground "blue"))))
+     (font-lock-reference-face ((t (:foreground "red3"))))
+     (font-lock-string-face ((t (:bold t :foreground "magenta"))))
+     (font-lock-type-face ((t (:bold t :foreground "lightgreen"))))
+     (font-lock-variable-name-face ((t (:bold t :foreground "white"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+     (fringe ((t (:background "grey95"))))
+     (gdb-arrow-face ((t (:bold t :background "yellow" :foreground "red"))))
+     (gnus-cite-attribution-face ((t (:italic t))))
+     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+     (gnus-cite-face-3 ((t (:foreground "dark green"))))
+     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+     (gnus-emphasis-highlight-words ((t (:foreground "yellow"))))
+     (gnus-emphasis-italic ((t (:italic t))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+     (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+     (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+     (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
+     (gnus-header-from-face ((t (:foreground "red3"))))
+     (gnus-header-name-face ((t (:foreground "maroon"))))
+     (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
+     (gnus-header-subject-face ((t (:foreground "red4"))))
+     (gnus-picons-face ((t (:background "white" :foreground "black"))))
+     (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
+     (gnus-signature-face ((t (:italic t))))
+     (gnus-splash-face ((t (:foreground "ForestGreen"))))
+     (gnus-summary-cancelled-face ((t (:foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
+     (gnus-summary-high-unread-face ((t (:bold t))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
+     (gnus-summary-low-unread-face ((t (:italic t))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (gnus-x-face ((t (:background "white" :foreground "black"))))
+     (green ((t (:foreground "green"))))
+     (gui-button-face ((t (:background "grey75" :foreground "black"))))
+     (gui-element ((t (:size "12" :background "Gray80" :foreground "black"))))
+     (header-line ((t (:background "grey20" :foreground "grey90"))))
+     (highlight ((t (:bold t :background "yellow" :foreground "red"))))
+     (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
+     (highlight-changes-face ((t (:foreground "red"))))
+     (highline-face ((t (:background "paleturquoise"))))
+     (holiday-face ((t (:background "pink"))))
+     (hyper-apropos-documentation ((t (:foreground "#aaaaaa"))))
+     (hyper-apropos-heading ((t (:bold t :foreground "#999999"))))
+     (hyper-apropos-hyperlink ((t (:foreground "Violet"))))
+     (hyper-apropos-major-heading ((t (:bold t :foreground "#ff0000"))))
+     (hyper-apropos-section-heading ((t (:italic t :bold t :foreground "#33aa55"))))
+     (hyper-apropos-warning ((t (:bold t :foreground "red"))))
+     (info-menu-5 ((t (:underline t))))
+     (info-node ((t (:italic t :bold t))))
+     (info-xref ((t (:bold t))))
+     (isearch ((t (:background "paleturquoise"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+     (isearch-secondary ((t (:foreground "red3"))))
+     (italic ((t (:italic t))))
+     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
+     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
+     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
+     (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
+     (jde-java-font-lock-bold-face ((t (:bold t))))
+     (jde-java-font-lock-code-face ((t (nil))))
+     (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
+     (jde-java-font-lock-italic-face ((t (:italic t))))
+     (jde-java-font-lock-link-face ((t (:underline t :foreground "cadetblue"))))
+     (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
+     (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
+     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
+     (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
+     (jde-java-font-lock-pre-face ((t (nil))))
+     (jde-java-font-lock-underline-face ((t (:underline t))))
+     (left-margin ((t (nil))))
+     (list-mode-item-selected ((t (:background "gray68"))))
+     (magenta ((t (:foreground "magenta"))))
+     (makefile-space-face ((t (:background "hotpink"))))
+     (menu ((t (nil))))
+     (message-cited-text-face ((t (:foreground "red"))))
+     (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+     (message-header-name-face ((t (:foreground "cornflower blue"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
+     (message-header-other-face ((t (:foreground "steel blue"))))
+     (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+     (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-mml-face ((t (:bold t :foreground "cyan"))))
+     (message-separator-face ((t (:foreground "brown"))))
+     (minibuffer-prompt ((t (:foreground "cyan"))))
+     (mode-line ((t (:background "grey75" :foreground "black"))))
+     (mode-line-inactive ((t (:background "grey30" :foreground "grey80"))))
+     (modeline ((t (:bold t :background "red" :foreground "yellow"))))
+     (modeline-buffer-id ((t (:bold t :background "red" :foreground "yellow"))))
+     (modeline-mousable ((t (:background "red" :foreground "yellow"))))
+     (modeline-mousable-minor-mode ((t (:background "red" :foreground "green4"))))
+     (mouse ((t (nil))))
+     (paren-blink-off ((t (:foreground "black"))))
+     (paren-match ((t (:bold t :background "yellow" :foreground "red"))))
+     (paren-mismatch ((t (:background "DeepPink"))))
+     (pointer ((t (nil))))
+     (primary-selection ((t (:background "gray65"))))
+     (red ((t (:foreground "red"))))
+     (region ((t (:background "gray75"))))
+     (right-margin ((t (nil))))
+     (scroll-bar ((t (nil))))
+     (secondary-selection ((t (:background "paleturquoise"))))
+     (semantic-dirty-token-face ((t (:background "lightyellow"))))
+     (semantic-unmatched-syntax-face ((t (nil))))
+     (senator-intangible-face ((t (:foreground "gray75"))))
+     (senator-momentary-highlight-face ((t (:background "gray30"))))
+     (senator-read-only-face ((t (:background "#664444"))))
+     (show-paren-match-face ((t (:background "turquoise"))))
+     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+     (speedbar-button-face ((t (:foreground "green4"))))
+     (speedbar-directory-face ((t (:foreground "blue4"))))
+     (speedbar-file-face ((t (:foreground "cyan4"))))
+     (speedbar-highlight-face ((t (:background "green"))))
+     (speedbar-selected-face ((t (:underline t :foreground "red"))))
+     (speedbar-tag-face ((t (:foreground "brown"))))
+     (template-message-face ((t (:bold t))))
+     (term-black ((t (:foreground "black"))))
+     (term-blackbg ((t (nil))))
+     (term-blue ((t (:foreground "blue"))))
+     (term-blue-bold-face ((t (:bold t :foreground "blue"))))
+     (term-blue-face ((t (:foreground "blue"))))
+     (term-blue-inv-face ((t (:background "blue"))))
+     (term-blue-ul-face ((t (:underline t :foreground "blue"))))
+     (term-bluebg ((t (:background "blue"))))
+     (term-bold ((t (:bold t))))
+     (term-cyan ((t (:foreground "cyan"))))
+     (term-cyan-bold-face ((t (:bold t :foreground "cyan"))))
+     (term-cyan-face ((t (:foreground "cyan"))))
+     (term-cyan-inv-face ((t (:background "cyan"))))
+     (term-cyan-ul-face ((t (:underline t :foreground "cyan"))))
+     (term-cyanbg ((t (:background "cyan"))))
+     (term-default-bg ((t (nil))))
+     (term-default-bg-inv ((t (nil))))
+     (term-default-bold-face ((t (:bold t))))
+     (term-default-face ((t (nil))))
+     (term-default-fg ((t (nil))))
+     (term-default-fg-inv ((t (nil))))
+     (term-default-inv-face ((t (:background "peachpuff" :foreground "black"))))
+     (term-default-ul-face ((t (:underline t))))
+     (term-green ((t (:foreground "green"))))
+     (term-green-bold-face ((t (:bold t :foreground "green"))))
+     (term-green-face ((t (:foreground "green"))))
+     (term-green-inv-face ((t (:background "green"))))
+     (term-green-ul-face ((t (:underline t :foreground "green"))))
+     (term-greenbg ((t (:background "green"))))
+     (term-invisible ((t (nil))))
+     (term-invisible-inv ((t (nil))))
+     (term-magenta ((t (:foreground "magenta"))))
+     (term-magenta-bold-face ((t (:bold t :foreground "magenta"))))
+     (term-magenta-face ((t (:foreground "magenta"))))
+     (term-magenta-inv-face ((t (:background "magenta"))))
+     (term-magenta-ul-face ((t (:underline t :foreground "magenta"))))
+     (term-magentabg ((t (:background "magenta"))))
+     (term-red ((t (:foreground "red"))))
+     (term-red-bold-face ((t (:bold t :foreground "red"))))
+     (term-red-face ((t (:foreground "red"))))
+     (term-red-inv-face ((t (:background "red"))))
+     (term-red-ul-face ((t (:underline t :foreground "red"))))
+     (term-redbg ((t (:background "red"))))
+     (term-underline ((t (:underline t))))
+     (term-white ((t (:foreground "white"))))
+     (term-white-bold-face ((t (:bold t :foreground "white"))))
+     (term-white-face ((t (:foreground "white"))))
+     (term-white-inv-face ((t (nil))))
+     (term-white-ul-face ((t (:underline t :foreground "white"))))
+     (term-whitebg ((t (:background "white"))))
+     (term-yellow ((t (:foreground "yellow"))))
+     (term-yellow-bold-face ((t (:bold t :foreground "yellow"))))
+     (term-yellow-face ((t (:foreground "yellow"))))
+     (term-yellow-inv-face ((t (:background "yellow"))))
+     (term-yellow-ul-face ((t (:underline t :foreground "yellow"))))
+     (term-yellowbg ((t (:background "yellow"))))
+     (text-cursor ((t (:background "red" :foreground "black"))))
+     (tool-bar ((t (:background "grey75" :foreground "black"))))
+     (toolbar ((t (:background "Gray80" :foreground "black"))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (nil))))
+     (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
+     (vertical-divider ((t (:background "Gray80" :foreground "black"))))
+     (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+     (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+     (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+     (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+     (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
+     (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
+     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+     (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+     (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
+     (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+     (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
+     (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+     (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
+     (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+     (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
+     (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+     (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
+     (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+     (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+     (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+     (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+     (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+     (white ((t (:foreground "white"))))
+     (widget ((t (:size "12" :background "Gray80" :foreground "black"))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (nil))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "gray85"))))
+     (x-face ((t (:bold t :background "wheat" :foreground "black"))))
+     (xrdb-option-name-face ((t (:bold t :foreground "yellow"))))
+     (xrdb-option-value-face ((t (:bold t :foreground "magenta"))))
+     (yellow ((t (:foreground "yellow"))))
+     (zmacs-region ((t (:background "white" :foreground "black")))))))
+
+(defun color-theme-shaman ()
+  "Color theme by shaman, created 2002-11-11."
+  (interactive)
+  (color-theme-install
+   '(color-theme-shaman
+     ((background-color . "#456345")
+      (background-mode . dark)
+      (background-toolbar-color . "#cf3ccf3ccf3c")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#79e77df779e7")
+      (foreground-color . "White")
+      (top-toolbar-shadow-color . "#f7defbeef7de"))
+     ((buffers-tab-face . buffers-tab))
+     (default ((t (nil))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t :size "12"))))
+     (bold-italic ((t (:italic t :bold t :size "12"))))
+     (border-glyph ((t (nil))))
+     (buffers-tab ((t (:background "Gray80" :foreground "black"))))
+     (font-lock-builtin-face ((t (:foreground "cadetblue2"))))
+     (font-lock-comment-face ((t (:foreground "gray80"))))
+     (font-lock-constant-face ((t (:foreground "steelblue1"))))
+     (font-lock-doc-face ((t (:foreground "light coral"))))
+     (font-lock-doc-string-face ((t (:foreground "light coral"))))
+     (font-lock-function-name-face ((t (:foreground "aquamarine"))))
+     (font-lock-keyword-face ((t (:foreground "cyan"))))
+     (font-lock-preprocessor-face ((t (:foreground "steelblue1"))))
+     (font-lock-reference-face ((t (:foreground "cadetblue2"))))
+     (font-lock-string-face ((t (:foreground "tan"))))
+     (font-lock-type-face ((t (:foreground "wheat"))))
+     (font-lock-variable-name-face ((t (:foreground "cyan3"))))
+     (font-lock-warning-face ((t (:bold t :size "12" :foreground "Pink"))))
+     (fringe ((t (nil))))
+     (gnus-x-face ((t (:background "white" :foreground "black"))))
+     (green ((t (:foreground "green"))))
+     (gui-button-face ((t (:background "grey75" :foreground "black"))))
+     (gui-element ((t (:size "12" :background "Gray80" :foreground "black"))))
+     (highlight ((t (:background "darkseagreen2"))))
+     (isearch ((t (:background "paleturquoise"))))
+     (isearch-secondary ((t (:foreground "red3"))))
+     (italic ((t (:italic t :size "12"))))
+     (left-margin ((t (nil))))
+     (list-mode-item-selected ((t (:background "gray68"))))
+     (message-cited-text-face ((t (:foreground "red"))))
+     (message-header-cc-face ((t (:bold t :foreground "green4"))))
+     (message-header-name-face ((t (:foreground "DarkGreen"))))
+     (message-header-newsgroups-face ((t (:bold t :foreground "yellow"))))
+     (message-header-other-face ((t (:foreground "#b00000"))))
+     (message-header-subject-face ((t (:foreground "green3"))))
+     (message-header-to-face ((t (:bold t :foreground "green2"))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (message-separator-face ((t (:foreground "blue3"))))
+     (mode-line ((t (:background "Gray80" :foreground "black"))))
+     (modeline ((t (:background "Gray80" :foreground "black"))))
+     (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
+     (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
+     (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
+     (pointer ((t (:foreground "White"))))
+     (primary-selection ((t (:background "gray65"))))
+     (red ((t (:foreground "red"))))
+     (region ((t (:background "gray65"))))
+     (right-margin ((t (nil))))
+     (rpm-spec-dir-face ((t (:foreground "green"))))
+     (rpm-spec-doc-face ((t (:foreground "magenta"))))
+     (rpm-spec-ghost-face ((t (:foreground "red"))))
+     (rpm-spec-macro-face ((t (:foreground "yellow"))))
+     (rpm-spec-package-face ((t (:foreground "red"))))
+     (rpm-spec-tag-face ((t (:foreground "blue"))))
+     (rpm-spec-var-face ((t (:foreground "maroon"))))
+     (secondary-selection ((t (:background "paleturquoise"))))
+     (text-cursor ((t (:background "Pink" :foreground "Black"))))
+     (tool-bar ((t (nil))))
+     (toolbar ((t (:background "Gray80" :foreground "black"))))
+     (underline ((t (:underline t))))
+     (vertical-divider ((t (:background "Gray80" :foreground "black"))))
+     (widget ((t (:size "12" :background "Gray80" :foreground "black"))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-field-face ((t (:background "dim gray"))))
+     (widget-inactive-face ((t (:foreground "light gray"))))
+     (yellow ((t (:foreground "yellow"))))
+     (zmacs-region ((t (:background "gray65")))))))
+
+(defun color-theme-emacs-nw ()
+  "Follow emacs21's color-theme, with -nw getting 100% compatibility. 
+
+Alex's `color-theme-emacs-21' follows emacs21's theme, but in the
+current scheme of things, that means that when it works on X, it won't
+work in -nw perfectly.  The modeline and menuline will have same
+colors as the rest of emacs, which can be particularly disturbing when
+there are multiple windows.
+
+OTOH, `color-theme-emacs-nw' follows emacs21's theme but the goal is
+100% -nw compatibility, and in X; we shall try for decent color
+scheme, and as much compability default emacs21's X as possble. 
+Bugs to deego@gnufans.org.
+
+TODO: Try to make this theme relative to color-theme-emacs-21 rather
+than absolute, viz: call that first and then tweak minor stuff."
+  (interactive)
+  (color-theme-install
+   '(color-theme-emacs-nw
+     ((background-color . "white")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "black")
+      (foreground-color . "black")
+      (mouse-color . "black"))
+     ((Man-overstrike-face . bold)
+      (Man-underline-face . underline)
+      (cperl-here-face . font-lock-string-face)
+      (cperl-invalid-face . underline)
+      (cperl-pod-face . font-lock-comment-face)
+      (cperl-pod-head-face . font-lock-variable-name-face)
+      (gnus-article-button-face . bold)
+      (gnus-article-mouse-face . highlight)
+      (gnus-cite-attribution-face . gnus-cite-attribution-face)
+      (gnus-mouse-face . highlight)
+      (gnus-signature-face . gnus-signature-face)
+      (gnus-summary-selected-face . gnus-summary-selected-face)
+      (help-highlight-face . underline)
+      (idlwave-class-arrow-face . bold)
+      (idlwave-shell-breakpoint-face . idlwave-shell-bp-face)
+      (idlwave-shell-expression-face . secondary-selection)
+      (idlwave-shell-stop-line-face . highlight)
+      (ispell-highlight-face . highlight)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight)
+      (viper-insert-state-cursor-color . "Green")
+      (viper-replace-overlay-cursor-color . "Red")
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
+     (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
+     (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
+     (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
+     (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold))))
+     (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold))))
+     (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold))))
+     (antlr-font-lock-ruleref-face ((t (:foreground "blue4"))))
+     (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold))))
+     (antlr-font-lock-tokenref-face ((t (:foreground "orange4"))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (calendar-today-face ((t (:underline t))))
+     (change-log-acknowledgement-face ((t (:foreground "Firebrick"))))
+     (change-log-conditionals-face ((t (:foreground "DarkGoldenrod"))))
+     (change-log-date-face ((t (:foreground "RosyBrown"))))
+     (change-log-email-face ((t (:foreground "DarkGoldenrod"))))
+     (change-log-file-face ((t (:foreground "Blue"))))
+     (change-log-function-face ((t (:foreground "DarkGoldenrod"))))
+     (change-log-list-face ((t (:foreground "Purple"))))
+     (change-log-name-face ((t (:foreground "CadetBlue"))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "dark blue"))))
+     (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
+     (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
+     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
+     (cursor ((t (:background "black"))))
+     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "gray85"))))
+     (custom-comment-tag-face ((t (:foreground "blue4"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
+     (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
+     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "dark green"))))
+     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
+     (cvs-filename-face ((t (:foreground "blue4"))))
+     (cvs-handled-face ((t (:foreground "pink"))))
+     (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold))))
+     (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
+     (cvs-msg-face ((t (:italic t :slant italic))))
+     (cvs-need-action-face ((t (:foreground "orange"))))
+     (cvs-unknown-face ((t (:foreground "red"))))
+     (diary-face ((t (:foreground "red"))))
+     (diff-added-face ((t (nil))))
+     (diff-changed-face ((t (nil))))
+     (diff-context-face ((t (:foreground "grey50"))))
+     (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
+     (diff-function-face ((t (:foreground "grey50"))))
+     (diff-header-face ((t (:background "grey85"))))
+     (diff-hunk-header-face ((t (:background "grey85"))))
+     (diff-index-face ((t (:bold t :weight bold :background "grey70"))))
+     (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70"))))
+     (diff-removed-face ((t (nil))))
+     (dired-face-boring ((t (:foreground "RosyBrown"))))
+     (dired-face-directory ((t (:foreground "Blue"))))
+     (dired-face-executable ((t (nil))))
+     (dired-face-flagged ((t (:foreground "Red" :weight bold))))
+     (dired-face-marked ((t (:foreground "Red" :weight bold))))
+     (dired-face-permissions ((t (nil))))
+     (dired-face-setuid ((t (nil))))
+     (dired-face-socket ((t (nil))))
+     (dired-face-symlink ((t (:foreground "Purple"))))
+     (ebrowse-default-face ((t (nil))))
+     (ebrowse-file-name-face ((t (:italic t :slant italic))))
+     (ebrowse-member-attribute-face ((t (:foreground "red"))))
+     (ebrowse-member-class-face ((t (:foreground "purple"))))
+     (ebrowse-progress-face ((t (:background "blue"))))
+     (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold))))
+     (ebrowse-tree-mark-face ((t (:foreground "red"))))
+     (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
+     (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
+     (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
+     (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
+     (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
+     (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
+     (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
+     (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
+     (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
+     (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
+     (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
+     (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
+     (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
+     (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
+     (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
+     (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
+     (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
+     (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
+     (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold))))
+     (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
+     (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
+     (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
+     (eshell-ls-readonly-face ((t (:foreground "Brown"))))
+     (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
+     (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold))))
+     (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
+     (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
+     (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
+     (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
+     (excerpt ((t (:italic t :slant italic))))
+     (fixed ((t (:bold t :weight bold))))
+     (fixed-pitch ((t (:family "courier"))))
+     (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
+     (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
+     (font-lock-builtin-face ((t (:foreground "Orchid"))))
+     (font-lock-comment-face ((t (:foreground "Firebrick"))))
+     (font-lock-constant-face ((t (:foreground "CadetBlue"))))
+     (font-lock-doc-face ((t (:foreground "RosyBrown"))))
+     (font-lock-doc-string-face ((t (:foreground "RosyBrown"))))
+     (font-lock-function-name-face ((t (:foreground "Blue"))))
+     (font-lock-keyword-face ((t (:foreground "Purple"))))
+     (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
+     (font-lock-reference-face ((t (:foreground "Orchid"))))
+     (font-lock-string-face ((t (:foreground "RosyBrown"))))
+     (font-lock-type-face ((t (:foreground "ForestGreen"))))
+     (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
+     (fringe ((t (:background "grey95"))))
+     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
+     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+     (gnus-cite-face-3 ((t (:foreground "dark green"))))
+     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t :weight bold))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (:italic t :slant italic))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold))))
+     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
+     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t :weight bold))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t :weight bold))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t :weight bold))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t :weight bold))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
+     (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic))))
+     (gnus-header-from-face ((t (:foreground "red3"))))
+     (gnus-header-name-face ((t (:foreground "maroon"))))
+     (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic))))
+     (gnus-header-subject-face ((t (:foreground "red4"))))
+     (gnus-signature-face ((t (:italic t :slant italic))))
+     (gnus-splash-face ((t (:foreground "Brown"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold))))
+     (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic))))
+     (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
+     (hi-black-b ((t (:bold t :weight bold))))
+     (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67))))
+     (hi-blue ((t (:background "light blue"))))
+     (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
+     (hi-green ((t (:background "green"))))
+     (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
+     (hi-pink ((t (:background "pink"))))
+     (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
+     (hi-yellow ((t (:background "yellow"))))
+     (highlight ((t (:background "darkseagreen2"))))
+     (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
+     (highlight-changes-face ((t (:foreground "red"))))
+     (holiday-face ((t (:background "pink"))))
+     (idlwave-help-link-face ((t (:foreground "Blue"))))
+     (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
+     (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown"))))
+     (info-header-xref ((t (:bold t :weight bold :foreground "magenta4"))))
+     (info-menu-5 ((t (:foreground "red1"))))
+     (info-menu-header ((t (:bold t :family "helv" :weight bold))))
+     (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
+     (info-xref ((t (:bold t :foreground "magenta4" :weight bold))))
+     (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
+     (italic ((t (:italic t :slant italic))))
+     (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
+     (log-view-message-face ((t (:background "grey85"))))
+     (makefile-space-face ((t (:background "hotpink"))))
+     (menu ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button)))))
+     (message-cited-text-face ((t (:foreground "red"))))
+     (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+     (message-header-name-face ((t (:foreground "cornflower blue"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
+     (message-header-other-face ((t (:foreground "steel blue"))))
+     (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold))))
+     (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (message-separator-face ((t (:foreground "brown"))))
+     (mode-line ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button)))))
+     (modeline ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button)))))
+     (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+     (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+     (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+     (mouse ((t (:background "black"))))
+     (primary-selection ((t (:background "lightgoldenrod2"))))
+     (reb-match-0 ((t (:background "lightblue"))))
+     (reb-match-1 ((t (:background "aquamarine"))))
+     (reb-match-2 ((t (:background "springgreen"))))
+     (reb-match-3 ((t (:background "yellow"))))
+     (region ((t (:background "lightgoldenrod2"))))
+     (scroll-bar ((t (:background "grey75"))))
+     (secondary-selection ((t (:background "yellow"))))
+     (sh-heredoc-face ((t (:foreground "tan"))))
+     (show-paren-match-face ((t (:background "turquoise"))))
+     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+     (show-tabs-space-face ((t (:foreground "yellow"))))
+     (show-tabs-tab-face ((t (:foreground "red"))))
+     (smerge-base-face ((t (:foreground "red"))))
+     (smerge-markers-face ((t (:background "grey85"))))
+     (smerge-mine-face ((t (:foreground "blue"))))
+     (smerge-other-face ((t (:foreground "darkgreen"))))
+     (speedbar-button-face ((t (:foreground "green4"))))
+     (speedbar-directory-face ((t (:foreground "blue4"))))
+     (speedbar-file-face ((t (:foreground "cyan4"))))
+     (speedbar-highlight-face ((t (:background "green"))))
+     (speedbar-selected-face ((t (:foreground "red" :underline t))))
+     (speedbar-tag-face ((t (:foreground "brown"))))
+     (strokes-char-face ((t (:background "lightgray"))))
+     (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier"))))
+     (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
+     (tex-math-face ((t (:foreground "RosyBrown"))))
+     (texinfo-heading-face ((t (:foreground "Blue"))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
+     (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
+     (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
+     (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
+     (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
+     (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
+     (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
+     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
+     (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
+     (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
+     (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
+     (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
+     (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
+     (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
+     (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
+     (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
+     (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
+     (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
+     (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
+     (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
+     (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
+     (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
+     (viper-search-face ((t (:background "khaki" :foreground "Black"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "gray85"))))
+     (woman-addition-face ((t (:foreground "orange"))))
+     (woman-bold-face ((t (:bold t :foreground "blue" :weight bold))))
+     (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic))))
+     (woman-unknown-face ((t (:foreground "brown"))))
+     (zmacs-region ((t (:background "lightgoldenrod2")))))))
+
+(defun color-theme-late-night ()
+  "Color theme by Alex Schroeder, created 2003-08-07.
+This theme is for use late at night, with only little light in the room.
+The goal was to make something as dark and subtle as the text console in
+its default 80x25 state -- dark grey on black."
+  (interactive)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-dark-erc)
+    (color-theme-dark-gnus)
+    ;; (color-theme-dark-diff)
+    ;; (color-theme-dark-eshell)
+    (color-theme-dark-info)
+    (color-theme-dark-font-lock)
+    (color-theme-install
+     '(color-theme-late-night
+       ((background-color . "#000")
+	(background-mode . dark)
+	(background-toolbar-color . "#000")
+	(border-color . "#000")
+	(bottom-toolbar-shadow-color . "#000")
+	(cursor-color	. "#888")
+	(foreground-color . "#666")
+	(top-toolbar-shadow-color . "#111"))
+       (default ((t (nil))))
+       (bold ((t (:bold t))))
+       (button ((t (:bold t))))
+       (custom-button-face ((t (:bold t :foreground "#999"))))
+       (fringe ((t (:background "#111" :foreground "#444"))))
+       (header-line ((t (:background "#333" :foreground "#000"))))
+       (highlight ((t (:background "dark slate blue" :foreground "light blue"))))
+       (holiday-face ((t (:background "#000" :foreground "#777"))))
+       (isearch ((t (:foreground "pink" :background "red"))))
+       (isearch-lazy-highlight-face ((t (:foreground "red"))))
+       (italic ((t (:bold t))))
+       (menu ((t (:background "#111" :foreground "#444"))))
+       (minibuffer-prompt ((t (:foreground "555"))))
+       (modeline ((t (:background "#111" :foreground "#444"))))
+       (mode-line-inactive ((t (:background "#000" :foreground "#444"))))
+       (modeline-buffer-id ((t (:background "#000" :foreground "#555"))))
+       (modeline-mousable ((t (:background "#000" :foreground "#555"))))
+       (modeline-mousable-minor-mode ((t (:background "#000" :foreground "#555"))))
+       (region ((t (:background "dark cyan" :foreground "cyan"))))
+       (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
+       (show-paren-match-face ((t (:foreground "white" :background "light slate blue"))))
+       (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
+       (tool-bar ((t (:background "#111" :foreground "#777"))))
+       (tooltip ((t (:background "#333" :foreground "#777"))))
+       (underline ((t (:bold t))))
+       (variable-pitch ((t (nil))))
+       (widget-button-face ((t (:bold t :foreground "#888"))))
+       (widget-field-face ((t (:bold t :foreground "#999"))))))))
+
+(defun color-theme-clarity ()
+  "White on black color theme by Richard Wellum, created 2003-01-16."
+  (interactive)
+  (color-theme-install
+   '(color-theme-clarity
+     ((background-color . "black")
+      (background-mode . dark)
+      (border-color . "white")
+      (cursor-color . "yellow")
+      (foreground-color . "white")
+      (mouse-color . "white"))
+     ((CUA-mode-global-mark-cursor-color . "cyan")
+      (CUA-mode-normal-cursor-color . "yellow")
+      (CUA-mode-overwrite-cursor-color . "red")
+      (CUA-mode-read-only-cursor-color . "green")
+      (help-highlight-face . underline)
+      (ibuffer-dired-buffer-face . font-lock-function-name-face)
+      (ibuffer-help-buffer-face . font-lock-comment-face)
+      (ibuffer-hidden-buffer-face . font-lock-warning-face)
+      (ibuffer-occur-match-face . font-lock-warning-face)
+      (ibuffer-read-only-buffer-face . font-lock-type-face)
+      (ibuffer-special-buffer-face . font-lock-keyword-face)
+      (ibuffer-title-face . font-lock-type-face)
+      (list-matching-lines-face . bold)
+      (ps-line-number-color . "black")
+      (ps-zebra-color . 0.95)
+      (tags-tag-face . default)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (nil))))
+     (CUA-global-mark-face ((t (:background "cyan" :foreground "black"))))
+     (CUA-rectangle-face ((t (:background "maroon" :foreground "white"))))
+     (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white"))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "white"))))
+     (clearcase-dired-checkedout-face ((t (:foreground "red"))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "cyan"))))
+     (cursor ((t (:background "yellow"))))
+     (fixed-pitch ((t (:family "courier"))))
+     (flash-paren-face-off ((t (nil))))
+     (flash-paren-face-on ((t (nil))))
+     (flash-paren-face-region ((t (nil))))
+     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+     (font-lock-comment-face ((t (:foreground "OrangeRed"))))
+     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (font-lock-doc-face ((t (:foreground "LightSalmon"))))
+     (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
+     (font-lock-keyword-face ((t (:foreground "Cyan"))))
+     (font-lock-string-face ((t (:foreground "LightSalmon"))))
+     (font-lock-type-face ((t (:foreground "PaleGreen"))))
+     (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
+     (fringe ((t (:background "grey10"))))
+     (header-line ((t (:box (:line-width -1 :style released-button) :foreground "grey20" :background "grey90" :box nil))))
+     (highlight ((t (:background "darkolivegreen"))))
+     (ibuffer-deletion-face ((t (:foreground "red"))))
+     (ibuffer-marked-face ((t (:foreground "green"))))
+     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+     (italic ((t (:italic t :slant italic))))
+     (menu ((t (nil))))
+     (mode-line ((t (:foreground "yellow" :background "darkslateblue" :box (:line-width -1 :style released-button)))))
+     (mouse ((t (:background "white"))))
+     (region ((t (:background "blue"))))
+     (scroll-bar ((t (nil))))
+     (secondary-selection ((t (:background "darkslateblue"))))
+     (show-block-face1 ((t (:background "gray10"))))
+     (show-block-face2 ((t (:background "gray15"))))
+     (show-block-face3 ((t (:background "gray20"))))
+     (show-block-face4 ((t (:background "gray25"))))
+     (show-block-face5 ((t (:background "gray30"))))
+     (show-block-face6 ((t (:background "gray35"))))
+     (show-block-face7 ((t (:background "gray40"))))
+     (show-block-face8 ((t (:background "gray45"))))
+     (show-block-face9 ((t (:background "gray50"))))
+     (show-paren-match-face ((t (:background "turquoise"))))
+     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-field-face ((t (:background "dim gray"))))
+     (widget-inactive-face ((t (:foreground "light gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray")))))))
+
+(defun color-theme-andreas ()
+  "Color theme by Andreas Busch, created 2003-02-06."
+  (interactive)
+  (color-theme-install
+   '(color-theme-andreas
+     ((background-mode . light)
+      (background-color . "white")
+      (background-toolbar-color . "#cccccccccccc")
+      (border-color . "#000000000000")
+      (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a")
+      (foreground-color . "black")
+      (top-toolbar-shadow-color . "#f5f5f5f5f5f5"))
+     ((gnus-mouse-face . highlight)
+      (ispell-highlight-face . highlight))
+     (default ((t (nil))))
+     (OrangeRed ((t (nil))))
+     (blue ((t (:foreground "blue"))))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (:italic t :bold t))))
+     (border-glyph ((t (nil))))
+     (calendar-today-face ((t (:underline t))))
+     (color-mode-face-@ ((t (:foreground "orange"))))
+     (color-mode-face-a ((t (:foreground "blue"))))
+     (color-mode-face-b ((t (:foreground "red"))))
+     (color-mode-face-c ((t (:foreground "green3"))))
+     (color-mode-face-d ((t (:background "red" :foreground "white"))))
+     (color-mode-face-e ((t (:background "orange" :foreground "blue"))))
+     (color-mode-face-f ((t (:background "blue" :foreground "yellow"))))
+     (color-mode-face-g ((t (:background "lightblue" :foreground "brown"))))
+     (color-mode-face-h ((t (:background "brown" :foreground "white"))))
+     (custom-button-face ((t (:bold t))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face ((t (:underline t :foreground "blue"))))
+     (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "dark green"))))
+     (custom-variable-button-face ((t (:underline t :bold t :background "gray90"))))
+     (custom-variable-tag-face ((t (:underline t :background "gray95" :foreground "blue"))))
+     (diary-face ((t (:foreground "red"))))
+     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
+     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
+     (display-time-time-balloon-face ((t (:foreground "red"))))
+     (emacs-wiki-bad-link-face ((t (:bold t :foreground "red"))))
+     (emacs-wiki-link-face ((t (:bold t :foreground "green"))))
+     (font-lock-comment-face ((t (:foreground "orange1"))))
+     (font-lock-doc-string-face ((t (:foreground "green4"))))
+     (font-lock-function-name-face ((t (:foreground "blue3"))))
+     (font-lock-keyword-face ((t (:foreground "red1"))))
+     (font-lock-preprocessor-face ((t (:foreground "blue3"))))
+     (font-lock-reference-face ((t (:foreground "red3"))))
+     (font-lock-string-face ((t (:foreground "green4"))))
+     (font-lock-type-face ((t (:foreground "#6920ac"))))
+     (font-lock-variable-name-face ((t (:foreground "blue3"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Red"))))
+     (gnu-cite-face-3 ((t (nil))))
+     (gnu-cite-face-4 ((t (nil))))
+     (gnus-cite-attribution-face ((t (:underline t))))
+     (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
+     (gnus-cite-face-10 ((t (:foreground "medium purple"))))
+     (gnus-cite-face-11 ((t (:foreground "turquoise"))))
+     (gnus-cite-face-2 ((t (:foreground "firebrick"))))
+     (gnus-cite-face-3 ((t (:foreground "dark green"))))
+     (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
+     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+     (gnus-cite-face-6 ((t (:foreground "dark violet"))))
+     (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
+     (gnus-cite-face-8 ((t (:foreground "magenta"))))
+     (gnus-cite-face-9 ((t (:foreground "violet"))))
+     (gnus-emphasis-bold ((t (:bold t))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
+     (gnus-emphasis-italic ((t (:italic t))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
+     (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
+     (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
+     (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t))))
+     (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
+     (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
+     (gnus-header-from-face ((t (:bold t :foreground "red3"))))
+     (gnus-header-name-face ((t (:foreground "maroon"))))
+     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue"))))
+     (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
+     (gnus-splash-face ((t (:foreground "red"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "DarkRed"))))
+     (gnus-summary-high-unread-face ((t (:bold t))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
+     (gnus-summary-low-unread-face ((t (:italic t))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "Red"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (gnus-x-face ((t (nil))))
+     (green ((t (:foreground "green"))))
+     (gui-button-face ((t (:background "grey75"))))
+     (gui-element ((t (:background "Gray80"))))
+     (highlight ((t (nil))))
+     (holiday-face ((t (:background "pink"))))
+     (hyper-apropos-documentation ((t (:foreground "darkred"))))
+     (hyper-apropos-heading ((t (:bold t))))
+     (hyper-apropos-hyperlink ((t (:foreground "blue4"))))
+     (hyper-apropos-major-heading ((t (:bold t))))
+     (hyper-apropos-section-heading ((t (:italic t :bold t))))
+     (hyper-apropos-warning ((t (:bold t :foreground "red"))))
+     (info-node ((t (:italic t :bold t))))
+     (info-xref ((t (:bold t))))
+     (isearch ((t (:background "yellow" :foreground "red"))))
+     (italic ((t (:italic t))))
+     (kai-gnus-cite-face-1 ((t (:foreground "LightCyan4"))))
+     (kai-gnus-cite-face-2 ((t (:foreground "LightSkyBlue2"))))
+     (kai-gnus-cite-face-3 ((t (:foreground "DodgerBlue3"))))
+     (kai-gnus-group-mail-face ((t (:foreground "darkslategrey"))))
+     (kai-gnus-group-nonempty-mail-face ((t (:foreground "DarkRed"))))
+     (kai-gnus-group-starred-face ((t (:foreground "grey50"))))
+     (left-margin ((t (nil))))
+     (list-mode-item-selected ((t (:background "gray68"))))
+     (message-cited-text ((t (:italic t))))
+     (message-cited-text-face ((t (:foreground "red"))))
+     (message-header-cc-face ((t (:foreground "MidnightBlue"))))
+     (message-header-contents ((t (:italic t))))
+     (message-header-name-face ((t (:foreground "cornflower blue"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
+     (message-header-other-face ((t (:foreground "steel blue"))))
+     (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
+     (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
+     (message-header-xheader-face ((t (:foreground "blue"))))
+     (message-headers ((t (:bold t))))
+     (message-highlighted-header-contents ((t (:italic t :bold t))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (message-separator-face ((t (:foreground "brown"))))
+     (modeline ((t (:background "Gray75" :foreground "Black"))))
+     (modeline-buffer-id ((t (:background "Gray75" :foreground "blue4"))))
+     (modeline-mousable ((t (:background "Gray75" :foreground "firebrick"))))
+     (modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4"))))
+     (paren-blink-off ((t (:foreground "gray80"))))
+     (paren-match ((t (:background "red" :foreground "white"))))
+     (paren-mismatch ((t (:background "DeepPink"))))
+     (pointer ((t (:foreground "blue"))))
+     (primary-selection ((t (:background "gray65"))))
+     (red ((t (:foreground "red"))))
+     (region ((t (:background "gray75"))))
+     (right-margin ((t (nil))))
+     (secondary-selection ((t (:background "paleturquoise"))))
+     (text-cursor ((t (:background "red" :foreground "LightYellow1"))))
+     (toolbar ((t (:background "Gray80"))))
+     (underline ((t (:underline t))))
+     (vertical-divider ((t (:background "Gray80"))))
+     (widget-button-face ((t (:bold t))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (x-face ((t (:background "white"))))
+     (yellow ((t (:foreground "yellow"))))
+     (zmacs-region ((t (:background "gray65" :foreground "yellow")))))))
+
+(defun color-theme-charcoal-black ()
+  "Color theme by Lars Chr. Hausmann, created 2003-03-24."
+  (interactive)
+  (color-theme-install
+   '(color-theme-charcoal-black
+     ((background-color . "Grey15")
+      (background-mode . dark)
+      (border-color . "Grey")
+      (cursor-color . "Grey")
+      (foreground-color . "Grey")
+      (mouse-color . "Grey"))
+     ((display-time-mail-face . mode-line)
+      (gnus-article-button-face . bold)
+      (gnus-article-mouse-face . highlight)
+      (gnus-mouse-face . highlight)
+      (gnus-server-agent-face . gnus-server-agent-face)
+      (gnus-server-closed-face . gnus-server-closed-face)
+      (gnus-server-denied-face . gnus-server-denied-face)
+      (gnus-server-offline-face . gnus-server-offline-face)
+      (gnus-server-opened-face . gnus-server-opened-face)
+      (gnus-signature-face . gnus-signature-face)
+      (gnus-summary-selected-face . gnus-summary-selected-face)
+      (help-highlight-face . underline)
+      (list-matching-lines-face . bold)
+      (mime-button-face . bold)
+      (mime-button-mouse-face . highlight)
+      (sgml-set-face . t)
+      (tags-tag-face . default)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "Grey15" :foreground "Grey" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 87 :width semi-condensed :family "misc-fixed"))))
+     (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
+     (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
+     (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
+     (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
+     (bg:erc-color-face0 ((t (nil))))
+     (bg:erc-color-face1 ((t (nil))))
+     (bg:erc-color-face10 ((t (nil))))
+     (bg:erc-color-face11 ((t (nil))))
+     (bg:erc-color-face12 ((t (nil))))
+     (bg:erc-color-face13 ((t (nil))))
+     (bg:erc-color-face14 ((t (nil))))
+     (bg:erc-color-face15 ((t (nil))))
+     (bg:erc-color-face2 ((t (nil))))
+     (bg:erc-color-face3 ((t (nil))))
+     (bg:erc-color-face4 ((t (nil))))
+     (bg:erc-color-face5 ((t (nil))))
+     (bg:erc-color-face6 ((t (nil))))
+     (bg:erc-color-face7 ((t (nil))))
+     (bg:erc-color-face8 ((t (nil))))
+     (bg:erc-color-face9 ((t (nil))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:bold t :foreground "beige" :weight bold))))
+     (border ((t (:background "Grey"))))
+     (calendar-today-face ((t (:underline t))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "cyan"))))
+     (cperl-array-face ((t (:bold t :foreground "light salmon" :weight bold))))
+     (cperl-hash-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold))))
+     (cperl-nonoverridable-face ((t (:foreground "aquamarine"))))
+     (cursor ((t (:background "Grey"))))
+     (custom-button-face ((t (:foreground "gainsboro"))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "dim gray"))))
+     (custom-comment-tag-face ((t (:foreground "gray80"))))
+     (custom-documentation-face ((t (:foreground "light blue"))))
+     (custom-face-tag-face ((t (:underline t))))
+     (custom-group-tag-face ((t (:bold t :foreground "pale turquoise" :weight bold))))
+     (custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "light salmon"))))
+     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+     (custom-variable-tag-face ((t (:bold t :foreground "turquoise" :weight bold))))
+     (diary-face ((t (:foreground "red"))))
+     (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold))))
+     (dired-face-executable ((t (:foreground "green yellow"))))
+     (dired-face-flagged ((t (:foreground "tomato"))))
+     (dired-face-marked ((t (:foreground "light salmon"))))
+     (dired-face-permissions ((t (:foreground "aquamarine"))))
+     (erc-action-face ((t (nil))))
+     (erc-bold-face ((t (:bold t :weight bold))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "pale green"))))
+     (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold))))
+     (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
+     (erc-input-face ((t (:foreground "light blue"))))
+     (erc-inverse-face ((t (:background "steel blue"))))
+     (erc-notice-face ((t (:foreground "light salmon"))))
+     (erc-pal-face ((t (:foreground "pale green"))))
+     (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
+     (eshell-ls-archive-face ((t (:bold t :foreground "medium purple" :weight bold))))
+     (eshell-ls-backup-face ((t (:foreground "dim gray"))))
+     (eshell-ls-clutter-face ((t (:foreground "dim gray"))))
+     (eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue" :weight bold))))
+     (eshell-ls-executable-face ((t (:bold t :foreground "aquamarine" :weight bold))))
+     (eshell-ls-missing-face ((t (:foreground "black"))))
+     (eshell-ls-picture-face ((t (:foreground "violet"))))
+     (eshell-ls-product-face ((t (:foreground "light steel blue"))))
+     (eshell-ls-readonly-face ((t (:foreground "aquamarine"))))
+     (eshell-ls-special-face ((t (:foreground "gold"))))
+     (eshell-ls-symlink-face ((t (:foreground "white"))))
+     (eshell-ls-unreadable-face ((t (:foreground "dim gray"))))
+     (eshell-prompt-face ((t (:bold t :foreground "light sky blue" :weight bold))))
+     (excerpt ((t (:italic t :slant italic))))
+     (fg:erc-color-face0 ((t (:foreground "white"))))
+     (fg:erc-color-face1 ((t (:foreground "beige"))))
+     (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
+     (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
+     (fg:erc-color-face12 ((t (:foreground "light yellow"))))
+     (fg:erc-color-face13 ((t (:foreground "yellow"))))
+     (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
+     (fg:erc-color-face15 ((t (:foreground "lime green"))))
+     (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
+     (fg:erc-color-face3 ((t (:foreground "light cyan"))))
+     (fg:erc-color-face4 ((t (:foreground "powder blue"))))
+     (fg:erc-color-face5 ((t (:foreground "sky blue"))))
+     (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
+     (fg:erc-color-face7 ((t (:foreground "pale green"))))
+     (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
+     (fg:erc-color-face9 ((t (:foreground "khaki"))))
+     (fixed ((t (:bold t :weight bold))))
+     (fixed-pitch ((t (:family "courier"))))
+     (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
+     (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
+     (font-lock-builtin-face ((t (:foreground "aquamarine"))))
+     (font-lock-comment-face ((t (:foreground "light blue"))))
+     (font-lock-constant-face ((t (:foreground "pale green"))))
+     (font-lock-doc-face ((t (:foreground "light sky blue"))))
+     (font-lock-doc-string-face ((t (:foreground "sky blue"))))
+     (font-lock-function-name-face ((t (:bold t :foreground "aquamarine" :weight bold))))
+     (font-lock-keyword-face ((t (:bold t :foreground "pale turquoise" :weight bold))))
+     (font-lock-reference-face ((t (:foreground "pale green"))))
+     (font-lock-string-face ((t (:foreground "light sky blue"))))
+     (font-lock-type-face ((t (:bold t :foreground "sky blue" :weight bold))))
+     (font-lock-variable-name-face ((t (:bold t :foreground "turquoise" :weight bold))))
+     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
+     (fringe ((t (:background "Grey15"))))
+     (gnus-cite-face-1 ((t (:foreground "LightSalmon"))))
+     (gnus-cite-face-2 ((t (:foreground "Khaki"))))
+     (gnus-cite-face-3 ((t (:foreground "Coral"))))
+     (gnus-cite-face-4 ((t (:foreground "yellow green"))))
+     (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
+     (gnus-cite-face-6 ((t (:foreground "bisque"))))
+     (gnus-cite-face-7 ((t (:foreground "peru"))))
+     (gnus-cite-face-8 ((t (:foreground "light coral"))))
+     (gnus-cite-face-9 ((t (:foreground "plum"))))
+     (gnus-emphasis-bold ((t (:bold t :weight bold))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
+     (gnus-emphasis-italic ((t (:italic t :slant italic))))
+     (gnus-emphasis-strikethru ((t (nil))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "White"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "White" :weight bold))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "light cyan"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan" :weight bold))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue" :weight bold))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
+     (gnus-group-news-1-empty-face ((t (:foreground "White"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "White" :weight bold))))
+     (gnus-group-news-2-empty-face ((t (:foreground "light cyan"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "light cyan" :weight bold))))
+     (gnus-group-news-3-empty-face ((t (:foreground "LightBlue"))))
+     (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue" :weight bold))))
+     (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
+     (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
+     (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
+     (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
+     (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
+     (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
+     (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
+     (gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
+     (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold))))
+     (gnus-header-name-face ((t (:bold t :foreground "LightBlue" :weight bold))))
+     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold))))
+     (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
+     (gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
+     (gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic))))
+     (gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight bold))))
+     (gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold))))
+     (gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight bold))))
+     (gnus-signature-face ((t (:foreground "Grey"))))
+     (gnus-splash-face ((t (:foreground "ForestGreen"))))
+     (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon" :weight bold))))
+     (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "DimGray" :slant italic))))
+     (gnus-summary-low-read-face ((t (:foreground "slate gray"))))
+     (gnus-summary-low-ticked-face ((t (:foreground "Pink"))))
+     (gnus-summary-low-unread-face ((t (:foreground "LightGray"))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine"))))
+     (gnus-summary-normal-read-face ((t (:foreground "Aquamarine"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:underline t))))
+     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
+     (highlight ((t (:background "dark slate blue" :foreground "light blue"))))
+     (highline-face ((t (:background "DeepSkyBlue4"))))
+     (holiday-face ((t (:background "pink"))))
+     (info-header-node ((t (:bold t :weight bold))))
+     (info-header-xref ((t (:bold t :weight bold :foreground "sky blue"))))
+     (info-menu-5 ((t (:underline t))))
+     (info-menu-header ((t (:bold t :family "helv" :weight bold))))
+     (info-node ((t (:bold t :weight bold))))
+     (info-xref ((t (:bold t :foreground "sky blue" :weight bold))))
+     (isearch ((t (:background "slate blue"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+     (italic ((t (:foreground "sky blue"))))
+     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+     (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
+     (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
+     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
+     (jde-java-font-lock-code-face ((t (nil))))
+     (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
+     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
+     (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
+     (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
+     (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
+     (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
+     (jde-java-font-lock-pre-face ((t (nil))))
+     (jde-java-font-lock-underline-face ((t (:underline t))))
+     (makefile-space-face ((t (:background "hotpink"))))
+     (menu ((t (:background "MidnightBlue" :foreground "Grey"))))
+     (message-cited-text-face ((t (:foreground "LightSalmon"))))
+     (message-header-cc-face ((t (:foreground "light cyan"))))
+     (message-header-name-face ((t (:foreground "LightBlue"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold))))
+     (message-header-other-face ((t (:foreground "MediumAquamarine"))))
+     (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
+     (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold))))
+     (message-header-xheader-face ((t (:foreground "MediumAquamarine"))))
+     (message-mml-face ((t (:foreground "ForestGreen"))))
+     (message-separator-face ((t (:foreground "chocolate"))))
+     (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
+     (mouse ((t (:background "Grey"))))
+     (region ((t (:background "DarkSlateBlue"))))
+     (scroll-bar ((t (:background "grey75"))))
+     (secondary-selection ((t (:background "steel blue"))))
+     (semantic-dirty-token-face ((t (:background "gray10"))))
+     (semantic-unmatched-syntax-face ((t (:underline "red"))))
+     (show-paren-match-face ((t (:background "light slate blue" :foreground "white"))))
+     (show-paren-mismatch-face ((t (:background "red" :foreground "white"))))
+     (speedbar-button-face ((t (:foreground "seashell2"))))
+     (speedbar-directory-face ((t (:foreground "seashell3"))))
+     (speedbar-file-face ((t (:foreground "seashell4"))))
+     (speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat"))))
+     (speedbar-selected-face ((t (:foreground "seashell1" :underline t))))
+     (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray"))))
+     (speedbar-tag-face ((t (:foreground "antique white"))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "light blue"))))
+     (widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat"))))
+     (woman-bold-face ((t (:bold t :foreground "sky blue" :weight bold))))
+     (woman-italic-face ((t (:foreground "deep sky blue"))))
+     (woman-unknown-face ((t (:foreground "LightSalmon"))))
+     (zmacs-region ((t (:background "DarkSlateBlue")))))))
+
+(defun color-theme-vim-colors ()
+  "Color theme by Michael Soulier, created 2003-03-26."
+  (interactive)
+  (color-theme-install
+   '(color-theme-vim-colors
+     ((background-color . "#ffffff")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "#000000")
+      (foreground-color . "#000000")
+      (mouse-color . "#000000"))
+     ((Man-overstrike-face . bold)
+      (Man-underline-face . underline)
+      (apropos-keybinding-face . underline)
+      (apropos-label-face . italic)
+      (apropos-match-face . secondary-selection)
+      (apropos-property-face . bold-italic)
+      (apropos-symbol-face . bold)
+      (cperl-here-face . font-lock-string-face)
+      (cperl-invalid-face quote underline)
+      (cperl-pod-face . font-lock-comment-face)
+      (cperl-pod-head-face . font-lock-variable-name-face)
+      (help-highlight-face . underline)
+      (ispell-highlight-face . highlight)
+      (list-matching-lines-face . bold)
+      (rpm-spec-dir-face . rpm-spec-dir-face)
+      (rpm-spec-doc-face . rpm-spec-doc-face)
+      (rpm-spec-ghost-face . rpm-spec-ghost-face)
+      (rpm-spec-macro-face . rpm-spec-macro-face)
+      (rpm-spec-package-face . rpm-spec-package-face)
+      (rpm-spec-tag-face . rpm-spec-tag-face)
+      (tags-tag-face . default)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (:background "#ffffff" :foreground "#000000"))))
+     (Info-title-1-face ((t (nil))))
+     (Info-title-2-face ((t (nil))))
+     (Info-title-3-face ((t (nil))))
+     (Info-title-4-face ((t (:bold (bold extra-bold ultra-bold)))))
+     (bold ((t (:bold (bold extra-bold ultra-bold)))))
+     (bold-italic ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold)))))
+     (border ((t (:background "black"))))
+     (comint-highlight-input ((t (:bold (bold extra-bold ultra-bold)))))
+     (comint-highlight-prompt ((t (:foreground "dark blue"))))
+     (cperl-array-face ((t (:foreground "brown"))))
+     (cperl-hash-face ((t (:foreground "red"))))
+     (cperl-nonoverridable-face ((t (:foreground "#008b8b"))))
+     (cursor ((t (:background "#000000"))))
+     (fixed-pitch ((t (nil))))
+     (font-lock-builtin-face ((t (:foreground "purple"))))
+     (font-lock-comment-face ((t (:foreground "blue"))))
+     (font-lock-constant-face ((t (:foreground "green4"))))
+     (font-lock-doc-face ((t (:background "#f2f2f2"))))
+     (font-lock-function-name-face ((t (:foreground "#008b8b"))))
+     (font-lock-keyword-face ((t (:bold (bold extra-bold ultra-bold) :foreground "#a52a2a"))))
+     (font-lock-string-face ((t (:background "#f2f2f2" :foreground "#ff00ff"))))
+     (font-lock-type-face ((t (:foreground "ForestGreen"))))
+     (font-lock-variable-name-face ((t (:foreground "#008b8b"))))
+     (font-lock-warning-face ((t (:bold (bold extra-bold ultra-bold) :foreground "Red"))))
+     (fringe ((t (:background "#e5e5e5"))))
+     (header-line ((t (:background "grey90" :foreground "grey20"))))
+     (highlight ((t (:background "darkseagreen2"))))
+     (info-header-node ((t (nil))))
+     (info-header-xref ((t (nil))))
+     (info-menu-5 ((t (:foreground "red1"))))
+     (info-menu-header ((t (:bold (bold extra-bold ultra-bold)))))
+     (info-node ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold) :foreground "brown"))))
+     (info-xref ((t (:bold (bold extra-bold ultra-bold) :foreground "magenta4"))))
+     (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
+     (italic ((t (:italic (italic oblique)))))
+     (menu ((t (nil))))
+     (mode-line ((t (:background "grey75" :foreground "black"))))
+     (mouse ((t (:background "#000000"))))
+     (region ((t (:background "lightgoldenrod2"))))
+     (rpm-spec-dir-face ((t (:foreground "green"))))
+     (rpm-spec-doc-face ((t (:foreground "magenta"))))
+     (rpm-spec-ghost-face ((t (:foreground "red"))))
+     (rpm-spec-macro-face ((t (:foreground "purple"))))
+     (rpm-spec-package-face ((t (:foreground "red"))))
+     (rpm-spec-tag-face ((t (:foreground "blue"))))
+     (scroll-bar ((t (:background "grey75" :foreground "#000000"))))
+     (secondary-selection ((t (:background "yellow"))))
+     (sh-heredoc-face ((t (:foreground "tan"))))
+     (show-paren-match-face ((t (:background "turquoise"))))
+     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+     (tool-bar ((t (:background "grey75" :foreground "black"))))
+     (tooltip ((t (:background "lightyellow" :foreground "black"))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (nil))))
+     (widget-button-face ((t (:bold (bold extra-bold ultra-bold)))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "gray85")))))))
+
+(defun color-theme-calm-forest ()
+  "Color theme by Artur Hefczyc, created 2003-04-18."
+  (interactive)
+  (color-theme-install
+   '(color-theme-calm-forest
+     ((background-color . "gray12")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "orange")
+      (foreground-color . "green")
+      (mouse-color . "yellow"))
+     ((help-highlight-face . underline)
+      (list-matching-lines-face . bold)
+      (senator-eldoc-use-color . t)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "gray12" :foreground "green" :inverse-video nil :box nil
+:strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width
+normal :family "outline-courier new"))))
+     (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
+     (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
+     (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
+     (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (comint-highlight-input ((t (:bold t :weight bold))))
+     (comint-highlight-prompt ((t (:foreground "cyan"))))
+     (cparen-around-andor-face ((t (:bold t :foreground "maroon" :weight bold))))
+     (cparen-around-begin-face ((t (:foreground "maroon"))))
+     (cparen-around-conditional-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
+     (cparen-around-define-face ((t (:bold t :foreground "Blue" :weight bold))))
+     (cparen-around-lambda-face ((t (:foreground "LightSeaGreen"))))
+     (cparen-around-letdo-face ((t (:bold t :foreground "LightSeaGreen" :weight bold))))
+     (cparen-around-quote-face ((t (:foreground "SaddleBrown"))))
+     (cparen-around-set!-face ((t (:foreground "OrangeRed"))))
+     (cparen-around-syntax-rules-face ((t (:foreground "Magenta"))))
+     (cparen-around-vector-face ((t (:foreground "chocolate"))))
+     (cparen-binding-face ((t (:foreground "ForestGreen"))))
+     (cparen-binding-list-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
+     (cparen-conditional-clause-face ((t (:foreground "RoyalBlue"))))
+     (cparen-normal-paren-face ((t (:foreground "grey50"))))
+     (cursor ((t (:background "orange"))))
+     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style
+released-button)))))
+     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width
+2 :style pressed-button)))))
+     (custom-changed-face ((t (:background "blue" :foreground "white"))))
+     (custom-comment-face ((t (:background "dim gray"))))
+     (custom-comment-tag-face ((t (:foreground "gray80"))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
+     (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
+     (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height
+1.2))))
+     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
+     (custom-modified-face ((t (:background "blue" :foreground "white"))))
+     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
+     (custom-saved-face ((t (:underline t))))
+     (custom-set-face ((t (:background "white" :foreground "blue"))))
+     (custom-state-face ((t (:foreground "lime green"))))
+     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
+     (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold
+:height 1.2))))
+     (eieio-custom-slot-tag-face ((t (:foreground "light blue"))))
+     (extra-whitespace-face ((t (:background "pale green"))))
+     (fixed-pitch ((t (:family "courier"))))
+     (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold))))
+     (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic))))
+     (font-latex-math-face ((t (:foreground "burlywood"))))
+     (font-latex-sedate-face ((t (:foreground "LightGray"))))
+     (font-latex-string-face ((t (:foreground "RosyBrown"))))
+     (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold))))
+     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
+     (font-lock-comment-face ((t (:foreground "chocolate1"))))
+     (font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (font-lock-doc-face ((t (:foreground "LightSalmon"))))
+     (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
+     (font-lock-keyword-face ((t (:foreground "Cyan"))))
+     (font-lock-string-face ((t (:foreground "LightSalmon"))))
+     (font-lock-type-face ((t (:foreground "PaleGreen"))))
+     (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
+     (fringe ((t (:background "grey10"))))
+     (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground
+"grey90" :box nil))))
+     (highlight ((t (:background "darkolivegreen"))))
+     (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white"))))
+     (info-header-xref ((t (:bold t :weight bold :foreground "cyan"))))
+     (info-menu-5 ((t (:foreground "red1"))))
+     (info-menu-header ((t (:bold t :family "helv" :weight bold))))
+     (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold))))
+     (info-xref ((t (:bold t :foreground "cyan" :weight bold))))
+     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
+     (italic ((t (:italic t :slant italic))))
+     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
+     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
+     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
+     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
+     (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
+     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
+     (jde-java-font-lock-code-face ((t (nil))))
+     (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
+     (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
+     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
+     (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
+     (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
+     (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
+     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
+     (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
+     (jde-java-font-lock-pre-face ((t (nil))))
+     (jde-java-font-lock-underline-face ((t (:underline t))))
+     (menu ((t (nil))))
+     (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style
+released-button)))))
+     (mouse ((t (:background "yellow"))))
+     (region ((t (:background "blue3"))))
+     (scroll-bar ((t (nil))))
+     (secondary-selection ((t (:background "SkyBlue4"))))
+     (semantic-dirty-token-face ((t (:background "gray10"))))
+     (semantic-unmatched-syntax-face ((t (:underline "red"))))
+     (senator-intangible-face ((t (:foreground "gray75"))))
+     (senator-momentary-highlight-face ((t (:background "gray30"))))
+     (senator-read-only-face ((t (:background "#664444"))))
+     (show-paren-match-face ((t (:background "turquoise"))))
+     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
+     (speedbar-button-face ((t (:foreground "green3"))))
+     (speedbar-directory-face ((t (:foreground "light blue"))))
+     (speedbar-file-face ((t (:foreground "cyan"))))
+     (speedbar-highlight-face ((t (:background "sea green"))))
+     (speedbar-selected-face ((t (:foreground "red" :underline t))))
+     (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray"))))
+     (speedbar-tag-face ((t (:foreground "yellow"))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style
+released-button)))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "lime green"))))
+     (widget-field-face ((t (:background "dim gray"))))
+     (widget-inactive-face ((t (:foreground "light gray"))))
+     (widget-single-line-field-face ((t (:background "dim gray")))))))
+
+(defun color-theme-lawrence ()
+  "Color theme by lawrence mitchell <wence@gmx.li>.
+Mainly shades of green.
+Contains faces for erc, gnus, most of jde."
+  (interactive)
+  (color-theme-install
+   '(color-theme-lawrence
+     ((background-color . "black")
+      (background-mode . dark)
+      (border-color . "black")
+      (cursor-color . "green")
+      (foreground-color . "#00CC00")
+      (mouse-color . "black"))
+     ((erc-button-face . bold)
+      (erc-button-mouse-face . highlight)
+      (gnus-article-button-face . bold)
+      (gnus-article-mouse-face . highlight)
+      (gnus-cite-attribution-face . gnus-cite-attribution-face)
+      (gnus-mouse-face . highlight)
+      (gnus-server-agent-face . gnus-server-agent-face)
+      (gnus-server-closed-face . gnus-server-closed-face)
+      (gnus-server-denied-face . gnus-server-denied-face)
+      (gnus-server-offline-face . gnus-server-offline-face)
+      (gnus-server-opened-face . gnus-server-opened-face)
+      (gnus-signature-face . gnus-signature-face)
+      (gnus-summary-selected-face . gnus-summary-selected-face)
+      (gnus-treat-display-face . head)
+      (gnus-treat-display-xface . head)
+      (list-matching-lines-buffer-name-face . underline)
+      (list-matching-lines-face . bold)
+      (paren-match-face . paren-face-match)
+      (paren-mismatch-face . paren-face-mismatch)
+      (paren-no-match-face . paren-face-no-match)
+      (sgml-set-face . t)
+      (tags-tag-face . default)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (nil))))
+     (Buffer-menu-buffer-face ((t (:bold t :weight bold))))
+     (bg:erc-color-face0 ((t (:background "White"))))
+     (bg:erc-color-face1 ((t (:background "black"))))
+     (bg:erc-color-face10 ((t (:background "lightblue1"))))
+     (bg:erc-color-face11 ((t (:background "cyan"))))
+     (bg:erc-color-face12 ((t (:background "blue"))))
+     (bg:erc-color-face13 ((t (:background "deeppink"))))
+     (bg:erc-color-face14 ((t (:background "gray50"))))
+     (bg:erc-color-face15 ((t (:background "gray90"))))
+     (bg:erc-color-face2 ((t (:background "blue4"))))
+     (bg:erc-color-face3 ((t (:background "green4"))))
+     (bg:erc-color-face4 ((t (:background "red"))))
+     (bg:erc-color-face5 ((t (:background "brown"))))
+     (bg:erc-color-face6 ((t (:background "purple"))))
+     (bg:erc-color-face7 ((t (:background "orange"))))
+     (bg:erc-color-face8 ((t (:background "yellow"))))
+     (bg:erc-color-face9 ((t (:background "green"))))
+     (bold ((t (:bold t :foreground "#00CC00" :background "black"))))
+     (bold-italic ((t (:italic t :bold t :slant oblique :weight semi-bold))))
+     (border ((t (:background "black"))))
+     (button ((t (:underline t))))
+     (comint-highlight-input ((t (nil))))
+     (comint-highlight-prompt ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (cursor ((t (:background "green"))))
+     (custom-button-face ((t (:bold t :foreground "#00CC00" :background "black"))))
+     (custom-button-pressed-face ((t (nil))))
+     (custom-changed-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
+     (custom-comment-face ((t (nil))))
+     (custom-comment-tag-face ((t (nil))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (nil))))
+     (custom-group-tag-face ((t (nil))))
+     (custom-group-tag-face-1 ((t (nil))))
+     (custom-invalid-face ((t (:foreground "#00CC00" :background "black" :strike-through t))))
+     (custom-modified-face ((t (nil))))
+     (custom-rogue-face ((t (nil))))
+     (custom-saved-face ((t (nil))))
+     (custom-set-face ((t (nil))))
+     (custom-state-face ((t (nil))))
+     (custom-variable-button-face ((t (nil))))
+     (custom-variable-tag-face ((t (nil))))
+     (erc-action-face ((t (:bold t :weight semi-bold))))
+     (erc-bold-face ((t (:bold t :weight bold))))
+     (erc-current-nick-face ((t (:bold t :foreground "LightSeaGreen" :weight semi-bold))))
+     (erc-dangerous-host-face ((t (:foreground "red"))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
+     (erc-error-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00"))))
+     (erc-fool-face ((t (:foreground "dim gray"))))
+     (erc-input-face ((t (:foreground "springgreen"))))
+     (erc-inverse-face ((t (:bold t :background "Darkgreen" :foreground "Black" :weight semi-bold))))
+     (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
+     (erc-nick-default-face ((t (:bold t :weight semi-bold))))
+     (erc-nick-msg-face ((t (:bold t :foreground "springgreen" :weight semi-bold))))
+     (erc-notice-face ((t (:foreground "seagreen" :weight normal))))
+     (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold))))
+     (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight semi-bold))))
+     (erc-timestamp-face ((t (:foreground "seagreen" :weight normal))))
+     (erc-underline-face ((t (:underline t))))
+     (fg:erc-color-face0 ((t (:foreground "White"))))
+     (fg:erc-color-face1 ((t (:foreground "black"))))
+     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
+     (fg:erc-color-face11 ((t (:foreground "cyan"))))
+     (fg:erc-color-face12 ((t (:foreground "blue"))))
+     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
+     (fg:erc-color-face14 ((t (:foreground "gray50"))))
+     (fg:erc-color-face15 ((t (:foreground "gray90"))))
+     (fg:erc-color-face2 ((t (:foreground "blue4"))))
+     (fg:erc-color-face3 ((t (:foreground "green4"))))
+     (fg:erc-color-face4 ((t (:foreground "red"))))
+     (fg:erc-color-face5 ((t (:foreground "brown"))))
+     (fg:erc-color-face6 ((t (:foreground "purple"))))
+     (fg:erc-color-face7 ((t (:foreground "orange"))))
+     (fg:erc-color-face8 ((t (:foreground "yellow"))))
+     (fg:erc-color-face9 ((t (:foreground "green"))))
+     (fixed-pitch ((t (nil))))
+     (font-latex-string-face ((t (:bold t :weight semi-bold :foreground "seagreen" :background "black"))))
+     (font-latex-warning-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00"))))
+     (font-lock-builtin-face ((t (:foreground "seagreen1"))))
+     (font-lock-comment-face ((t (:background "black" :foreground "medium spring green"))))
+     (font-lock-constant-face ((t (nil))))
+     (font-lock-doc-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold))))
+     (font-lock-function-name-face ((t (:bold t :foreground "#00CC00" :background "black"))))
+     (font-lock-keyword-face ((t (:bold t :background "black" :foreground "green" :underline t :weight semi-bold))))
+     (font-lock-preprocessor-face ((t (:foreground "#00ccdd"))))
+     (font-lock-string-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold))))
+     (font-lock-type-face ((t (nil))))
+     (font-lock-variable-name-face ((t (nil))))
+     (font-lock-warning-face ((t (:bold t :foreground "#00CC00" :background "darkblue" :weight semi-bold))))
+     (fringe ((t (:foreground "#00CC00" :background "#151515"))))
+     (gnus-cite-attribution-face ((t (:italic t :foreground "#00CC00" :background "black" :slant italic))))
+     (gnus-cite-face-1 ((t (:background "black" :foreground "springgreen"))))
+     (gnus-cite-face-10 ((t (nil))))
+     (gnus-cite-face-11 ((t (nil))))
+     (gnus-cite-face-2 ((t (:background "black" :foreground "lightseagreen"))))
+     (gnus-cite-face-3 ((t (:background "black" :foreground "darkseagreen"))))
+     (gnus-cite-face-4 ((t (:background "black" :foreground "forestgreen"))))
+     (gnus-cite-face-5 ((t (:background "black" :foreground "springgreen"))))
+     (gnus-cite-face-6 ((t (:background "black" :foreground "springgreen"))))
+     (gnus-cite-face-7 ((t (:background "black" :foreground "springgreen"))))
+     (gnus-cite-face-8 ((t (:background "black" :foreground "springgreen"))))
+     (gnus-cite-face-9 ((t (:background "black" :foreground "springgreen"))))
+     (gnus-emphasis-bold ((t (:bold t :weight semi-bold))))
+     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight semi-bold))))
+     (gnus-emphasis-highlight-words ((t (:bold t :foreground "#00CC00" :background "black" :underline t :weight bold))))
+     (gnus-emphasis-italic ((t (:italic t :slant italic))))
+     (gnus-emphasis-strikethru ((t (nil))))
+     (gnus-emphasis-underline ((t (:underline t))))
+     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight semi-bold))))
+     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight semi-bold))))
+     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
+     (gnus-group-mail-1-empty-face ((t (nil))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-group-mail-2-empty-face ((t (nil))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-group-mail-3-empty-face ((t (nil))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-group-mail-low-empty-face ((t (nil))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-group-news-1-empty-face ((t (nil))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-group-news-2-empty-face ((t (nil))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-group-news-low-empty-face ((t (nil))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-header-content-face ((t (:background "black" :foreground "springgreen"))))
+     (gnus-header-from-face ((t (nil))))
+     (gnus-header-name-face ((t (nil))))
+     (gnus-header-newsgroups-face ((t (nil))))
+     (gnus-header-subject-face ((t (nil))))
+     (gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
+     (gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic))))
+     (gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight semi-bold))))
+     (gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold))))
+     (gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight semi-bold))))
+     (gnus-signature-face ((t (:background "black" :foreground "springgreen" :slant normal))))
+     (gnus-splash-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-summary-cancelled-face ((t (:foreground "#00CC00" :background "black" :strike-through t))))
+     (gnus-summary-high-ancient-face ((t (nil))))
+     (gnus-summary-high-read-face ((t (nil))))
+     (gnus-summary-high-ticked-face ((t (:background "black" :foreground "seagreen"))))
+     (gnus-summary-high-undownloaded-face ((t (:bold t :foreground "LightGray" :weight bold))))
+     (gnus-summary-high-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-summary-low-ancient-face ((t (nil))))
+     (gnus-summary-low-read-face ((t (nil))))
+     (gnus-summary-low-ticked-face ((t (nil))))
+     (gnus-summary-low-undownloaded-face ((t (:italic t :foreground "LightGray" :slant italic :weight normal))))
+     (gnus-summary-low-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
+     (gnus-summary-normal-ancient-face ((t (nil))))
+     (gnus-summary-normal-read-face ((t (nil))))
+     (gnus-summary-normal-ticked-face ((t (:bold t :foreground "#00CC00" :background "black"))))
+     (gnus-summary-normal-undownloaded-face ((t (:foreground "LightGray" :weight normal))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (:background "#101010"))))
+     (gnus-x-face ((t (:background "white" :foreground "black"))))
+     (header-line ((t (nil))))
+     (highlight ((t (:foreground "#00CC00" :background "darkgreen"))))
+     (ido-first-match-face ((t (:bold t :weight bold))))
+     (ido-indicator-face ((t (:background "red" :foreground "yellow" :width condensed))))
+     (ido-only-match-face ((t (:foreground "ForestGreen"))))
+     (ido-subdir-face ((t (:foreground "red"))))
+     (isearch ((t (:background "seagreen" :foreground "black"))))
+     (isearch-lazy-highlight-face ((t (:background "darkseagreen" :foreground "black"))))
+     (italic ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
+     (menu ((t (:bold t :background "black" :foreground "green" :box (:line-width -1 :color "#606060") :weight semi-bold))))
+     (message-cited-text-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
+     (message-header-cc-face ((t (nil))))
+     (message-header-name-face ((t (nil))))
+     (message-header-newsgroups-face ((t (:bold t :foreground "#00CC00" :background "black"))))
+     (message-header-other-face ((t (:bold t :foreground "#00CC00" :background "black"))))
+     (message-header-subject-face ((t (:bold t :foreground "#00CC00" :background "black"))))
+     (message-header-to-face ((t (:bold t :foreground "#00CC00" :background "black"))))
+     (message-header-xheader-face ((t (nil))))
+     (message-mml-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
+     (message-separator-face ((t (nil))))
+     (minibuffer-prompt ((t (:background "black" :foreground "seagreen"))))
+     (mode-line ((t (:bold t :background "#404040" :foreground "green" :box (:line-width -1 :color "#606060") :weight semi-bold))))
+     (mode-line-inactive ((t (:bold t :weight semi-bold :box (:line-width -1 :color "#606060") :foreground "green" :background "#101010"))))
+     (mouse ((t (:background "black"))))
+     (paren-face ((t (:background "black" :foreground "darkgreen"))))
+     (paren-face-match ((t (:background "black" :foreground "springgreen"))))
+     (paren-face-mismatch ((t (:foreground "#00CC00" :background "black" :strike-through t))))
+     (paren-face-no-match ((t (:background "black" :foreground "red"))))
+     (region ((t (:background "seagreen" :foreground "black"))))
+     (scroll-bar ((t (nil))))
+     (secondary-selection ((t (:background "darkseagreen" :foreground "black"))))
+     (semantic-dirty-token-face ((t (:background "gray10"))))
+     (semantic-unmatched-syntax-face ((t (:underline "red"))))
+     (sgml-end-tag-face ((t (:foreground "seagreen"))))
+     (sgml-start-tag-face ((t (:foreground "seagreen"))))
+     (tabbar-button-face ((t (:background "black" :foreground "#00cc00" :box (:line-width 2 :color "black" :style released-button)))))
+     (tabbar-default-face ((t (:background "black" :foreground "#00cc00"))))
+     (tabbar-selected-face ((t (:background "black" :foreground "springgreen" :box (:line-width 2 :color "black" :style released-button)))))
+     (tabbar-separator-face ((t (:foreground "#00cc00" :background "black"))))
+     (tabbar-unselected-face ((t (:background "black" :foreground "seagreen" :box (:line-width 2 :color "black" :style pressed-button)))))
+     (tool-bar ((t (:box (:line-width 1 :style released-button)))))
+     (tooltip ((t (nil))))
+     (trailing-whitespace ((t (:background "lightseagreen" :foreground "black"))))
+     (underline ((t (:foreground "#00CC00" :background "black" :underline t))))
+     (variable-pitch ((t (:underline nil :foreground "#00CC00" :background "black"))))
+     (widget-button-face ((t (:bold t :foreground "#00CC00" :background "black"))))
+     (widget-button-pressed-face ((t (nil))))
+     (widget-documentation-face ((t (nil))))
+     (widget-field-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
+     (widget-inactive-face ((t (nil))))
+     (widget-single-line-field-face ((t (nil)))))))
+
+(defun color-theme-matrix ()
+  "Color theme by walterh@rocketmail.com, created 2003-10-16."
+  (interactive)
+  (color-theme-install
+   '(color-theme-matrix
+     ((background-color . "black")
+      (background-mode . dark)
+      (background-toolbar-color . "bisque")
+      (border-color . "orange")
+      (bottom-toolbar-shadow-color . "#909099999999")
+      (cursor-color . "#7eff00")
+      (foreground-color . "#7eff00")
+      (mouse-color . "#7eff00")
+      (top-toolbar-shadow-color . "#ffffffffffff"))
+     ((help-highlight-face . underline)
+      (list-matching-lines-face . bold)
+      (rmail-highlight-face . font-lock-function-name-face)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "black" :foreground
+"#7eff00" :inverse-video nil :box nil :strike-through nil :overline nil
+:underline nil :slant normal :weight normal :height 90 :width normal
+:family "outline-courier new"))))
+     (Buffer-menu-buffer-face ((t (nil))))
+     (CUA-global-mark-face ((t (nil))))
+     (CUA-rectangle-face ((t (nil))))
+     (CUA-rectangle-noselect-face ((t (nil))))
+     (Info-title-1-face ((t (nil))))
+     (Info-title-2-face ((t (nil))))
+     (Info-title-3-face ((t (nil))))
+     (Info-title-4-face ((t (nil))))
+     (antlr-font-lock-keyword-face ((t (nil))))
+     (antlr-font-lock-literal-face ((t (nil))))
+     (antlr-font-lock-ruledef-face ((t (nil))))
+     (antlr-font-lock-ruleref-face ((t (nil))))
+     (antlr-font-lock-tokendef-face ((t (nil))))
+     (antlr-font-lock-tokenref-face ((t (nil))))
+     (bbdb-company ((t (nil))))
+     (bbdb-field-name ((t (nil))))
+     (bbdb-field-value ((t (nil))))
+     (bbdb-name ((t (nil))))
+     (bg:erc-color-face0 ((t (nil))))
+     (bg:erc-color-face1 ((t (nil))))
+     (bg:erc-color-face10 ((t (nil))))
+     (bg:erc-color-face11 ((t (nil))))
+     (bg:erc-color-face12 ((t (nil))))
+     (bg:erc-color-face13 ((t (nil))))
+     (bg:erc-color-face14 ((t (nil))))
+     (bg:erc-color-face15 ((t (nil))))
+     (bg:erc-color-face2 ((t (nil))))
+     (bg:erc-color-face3 ((t (nil))))
+     (bg:erc-color-face4 ((t (nil))))
+     (bg:erc-color-face5 ((t (nil))))
+     (bg:erc-color-face6 ((t (nil))))
+     (bg:erc-color-face7 ((t (nil))))
+     (bg:erc-color-face8 ((t (nil))))
+     (bg:erc-color-face9 ((t (nil))))
+     (blank-space-face ((t (nil))))
+     (blank-tab-face ((t (nil))))
+     (blue ((t (nil))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:bold t :weight bold))))
+     (border ((t (:background "orange"))))
+     (border-glyph ((t (nil))))
+     (buffers-tab ((t (nil))))
+     (button ((t (nil))))
+     (calendar-today-face ((t (nil))))
+     (change-log-acknowledgement-face ((t (nil))))
+     (change-log-conditionals-face ((t (nil))))
+     (change-log-date-face ((t (nil))))
+     (change-log-email-face ((t (nil))))
+     (change-log-file-face ((t (nil))))
+     (change-log-function-face ((t (nil))))
+     (change-log-list-face ((t (nil))))
+     (change-log-name-face ((t (nil))))
+     (clearcase-dired-checkedout-face ((t (nil))))
+     (comint-highlight-input ((t (nil))))
+     (comint-highlight-prompt ((t (nil))))
+     (cparen-around-andor-face ((t (nil))))
+     (cparen-around-begin-face ((t (nil))))
+     (cparen-around-conditional-face ((t (nil))))
+     (cparen-around-define-face ((t (nil))))
+     (cparen-around-lambda-face ((t (nil))))
+     (cparen-around-letdo-face ((t (nil))))
+     (cparen-around-quote-face ((t (nil))))
+     (cparen-around-set!-face ((t (nil))))
+     (cparen-around-syntax-rules-face ((t (nil))))
+     (cparen-around-vector-face ((t (nil))))
+     (cparen-binding-face ((t (nil))))
+     (cparen-binding-list-face ((t (nil))))
+     (cparen-conditional-clause-face ((t (nil))))
+     (cparen-normal-paren-face ((t (nil))))
+     (cperl-array-face ((t (nil))))
+     (cperl-hash-face ((t (nil))))
+     (cperl-invalid-face ((t (nil))))
+     (cperl-nonoverridable-face ((t (nil))))
+     (cursor ((t (:background "#7eff00" :foreground "black"))))
+     (custom-button-face ((t (nil))))
+     (custom-button-pressed-face ((t (nil))))
+     (custom-changed-face ((t (nil))))
+     (custom-comment-face ((t (nil))))
+     (custom-comment-tag-face ((t (nil))))
+     (custom-documentation-face ((t (nil))))
+     (custom-face-tag-face ((t (nil))))
+     (custom-group-tag-face ((t (nil))))
+     (custom-group-tag-face-1 ((t (nil))))
+     (custom-invalid-face ((t (nil))))
+     (custom-modified-face ((t (nil))))
+     (custom-rogue-face ((t (nil))))
+     (custom-saved-face ((t (nil))))
+     (custom-set-face ((t (nil))))
+     (custom-state-face ((t (nil))))
+     (custom-variable-button-face ((t (nil))))
+     (custom-variable-tag-face ((t (nil))))
+     (cvs-filename-face ((t (nil))))
+     (cvs-handled-face ((t (nil))))
+     (cvs-header-face ((t (nil))))
+     (cvs-marked-face ((t (nil))))
+     (cvs-msg-face ((t (nil))))
+     (cvs-need-action-face ((t (nil))))
+     (cvs-unknown-face ((t (nil))))
+     (cyan ((t (nil))))
+     (diary-face ((t (nil))))
+     (diff-added-face ((t (nil))))
+     (diff-changed-face ((t (nil))))
+     (diff-context-face ((t (nil))))
+     (diff-file-header-face ((t (nil))))
+     (diff-function-face ((t (nil))))
+     (diff-header-face ((t (nil))))
+     (diff-hunk-header-face ((t (nil))))
+     (diff-index-face ((t (nil))))
+     (diff-nonexistent-face ((t (nil))))
+     (diff-removed-face ((t (nil))))
+     (dired-face-boring ((t (nil))))
+     (dired-face-directory ((t (nil))))
+     (dired-face-executable ((t (nil))))
+     (dired-face-flagged ((t (nil))))
+     (dired-face-header ((t (nil))))
+     (dired-face-marked ((t (nil))))
+     (dired-face-permissions ((t (nil))))
+     (dired-face-setuid ((t (nil))))
+     (dired-face-socket ((t (nil))))
+     (dired-face-symlink ((t (nil))))
+     (display-time-mail-balloon-enhance-face ((t (nil))))
+     (display-time-mail-balloon-gnus-group-face ((t (nil))))
+     (display-time-time-balloon-face ((t (nil))))
+     (ebrowse-default-face ((t (nil))))
+     (ebrowse-file-name-face ((t (nil))))
+     (ebrowse-member-attribute-face ((t (nil))))
+     (ebrowse-member-class-face ((t (nil))))
+     (ebrowse-progress-face ((t (nil))))
+     (ebrowse-root-class-face ((t (nil))))
+     (ebrowse-tree-mark-face ((t (nil))))
+     (ecb-sources-face ((t (nil))))
+     (edb-inter-field-face ((t (nil))))
+     (edb-normal-summary-face ((t (nil))))
+     (ediff-current-diff-face-A ((t (nil))))
+     (ediff-current-diff-face-Ancestor ((t (nil))))
+     (ediff-current-diff-face-B ((t (nil))))
+     (ediff-current-diff-face-C ((t (nil))))
+     (ediff-even-diff-face-A ((t (nil))))
+     (ediff-even-diff-face-Ancestor ((t (nil))))
+     (ediff-even-diff-face-B ((t (nil))))
+     (ediff-even-diff-face-C ((t (nil))))
+     (ediff-fine-diff-face-A ((t (nil))))
+     (ediff-fine-diff-face-Ancestor ((t (nil))))
+     (ediff-fine-diff-face-B ((t (nil))))
+     (ediff-fine-diff-face-C ((t (nil))))
+     (ediff-odd-diff-face-A ((t (nil))))
+     (ediff-odd-diff-face-Ancestor ((t (nil))))
+     (ediff-odd-diff-face-B ((t (nil))))
+     (ediff-odd-diff-face-C ((t (nil))))
+     (eieio-custom-slot-tag-face ((t (nil))))
+     (emacs-wiki-bad-link-face ((t (nil))))
+     (emacs-wiki-link-face ((t (nil))))
+     (erc-action-face ((t (nil))))
+     (erc-bold-face ((t (nil))))
+     (erc-current-nick-face ((t (nil))))
+     (erc-dangerous-host-face ((t (nil))))
+     (erc-default-face ((t (nil))))
+     (erc-direct-msg-face ((t (nil))))
+     (erc-error-face ((t (nil))))
+     (erc-fool-face ((t (nil))))
+     (erc-highlight-face ((t (nil))))
+     (erc-input-face ((t (nil))))
+     (erc-inverse-face ((t (nil))))
+     (erc-keyword-face ((t (nil))))
+     (erc-nick-default-face ((t (nil))))
+     (erc-nick-msg-face ((t (nil))))
+     (erc-notice-face ((t (nil))))
+     (erc-pal-face ((t (nil))))
+     (erc-prompt-face ((t (nil))))
+     (erc-timestamp-face ((t (nil))))
+     (erc-underline-face ((t (nil))))
+     (eshell-ls-archive-face ((t (nil))))
+     (eshell-ls-backup-face ((t (nil))))
+     (eshell-ls-clutter-face ((t (nil))))
+     (eshell-ls-directory-face ((t (nil))))
+     (eshell-ls-executable-face ((t (nil))))
+     (eshell-ls-missing-face ((t (nil))))
+     (eshell-ls-picture-face ((t (nil))))
+     (eshell-ls-product-face ((t (nil))))
+     (eshell-ls-readonly-face ((t (nil))))
+     (eshell-ls-special-face ((t (nil))))
+     (eshell-ls-symlink-face ((t (nil))))
+     (eshell-ls-text-face ((t (nil))))
+     (eshell-ls-todo-face ((t (nil))))
+     (eshell-ls-unreadable-face ((t (nil))))
+     (eshell-prompt-face ((t (nil))))
+     (eshell-test-failed-face ((t (nil))))
+     (eshell-test-ok-face ((t (nil))))
+     (excerpt ((t (nil))))
+     (extra-whitespace-face ((t (nil))))
+     (ff-paths-non-existant-file-face ((t (nil))))
+     (fg:black ((t (nil))))
+     (fg:erc-color-face0 ((t (nil))))
+     (fg:erc-color-face1 ((t (nil))))
+     (fg:erc-color-face10 ((t (nil))))
+     (fg:erc-color-face11 ((t (nil))))
+     (fg:erc-color-face12 ((t (nil))))
+     (fg:erc-color-face13 ((t (nil))))
+     (fg:erc-color-face14 ((t (nil))))
+     (fg:erc-color-face15 ((t (nil))))
+     (fg:erc-color-face2 ((t (nil))))
+     (fg:erc-color-face3 ((t (nil))))
+     (fg:erc-color-face4 ((t (nil))))
+     (fg:erc-color-face5 ((t (nil))))
+     (fg:erc-color-face6 ((t (nil))))
+     (fg:erc-color-face7 ((t (nil))))
+     (fg:erc-color-face8 ((t (nil))))
+     (fg:erc-color-face9 ((t (nil))))
+     (fixed ((t (nil))))
+     (fixed-pitch ((t (nil))))
+     (fl-comment-face ((t (nil))))
+     (fl-function-name-face ((t (nil))))
+     (fl-keyword-face ((t (nil))))
+     (fl-string-face ((t (nil))))
+     (fl-type-face ((t (nil))))
+     (flash-paren-face-off ((t (nil))))
+     (flash-paren-face-on ((t (nil))))
+     (flash-paren-face-region ((t (nil))))
+     (flyspell-duplicate-face ((t (nil))))
+     (flyspell-incorrect-face ((t (nil))))
+     (font-latex-bold-face ((t (nil))))
+     (font-latex-italic-face ((t (nil))))
+     (font-latex-math-face ((t (nil))))
+     (font-latex-sedate-face ((t (nil))))
+     (font-latex-string-face ((t (nil))))
+     (font-latex-warning-face ((t (nil))))
+     (font-lock-builtin-face ((t (:foreground "pink2"))))
+     (font-lock-comment-face ((t (:italic t :background "black" :slant
+italic))))
+     (font-lock-constant-face ((t (:foreground "magenta"))))
+     (font-lock-doc-face ((t (nil))))
+     (font-lock-doc-string-face ((t (nil))))
+     (font-lock-exit-face ((t (nil))))
+     (font-lock-function-name-face ((t (:bold t :underline t :weight
+bold))))
+     (font-lock-keyword-face ((t (:foreground "yellow1"))))
+     (font-lock-other-emphasized-face ((t (nil))))
+     (font-lock-other-type-face ((t (nil))))
+     (font-lock-preprocessor-face ((t (nil))))
+     (font-lock-reference-face ((t (nil))))
+     (font-lock-special-comment-face ((t (nil))))
+     (font-lock-special-keyword-face ((t (nil))))
+     (font-lock-string-face ((t (:foreground "yellow2"))))
+     (font-lock-type-face ((t (:foreground "LightYellow1"))))
+     (font-lock-variable-name-face ((t (:foreground "light green"))))
+     (font-lock-warning-face ((t (nil))))
+     (fringe ((t (nil))))
+     (gnus-cite-attribution-face ((t (nil))))
+     (gnus-cite-face-1 ((t (nil))))
+     (gnus-cite-face-10 ((t (nil))))
+     (gnus-cite-face-11 ((t (nil))))
+     (gnus-cite-face-2 ((t (nil))))
+     (gnus-cite-face-3 ((t (nil))))
+     (gnus-cite-face-4 ((t (nil))))
+     (gnus-cite-face-5 ((t (nil))))
+     (gnus-cite-face-6 ((t (nil))))
+     (gnus-cite-face-7 ((t (nil))))
+     (gnus-cite-face-8 ((t (nil))))
+     (gnus-cite-face-9 ((t (nil))))
+     (gnus-emphasis-bold ((t (nil))))
+     (gnus-emphasis-bold-italic ((t (nil))))
+     (gnus-emphasis-highlight-words ((t (nil))))
+     (gnus-emphasis-italic ((t (nil))))
+     (gnus-emphasis-strikethru ((t (nil))))
+     (gnus-emphasis-underline ((t (nil))))
+     (gnus-emphasis-underline-bold ((t (nil))))
+     (gnus-emphasis-underline-bold-italic ((t (nil))))
+     (gnus-emphasis-underline-italic ((t (nil))))
+     (gnus-filterhist-face-1 ((t (nil))))
+     (gnus-group-mail-1-empty-face ((t (nil))))
+     (gnus-group-mail-1-face ((t (nil))))
+     (gnus-group-mail-2-empty-face ((t (nil))))
+     (gnus-group-mail-2-face ((t (nil))))
+     (gnus-group-mail-3-empty-face ((t (nil))))
+     (gnus-group-mail-3-face ((t (nil))))
+     (gnus-group-mail-low-empty-face ((t (nil))))
+     (gnus-group-mail-low-face ((t (nil))))
+     (gnus-group-news-1-empty-face ((t (nil))))
+     (gnus-group-news-1-face ((t (nil))))
+     (gnus-group-news-2-empty-face ((t (nil))))
+     (gnus-group-news-2-face ((t (nil))))
+     (gnus-group-news-3-empty-face ((t (nil))))
+     (gnus-group-news-3-face ((t (nil))))
+     (gnus-group-news-4-empty-face ((t (nil))))
+     (gnus-group-news-4-face ((t (nil))))
+     (gnus-group-news-5-empty-face ((t (nil))))
+     (gnus-group-news-5-face ((t (nil))))
+     (gnus-group-news-6-empty-face ((t (nil))))
+     (gnus-group-news-6-face ((t (nil))))
+     (gnus-group-news-low-empty-face ((t (nil))))
+     (gnus-group-news-low-face ((t (nil))))
+     (gnus-header-content-face ((t (nil))))
+     (gnus-header-from-face ((t (nil))))
+     (gnus-header-name-face ((t (nil))))
+     (gnus-header-newsgroups-face ((t (nil))))
+     (gnus-header-subject-face ((t (nil))))
+     (gnus-picon-face ((t (nil))))
+     (gnus-picon-xbm-face ((t (nil))))
+     (gnus-picons-face ((t (nil))))
+     (gnus-picons-xbm-face ((t (nil))))
+     (gnus-server-agent-face ((t (nil))))
+     (gnus-server-closed-face ((t (nil))))
+     (gnus-server-denied-face ((t (nil))))
+     (gnus-server-offline-face ((t (nil))))
+     (gnus-server-opened-face ((t (nil))))
+     (gnus-signature-face ((t (nil))))
+     (gnus-splash ((t (nil))))
+     (gnus-splash-face ((t (nil))))
+     (gnus-summary-cancelled-face ((t (nil))))
+     (gnus-summary-high-ancient-face ((t (nil))))
+     (gnus-summary-high-read-face ((t (nil))))
+     (gnus-summary-high-ticked-face ((t (nil))))
+     (gnus-summary-high-undownloaded-face ((t (nil))))
+     (gnus-summary-high-unread-face ((t (nil))))
+     (gnus-summary-low-ancient-face ((t (nil))))
+     (gnus-summary-low-read-face ((t (nil))))
+     (gnus-summary-low-ticked-face ((t (nil))))
+     (gnus-summary-low-undownloaded-face ((t (nil))))
+     (gnus-summary-low-unread-face ((t (nil))))
+     (gnus-summary-normal-ancient-face ((t (nil))))
+     (gnus-summary-normal-read-face ((t (nil))))
+     (gnus-summary-normal-ticked-face ((t (nil))))
+     (gnus-summary-normal-undownloaded-face ((t (nil))))
+     (gnus-summary-normal-unread-face ((t (nil))))
+     (gnus-summary-selected-face ((t (nil))))
+     (gnus-x-face ((t (nil))))
+     (green ((t (nil))))
+     (gui-button-face ((t (nil))))
+     (gui-element ((t (nil))))
+     (header-line ((t (nil))))
+     (hi-black-b ((t (nil))))
+     (hi-black-hb ((t (nil))))
+     (hi-blue ((t (nil))))
+     (hi-blue-b ((t (nil))))
+     (hi-green ((t (nil))))
+     (hi-green-b ((t (nil))))
+     (hi-pink ((t (nil))))
+     (hi-red-b ((t (nil))))
+     (hi-yellow ((t (nil))))
+     (highlight ((t (:background "#7eff00" :foreground "black"))))
+     (highlight-changes-delete-face ((t (nil))))
+     (highlight-changes-face ((t (nil))))
+     (highline-face ((t (nil))))
+     (holiday-face ((t (nil))))
+     (html-helper-bold-face ((t (nil))))
+     (html-helper-bold-italic-face ((t (nil))))
+     (html-helper-builtin-face ((t (nil))))
+     (html-helper-italic-face ((t (nil))))
+     (html-helper-underline-face ((t (nil))))
+     (html-tag-face ((t (nil))))
+     (hyper-apropos-documentation ((t (nil))))
+     (hyper-apropos-heading ((t (nil))))
+     (hyper-apropos-hyperlink ((t (nil))))
+     (hyper-apropos-major-heading ((t (nil))))
+     (hyper-apropos-section-heading ((t (nil))))
+     (hyper-apropos-warning ((t (nil))))
+     (ibuffer-deletion-face ((t (nil))))
+     (ibuffer-marked-face ((t (nil))))
+     (idlwave-help-link-face ((t (nil))))
+     (idlwave-shell-bp-face ((t (nil))))
+     (ido-first-match-face ((t (nil))))
+     (ido-indicator-face ((t (nil))))
+     (ido-only-match-face ((t (nil))))
+     (ido-subdir-face ((t (nil))))
+     (info-header-node ((t (nil))))
+     (info-header-xref ((t (nil))))
+     (info-menu-5 ((t (nil))))
+     (info-menu-6 ((t (nil))))
+     (info-menu-header ((t (nil))))
+     (info-node ((t (nil))))
+     (info-xref ((t (nil))))
+     (isearch ((t (nil))))
+     (isearch-lazy-highlight-face ((t (nil))))
+     (isearch-secondary ((t (nil))))
+     (italic ((t (:underline t))))
+     (jde-bug-breakpoint-cursor ((t (nil))))
+     (jde-bug-breakpoint-marker ((t (nil))))
+     (jde-db-active-breakpoint-face ((t (nil))))
+     (jde-db-requested-breakpoint-face ((t (nil))))
+     (jde-db-spec-breakpoint-face ((t (nil))))
+     (jde-java-font-lock-api-face ((t (nil))))
+     (jde-java-font-lock-bold-face ((t (nil))))
+     (jde-java-font-lock-code-face ((t (nil))))
+     (jde-java-font-lock-constant-face ((t (nil))))
+     (jde-java-font-lock-doc-tag-face ((t (nil))))
+     (jde-java-font-lock-italic-face ((t (nil))))
+     (jde-java-font-lock-link-face ((t (nil))))
+     (jde-java-font-lock-modifier-face ((t (nil))))
+     (jde-java-font-lock-number-face ((t (nil))))
+     (jde-java-font-lock-operator-face ((t (nil))))
+     (jde-java-font-lock-package-face ((t (nil))))
+     (jde-java-font-lock-pre-face ((t (nil))))
+     (jde-java-font-lock-underline-face ((t (nil))))
+     (lazy-highlight-face ((t (nil))))
+     (left-margin ((t (nil))))
+     (linemenu-face ((t (nil))))
+     (list-mode-item-selected ((t (nil))))
+     (log-view-file-face ((t (nil))))
+     (log-view-message-face ((t (nil))))
+     (magenta ((t (nil))))
+     (makefile-space-face ((t (nil))))
+     (man-bold ((t (nil))))
+     (man-heading ((t (nil))))
+     (man-italic ((t (nil))))
+     (man-xref ((t (nil))))
+     (menu ((t (nil))))
+     (message-cited-text ((t (nil))))
+     (message-cited-text-face ((t (nil))))
+     (message-header-cc-face ((t (nil))))
+     (message-header-contents ((t (nil))))
+     (message-header-name-face ((t (nil))))
+     (message-header-newsgroups-face ((t (nil))))
+     (message-header-other-face ((t (nil))))
+     (message-header-subject-face ((t (nil))))
+     (message-header-to-face ((t (nil))))
+     (message-header-xheader-face ((t (nil))))
+     (message-headers ((t (nil))))
+     (message-highlighted-header-contents ((t (nil))))
+     (message-mml-face ((t (nil))))
+     (message-separator-face ((t (nil))))
+     (message-url ((t (nil))))
+     (minibuffer-prompt ((t (nil))))
+     (mmm-face ((t (nil))))
+     (mode-line ((t (:bold t :background "gray" :foreground "black"
+:weight bold))))
+     (mode-line-inactive ((t (nil))))
+     (modeline-buffer-id ((t (:background "orange" :foreground
+"black"))))
+     (modeline-mousable ((t (:background "orange" :foreground
+"black"))))
+     (modeline-mousable-minor-mode ((t (:background "orange"
+:foreground "black"))))
+     (mouse ((t (nil))))
+     (mpg123-face-cur ((t (nil))))
+     (mpg123-face-slider ((t (nil))))
+     (my-tab-face ((t (nil))))
+     (nil ((t (nil))))
+     (overlay-empty-face ((t (nil))))
+     (p4-diff-del-face ((t (nil))))
+     (paren-blink-off ((t (nil))))
+     (paren-face ((t (nil))))
+     (paren-face-match ((t (nil))))
+     (paren-face-mismatch ((t (nil))))
+     (paren-face-no-match ((t (nil))))
+     (paren-match ((t (nil))))
+     (paren-mismatch ((t (nil))))
+     (paren-mismatch-face ((t (nil))))
+     (paren-no-match-face ((t (nil))))
+     (pointer ((t (nil))))
+     (primary-selection ((t (nil))))
+     (reb-match-0 ((t (nil))))
+     (reb-match-1 ((t (nil))))
+     (reb-match-2 ((t (nil))))
+     (reb-match-3 ((t (nil))))
+     (red ((t (nil))))
+     (region ((t (:background "#7eff00" :foreground "black"))))
+     (right-margin ((t (nil))))
+     (rpm-spec-dir-face ((t (nil))))
+     (rpm-spec-doc-face ((t (nil))))
+     (rpm-spec-ghost-face ((t (nil))))
+     (rpm-spec-macro-face ((t (nil))))
+     (rpm-spec-package-face ((t (nil))))
+     (rpm-spec-tag-face ((t (nil))))
+     (rpm-spec-var-face ((t (nil))))
+     (scroll-bar ((t (nil))))
+     (secondary-selection ((t (:background "orange" :foreground
+"black"))))
+     (semantic-dirty-token-face ((t (nil))))
+     (semantic-intangible-face ((t (nil))))
+     (semantic-read-only-face ((t (nil))))
+     (semantic-unmatched-syntax-face ((t (nil))))
+     (senator-intangible-face ((t (nil))))
+     (senator-momentary-highlight-face ((t (nil))))
+     (senator-read-only-face ((t (nil))))
+     (sgml-comment-face ((t (nil))))
+     (sgml-doctype-face ((t (nil))))
+     (sgml-end-tag-face ((t (nil))))
+     (sgml-entity-face ((t (nil))))
+     (sgml-ignored-face ((t (nil))))
+     (sgml-ms-end-face ((t (nil))))
+     (sgml-ms-start-face ((t (nil))))
+     (sgml-pi-face ((t (nil))))
+     (sgml-sgml-face ((t (nil))))
+     (sgml-short-ref-face ((t (nil))))
+     (sgml-shortref-face ((t (nil))))
+     (sgml-start-tag-face ((t (nil))))
+     (sh-heredoc-face ((t (nil))))
+     (shell-option-face ((t (nil))))
+     (shell-output-2-face ((t (nil))))
+     (shell-output-3-face ((t (nil))))
+     (shell-output-face ((t (nil))))
+     (shell-prompt-face ((t (nil))))
+     (show-block-face1 ((t (nil))))
+     (show-block-face2 ((t (nil))))
+     (show-block-face3 ((t (nil))))
+     (show-block-face4 ((t (nil))))
+     (show-block-face5 ((t (nil))))
+     (show-block-face6 ((t (nil))))
+     (show-block-face7 ((t (nil))))
+     (show-block-face8 ((t (nil))))
+     (show-block-face9 ((t (nil))))
+     (show-paren-match-face ((t (:background "orange" :foreground
+"black"))))
+     (show-paren-mismatch-face ((t (:underline t))))
+     (show-tabs-space-face ((t (nil))))
+     (show-tabs-tab-face ((t (nil))))
+     (smerge-base-face ((t (nil))))
+     (smerge-markers-face ((t (nil))))
+     (smerge-mine-face ((t (nil))))
+     (smerge-other-face ((t (nil))))
+     (speedbar-button-face ((t (nil))))
+     (speedbar-directory-face ((t (nil))))
+     (speedbar-file-face ((t (nil))))
+     (speedbar-highlight-face ((t (nil))))
+     (speedbar-selected-face ((t (nil))))
+     (speedbar-separator-face ((t (nil))))
+     (speedbar-tag-face ((t (nil))))
+     (strokes-char-face ((t (nil))))
+     (swbuff-current-buffer-face ((t (nil))))
+     (tabbar-button-face ((t (nil))))
+     (tabbar-default-face ((t (nil))))
+     (tabbar-selected-face ((t (nil))))
+     (tabbar-separator-face ((t (nil))))
+     (tabbar-unselected-face ((t (nil))))
+     (template-message-face ((t (nil))))
+     (term-black ((t (nil))))
+     (term-blackbg ((t (nil))))
+     (term-blue ((t (nil))))
+     (term-blue-bold-face ((t (nil))))
+     (term-blue-face ((t (nil))))
+     (term-blue-inv-face ((t (nil))))
+     (term-blue-ul-face ((t (nil))))
+     (term-bluebg ((t (nil))))
+     (term-bold ((t (nil))))
+     (term-cyan ((t (nil))))
+     (term-cyan-bold-face ((t (nil))))
+     (term-cyan-face ((t (nil))))
+     (term-cyan-inv-face ((t (nil))))
+     (term-cyan-ul-face ((t (nil))))
+     (term-cyanbg ((t (nil))))
+     (term-default ((t (nil))))
+     (term-default-bg ((t (nil))))
+     (term-default-bg-inv ((t (nil))))
+     (term-default-bold-face ((t (nil))))
+     (term-default-face ((t (nil))))
+     (term-default-fg ((t (nil))))
+     (term-default-fg-inv ((t (nil))))
+     (term-default-inv-face ((t (nil))))
+     (term-default-ul-face ((t (nil))))
+     (term-green ((t (nil))))
+     (term-green-bold-face ((t (nil))))
+     (term-green-face ((t (nil))))
+     (term-green-inv-face ((t (nil))))
+     (term-green-ul-face ((t (nil))))
+     (term-greenbg ((t (nil))))
+     (term-invisible ((t (nil))))
+     (term-invisible-inv ((t (nil))))
+     (term-magenta ((t (nil))))
+     (term-magenta-bold-face ((t (nil))))
+     (term-magenta-face ((t (nil))))
+     (term-magenta-inv-face ((t (nil))))
+     (term-magenta-ul-face ((t (nil))))
+     (term-magentabg ((t (nil))))
+     (term-red ((t (nil))))
+     (term-red-bold-face ((t (nil))))
+     (term-red-face ((t (nil))))
+     (term-red-inv-face ((t (nil))))
+     (term-red-ul-face ((t (nil))))
+     (term-redbg ((t (nil))))
+     (term-underline ((t (nil))))
+     (term-white ((t (nil))))
+     (term-white-bold-face ((t (nil))))
+     (term-white-face ((t (nil))))
+     (term-white-inv-face ((t (nil))))
+     (term-white-ul-face ((t (nil))))
+     (term-whitebg ((t (nil))))
+     (term-yellow ((t (nil))))
+     (term-yellow-bold-face ((t (nil))))
+     (term-yellow-face ((t (nil))))
+     (term-yellow-inv-face ((t (nil))))
+     (term-yellow-ul-face ((t (nil))))
+     (term-yellowbg ((t (nil))))
+     (tex-math-face ((t (nil))))
+     (texinfo-heading-face ((t (nil))))
+     (text-cursor ((t (nil))))
+     (tool-bar ((t (nil))))
+     (tooltip ((t (nil))))
+     (trailing-whitespace ((t (nil))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (nil))))
+     (vc-annotate-face-0046FF ((t (nil))))
+     (vcursor ((t (nil))))
+     (vertical-divider ((t (nil))))
+     (vhdl-font-lock-attribute-face ((t (nil))))
+     (vhdl-font-lock-directive-face ((t (nil))))
+     (vhdl-font-lock-enumvalue-face ((t (nil))))
+     (vhdl-font-lock-function-face ((t (nil))))
+     (vhdl-font-lock-generic-/constant-face ((t (nil))))
+     (vhdl-font-lock-prompt-face ((t (nil))))
+     (vhdl-font-lock-reserved-words-face ((t (nil))))
+     (vhdl-font-lock-translate-off-face ((t (nil))))
+     (vhdl-font-lock-type-face ((t (nil))))
+     (vhdl-font-lock-variable-face ((t (nil))))
+     (vhdl-speedbar-architecture-face ((t (nil))))
+     (vhdl-speedbar-architecture-selected-face ((t (nil))))
+     (vhdl-speedbar-configuration-face ((t (nil))))
+     (vhdl-speedbar-configuration-selected-face ((t (nil))))
+     (vhdl-speedbar-entity-face ((t (nil))))
+     (vhdl-speedbar-entity-selected-face ((t (nil))))
+     (vhdl-speedbar-instantiation-face ((t (nil))))
+     (vhdl-speedbar-instantiation-selected-face ((t (nil))))
+     (vhdl-speedbar-package-face ((t (nil))))
+     (vhdl-speedbar-package-selected-face ((t (nil))))
+     (vhdl-speedbar-subprogram-face ((t (nil))))
+     (viper-minibuffer-emacs-face ((t (nil))))
+     (viper-minibuffer-insert-face ((t (nil))))
+     (viper-minibuffer-vi-face ((t (nil))))
+     (viper-replace-overlay-face ((t (nil))))
+     (viper-search-face ((t (nil))))
+     (vm-xface ((t (nil))))
+     (vmpc-pre-sig-face ((t (nil))))
+     (vmpc-sig-face ((t (nil))))
+     (w3m-anchor-face ((t (nil))))
+     (w3m-arrived-anchor-face ((t (nil))))
+     (w3m-header-line-location-content-face ((t (nil))))
+     (w3m-header-line-location-title-face ((t (nil))))
+     (white ((t (nil))))
+     (widget ((t (nil))))
+     (widget-button-face ((t (nil))))
+     (widget-button-pressed-face ((t (nil))))
+     (widget-documentation-face ((t (nil))))
+     (widget-field-face ((t (nil))))
+     (widget-inactive-face ((t (nil))))
+     (widget-single-line-field-face ((t (nil))))
+     (woman-addition-face ((t (nil))))
+     (woman-bold-face ((t (nil))))
+     (woman-italic-face ((t (nil))))
+     (woman-unknown-face ((t (nil))))
+     (x-face ((t (nil))))
+     (xrdb-option-name-face ((t (nil))))
+     (xref-keyword-face ((t (nil))))
+     (xref-list-default-face ((t (nil))))
+     (xref-list-pilot-face ((t (nil))))
+     (xref-list-symbol-face ((t (nil))))
+     (yellow ((t (nil))))
+     (zmacs-region ((t (nil)))))))
+
+(defun color-theme-feng-shui ()
+  "Color theme by walterh@rocketmail.com (www.xanadb.com), created
+  2003-10-16. Evolved from color-theme-katester"
+  (interactive)
+  (color-theme-install
+   '(color-theme-feng-shui
+     ((background-color . "ivory")
+      (background-mode . light)
+      (border-color . "black")
+      (cursor-color . "slateblue")
+      (foreground-color . "black")
+      (mouse-color . "slateblue"))
+     ((help-highlight-face . underline)
+      (list-matching-lines-face . bold)
+      (view-highlight-face . highlight)
+      (widget-mouse-face . highlight))
+     (default ((t (:stipple nil :background "ivory" :foreground "black"
+:inverse-video nil :box nil :strike-through nil :overline nil
+:underline nil :slant normal :weight normal :height 90 :width normal
+:family "outline-courier new"))))
+     (bold ((t (:bold t :weight bold))))
+     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+     (border ((t (:background "black"))))
+     (cursor ((t (:background "slateblue" :foreground "black"))))
+     (fixed-pitch ((t (:family "courier"))))
+     (font-lock-builtin-face ((t (:foreground "black"))))
+     (font-lock-comment-face ((t (:italic t :background "seashell"
+:slant italic))))
+     (font-lock-constant-face ((t (:foreground "darkblue"))))
+     (font-lock-doc-face ((t (:background "lemonChiffon"))))
+     (font-lock-function-name-face ((t (:bold t :underline t :weight
+bold))))
+     (font-lock-keyword-face ((t (:foreground "blue"))))
+     (font-lock-string-face ((t (:background "lemonChiffon"))))
+     (font-lock-type-face ((t (:foreground "black"))))
+     (font-lock-variable-name-face ((t (:foreground "black"))))
+     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight
+bold))))
+     (fringe ((t (:background "grey95"))))
+     (header-line ((t (:bold t :weight bold :underline t :background
+"grey90" :foreground "grey20" :box nil))))
+     (highlight ((t (:background "mistyRose" :foreground "black"))))
+     (isearch ((t (:background "magenta4" :foreground
+"lightskyblue1"))))
+     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
+     (italic ((t (:italic t :slant italic))))
+     (menu ((t (nil))))
+     (mode-line ((t (:bold t :background "mistyRose" :foreground "navy"
+:underline t :weight bold))))
+     (mouse ((t (:background "slateblue"))))
+     (region ((t (:background "lavender" :foreground "black"))))
+     (scroll-bar ((t (nil))))
+     (secondary-selection ((t (:background "yellow"))))
+     (tool-bar ((t (:background "grey75" :foreground "black" :box
+(:line-width 1 :style released-button)))))
+     (trailing-whitespace ((t (:background "red"))))
+     (underline ((t (:underline t))))
+     (variable-pitch ((t (:family "helv"))))
+     (widget-button-face ((t (:bold t :weight bold))))
+     (widget-button-pressed-face ((t (:foreground "red"))))
+     (widget-documentation-face ((t (:foreground "dark green"))))
+     (widget-field-face ((t (:background "gray85"))))
+     (widget-inactive-face ((t (:foreground "dim gray"))))
+     (widget-single-line-field-face ((t (:background "gray85")))))))
+
+
+(defun color-theme-renegade ()
+ "Renegade BBS styled color theme. Works well in X and terminals.
+Created by Dave Benjamin <ramen@ramenfest.com> Dec 23 2005."
+ (interactive)
+ (color-theme-install
+  '(color-theme-renegade
+    ((background-color . "black")
+     (background-mode . dark)
+     (border-color . "black")
+     (cursor-color . "black")
+     (foreground-color . "cyan3")
+     (mouse-color . "white"))
+    (default ((t (nil))))
+    (bold ((t (:bold t :foreground "cyan" :weight bold))))
+    (bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold))))
+    (fixed-pitch ((t (:family "courier"))))
+    (font-lock-builtin-face ((t (:bold t :foreground "cornflower blue" :weight bold))))
+    (font-lock-comment-face ((t (:bold t :foreground "yellow" :weight bold))))
+    (font-lock-constant-face ((t (:foreground "magenta3"))))
+    (font-lock-doc-face ((t (:bold t :weight bold :foreground "red"))))
+    (font-lock-function-name-face ((t (:foreground "gray"))))
+    (font-lock-keyword-face ((t (:bold t :foreground "cyan" :weight bold))))
+    (font-lock-string-face ((t (:bold t :foreground "red" :weight bold))))
+    (font-lock-type-face ((t (:bold t :foreground "cyan" :weight bold))))
+    (font-lock-variable-name-face ((t (:foreground "cyan3"))))
+    (font-lock-warning-face ((t (:bold t :foreground "red" :weight bold))))
+    (fringe ((t (:background "gray32"))))
+    (highlight ((t (:background "blue"))))
+    (isearch ((t (:background "blue" :foreground "cyan3"))))
+    (isearch-lazy-highlight-face ((t (:background "turquoise3" :foreground "black"))))
+    (menu ((t (nil))))
+    (mode-line ((t (:bold t :background "blue3" :foreground "white" :box (:line-width -1 :style released-button) :weight bold))))
+    (mouse ((t (:background "white"))))
+    (region ((t (:bold t :background "white" :foreground "blue" :weight bold))))
+    (scroll-bar ((t (nil))))
+    (trailing-whitespace ((t (:background "red"))))
+    (underline ((t (:underline t))))
+    (variable-pitch ((t (:family "helv")))))))
+
+;;; color-theme-library.el ends here
diff --git a/.emacs.d/themes/color-theme-tangotango.el b/.emacs.d/themes/color-theme-tangotango.el
new file mode 100644
index 0000000..397523a
--- /dev/null
+++ b/.emacs.d/themes/color-theme-tangotango.el
@@ -0,0 +1,194 @@
+;;; Emacs Color theme based on the Tango Palette colors. 
+;;; First derived from color-theme-tango.el,  created by danranx@gmail.com :
+;;; http://www.emacswiki.org/emacs/color-theme-tango.el
+
+;; Copyright (C) 2010 Julien Barnier <julien@nozav.org>
+
+;; Project homepage : http://blog.nozav.org/post/2010/07/12/Updated-tangotango-emacs-color-theme
+
+;; This file is NOT part of GNU Emacs.
+
+;; This is free software; you can redistribute it and/or modify it under
+;; the terms of the GNU General Public License as published by the Free
+;; Software Foundation; either version 2, or (at your option) any later
+;; version.
+
+;; This file is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with Emacs; see the file COPYING, or type `C-h C-c'. If not,
+;; write to the Free Software Foundation at this address:
+
+;;   Free Software Foundation
+;;   51 Franklin Street, Fifth Floor
+;;   Boston, MA 02110-1301
+;;   USA
+
+;;; Code:
+
+(eval-when-compile
+  (require 'color-theme))
+
+(defun color-theme-tangotango ()
+  "A color theme based on Tango Palette colors."
+  ;; Color codes :
+  ;; - blue :       "dodger blue"
+  ;; - yellow :     "#edd400"
+  ;; - green :      "#6ac214"
+  ;; - orange/red : "tomato"
+  (interactive)
+  (color-theme-install
+   '(color-theme-tangotango
+     ((background-color . "#2e3434")
+      (background-mode . dark)
+      (border-color . "#888a85")
+      (cursor-color . "#fce94f")
+      (foreground-color . "#eeeeec")
+      (mouse-color . "#8ae234"))
+     ((help-highlight-face . underline)
+      (ibuffer-dired-buffer-face . font-lock-function-name-face)
+      (ibuffer-help-buffer-face . font-lock-comment-face)
+      (ibuffer-hidden-buffer-face . font-lock-warning-face)
+      (ibuffer-occur-match-face . font-lock-warning-face)
+      (ibuffer-read-only-buffer-face . font-lock-type-face)
+      (ibuffer-special-buffer-face . font-lock-keyword-face)
+      (ibuffer-title-face . font-lock-type-face))
+     (highlight ((t (:background "brown4" :foreground nil))))
+     (border ((t (:background "#888a85"))))
+     (fringe ((t (:background "grey10"))))
+     (mode-line ((t (:foreground "#bbbbbc" :background "#222222" :box (:line-width 1 :color nil :style released-button)))))
+     (mode-line-inactive ((t (:foreground "#bbbbbc" :background "#555753"))))
+     (mode-line-buffer-id ((t (:bold t :foreground "orange" :background nil))))
+     (region ((t (:background "dark slate blue"))))
+     (link ((t (:underline t :foreground "dodger blue"))))
+     (custom-link ((t (:inherit 'link))))
+     (match ((t (:bold t :background "#e9b96e" :foreground "#2e3436"))))
+     (tool-tips ((t (:inherit 'variable-pitch :foreground "black" :background "lightyellow"))))
+     (tooltip ((t (:inherit 'variable-pitch :foreground "black" :background "lightyellow"))))
+     (bold ((t (:bold t :underline nil :background nil))))
+     (italic ((t (:italic t :underline nil :background nil))))
+     (font-lock-builtin-face ((t (:foreground "#729fcf"))))
+     (font-lock-comment-face ((t (:foreground "#888a85"))))
+     (font-lock-constant-face ((t (:foreground "#8ae234"))))
+     (font-lock-doc-face ((t (:foreground "#888a85"))))
+     (font-lock-keyword-face ((t (:foreground "#729fcf" :bold t))))
+     (font-lock-string-face ((t (:foreground "#ad7fa8" :italic t))))
+     (font-lock-type-face ((t (:foreground "#8ae234" :bold t))))
+     (font-lock-variable-name-face ((t (:foreground "tomato"))))
+     (font-lock-warning-face ((t (:bold t :foreground "#f57900"))))
+     (font-lock-function-name-face ((t (:foreground "#edd400" :bold t))))
+     (comint-highlight-input ((t (:italic t :bold t))))
+     (comint-highlight-prompt ((t (:foreground "#8ae234"))))
+     (isearch ((t (:background "#f57900" :foreground "#2e3436"))))
+     (isearch-lazy-highlight-face ((t (:foreground "#2e3436" :background "#e9b96e"))))
+     (show-paren-match-face ((t (:foreground "#2e3436" :background "#73d216"))))
+     (show-paren-mismatch-face ((t (:background "#ad7fa8" :foreground "#2e3436"))))
+     (minibuffer-prompt ((t (:foreground "#729fcf" :bold t))))
+     (info-xref ((t (:foreground "#729fcf"))))
+     (info-xref-visited ((t (:foreground "#ad7fa8"))))
+     (diary-face ((t (:bold t :foreground "IndianRed"))))
+     (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray"))))
+     (eshell-ls-executable-face ((t (:bold t :foreground "Coral"))))
+     (eshell-ls-missing-face ((t (:bold t :foreground "black"))))
+     (eshell-ls-special-face ((t (:bold t :foreground "Gold"))))
+     (eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
+     (widget-button ((t (:bold t))))
+     (widget-mouse-face ((t (:bold t :foreground "white" :background "brown4"))))
+     (widget-field ((t (:foreground "orange" :background "gray30"))))
+     (widget-single-line-field ((t (:foreground "orange" :background "gray30"))))
+     (custom-group-tag ((t (:bold t :foreground "#edd400" :height 1.3))))
+     (custom-variable-tag ((t (:bold t :foreground "#edd400" :height 1.1))))
+     (custom-face-tag ((t (:bold t :foreground "#edd400" :height 1.1))))
+     (custom-state-face ((t (:foreground "#729fcf"))))
+     (custom-button  ((t (:box (:line-width 1 :style released-button) :background "grey50" :foreground "black"))))
+     (custom-variable-button ((t (:inherit 'custom-button))))
+     (custom-button-mouse  ((t (:inherit 'custom-button :background "grey60"))))
+     (custom-button-unraised  ((t (:background "grey50" :foreground "black"))))
+     (custom-button-mouse-unraised  ((t (:inherit 'custom-button-unraised :background "grey60"))))
+     (custom-button-pressed  ((t (:inherit 'custom-button :box (:style pressed-button)))))
+     (custom-button-mouse-pressed-unraised  ((t (:inherit 'custom-button-unraised :background "grey60"))))
+     (custom-documentation ((t (:italic t))))
+     (message-cited-text ((t (:foreground "#edd400")))) 
+     (gnus-cite-face-1 ((t (:foreground "#ad7fa8"))))
+     (gnus-cite-face-2 ((t (:foreground "sienna4"))))
+     (gnus-cite-face-3 ((t (:foreground "khaki4"))))
+     (gnus-cite-face-4 ((t (:foreground "PaleTurquoise4"))))
+     (gnus-group-mail-1-empty-face ((t (:foreground "light cyan"))))
+     (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
+     (gnus-group-mail-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
+     (gnus-group-mail-3-empty-face ((t (:foreground "#729fcf"))))
+     (gnus-group-mail-3-face ((t (:bold t :foreground "#edd400"))))
+     (gnus-group-mail-low-empty-face ((t (:foreground "dodger blue"))))
+     (gnus-group-mail-low-face ((t (:bold t :foreground "dodger blue"))))
+     (gnus-group-news-1-empty-face ((t (:foreground "light cyan"))))
+     (gnus-group-news-1-face ((t (:bold t :foreground "light cyan"))))
+     (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
+     (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
+     (gnus-group-news-3-empty-face ((t (:foreground "#729fcf"))))
+     (gnus-group-news-3-face ((t (:bold t :foreground "#edd400"))))
+     (gnus-group-news-low-empty-face ((t (:foreground "dodger blue"))))
+     (gnus-group-news-low-face ((t (:bold t :foreground "dodger blue"))))
+     (gnus-header-name-face ((t (:bold t :foreground "#729fcf"))))
+     (gnus-header-from ((t (:bold t :foreground "#edd400"))))
+     (gnus-header-subject ((t (:foreground "#edd400"))))
+     (gnus-header-content ((t (:italic t :foreground "#8ae234"))))
+     (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
+     (gnus-signature-face ((t (:italic t :foreground "dark grey"))))
+     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
+     (gnus-summary-high-ancient-face ((t (:bold t :foreground "rotal blue"))))
+     (gnus-summary-high-read-face ((t (:bold t :foreground "lime green"))))
+     (gnus-summary-high-ticked-face ((t (:bold t :foreground "tomato"))))
+     (gnus-summary-high-unread-face ((t (:bold t :foreground "white"))))
+     (gnus-summary-low-ancient-face ((t (:italic t :foreground "lime green"))))
+     (gnus-summary-low-read-face ((t (:italic t :foreground "royal blue"))))
+     (gnus-summary-low-ticked-face ((t (:italic t :foreground "dark red"))))
+     (gnus-summary-low-unread-face ((t (:italic t :foreground "white"))))
+     (gnus-summary-normal-ancient-face ((t (:foreground "royal blue"))))
+     (gnus-summary-normal-read-face ((t (:foreground "lime green"))))
+     (gnus-summary-normal-ticked-face ((t (:foreground "indian red"))))
+     (gnus-summary-normal-unread-face ((t (:foreground "white"))))
+     (gnus-summary-selected ((t (:background "brown4" :foreground "white"))))
+     (message-header-name-face ((t (:foreground "tomato"))))
+     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
+     (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
+     (message-header-xheader-face ((t (:foreground "DodgerBlue3"))))
+     (message-header-subject ((t (:foreground "white"))))
+     (message-header-to ((t (:foreground "white"))))
+     (message-header-cc ((t (:foreground "white"))))
+     (org-hide ((t (:foreground "#2e3436"))))
+     (org-level-1 ((t (:bold t :foreground "dodger blue" :height 1.5))))
+     (org-level-2 ((t (:bold nil :foreground "#edd400" :height 1.2))))
+     (org-level-3 ((t (:bold t :foreground "#6ac214" :height 1.0))))
+     (org-level-4 ((t (:bold nil :foreground "tomato" :height 1.0))))
+     (org-date ((t (:underline t :foreground "magenta3"))))
+     (org-footnote  ((t (:underline t :foreground "magenta3"))))
+     (org-link ((t (:foreground "skyblue2" :background "#2e3436"))))
+     (org-special-keyword ((t (:foreground "brown"))))
+     (org-verbatim ((t (:foreground "#eeeeec" :underline t :slant italic))))
+     (org-block ((t (:foreground "#bbbbbc"))))
+     (org-quote ((t (:inherit org-block :slant italic))))
+     (org-verse ((t (:inherit org-block :slant italic))))
+     (org-todo ((t (:bold t :foreground "Red"))))
+     (org-done ((t (:bold t :foreground "ForestGreen"))))
+     (org-agenda-structure ((t (:weight bold :foreground "tomato"))))
+     (org-agenda-date ((t (:foreground "#6ac214"))))
+     (org-agenda-date-weekend ((t (:weight normal :foreground "dodger blue"))))
+     (org-agenda-date-today ((t (:weight bold :foreground "#edd400"))))
+     (anything-header ((t (:bold t :background "grey15" :foreground "#edd400"))))
+     (ess-jb-comment-face ((t (:background "#2e3436" :foreground "firebrick" :slant italic))))
+     (ess-jb-hide-face ((t (:background "#2e3436" :foreground "#243436"))))
+     (ess-jb-h1-face ((t (:height 1.6 :foreground "dodger blue" :slant normal))))
+     (ess-jb-h2-face ((t (:height 1.4 :foreground "#6ac214" :slant normal))))
+     (ess-jb-h3-face ((t (:height 1.2 :foreground "#edd400" :slant normal))))
+     (ecb-default-highlight-face ((t (:background "#729fcf"))))
+     (ecb-tag-header-face ((t (:background "#f57900"))))
+     (magit-header ((t (:foreground "#edd400"))))
+     (magit-diff-add ((t (:foreground "#729fcf"))))
+     (magit-item-highlight ((t (:weight extra-bold :inverse-video t))))
+)))
+
+(provide 'color-theme-tangotango)
diff --git a/.emacs.d/vim-mode/.hg/00changelog.i b/.emacs.d/vim-mode/.hg/00changelog.i
new file mode 100644
index 0000000..d3a8311
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/00changelog.i differ
diff --git a/.emacs.d/vim-mode/.hg/branch b/.emacs.d/vim-mode/.hg/branch
new file mode 100644
index 0000000..4ad96d5
--- /dev/null
+++ b/.emacs.d/vim-mode/.hg/branch
@@ -0,0 +1 @@
+default
diff --git a/.emacs.d/vim-mode/.hg/branchheads.cache b/.emacs.d/vim-mode/.hg/branchheads.cache
new file mode 100644
index 0000000..27fe79a
--- /dev/null
+++ b/.emacs.d/vim-mode/.hg/branchheads.cache
@@ -0,0 +1,2 @@
+9c9e1bf0c4a2ed90304bab5e7b00bbbe23ea1fe7 286
+9c9e1bf0c4a2ed90304bab5e7b00bbbe23ea1fe7 default
diff --git a/.emacs.d/vim-mode/.hg/dirstate b/.emacs.d/vim-mode/.hg/dirstate
new file mode 100644
index 0000000..710e6c9
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/dirstate differ
diff --git a/.emacs.d/vim-mode/.hg/hgrc b/.emacs.d/vim-mode/.hg/hgrc
new file mode 100644
index 0000000..61b4f29
--- /dev/null
+++ b/.emacs.d/vim-mode/.hg/hgrc
@@ -0,0 +1,2 @@
+[paths]
+default = http://bitbucket.org/lyro/vim-mode
diff --git a/.emacs.d/vim-mode/.hg/requires b/.emacs.d/vim-mode/.hg/requires
new file mode 100644
index 0000000..5175383
--- /dev/null
+++ b/.emacs.d/vim-mode/.hg/requires
@@ -0,0 +1,3 @@
+revlogv1
+store
+fncache
diff --git a/.emacs.d/vim-mode/.hg/store/00changelog.i b/.emacs.d/vim-mode/.hg/store/00changelog.i
new file mode 100644
index 0000000..3b5ed9d
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/00changelog.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/00manifest.i b/.emacs.d/vim-mode/.hg/store/00manifest.i
new file mode 100644
index 0000000..08c4bb1
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/00manifest.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/.hgignore.i b/.emacs.d/vim-mode/.hg/store/data/.hgignore.i
new file mode 100644
index 0000000..ad3c2f5
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/.hgignore.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/.hgtags.i b/.emacs.d/vim-mode/.hg/store/data/.hgtags.i
new file mode 100644
index 0000000..383e613
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/.hgtags.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-combat.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-combat.el.i
new file mode 100644
index 0000000..649d1c3
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-combat.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-commands.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-commands.el.i
new file mode 100644
index 0000000..03fae9e
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-commands.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-compat.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-compat.el.i
new file mode 100644
index 0000000..13de636
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-compat.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-ex-commands.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-ex-commands.el.i
new file mode 100644
index 0000000..5faa9cd
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-ex-commands.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-ex.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-ex.el.i
new file mode 100644
index 0000000..3bb5d7a
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-ex.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-insert-mode.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-insert-mode.el.i
new file mode 100644
index 0000000..18b801f
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-insert-mode.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-keymap.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-keymap.el.i
new file mode 100644
index 0000000..f8c7783
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-keymap.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-keys.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-keys.el.i
new file mode 100644
index 0000000..defc933
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-keys.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-maps.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-maps.el.i
new file mode 100644
index 0000000..52998bf
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-maps.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-modes.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-modes.el.i
new file mode 100644
index 0000000..162c47c
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-modes.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-motions.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-motions.el.i
new file mode 100644
index 0000000..1582c05
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-motions.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-node.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-node.el.i
new file mode 100644
index 0000000..0113d7d
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-node.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-normal-mode.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-normal-mode.el.i
new file mode 100644
index 0000000..d0dcc14
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-normal-mode.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-scroll.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-scroll.el.i
new file mode 100644
index 0000000..d51f480
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-scroll.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-search.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-search.el.i
new file mode 100644
index 0000000..f687048
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-search.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-undo.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-undo.el.i
new file mode 100644
index 0000000..9abe5bc
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-undo.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-vim.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-vim.el.i
new file mode 100644
index 0000000..4c117f0
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-vim.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-visual-mode.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-visual-mode.el.i
new file mode 100644
index 0000000..70ee6c5
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-visual-mode.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim-window.el.i b/.emacs.d/vim-mode/.hg/store/data/vim-window.el.i
new file mode 100644
index 0000000..b1cab1b
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim-window.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/data/vim.el.i b/.emacs.d/vim-mode/.hg/store/data/vim.el.i
new file mode 100644
index 0000000..8b562eb
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/data/vim.el.i differ
diff --git a/.emacs.d/vim-mode/.hg/store/fncache b/.emacs.d/vim-mode/.hg/store/fncache
new file mode 100644
index 0000000..bd47318
--- /dev/null
+++ b/.emacs.d/vim-mode/.hg/store/fncache
@@ -0,0 +1,22 @@
+data/.hgignore.i
+data/.hgtags.i
+data/vim-combat.el.i
+data/vim-commands.el.i
+data/vim-compat.el.i
+data/vim-ex-commands.el.i
+data/vim-ex.el.i
+data/vim-insert-mode.el.i
+data/vim-keymap.el.i
+data/vim-keys.el.i
+data/vim-maps.el.i
+data/vim-modes.el.i
+data/vim-motions.el.i
+data/vim-node.el.i
+data/vim-normal-mode.el.i
+data/vim-scroll.el.i
+data/vim-search.el.i
+data/vim-undo.el.i
+data/vim-vim.el.i
+data/vim-visual-mode.el.i
+data/vim-window.el.i
+data/vim.el.i
diff --git a/.emacs.d/vim-mode/.hg/store/undo b/.emacs.d/vim-mode/.hg/store/undo
new file mode 100644
index 0000000..616265c
Binary files /dev/null and b/.emacs.d/vim-mode/.hg/store/undo differ
diff --git a/.emacs.d/vim-mode/.hg/tags.cache b/.emacs.d/vim-mode/.hg/tags.cache
new file mode 100644
index 0000000..bf3b513
--- /dev/null
+++ b/.emacs.d/vim-mode/.hg/tags.cache
@@ -0,0 +1,5 @@
+286 9c9e1bf0c4a2ed90304bab5e7b00bbbe23ea1fe7 e20b66a15626ce3c3dedc3de035c0d65915f1159
+
+1f59539819aa706d915e97ecdf7a513d1e5e664e v0.1
+9c22feb593237c76560cfc1b817c2ece500e6ac9 v0.2
+15dff001f097be2ffc0b717edb7fd019a36e407a v0.3
diff --git a/.emacs.d/vim-mode/.hg/undo.branch b/.emacs.d/vim-mode/.hg/undo.branch
new file mode 100644
index 0000000..331d858
--- /dev/null
+++ b/.emacs.d/vim-mode/.hg/undo.branch
@@ -0,0 +1 @@
+default
\ No newline at end of file
diff --git a/.emacs.d/vim-mode/.hg/undo.dirstate b/.emacs.d/vim-mode/.hg/undo.dirstate
new file mode 100644
index 0000000..e69de29
diff --git a/.emacs.d/vim-mode/.hgignore b/.emacs.d/vim-mode/.hgignore
new file mode 100644
index 0000000..5c89838
--- /dev/null
+++ b/.emacs.d/vim-mode/.hgignore
@@ -0,0 +1,2 @@
+~$
+\.elc$
diff --git a/.emacs.d/vim-mode/.hgtags b/.emacs.d/vim-mode/.hgtags
new file mode 100644
index 0000000..91256e8
--- /dev/null
+++ b/.emacs.d/vim-mode/.hgtags
@@ -0,0 +1,3 @@
+1f59539819aa706d915e97ecdf7a513d1e5e664e v0.1
+9c22feb593237c76560cfc1b817c2ece500e6ac9 v0.2
+15dff001f097be2ffc0b717edb7fd019a36e407a v0.3
diff --git a/.emacs.d/vim-mode/vim-commands.el b/.emacs.d/vim-mode/vim-commands.el
new file mode 100644
index 0000000..2293458
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-commands.el
@@ -0,0 +1,698 @@
+;;; vim-commands.el - Implementation of VIM commands.
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+
+;; In general there are two types of commands: those operating on a
+;; motion and those not taking a motion. Examples of the first one are
+;; the vim-commands c, d, y, =, examples of the second one are dd, D,
+;; p, x.
+;;
+;; Commands are defined using the `vim:defcmd' macro and have the
+;; following form:
+;;
+;;   (vim:defcmd name (count 
+;;                     motion[:optional]
+;;                     argument[:{char,file,buffer}] 
+;;                     [nonrepeatable]
+;;                     [keep-visual])
+;;      body ...)
+;;
+;; Each of the arguments is optional. The names of the arguments must
+;; be exactly as in the definition above (but see 'Argument-renaming'
+;; below).
+;;
+;; The COUNT argument (if given) takes the count of the command which
+;; is usually the number how often the command should be repeated.
+;; This argument may be nil if no count is given. If the command takes
+;; a MOTION argument, no COUNT argument is allowed (will always be
+;; nil).
+;;
+;; The MOTION argument defines the range where the command should work
+;; on. It's always of type `vim:motion'. Usually, a command should
+;; respect the of the motion, i.e. charwise, linewise or block, but
+;; there are commands that behave indepently of the motion type (e.g.
+;; `vim:cmd-shift-left' always works linewise). If the MOTION
+;; parameter has the form motion:optional, the MOTION parameter may be
+;; nil, which can only happen if the command is bound in ex-mode (e.g.
+;; the command `vim:cmd-substitute' is bound to :s may be called
+;; without a motion, in which case it works only on the current line).
+;; If the command is bound in normal-mode, the MOTION argument will
+;; usually be created by some motion-command bound in
+;; operator-pending-mode.
+;;
+;; The ARGUMENT argument is an aditional text-argument to be given and
+;; may be nil, too. If it is specified as ARGUMENT:CHAR, the argument
+;; is a one-character argument (see `vim:cmd-replace-char' usually
+;; bound to 'r' for an example). If it specified as ARGUMENT:FILE it
+;; takes a file-name as argument, ARGUMENT:BUFFER takes a buffer-name
+;; as argument and a single ARGUMENT takes a string as argument. Only
+;; the type ARGUMENT:CHAR has an effect in normal-mode, the others are
+;; only important if bound in ex-mode. In this case the type of the
+;; argument determines how minibuffer-completion is done. The argument
+;; may be nil in which case the command should have a default
+;; behaviour (e.g. the command `vim:cmd-write' bound to :write takes
+;; an ARGUMENT:FILE argument and saves the current buffer to the given
+;; file or to the buffer's own file if ARGUMENT is nil).
+;;
+;; The pseudo-argument NONREPEATABLE means, the command will not be
+;; recorded to the repeat command (usually bound to '.'). This is
+;; useful for non-editing commands, e.g. all window and scrolling
+;; commands have this behaviour.
+;;
+;; The pseudo-argument KEEP-VISUAL means the command should not exit
+;; visual-mode and go back to normal-mode when called in visual-mode.
+;; This is useful for scrolling-commands which stay in visual-mode but
+;; are no regular motions (scrolling commands move the (point) but are
+;; no real motions since they can't in operating-pending mode), or
+;; some visual-mode specific command like
+;; `vim:visual-exchange-point-and-mark', usually bound to 'o').
+;; 
+;; If you do not like the default argument names, they may be renamed
+;; by using (ARG NEWNAME) instead of ARG, e.g.
+;;
+;;   (vim:defcmd vim:cmd-replace-char (count (argument:char arg))
+;;
+;; defines a simple command with a COUNT argument but renames the
+;; character-argument to ARG.
+;;
+;; Each command should place (point) at the correct position after the
+;; operation.
+;;
+
+;;; Code:
+
+(defcustom vim:shift-width 8
+  "The number of columns for shifting commands like < or >."
+  :type 'integer
+  :group 'vim-mode)
+
+(vim:defcmd vim:cmd-insert (count)
+  "Switches to insert-mode before point."
+  (vim:activate-insert-mode))
+
+(vim:defcmd vim:cmd-append (count)
+  "Switches to insert-mode after point."
+  (unless (eolp) (forward-char))
+  (vim:activate-insert-mode))
+
+(vim:defcmd vim:cmd-Insert (count)
+  "Moves the cursor to the beginning of the current line
+and switches to insert-mode."
+  (vim:motion-first-non-blank)
+  (vim:cmd-insert :count count))
+
+(vim:defcmd vim:cmd-Append (count)
+  "Moves the cursor to the end of the current line
+and switches to insert-mode."
+  (end-of-line)
+  (vim:cmd-append :count count))
+
+(vim:defcmd vim:cmd-insert-line-above (count)
+  "Inserts a new line above the current one and goes to insert mode."
+  (vim:motion-beginning-of-line)
+  (newline)
+  (forward-line -1)
+  (indent-according-to-mode)
+  (vim:cmd-Insert))
+
+(vim:defcmd vim:cmd-insert-line-below (count)
+  "Inserts a new line below the current one and goes to insert mode."
+  (vim:motion-end-of-line)
+  (newline)
+  (indent-according-to-mode)
+  (vim:cmd-insert))
+
+(vim:defcmd vim:cmd-replace (count)
+  "Goes to replace-mode."
+  (vim:activate-insert-mode)
+  (vim:insert-mode-toggle-replace))
+
+(vim:defcmd vim:insert-mode-exit (nonrepeatable)
+  "Deactivates insert-mode, returning to normal-mode."
+  (vim:activate-normal-mode)
+  (goto-char (max (line-beginning-position) (1- (point)))))
+
+
+(vim:defcmd vim:cmd-delete-line (count register)
+  "Deletes the next count lines."
+  (vim:cmd-yank-line :count count :register register)
+  (let ((beg (line-beginning-position))
+        (end (save-excursion
+               (forward-line (1- (or count 1)))
+               (line-end-position))))
+    (if (= beg (point-min))
+        (if (= end (point-max))
+            (erase-buffer)
+          (delete-region beg (save-excursion
+                               (goto-char end)
+                               (forward-line)
+                               (line-beginning-position))))
+      (delete-region (save-excursion
+                       (goto-char beg)
+                       (forward-line -1)
+                       (line-end-position))
+                     end))
+    (goto-char beg)
+    (vim:motion-first-non-blank)))
+
+
+(vim:defcmd vim:cmd-delete (motion register)
+  "Deletes the characters defined by motion."
+  (case (vim:motion-type motion)
+    ('linewise
+     (goto-line (vim:motion-first-line motion))
+     (vim:cmd-delete-line :count (vim:motion-line-count motion)
+                          :register register))
+
+    ('block
+     (vim:cmd-yank :motion motion :register register)
+     (delete-rectangle (vim:motion-begin-pos motion)
+		       (vim:motion-end-pos motion)))
+
+    (t
+     (vim:cmd-yank :motion motion :register register)
+     (delete-region (vim:motion-begin-pos motion) (vim:motion-end-pos motion))
+     (goto-char (vim:motion-begin-pos motion)))))
+
+
+(vim:defcmd vim:cmd-delete-char (count register)
+  "Deletes the next count characters."
+  (vim:cmd-delete :motion (vim:motion-right :count (or count 1))
+                  :register register))
+
+
+(vim:defcmd vim:cmd-change (motion register)
+  "Deletes the characters defined by motion and goes to insert mode."
+  (case (vim:motion-type motion)
+    ('linewise
+     (goto-line (vim:motion-first-line motion))
+     (vim:cmd-change-line :count (vim:motion-line-count motion)
+                          :register register))
+
+    ('block
+        (let ((insert-info (vim:make-visual-insert-info :first-line (vim:motion-first-line motion)
+                                                        :last-line (vim:motion-last-line motion)
+                                                        :column (vim:motion-first-col motion))))
+          (vim:cmd-delete :motion motion :register register)
+          (vim:visual-start-insert insert-info)))
+
+    (t
+     ;; deal with cw and cW
+     (when (and vim:current-motion
+                (not (member (char-after) '(?  ?\r ?\n ?\t))))
+       (cond
+        ((eq vim:current-motion 'vim:motion-fwd-word)
+         (let* ((cnt (* (or vim:current-cmd-count 1)
+                        (or vim:current-motion-count 1)))
+                (pos
+                (save-excursion
+                  (dotimes (i cnt)
+                    (while
+                        (not
+                         (or (and (looking-at (concat "[^ \t\r\n]"
+                                                      "[ \t\r\n]")))
+                             (and (looking-at (concat "[" vim:word "]"
+                                                      "[^ \t\r\n" vim:word "]")))
+                             (and (looking-at (concat "[^ \t\r\n" vim:word "]"
+                                                      "[" vim:word "]")))))
+                      (forward-char))
+                    (when (< i (1- cnt))
+                      (forward-char)))
+                  (point))))
+           (setq motion (vim:make-motion :begin (point) :end pos :type 'inclusive))))
+        
+        ((eq vim:current-motion 'vim:motion-fwd-WORD)
+         (let* ((cnt (* (or vim:current-cmd-count 1)
+                        (or vim:current-motion-count 1)))
+                (pos
+                 (save-excursion
+                   (dotimes (i cnt)
+                     (while
+                         (not (looking-at (concat "[^ \t\r\n]"
+                                                  "[ \t\r\n]")))
+                       (forward-char))
+                     (when (< i (1- cnt))
+                       (forward-char)))
+                   (point))))
+           (setq motion (vim:make-motion :begin (point) :end pos :type 'inclusive))))))
+        
+     (vim:cmd-delete :motion motion :register register)
+     (if (eolp)
+         (vim:cmd-append :count 1)
+       (vim:cmd-insert :count 1)))))
+
+
+(vim:defcmd vim:cmd-change-line (count register)
+  "Deletes count lines and goes to insert mode."
+  (let ((pos (line-beginning-position)))
+    (vim:cmd-delete-line :count count :register register)
+    (if (< (point) pos)
+        (progn
+          (end-of-line)
+          (newline))
+      (progn
+        (beginning-of-line)
+        (newline)
+        (forward-line -1)))
+    (indent-according-to-mode)
+    (if (eolp)
+        (vim:cmd-append :count 1)
+      (vim:cmd-insert :count 1))))
+
+
+(vim:defcmd vim:cmd-change-rest-of-line (register)
+  "Deletes the rest of the current line."
+  (vim:cmd-delete :motion (vim:make-motion :begin (point)
+                                           :end (1- (line-end-position))
+                                           :type 'inclusive)
+                  :register register)
+  (vim:cmd-append :count 1))
+                                
+
+
+(vim:defcmd vim:cmd-change-char (count register)
+  "Deletes the next count characters and goes to insert mode."
+  (let ((pos (point)))
+    (vim:cmd-delete-char :count count :register register)
+    (if (< (point) pos)
+        (vim:cmd-append)
+      (vim:cmd-insert))))
+
+
+(vim:defcmd vim:cmd-replace-char (count (argument:char arg))
+  "Replaces the next count characters with arg."
+  (unless (vim:char-p arg)
+    (error "Expected a character."))
+  (when (< (- (line-end-position) (point))
+           (or count 1))
+    (error "Too few characters to end of line."))
+  (delete-region (point) (+ (point) (or count 1)))
+  (insert-char arg (or count 1))
+  (backward-char))
+
+
+(vim:defcmd vim:cmd-replace-region (motion (argument:char arg))
+   "Replace the complete region with `arg'"
+   (case (vim:motion-type motion)
+     ('block
+      ;; replace in block
+      (let ((begrow (vim:motion-first-line motion))
+            (begcol (vim:motion-first-col motion))
+            (endrow (vim:motion-last-line motion))
+            (endcol (1+ (vim:motion-last-col motion))))
+        (goto-line begrow)
+        (dotimes (i (1+ (- endrow begrow)))
+          ;; TODO does it work with \r\n at the end?
+          (let ((maxcol (save-excursion
+                          (end-of-line)
+                          (current-column))))
+            (when (> maxcol begcol)
+              (delete-region (save-excursion
+                               (move-to-column begcol t)
+                               (point))
+                             (save-excursion
+                               (move-to-column (min endcol maxcol) t)
+                               (point)))
+              (move-to-column begcol t)
+              (insert-char arg (- (min endcol maxcol) begcol))))
+          (forward-line 1))
+        (goto-line begrow)
+        (move-to-column begcol)))
+       
+     (t ;; replace in linewise and normal
+      (let ((begrow (vim:motion-first-line motion))
+            (endrow (vim:motion-last-line motion)))
+        (goto-line begrow)
+        (do ((r begrow (1+ r)))
+            ((> r endrow))
+          (goto-line r)
+          (let ((begcol
+                 (if (and (= r begrow)
+                          (not (eq (vim:motion-type motion) 'linewise)))
+                     (save-excursion
+                       (goto-char (vim:motion-begin-pos motion))
+                       (current-column))
+                   0))
+                (endcol
+                 (if (and (= r endrow)
+                          (not (eq (vim:motion-type motion) 'linewise)))
+                     (save-excursion
+                       (goto-char (vim:motion-end-pos motion))
+                       (current-column))
+                   ;; TODO does it work with \r\n at the end?
+                   (save-excursion
+                     (end-of-line)
+                     (current-column)))))
+
+	    (delete-region (save-excursion
+			     (move-to-column begcol t)
+			     (point))
+			   (save-excursion
+			     (move-to-column endcol t)
+			     (point)))
+	    (move-to-column begcol t)
+	    (insert-char arg (- endcol begcol)))))
+      
+      (goto-char (vim:motion-begin-pos motion)))))
+
+
+(vim:defcmd vim:cmd-yank (motion register nonrepeatable)
+  "Saves the characters in motion into the kill-ring."
+  (case (vim:motion-type motion)
+    ('block (vim:cmd-yank-rectangle :motion motion :register register))
+    ('linewise (goto-line (vim:motion-first-line motion))
+	       (vim:cmd-yank-line :count (vim:motion-line-count motion)
+                                  :register register))
+    (t
+     (let ((text (buffer-substring
+                  (vim:motion-begin-pos motion)
+                  (vim:motion-end-pos motion))))
+       (if register
+           (set-register register text)
+         (kill-new text))))))
+  
+
+(vim:defcmd vim:cmd-yank-line (count register nonrepeatable)
+  "Saves the next count lines into the kill-ring."
+  (let (lines
+        (linenr (line-number-at-pos (point))))
+    (setq count (or count 1))
+    (save-excursion
+      (while (> count 0)
+        (push (buffer-substring (line-beginning-position) (line-end-position)) lines)
+        (forward-line)
+        (decf count)
+        (incf linenr)
+        (when (> linenr (line-number-at-pos (point)))
+          (setq count 0))))
+    (if register
+        (let ((txt (make-string 1 ? )))
+          (put-text-property 0 1 'yank-handler
+                             (list 'vim:yank-line-handler (reverse lines))
+                             txt)
+          (set-register register txt))
+      (kill-new " " nil (list 'vim:yank-line-handler (reverse lines))))))
+
+
+(vim:defcmd vim:cmd-yank-rectangle (motion register nonrepeatable)
+  "Stores the rectangle defined by motion into the kill-ring."
+  (unless (eq (vim:motion-type motion) 'block)
+    (error "Motion must be of type block"))
+  ;; TODO: yanking should not insert spaces or expand tabs.
+  (let ((begrow (vim:motion-first-line motion))
+	(begcol (vim:motion-first-col motion))
+	(endrow (vim:motion-last-line motion))
+	(endcol (vim:motion-last-col motion))
+	(parts nil))
+    (goto-line endrow)
+    (dotimes (i (1+ (- endrow begrow)))
+      (let ((beg (save-excursion (move-to-column begcol) (point)))
+            (end (save-excursion (move-to-column (1+ endcol)) (point))))
+        (push (cons (save-excursion (goto-char beg)
+                                    (- (current-column) begcol))
+                    (buffer-substring beg end))
+              parts)
+        (forward-line -1)))
+    (if register
+        (let ((txt (make-string 1 ? )))
+          (put-text-property 0 1
+                             'yank-handler
+                             (list 'vim:yank-block-handler
+                                   (cons (- endcol begcol -1) parts)) 
+                             txt)
+          (set-register register txt))
+      (kill-new " " nil (list 'vim:yank-block-handler
+                              (cons (- endcol begcol -1) parts))))
+    (goto-line begrow)
+    (move-to-column begcol)))
+
+(defun vim:yank-line-handler (text)
+  "Inserts the current text linewise."
+  (beginning-of-line)
+  (dolist (line text)
+    (insert line)
+    (newline)))
+
+(defun vim:yank-block-handler (text)
+  "Inserts the current text as block."
+  (let ((ncols (car text))
+        (parts (cdr text))
+        (col (current-column))
+	(current-line (line-number-at-pos (point))))
+    
+    (dolist (part parts)
+      
+      (let* ((offset (car part))
+             (txt (cdr part))
+             (len (length txt)))
+	
+	;; maybe we have to insert a new line at eob
+	(when (< (line-number-at-pos (point))
+		 current-line)
+          (goto-char (point-max))
+          (newline))
+	(incf current-line)
+        
+        (unless (and (< (current-column) col)   ; nothing in this line
+                     (<= offset 0) (zerop len)) ; and nothing to insert
+          (move-to-column (+ col (max 0 offset)) t)
+          (insert txt)
+          (unless (eolp)
+            ;; text follows, so we have to insert spaces
+            (insert (make-string (- ncols len) ? ))))
+	(forward-line 1)))))
+
+
+(vim:defcmd vim:cmd-paste-before (count register)
+  "Pastes the latest yanked text before the cursor position."
+  (unless (or kill-ring-yank-pointer register)
+    (error "kill-ring empty"))
+
+  (dotimes (i (or count 1))
+    (save-excursion
+      (if register
+          (insert-for-yank (vim:get-register register))
+        (yank)))))
+
+
+(vim:defcmd vim:cmd-paste-behind (count register)
+  "Pastes the latest yanked text behind point."
+  (unless (or kill-ring-yank-pointer register)
+    (error "kill-ring empty"))
+
+  (let* ((txt (if register
+                  (vim:get-register register)
+                (car kill-ring-yank-pointer)))
+         (yhandler (get-text-property 0 'yank-handler txt)))
+    (case (car-safe yhandler)
+      (vim:yank-line-handler
+       (end-of-line)
+       (if (eobp)
+           (progn
+             (newline)
+             (save-excursion
+               (vim:cmd-paste-before :count count :register register)
+               (goto-char (point-max))
+               (delete-backward-char 1)))
+         (forward-line)
+         (vim:cmd-paste-before :count count :register register))
+       (vim:motion-first-non-blank))
+      
+      (vim:yank-block-handler
+       (forward-char)
+       (vim:cmd-paste-before :count count :register register))
+      
+      (t
+        (forward-char)
+        (dotimes (i (or count 1))
+          (if register
+              (insert-for-yank (vim:get-register register))
+            (yank)))
+        (backward-char)))))
+
+
+(vim:defcmd vim:cmd-join-lines (count)
+  "Join `count' lines with a minimum of two lines."
+  (dotimes (i (max 1 (1- (or count 1))))
+    (when (re-search-forward "\\(\\s-*\\)\\(\n\\s-*\\)\\()?\\)")
+      (delete-region (match-beginning 2)
+                     (match-end 2))
+      (when (and (= (match-beginning 1) (match-end 1))
+                 (= (match-beginning 3) (match-end 3)))
+        (insert-char ?  1))
+      (backward-char))))
+
+
+(vim:defcmd vim:cmd-join (motion)
+  "Join the lines covered by `motion'."
+  (goto-line (vim:motion-first-line motion))
+  (vim:cmd-join-lines :count (vim:motion-line-count motion)))
+
+
+(vim:defcmd vim:cmd-indent (motion)
+  "Reindent the lines covered by `motion'."
+  (goto-line (vim:motion-first-line motion))
+  (indent-region (line-beginning-position)
+                 (line-end-position (vim:motion-line-count motion))))
+  
+
+(vim:defcmd vim:cmd-shift-left (motion)
+  "Shift the lines covered by `motion' leftwards."
+  (goto-line (vim:motion-first-line motion))
+  (indent-rigidly (line-beginning-position)
+                  (line-end-position (vim:motion-line-count motion))
+                  (- vim:shift-width)))
+
+
+(vim:defcmd vim:cmd-shift-right (motion)
+  "Shift the lines covered by `motion' rightwards."
+  (goto-line (vim:motion-first-line motion))
+  (indent-rigidly (line-beginning-position)
+                  (line-end-position (vim:motion-line-count motion))
+                  vim:shift-width))
+  
+
+(vim:defcmd vim:cmd-toggle-case (motion)
+  "Toggles the case of all characters defined by `motion'."
+  (vim:change-case motion
+                   #'(lambda (beg end)
+                       (save-excursion
+                         (goto-char beg)
+                         (while (< beg end)
+                           (let ((c (following-char)))
+                             (delete-char 1 nil)
+                             (insert-char (if (eq c (upcase c)) (downcase c) (upcase c)) 1)
+                             (setq beg (1+ beg))))))))
+
+
+(vim:defcmd vim:cmd-make-upcase (motion)
+  "Upcases all characters defined by `motion'."
+  (vim:change-case motion #'upcase-region))
+
+
+(vim:defcmd vim:cmd-make-downcase (motion)
+  "Downcases all characters defined by `motion'."
+  (vim:change-case motion #'downcase-region))
+
+
+(defun vim:change-case (motion case-func)
+  (case (vim:motion-type motion)
+    ('block
+        (do ((l (vim:motion-first-line motion) (1+ l)))
+            ((> l (vim:motion-last-line motion)))
+          (funcall case-func
+                   (save-excursion
+                     (goto-line l)
+                     (move-to-column (vim:motion-first-col motion))
+                     (point))
+                   (save-excursion
+                     (goto-line l)
+                     (move-to-column (vim:motion-last-col motion))
+                     (1+ (point))))))
+    ('linewise
+     (save-excursion
+       (funcall case-func (vim:motion-begin-pos motion) (vim:motion-end-pos motion))))
+    (t
+     (funcall case-func (vim:motion-begin-pos motion) (vim:motion-end-pos motion))
+     (goto-char (vim:motion-end-pos motion)))))
+
+
+(vim:defcmd vim:cmd-repeat (nonrepeatable)
+  "Repeats the last command."
+  (unless vim:repeat-events
+    (error "Nothing to repeat"))
+  (vim:reset-key-state)
+  ;;(dotimes (i (or count 1))
+    (let ((repeat-events vim:repeat-events)
+          (vim:repeat-events nil))
+      (execute-kbd-macro repeat-events)))
+
+
+(vim:defcmd vim:cmd-emacs (nonrepeatable)
+   "Switches to Emacs for the next command."
+   (let (message-log-max) (message "Switch to Emacs for the next command."))
+   (vim:escape-to-emacs nil))
+
+(vim:defcmd vim:cmd-write-and-close (nonrepeatable)
+   "Saves the current buffer and closes the window."
+   (save-buffer)
+   (condition-case nil
+       (delete-window)
+     (error (condition-case nil
+                (delete-frame)
+              (error (save-buffers-kill-emacs))))))
+
+(vim:defcmd vim:cmd-set-mark ((argument:char mark-char) nonrepeatable)
+  "Sets the mark `mark-char' at point."
+  (vim:set-mark mark-char))
+
+(vim:defcmd vim:cmd-show-marks (nonrepeatable (argument marks))
+  "Shows all currently defined marks."
+  (let ((all-marks (append vim:local-marks-alist vim:global-marks-alist)))
+    (when marks
+      (setq all-marks (remove-if-not #'(lambda (x) (find (car x) marks)) all-marks)))
+
+    (setq all-marks (sort all-marks #'(lambda (x y) (< (car x) (car y)))))
+    (setq all-marks (apply #'concat
+                           (mapcar
+                            #'(lambda (m)
+                                (format "%3c  %5d %3d %s\n"
+                                        (car m)
+                                        (line-number-at-pos (cdr m))
+                                        (save-excursion
+                                          (goto-char (cdr m))
+                                          (current-column))
+                                        (buffer-substring-no-properties
+                                         (save-excursion
+                                           (goto-char (cdr m))
+                                           (line-beginning-position))
+                                         (+ 20
+                                            (save-excursion
+                                              (goto-char (cdr m))
+                                              (line-beginning-position))))))
+                            all-marks)))
+    (let (message-truncate-lines message-log-max)
+      (message "%4s %5s %3s %s\n%s" "Mark" "Line" "Col" "File/Text"
+               all-marks))))
+
+(vim:deflocalvar vim:current-macro nil
+  "The name of the currently recorded macro.")
+
+(vim:defcmd vim:cmd-toggle-macro-recording ((argument:char reg) nonrepeatable)
+  "Toggles recording of a keyboard macro."
+  (if reg
+      (progn
+        (put 'vim:cmd-toggle-macro-recording 'argument nil)
+        (vim:cmd-start-macro reg))
+    (progn
+      (put 'vim:cmd-toggle-macro-recording 'argument 'char)
+      (vim:cmd-stop-macro))))
+
+(defun vim:cmd-start-macro (reg)
+  "Starts recording a macro in register `reg'."
+  (setq vim:current-macro reg)
+  (start-kbd-macro nil)
+  (let (message-log-max)
+    (message "Start recording keyboard macro in register '%c'" reg)))
+
+(defun vim:cmd-stop-macro ()
+  "Stops recording of a macro."
+  (end-kbd-macro)
+  (let (message-log-max)
+    (message "Stop recording keyboard macro in register '%c'" vim:current-macro))
+  (set-register vim:current-macro last-kbd-macro))
+
+(vim:defcmd vim:cmd-execute-macro (count nonrepeatable (argument:char reg))
+  "Executes the keyboard-macro in register `reg.'"
+  (vim:reset-key-state)
+  (execute-kbd-macro (vim:get-register reg) count))
+
+(provide 'vim-commands)
+
+;;; vim-commands.el ends here
diff --git a/.emacs.d/vim-mode/vim-compat.el b/.emacs.d/vim-mode/vim-compat.el
new file mode 100644
index 0000000..ba27f60
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-compat.el
@@ -0,0 +1,537 @@
+;;; vim-compat.el - Layer for interfacing different Emacsen
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Code:
+
+;; Check emacs and xemacs
+
+(defconst vim:xemacs-p (string-match "XEmacs" emacs-version))
+(defconst vim:emacs23-p (>= emacs-major-version 23))
+(defconst vim:emacs-p (not vim:xemacs-p))
+
+(defconst vim:default-region-face (if vim:xemacs-p 'zmacs-region 'region))
+(defconst vim:deactivate-region-hook (if vim:xemacs-p
+					 'zmacs-deactivate-region-hook
+				       'deactivate-mark-hook))
+
+(defmacro vim:emacsen (&rest impls)
+  "Defines some body depending in emacs version."
+  `(progn ,@(cdr (or (find-if #'(lambda (x) (eval (car x))) impls)
+                     '(t (error "Not implemented for this Emacs version"))))))
+
+(defun vim:set-cursor (cursor)
+  "Changes the cursor to type `cursor'."
+  (vim:emacsen
+   (vim:emacs-p (setq cursor-type cursor))
+   (vim:xemacs-p 
+    (case cursor
+      (bar 
+       (setq bar-cursor 2))
+      (t
+       (setq bar-cursor nil))))))
+
+
+(defun vim:set-keymap-default-binding (keymap command)
+  "Sets the default binding of a keymap."
+  (vim:emacsen
+   (vim:emacs-p
+    (define-key keymap [t] command))
+   
+   (vim:xemacs-p
+    (set-keymap-default-binding keymap command))))
+
+(defconst vim:ESC-event (if vim:xemacs-p (make-event 'key-press '(key vim:escape))
+                          'escape))
+  
+
+(defun vim:intercept-ESC ()
+  "Waits a short time for further keys, otherwise sending [escape]."
+  (interactive)
+  (vim:emacsen
+   (vim:emacs-p
+    (if (sit-for vim:intercept-ESC-timeout t)
+        (push vim:ESC-event unread-command-events)
+      (add-hook 'pre-command-hook 'vim:enable-intercept-ESC)
+      (vim:intercept-ESC-mode -1)
+      (push last-command-event unread-command-events)))
+   
+   (vim:xemacs-p
+    (if (sit-for vim:intercept-ESC-timeout t)
+        (push vim:ESC-event unread-command-events)
+      (add-hook 'pre-command-hook 'vim:enable-intercept-ESC)
+      (vim:intercept-ESC-mode -1)
+      (push (copy-event last-command-event) unread-command-events)))))
+
+(defmacro vim:called-interactively-p ()
+  "Returns t iff the containing function has been called interactively."
+  (vim:emacsen
+   (vim:emacs-p
+    ;; TODO: perhaps (interactive-p) is enough?
+    (if (not (fboundp 'called-interactively-p))
+        '(interactive-p)
+      ;; Else, it is defined, but perhaps too old?
+      (condition-case nil
+          (progn
+            (called-interactively-p nil)
+            '(called-interactively-p 'interactive))
+        (error
+         '(called-interactively-p)))))
+   (vim:xemacs-p '(let (executing-macro) (interactive-p)))))
+
+(vim:emacsen
+ (vim:emacs-p (defalias 'vim:minibuffer-p 'minibufferp))
+ (vim:xemacs-p (defalias 'vim:minibuffer-p 'active-minibuffer-window)))
+
+(vim:emacsen
+ (vim:emacs-p (defalias 'vim:this-command-keys 'this-command-keys-vector))
+ (vim:xemacs-p 
+  (defun vim:this-command-keys ()
+    ;; this is a really dirty hack: for some reason
+    ;; (this-command-keys) in XEmacs does not return events that have
+    ;; been generated by the use of `unread-command-events' (but an
+    ;; empty vector). That's why we simulate the expected behaviour
+    ;; this way.
+    (let ((keys (this-command-keys)))
+      (if (zerop (length keys))
+          (vector (copy-event last-command-event))
+        keys)))))
+    
+
+(vim:emacsen
+ (vim:emacs-p (defalias 'vim:deactivate-mark 'deactivate-mark))
+ (vim:xemacs-p (defalias 'vim:deactivate-mark 'zmacs-deactivate-region)))
+
+(vim:emacsen
+ (vim:emacs-p (defsubst vim:do-deactivate-mark() deactivate-mark))
+ (vim:xemacs-p (defsubst vim:do-deactivate-mark() nil)))
+
+(vim:emacsen
+ (vim:emacs-p (defalias 'vim:x-set-selection 'x-set-selection))
+ (vim:xemacs-p (defsubst  vim:x-set-selection (type data) (own-selection data type))))
+
+(vim:emacsen
+ (vim:emacs-p
+  (defconst vim:down-mouse-1 'down-mouse-1)
+  (defconst vim:down-mouse-1 'down-mouse-1)
+  (defsubst vim:mouse-event-window (ev) (posn-window (event-start event)))
+  (defsubst vim:mouse-event-point (ev) (posn-point (event-start ev)))
+  (defalias 'vim:mouse-movement-p 'mouse-movement-p)
+  (defsubst vim:mouse-event-p (ev)
+    (and (symbolp (event-basic-type ev))
+         (string-match "mouse" (symbol-name (event-basic-type ev)))))
+  (defmacro vim:track-mouse (&rest body)
+    `(track-mouse ,@body))
+  (vim:deflocalvar vim:mouse-click-count 0)
+  (vim:deflocalvar vim:mouse-click-last-time nil)
+  (defun vim:mouse-click-count (event)
+    (let ((time (posn-timestamp event)))
+      (setq vim:mouse-click-count
+            (cond
+             ((intersection (event-modifiers event) '(double triple))
+              (event-click-count event))
+             ((and vim:mouse-click-last-time
+                   (< (- time vim:mouse-click-last-time) double-click-time))
+              (1+ vim:mouse-click-count))
+             (t 1)))
+      (setq vim:mouse-click-last-time time)
+      vim:mouse-click-count))
+  )
+  
+ (vim:xemacs-p
+  (defconst vim:down-mouse-1 'button1)
+  (defconst vim:down-mouse-1 'button1)
+  (defalias 'vim:mouse-event-window 'event-window)
+  (defalias 'vim:mouse-event-point 'event-closest-point)
+  (defalias 'vim:mouse-movement-p 'motion-event-p)
+  (defalias 'vim:mouse-event-p 'mouse-event-p)
+  (defmacro vim:track-mouse (&rest body)
+    `(progn ,@body))
+  (vim:deflocalvar vim:mouse-click-count 0)
+  (vim:deflocalvar vim:mouse-click-last-time nil)
+  (defcustom vim:visual-double-click-time 500
+    "Number of milliseconds for a repeating click.")
+  (defun vim:mouse-click-count (event)
+    (let ((time (event-timestamp event)))
+      (message "TIME: %s %s" time vim:mouse-click-last-time)
+      (setq vim:mouse-click-count
+            (if (and vim:mouse-click-last-time
+                     (< (- time vim:mouse-click-last-time) vim:visual-double-click-time))
+                (1+ vim:mouse-click-count)
+              1))
+      (setq vim:mouse-click-last-time time)
+      (message "CLICK: %s" vim:mouse-click-count)
+      vim:mouse-click-count))
+  ))
+
+(font-lock-add-keywords 'emacs-lisp-mode '("vim:track-mouse"))
+
+(vim:emacsen
+ (vim:emacs-p
+  (defalias 'vim:read-event 'read-event))
+ (vim:xemacs-p
+  (defun vim:read-event ()
+    (let (event)
+      (while (progn
+               (setq event (next-event))
+               (not (or (key-press-event-p event)
+                        (button-press-event-p event)
+                        (button-release-event-p event)
+                        (motion-event-p event)
+                        (menu-event-p event))))
+           (dispatch-event event))
+      event))))
+
+
+
+
+
+(vim:emacsen
+ (vim:emacs-p (defalias 'vim:char-p 'integerp))
+ (vim:xemacs-p (defalias 'vim:char-p 'characterp)))
+
+(vim:emacsen
+ (vim:emacs-p (defalias 'vim:perform-replace 'perform-replace))
+ (vim:xemacs-p 
+  (defun vim:perform-replace (from-string replacements query-flag regexp-flag delimited-flag
+                              &optional repeat-count map beg end)
+    (if (or beg end)
+        (progn
+          (push-mark (or beg (point-min)))
+          (goto-char (or end (point-max)))
+          (zmacs-activate-region)
+          (let ((result
+                 (perform-replace from-string replacements query-flag regexp-flag delimited-flag
+                                  repeat-count map)))
+            (pop-mark)
+            result))
+      (perform-replace from-string replacements query-flag regexp-flag delimited-flag
+                       repeat-count map)))))
+
+(vim:emacsen
+ (vim:emacs-p (defalias 'vim:minibuffer-contents 'minibuffer-contents))
+ (vim:xemacs-p (defsubst vim:minibuffer-contents ()
+                 "Returns the editable content of the currently active minibuffer."
+                 (when (vim:minibuffer-p)
+                   (buffer-substring (point-min) (point-max))))))
+
+(defun vim:test-completion (string collection &optional predicate)
+  "Returns non-nil if `string' is a valid completion."
+  (vim:emacsen
+   (vim:emacs-p (test-completion string collection predicate))
+   (vim:xemacs-p (eq (try-completion string collection predicate) t))))
+
+
+(defun vim:looking-back (regexp &optional limit greedy)
+  "Return non-nil if text before point matches regular expression REGEXP.
+Like `looking-at' except matches before point, and is slower.
+LIMIT if non-nil speeds up the search by specifying a minimum
+starting position, to avoid checking matches that would start
+before LIMIT.
+If GREEDY is non-nil, extend the match backwards as far as possible,
+stopping when a single additional previous character cannot be part
+of a match for REGEXP."
+  (vim:emacsen
+   (vim:emacs-p (looking-back regexp limit greedy))
+   
+   (vim:xemacs-p 
+    (let ((start (point))
+          (pos
+           (save-excursion
+             (and (re-search-backward (concat "\\(?:" regexp "\\)\\=") limit t)
+                  (point)))))
+      (if (and greedy pos)
+          (save-restriction
+            (narrow-to-region (point-min) start)
+            (while (and (> pos (point-min))
+                        (save-excursion
+                          (goto-char pos)
+                          (backward-char 1)
+                          (looking-at (concat "\\(?:"  regexp "\\)\\'"))))
+              (setq pos (1- pos)))
+            (save-excursion
+              (goto-char pos)
+              (looking-at (concat "\\(?:"  regexp "\\)\\'")))))
+      (not (null pos))))))
+  
+
+(defun vim:initialize-keymaps (enable)
+  "Initialize keymaps when vim-mode is enabled."
+  (vim:emacsen
+   (vim:emacs-p
+    (if enable
+        (add-to-list 'emulation-mode-map-alists 'vim:emulation-mode-alist)
+      (setq emulation-mode-map-alists
+            (delq 'vim:emulation-mode-alist emulation-mode-map-alists))))
+   
+   (vim:xemacs-p
+    (if enable
+	(vim:normalize-minor-mode-map-alist)
+      (setq minor-mode-map-alist (set-difference minor-mode-map-alist
+						 vim:emulation-mode-alist
+						 :key 'car))))))
+
+
+(when vim:xemacs-p
+  (unless (fboundp 'line-number-at-pos)
+    (defun line-number-at-pos (&optional pos)
+      (line-number pos)))
+  
+  (defun vim:normalize-minor-mode-map-alist ()
+    (make-local-variable 'minor-mode-map-alist)
+    (setq minor-mode-map-alist (append vim:emulation-mode-alist
+				       (set-difference minor-mode-map-alist
+						       vim:emulation-mode-alist
+						       :key 'car))))
+  
+  (defadvice add-minor-mode (after vim:add-minor-mode 
+                             (toggle name &optional keymap after toggle-fun)
+                             activate)
+    "Run vim:normalize-minor-mode-map-alist after adding a minor mode."
+    (vim:normalize-minor-mode-map-alist))
+
+  (defun insert-for-yank (text)
+    (let* ((yank-handler (and text
+                              (get-text-property 0 'yank-handler text))))
+      (if (or (null yank-handler) (null (car yank-handler)))
+          (insert text)
+        (funcall (car yank-handler)
+                 (or (nth 1 yank-handler) text)))))
+  
+  (defadvice kill-new (before vim:kill-new (string &optional replace yank-handler) activate)
+    "Set the yank-handler property at the given string."
+    (when yank-handler
+      (put-text-property 0 (length string) 'yank-handler yank-handler string)))
+  
+  (defadvice yank (around vim:yank (&optional arg) activate)
+    "Like `yank' but respects the yank-handler property."
+    (let* ((text (nth (if (numberp arg) arg 0) kill-ring-yank-pointer))
+           (yank-handler (and text
+                              (get-text-property 0 'yank-handler text))))
+      (if (or (null yank-handler) (null (car yank-handler)))
+          ad-do-it
+        (funcall (car yank-handler)
+                 (or (nth 1 yank-handler) text)))))
+  
+          
+
+  (defmacro define-globalized-minor-mode (global-mode mode turn-on &rest keys)
+    "Make a global mode GLOBAL-MODE corresponding to buffer-local minor MODE.
+TURN-ON is a function that will be called with no args in every buffer
+  and that should try to turn MODE on if applicable for that buffer.
+KEYS is a list of CL-style keyword arguments.  As the minor mode
+  defined by this function is always global, any :global keyword is
+  ignored.  Other keywords have the same meaning as in `define-minor-mode',
+  which see.  In particular, :group specifies the custom group.
+  The most useful keywords are those that are passed on to the
+  `defcustom'.  It normally makes no sense to pass the :lighter
+  or :keymap keywords to `define-globalized-minor-mode', since these
+  are usually passed to the buffer-local version of the minor mode.
+
+If MODE's set-up depends on the major mode in effect when it was
+enabled, then disabling and reenabling MODE should make MODE work
+correctly with the current major mode.  This is important to
+prevent problems with derived modes, that is, major modes that
+call another major mode in their body."
+
+    (let* ((global-mode-name (symbol-name global-mode))
+	   (pretty-name (easy-mmode-pretty-mode-name mode))
+	   (pretty-global-name (easy-mmode-pretty-mode-name global-mode))
+	   (group nil)
+	   (extra-keywords nil)
+	   (MODE-buffers (intern (concat global-mode-name "-buffers")))
+	   (MODE-enable-in-buffers
+	    (intern (concat global-mode-name "-enable-in-buffers")))
+	   (MODE-check-buffers
+	    (intern (concat global-mode-name "-check-buffers")))
+	   (MODE-cmhh (intern (concat global-mode-name "-cmhh")))
+	   (MODE-major-mode (intern (concat (symbol-name mode) "-major-mode")))
+	   keyw)
+
+      ;; Check keys.
+      (while (keywordp (setq keyw (car keys)))
+	(setq keys (cdr keys))
+	(case keyw
+	  (:group (setq group (nconc group (list :group (pop keys)))))
+	  (:global (setq keys (cdr keys)))
+	  (t (push keyw extra-keywords) (push (pop keys) extra-keywords))))
+
+      (unless group
+	;; We might as well provide a best-guess default group.
+	(setq group
+	      `(:group ',(intern (replace-regexp-in-string
+				  "-mode\\'" "" (symbol-name mode))))))
+
+      `(progn
+         (defvar ,MODE-major-mode nil)
+         (make-variable-buffer-local ',MODE-major-mode)
+         ;; The actual global minor-mode
+         (define-minor-mode ,global-mode
+           ,(format "Toggle %s in every possible buffer.
+With prefix ARG, turn %s on if and only if ARG is positive.
+%s is enabled in all buffers where `%s' would do it.
+See `%s' for more information on %s."
+                    pretty-name pretty-global-name pretty-name turn-on
+                    mode pretty-name)
+           :global t ,@group ,@(nreverse extra-keywords)
+
+           ;; Setup hook to handle future mode changes and new buffers.
+           (if ,global-mode
+               (progn
+                 (add-hook 'after-change-major-mode-hook
+                           ',MODE-enable-in-buffers)
+                 (add-hook 'find-file-hook ',MODE-check-buffers)
+                 (add-hook 'change-major-mode-hook ',MODE-cmhh))
+             (remove-hook 'after-change-major-mode-hook ',MODE-enable-in-buffers)
+             (remove-hook 'find-file-hook ',MODE-check-buffers)
+             (remove-hook 'change-major-mode-hook ',MODE-cmhh))
+
+           ;; Go through existing buffers.
+           (dolist (buf (buffer-list))
+             (with-current-buffer buf
+               (if ,global-mode (,turn-on) (when ,mode (,mode -1))))))
+
+         ;; Autoloading define-globalized-minor-mode autoloads everything
+         ;; up-to-here.
+         :autoload-end
+
+         ;; List of buffers left to process.
+         (defvar ,MODE-buffers nil)
+
+         ;; The function that calls TURN-ON in each buffer.
+         (defun ,MODE-enable-in-buffers ()
+           (dolist (buf ,MODE-buffers)
+             (when (buffer-live-p buf)
+               (with-current-buffer buf
+                 (if ,mode
+                     (unless (eq ,MODE-major-mode major-mode)
+                       (,mode -1)
+                       (,turn-on)
+                       (setq ,MODE-major-mode major-mode))
+                   (,turn-on)
+                   (setq ,MODE-major-mode major-mode))))))
+         (put ',MODE-enable-in-buffers 'definition-name ',global-mode)
+
+         (defun ,MODE-check-buffers ()
+           (,MODE-enable-in-buffers)
+           (setq ,MODE-buffers nil)
+           (remove-hook 'post-command-hook ',MODE-check-buffers))
+         (put ',MODE-check-buffers 'definition-name ',global-mode)
+
+         ;; The function that catches kill-all-local-variables.
+         (defun ,MODE-cmhh ()
+           (add-to-list ',MODE-buffers (current-buffer))
+           (add-hook 'post-command-hook ',MODE-check-buffers))
+         (put ',MODE-cmhh 'definition-name ',global-mode))))
+
+  ;; This is a hack written by Hovav Shacham, author of the windmove package, so that 
+  ;; windmove will work in xemacs
+  ;;--- begin hack ---
+ 
+  ;; simulate `window-edges' using `window-pixel-edges'; from
+  ;; Nix , based on tapestry.el.
+  (defun window-edges (&optional window)
+    (let ((edges (window-pixel-edges window))
+	  tmp)
+      (setq tmp edges)
+      (setcar tmp (/ (car tmp) (face-width 'default)))
+      (setq tmp (cdr tmp))
+      (setcar tmp (/ (car tmp) (face-height 'default)))
+      (setq tmp (cdr tmp))
+      (setcar tmp (/ (car tmp) (face-width 'default)))
+      (setq tmp (cdr tmp))
+      (setcar tmp (/ (car tmp) (face-height 'default)))
+      edges))
+  
+  ;; simulate `window-at' with `walk-windows'
+  (defun window-at (x y &optional frame)
+    (let ((f (if (null frame)
+		 (selected-frame)
+	       frame)))
+      (let ((guess-wind nil))
+	(walk-windows (function (lambda (w)
+				  (let ((w-edges (window-edges w)))
+				    (when (and (eq f (window-frame w))
+					       (<= (nth 0 w-edges) x)
+					       (>= (nth 2 w-edges) x)
+					       (<= (nth 1 w-edges) y)
+					       (>= (nth 3 w-edges) y))
+				      (setq guess-wind w)))))
+		      t ; walk minibuffers
+		      t) ; walk all frames
+	guess-wind)))
+  
+  ;; redo `windmove-coordinates-of-position' without compute-motion
+  (defun walk-screen-lines (lines goal)
+    (cond
+     ((< (window-point) goal) (1- lines))
+     ((= (window-point) goal) lines)
+     (t (vertical-motion 1)
+	(walk-screen-lines (1+ lines) goal))))
+  (defun windmove-coordinates-of-position (pos &optional window)
+    (let* ((w (if (null window)
+		  (selected-window)
+		window))
+	   (b (window-buffer w)))
+      (save-selected-window
+	(select-window w)
+	(save-excursion
+	  (let* ((y (progn (goto-char (window-start))
+			   (walk-screen-lines 0 pos)))
+		 (x (- (progn (goto-char pos)
+			      (current-column))
+		       (progn (goto-char (window-start))
+			      (vertical-motion y)
+			      (current-column)))))
+	    (cons x y))))))            
+  
+  ;; for some reason, XEmacs is more conservative in reporting `frame-width'
+  ;; and `frame-height'; we apparently need to get rid of the 1- in each.
+  (defun windmove-frame-edges (window)
+    (let ((frame (if window
+		     (window-frame window)
+		   (selected-frame))))
+      (let ((x-min 0)
+	    (y-min 0)
+	    (x-max (frame-width frame))
+	    (y-max (frame-height frame)))
+	(list x-min y-min x-max y-max))))
+  
+  ;; --- end hack ---
+
+  (defun window-tree (&optional frame)
+    "Return the window tree for frame `frame'."
+    (let ((root (frame-root-window frame))
+	  (mini (minibuffer-window frame)))
+      (labels
+	  ((subwindows (win)
+	     (cond
+	      ((window-first-hchild win)
+	       (let (w-list
+		     (child (window-first-vchild win)))
+		 (while child
+		   (push child w-list)
+		   (setq child (window-next-child child)))
+		 (cons t
+		       (cons (window-edges win)
+			     (mapcar #'subwindows (reverse w-list))))))
+	      ((window-first-vchild win)
+	       (let (w-list
+		     (child (window-first-vchild win)))
+		 (while child
+		   (push child w-list)
+		   (setq child (window-next-child child)))
+		 (cons nil
+		       (cons (window-edges win)
+			     (mapcar #'subwindows (reverse w-list))))))
+	      (t win))))
+	(list (subwindows root) mini))))
+  )
+
+(provide 'vim-compat)
+
+;;; vim-compat.el ends here
diff --git a/.emacs.d/vim-mode/vim-ex-commands.el b/.emacs.d/vim-mode/vim-ex-commands.el
new file mode 100644
index 0000000..c3d8e89
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-ex-commands.el
@@ -0,0 +1,132 @@
+;;; vim-ex-commands.el - Implementation of some ex-mode commands.
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Code:
+
+(defun* vim:save-buffer (file-name &key begin end mustbenew append)
+  "Saves the lines from `begin' to `end' to file `file-name'."
+  (with-current-buffer vim:ex-current-buffer
+    (when (null file-name)
+      (setq file-name (buffer-file-name))
+      (unless file-name
+        (error "Please specify a file-name for this buffer!")))
+
+    (let (beg-pos end-pos)
+      (when begin
+        (setq beg-pos (save-excursion 
+                        (goto-line begin)
+                        (line-beginning-position)))
+        (setq end-pos (if end
+                          (save-excursion
+                            (goto-line end)
+                            (line-end-position))
+                        beg-pos)))
+        
+      (cond
+       ((and (null beg-pos)
+             (string= file-name (buffer-file-name)))
+        (save-buffer))
+       ((and (null beg-pos)
+             (null (buffer-file-name)))
+        (write-file file-name))
+       (t
+        (write-region beg-pos end-pos file-name append nil nil mustbenew))))))
+
+
+(vim:defcmd vim:cmd-write (motion (argument:file file) nonrepeatable)
+  "Saves file `file'."
+  (vim:save-buffer file
+                   :begin (and motion (vim:motion-first-line motion))
+                   :end (and motion (vim:motion-last-line motion))
+                   :mustbenew t))
+
+(vim:defcmd vim:cmd-write-q (motion (argument:file file) nonrepeatable)
+  "Overwrites file `file'."
+  (vim:save-buffer file
+                   :begin (and motion (vim:motion-first-line motion))
+                   :end (and motion (vim:motion-last-line motion))
+                   :mustbenew nil))
+
+(vim:defcmd vim:cmd-write-all (nonrepeatable)
+  "Saves all buffers."
+  (save-some-buffers nil))
+
+(vim:defcmd vim:cmd-write-all-q (nonrepeatable)
+  "Overwrites all buffers."
+  (save-some-buffers t))
+
+(vim:defcmd vim:cmd-edit ((argument:file file) nonrepeatable)
+  "Visits a certain file."
+  (if file
+      (find-file file)
+    (when (buffer-file-name)
+      (find-file (buffer-file-name)))))
+
+(vim:defcmd vim:cmd-buffer ((argument:buffer buffer) nonrepeatable)
+  "Switches to another buffer."
+  (if buffer
+      (when (or (get-buffer buffer)
+                (y-or-n-p (format "No buffer with name \"%s\" exists. Create new buffer? " buffer)))
+        (switch-to-buffer buffer))
+    (switch-to-buffer (other-buffer))))
+
+(vim:defcmd vim:cmd-delete-buffer ((argument:buffer buffer) nonrepeatable)
+  "Deletes a buffer."
+  (kill-buffer buffer))
+
+(vim:defcmd vim:cmd-delete-buffer-q ((argument:buffer buffer) nonrepeatable)
+  "Deletes a buffer without saving."
+  (if buffer
+      (with-current-buffer buffer
+        (set-buffer-modified-p nil))
+    (set-buffer-modified-p nil))
+  (kill-buffer buffer))
+
+(vim:defcmd vim:cmd-quit (nonrepeatable)
+  "Closes the current window, exits Emacs if this is the last window."
+  (condition-case nil
+      (delete-window)
+    (error
+     (condition-case nil
+         (delete-frame)
+       (error (save-buffers-kill-emacs))))))
+
+(vim:defcmd vim:cmd-quit-q (nonrepeatable)
+  "Closes the current window, exits Emacs if this is the last window."
+  (condition-case nil
+      (delete-window)
+    (error
+     (condition-case nil
+         (delete-frame)
+       (error (kill-emacs))))))
+
+(vim:defcmd vim:cmd-quit-all (nonrepeatable)
+  "Exits Emacs, asking for saving."
+  (save-buffers-kill-emacs))
+
+(vim:defcmd vim:cmd-quit-all-q (nonrepeatable)
+  "Exits Emacs, without saving."
+  (kill-emacs))
+
+(vim:defcmd vim:cmd-save-and-quit (nonrepeatable)
+  "Exits Emacs, without saving."
+  (save-buffers-kill-emacs 1))
+
+(vim:defcmd vim:cmd-save-and-close ((argument:file file) nonrepeatable)
+  "Saves the current buffer and closes the window."
+  (vim:cmd-write :argument file)
+  (vim:cmd-quit))
+
+(vim:defcmd vim:cmd-save-and-close-q ((argument:file file) nonrepeatable)
+  "Saves the current buffer and closes the window."
+  (vim:cmd-write-q :argument file)
+  (vim:cmd-quit))
+
+(provide 'vim-ex-commands)
+
+;;; vim-ex-commands.el ends here
diff --git a/.emacs.d/vim-mode/vim-ex.el b/.emacs.d/vim-mode/vim-ex.el
new file mode 100644
index 0000000..27e80ef
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-ex.el
@@ -0,0 +1,440 @@
+;;; vim-ex.el - Ex-mode.
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Code:
+
+(defvar vim:ex-commands nil
+  "List of pairs (command . function).")
+
+(defvar vim:ex-current-buffer)
+
+(vim:deflocalvar vim:ex-local-commands nil
+  "List of pairs (command . function).")
+
+(defvar vim:ex-history nil
+  "History of ex-commands.")
+
+(defun vim:emap (keys command)
+  "Maps an ex-command to some function."
+  (unless (find-if #'(lambda (x) (string= (car x) keys)) vim:ex-commands)
+    (add-to-list 'vim:ex-commands (cons keys command))))
+
+(defun vim:local-emap (keys command)
+  "Maps an ex-command to some function buffer-local."
+  (unless (find-if #'(lambda (x) (string= (car x) keys)) vim:ex-local-commands)
+    (add-to-list 'vim:ex-local-commands (cons keys command))))
+
+(defun vim:ex-binding (cmd)
+  "Returns the current binding of `cmd' or nil."
+  (with-current-buffer vim:ex-current-buffer
+    (or (cdr-safe (assoc cmd vim:ex-local-commands))
+        (cdr-safe (assoc cmd vim:ex-commands)))))
+
+(defvar vim:ex-keymap (make-sparse-keymap)
+  "Keymap used in ex-mode.")
+
+(define-key vim:ex-keymap "\t" 'minibuffer-complete)
+(define-key vim:ex-keymap [return] 'exit-minibuffer)
+(define-key vim:ex-keymap (kbd "RET") 'exit-minibuffer)
+(define-key vim:ex-keymap " " 'vim:ex-expect-argument)
+(define-key vim:ex-keymap (kbd "C-j") 'vim:ex-execute-command)
+(define-key vim:ex-keymap (kbd "C-g") 'abort-recursive-edit)
+(define-key vim:ex-keymap [up] 'previous-history-element)
+(define-key vim:ex-keymap [down] 'next-history-element)
+(define-key vim:ex-keymap "\d" 'vim:ex-delete-backward-char)
+
+(defun vim:ex-delete-backward-char (n)
+  "Delete the previous `n' characters. If ex-buffer is empty,
+cancel ex-mode."
+  (interactive "p")
+  (if (and (>= n 1)
+           (zerop (length (minibuffer-contents))))
+      (exit-minibuffer))
+  (delete-backward-char n))
+
+(defvar vim:ex-keep-reading nil)
+(defvar vim:ex-cmdline nil)
+(defvar vim:ex-cmd nil)
+(defvar vim:ex-beg nil)
+(defvar vim:ex-end nil)
+
+(defun vim:ex-split-cmdline (cmdline)
+  (multiple-value-bind (cmd-region beg end) (vim:ex-parse cmdline)
+    (if (null cmd-region)
+        (values cmdline "" cmdline "" beg end)
+      (let ((range (substring cmdline 0 (car cmd-region)))
+            (cmd (substring cmdline (car cmd-region) (cdr cmd-region)))
+            (spaces "")
+            (arg (substring cmdline (cdr cmd-region))))
+    
+        ;; skip whitespaces
+        (when (string-match "\\`\\s-*" arg)
+          (setq spaces (match-string 0 arg)
+                arg (substring arg (match-end 0))))
+      
+        (values range cmd spaces arg beg end)))))
+
+(defun vim:ex-expect-argument (n)
+  ;; called if the space separating the command from the argument has
+  ;; been pressed
+  (interactive "p")
+  (let ((cmdline (vim:minibuffer-contents)))
+    (self-insert-command n)
+    (multiple-value-bind (range cmd spaces arg beg end) (vim:ex-split-cmdline cmdline)
+
+      (when (and (= (point) (point-max))
+                 (zerop (length spaces))
+                 (zerop (length arg)))
+        (while (stringp cmd)
+          (setq cmd (vim:ex-binding cmd)))
+        
+        (if (null cmd) (ding)
+          (let ((result (case (vim:cmd-arg cmd)
+                          (file
+                           (vim:ex-complete-file-argument nil nil nil))
+                          (buffer
+                           (vim:ex-complete-buffer-argument nil nil nil))
+                          ((t)
+                           (vim:ex-complete-text-argument nil nil nil)))))
+            (when result (insert result))))))))
+          
+(defun vim:ex-complete (cmdline predicate flag)
+  (multiple-value-bind (range cmd spaces arg beg end) (vim:ex-split-cmdline cmdline)
+    (setq vim:ex-cmd cmd)
+
+    (cond
+     ;; only complete at the end of the command
+     ((< (point) (point-max)) nil)
+       
+     ;; if at the end of a command, complete the command
+     ((and (zerop (length spaces)) (zerop (length arg)))
+      (let ((result (vim:ex-complete-command cmd predicate flag)))
+        (cond
+         ((null result) nil)
+         ((eq t result) t)
+         ((stringp result)
+          (if flag result (concat range result)))
+         ((listp result) (if flag result (mapcar #'(lambda (x) (concat range x)) result)))
+         (t (error "Completion returned unexpected value.")))))
+              
+     ;; otherwise complete the argument
+     (t 
+      (let ((result (vim:ex-complete-argument arg predicate flag)))
+        (cond
+         ((null result) nil)
+         ((eq t result) t)
+         ((stringp result) (if flag result (concat range cmd spaces result)))
+         ((listp result) (if flag result (mapcar #'(lambda (x) (concat range cmd spaces x)) result)))
+         (t (error "Completion returned unexpected value."))))))))
+
+        
+(defun vim:ex-complete-command (cmd predicate flag)
+  ;; completes the command
+  (with-current-buffer vim:ex-current-buffer
+    (cond
+     ((null flag) (or (try-completion cmd vim:ex-local-commands predicate)
+                      (try-completion cmd vim:ex-commands predicate)))
+   
+     ((eq t flag) (or (all-completions cmd vim:ex-local-commands predicate)
+                      (all-completions cmd vim:ex-commands predicate)))
+   
+     ((eq 'lambda flag) (or (vim:test-completion cmd vim:ex-local-commands predicate)
+                            (vim:test-completion cmd vim:ex-commands predicate))))))
+
+(defun vim:ex-complete-argument (arg predicate flag)
+  ;; completes the argument
+  (let ((cmd vim:ex-cmd))
+    (while (stringp cmd)
+      (setq cmd (vim:ex-binding cmd)))
+
+    (if (null cmd) (ding)
+      (case (vim:cmd-arg cmd)
+        (file
+         (vim:ex-complete-file-argument arg predicate flag))
+        (buffer
+         (vim:ex-complete-buffer-argument arg predicate flag))
+        ((t)
+         (vim:ex-complete-text-argument arg predicate flag))
+        (t (ding))))))
+
+(defun vim:ex-complete-file-argument (arg predicate flag)
+  ;; completes a file-name
+  (if (null arg)
+      default-directory
+    (let ((dir (or (file-name-directory arg)
+                   (with-current-buffer vim:ex-current-buffer default-directory)))
+          (fname (file-name-nondirectory arg)))
+      (cond
+       ((null dir) (ding))
+       ((null flag)
+        (let ((result (file-name-completion fname dir)))
+	  (case result
+	    ((nil) nil)
+	    ((t) t)
+	    (t (concat dir result)))))
+       
+       ((eq t flag) 
+        (file-name-all-completions fname dir))
+       
+       ((eq 'lambda flag)
+        (eq (file-name-completion fname dir) t))))))
+      
+(defun vim:ex-complete-buffer-argument (arg predicate flag)
+  ;; completes a buffer name
+  (when arg
+    (let ((buffers (mapcar #'(lambda (buffer) (cons (buffer-name buffer) nil)) (buffer-list t))))
+      (cond
+       ((null flag)
+        (try-completion arg buffers predicate))
+       ((eq t flag) 
+        (all-completions arg buffers predicate))
+       ((eq 'lambda flag)
+        (vim:test-completion arg buffers predicate))))))
+
+(defun vim:ex-complete-text-argument (arg predicate flag)
+  ;; completes an arbitrary text-argument
+  (when arg
+    (case flag
+      ((nil) t)
+      ((t) (list arg))
+      ('lambda t))))
+
+(defun vim:ex-execute-command (cmdline)
+  (interactive)
+
+  (multiple-value-bind (range cmd spaces arg beg end) (vim:ex-split-cmdline cmdline)
+    (setq vim:ex-cmd cmd)
+    
+    (let ((cmd vim:ex-cmd)
+          (motion (cond
+                   ((and beg end)
+                    (vim:make-motion :begin (save-excursion
+                                              (goto-line beg)
+                                              (line-beginning-position))
+                                     :end (save-excursion
+                                            (goto-line end)
+                                            (line-beginning-position))
+                                     :has-begin t
+                                     :type 'linewise))
+                   (beg
+                    (vim:make-motion :begin (save-excursion
+                                              (goto-line beg)
+                                              (line-beginning-position))
+                                     :end (save-excursion
+                                            (goto-line beg)
+                                            (line-beginning-position))
+                                     :has-begin t
+                                     :type 'linewise))))
+          (count (and (not end) beg)))
+      
+      (while (stringp cmd)
+        (setq cmd (vim:ex-binding cmd)))
+
+      (when (zerop (length arg))
+        (setq arg nil))
+
+      (with-current-buffer vim:ex-current-buffer
+        (cond
+         (cmd (case (vim:cmd-type cmd)
+                ('complex
+                 (if (vim:cmd-arg-p cmd)
+                     (funcall cmd :motion motion :argument arg)
+                   (funcall cmd :motion motion)))
+                ('simple
+                (when end
+                  (error "Command does not take a range: %s" vim:ex-cmd))
+                (if (vim:cmd-arg-p cmd)
+                    (if (vim:cmd-count-p cmd)
+                        (funcall cmd :count beg :argument arg)
+                      (funcall cmd :argument arg))
+                  (if (vim:cmd-count-p cmd)
+                      (funcall cmd :count count)
+                    (funcall cmd))))
+                (t (error "Unexpected command-type bound to %s" vim:ex-cmd))))
+         (beg (vim:motion-go-to-first-non-blank-beg :count (or end beg)))
+         (t (ding)))))))
+    
+
+;; parser for ex-commands
+(defun vim:ex-parse (text)
+  "Extracts the range-information from `text'.
+Returns a list of up to three elements: (cmd beg end)"
+  (let (begin
+        (begin-off 0)
+        sep
+        end
+        (end-off 0)
+        (pos 0)
+        (cmd nil))
+    
+    (multiple-value-bind (beg npos) (vim:ex-parse-address text pos)
+      (when npos
+        (setq begin beg
+              pos npos)))
+
+    (multiple-value-bind (off npos) (vim:ex-parse-offset text pos)
+      (when npos
+        (unless begin (setq begin 'current-line))
+        (setq begin-off off
+              pos npos)))
+
+    (when (and (< pos (length text))
+               (or (= (aref text pos) ?\,)
+                   (= (aref text pos) ?\;)))
+      (setq sep (aref text pos))
+      (incf pos)
+      (multiple-value-bind (e npos) (vim:ex-parse-address text pos)
+        (when npos
+          (setq end e
+          pos npos)))
+      
+      (multiple-value-bind (off npos) (vim:ex-parse-offset text pos)
+        (when npos
+          (unless end (setq end 'current-line))
+          (setq end-off off
+          pos npos))))
+
+    ;; handle the special '%' range
+    (when (or (eq begin 'all) (eq end 'all))
+      (setq begin 'first-line
+            begin-off 0
+            end 'last-line
+            end-off 0
+            sep ?,))
+    
+    (when (= pos (or (string-match "[a-zA-Z0-9!]+" text pos) -1))
+      (setq cmd (cons (match-beginning 0) (match-end 0))))
+               
+    (multiple-value-bind (start end) (vim:ex-get-range (and begin (cons begin begin-off)) sep (and end (cons end end-off)))
+      (values cmd start end))))
+
+
+(defun vim:ex-parse-address (text pos)
+  (cond
+   ((>= pos (length text)) nil)
+   
+   ((= pos (or (string-match "[0-9]+" text pos) -1))
+    (values (cons 'abs (string-to-number (match-string 0 text)))
+            (match-end 0)))
+
+   ((= (aref text pos) ?$)
+    (values (cons 'abs (line-number-at-pos (point-max))) (1+ pos)))
+
+   ((= (aref text pos) ?\%)
+    (values 'all (1+ pos)))
+    
+   ((= (aref text pos) ?.)
+    (values 'current-line (1+ pos)))
+
+   ((= (aref text pos) ?')
+    (if (>= (1+ pos) (length text))
+        nil
+      (values `(mark ,(aref text (1+ pos))) (+ 2 pos))))
+
+   ((= (aref text pos) ?/)
+    (when (string-match "\\([^/]+\\|\\\\.\\)\\(?:/\\|$\\)"
+                        text (1+ pos))
+      (values (cons 're-fwd (match-string 1 text))
+              (match-end 0))))
+   
+   ((= (aref text pos) ??)
+    (when (string-match "\\([^?]+\\|\\\\.\\)\\(?:?\\|$\\)"
+                        text (1+ pos))
+      (values (cons 're-bwd (match-string 1 text))
+              (match-end 0))))
+   
+   ((and (= (aref text pos) ?\\)
+         (< pos (1- (length text))))
+    (case (aref text (1+ pos))
+      (?/ (values 'next-of-prev-search (1+ pos)))
+      (?? (values 'prev-of-prev-search (1+ pos)))
+      (?& (values 'next-of-prev-subst (1+ pos)))))
+
+   (t nil)))
+
+
+(defun vim:ex-parse-offset (text pos)
+  (let ((off nil))
+    (while (= pos (or (string-match "\\([-+]\\)\\([0-9]+\\)?" text pos) -1))
+      (if (string= (match-string 1 text) "+")
+          (setq off (+ (or off 0) (if (match-beginning 2)
+                                      (string-to-number (match-string 2 text))
+                                    1)))
+                
+        (setq off (- (or off 0) (if (match-beginning 2)
+                                    (string-to-number (match-string 2 text))
+                                  1))))
+      (setq pos (match-end 0)))
+    (and off (values off pos))))
+     
+
+(defun vim:ex-get-range (start sep end)
+  (with-current-buffer vim:ex-current-buffer
+    (when start
+      (setq start (vim:ex-get-line start)))
+
+    (when (and sep end)
+      (save-excursion
+        (when (= sep ?\;) (goto-line start))
+        (setq end (vim:ex-get-line end))))
+  
+    (values start end)))
+
+
+(defun vim:ex-get-line (address)
+  (let ((base (car address))
+        (offset (cdr address)))
+    
+    (cond
+     ((null base) nil)
+     ((consp offset)
+      (let ((line (vim:ex-get-line (car address))))
+        (when line
+        (save-excursion
+          (goto-line line)
+          (vim:ex-get-line (cdr address))))))
+     
+     (t
+      (+ offset
+         (case (or (car-safe base) base)
+         (abs (cdr base))
+           
+         ;; TODO: (1- ...) may be wrong if the match is the empty string
+         (re-fwd (save-excursion
+                   (beginning-of-line 2)
+                   (and (re-search-forward (cdr base))
+                        (line-number-at-pos (1- (match-end 0))))))
+           
+         (re-bwd (save-excursion
+                   (beginning-of-line 0)
+                   (and (re-search-backward (cdr base))
+                        (line-number-at-pos (match-beginning 0)))))
+           
+         (current-line (line-number-at-pos (point)))
+         (first-line (line-number-at-pos (point-min)))
+         (last-line (line-number-at-pos (point-max)))
+         (mark (line-number-at-pos (vim:get-local-mark (cadr base))))
+         (next-of-prev-search (error "Next-of-prev-search not yet implemented."))
+         (prev-of-prev-search (error "Prev-of-prev-search not yet implemented."))
+         (next-of-prev-subst (error "Next-of-prev-subst not yet implemented."))
+         (t (error "Invalid address: %s" address))))))))
+
+
+(defun vim:ex-read-command (&optional initial-input)
+  "Starts ex-mode."
+  (interactive)
+  (let ((vim:ex-current-buffer (current-buffer)))
+    (let ((minibuffer-local-completion-map vim:ex-keymap))
+      (let ((result (completing-read ":" 'vim:ex-complete nil nil initial-input  'vim:ex-history)))
+        (when (and result
+                   (not (zerop (length result))))
+          (vim:ex-execute-command result))))))
+
+(provide 'vim-ex)
+
+;;; vim-ex.el ends here
diff --git a/.emacs.d/vim-mode/vim-insert-mode.el b/.emacs.d/vim-mode/vim-insert-mode.el
new file mode 100644
index 0000000..e11b13e
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-insert-mode.el
@@ -0,0 +1,79 @@
+;;; vim-insert-mode.el - VIM insert-mode.
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; TODO :
+;; - for some reason GNU Emacs does not show '-- REPLACE --'
+
+;;; Code:
+
+(vim:deflocalvar vim:last-insert-undo nil)
+
+(defcustom vim:insert-mode-replace-cursor 'hbar
+  "Cursor for replace-mode."
+  :group 'vim-mode)
+
+(vim:define-keymap insert-mode "insert-mode" :map-command imap)
+
+(vim:define-mode insert "VIM insert-mode"
+                 :ident "I"
+                 :message "-- INSERT --"
+                 :keymaps '(vim:insert-mode-keymap)
+                 :command-function 'vim:insert-mode-command
+                 :cursor 'bar)
+(add-hook 'vim:insert-mode-on-hook 'vim:insert-mode-activated)
+(add-hook 'vim:insert-mode-off-hook 'vim:insert-mode-deactivated)
+
+(vim:defcmd vim:insert-mode-toggle-replace ()
+  "Toggles overwrite-mode in insert-mode."
+  (unless (vim:insert-mode-p)
+    (error "Toggling overwrite-mode only allowed in insert-mode."))
+  (overwrite-mode nil)
+  (if overwrite-mode
+      (progn
+        (let (message-log-max) (message "-- REPLACE --"))
+        (setq cursor-type vim:insert-mode-replace-cursor)
+        (vim:update-mode-line "R"))
+    (progn
+      (let (message-log-max) (message "-- INSERT --"))
+      (setq cursor-type vim:insert-mode-cursor)
+      (vim:update-mode-line "I"))))
+
+(defun vim:insert-mode-command (command)
+  "Executes a simple command in insert mode."
+  (case (vim:cmd-type command)
+    ('simple (vim:normal-execute-simple-command command))
+    ('complex (error "No complex command allowed in insert-mode."))
+    (t (vim:normal-execute-motion command))))
+
+(defun vim:insert-mode-activated ()
+  "Called when insert-mode is activated."
+  (overwrite-mode -1)
+  (setq vim:last-insert-undo vim:last-undo)
+  (add-hook 'pre-command-hook 'vim:insert-save-key-sequence))
+  
+(defun vim:insert-mode-deactivated ()
+  "Called when insert-mode is deactivated."
+  (overwrite-mode -1)
+  (vim:set-mark ?^)
+  (remove-hook 'pre-command-hook 'vim:insert-save-key-sequence)
+  ;; the command that has just ended insert-mode should NOT be repeatable
+  ;; and will therefore NOT override repeat-sequence.
+  (setq vim:repeat-events (vconcat vim:repeat-events
+                                   vim:current-key-sequence))
+  (setq vim:last-undo vim:last-insert-undo))
+
+(defun vim:insert-save-key-sequence ()
+  "Called in insert-mode to save key-events."
+  (when (and (vim:toplevel-execution)
+             (not (eq this-command 'vim:intercept-ESC)))
+    (setq vim:current-key-sequence (vconcat vim:current-key-sequence
+                                            (vim:this-command-keys)))))
+
+(provide 'vim-insert-mode)
+
+;;; vim-insert-mode.el ends here
diff --git a/.emacs.d/vim-mode/vim-keymap.el b/.emacs.d/vim-mode/vim-keymap.el
new file mode 100644
index 0000000..c0b9f8f
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-keymap.el
@@ -0,0 +1,144 @@
+;;; vim-keymap.el - Basic keymapping for vim-mode
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Code:
+
+(defmacro vim:kbdmacro-to-command (events)
+  "Creates a command passing prefix-argument to given keyboard-macro `events'."
+  (let ((arg (gensym)))
+    `(lambda (,arg)
+       (interactive "P")
+       (execute-kbd-macro
+        (if ,arg
+            (vconcat (number-to-string (prefix-numeric-value ,arg))
+                     ,events)
+          ,events)))))
+
+
+(defun* vim:map (keys command &key (keymap nil))
+  "Maps the sequence of events `keys' to a `command' in a certain
+`keymap.'"
+  (if (or (stringp command)
+          (vectorp command))
+      (lexical-let ((kbdevents command))
+        (define-key keymap keys (vim:kbdmacro-to-command kbdevents)))
+    (define-key keymap keys command)))
+
+(defun vim:make-keymap (&optional parent)
+  "Creates a new keymap with a certain `parent' keymap."
+  (let ((kmap (make-sparse-keymap)))
+    (when parent (set-keymap-parent kmap parent))
+    kmap))
+
+(defmacro vim:define-keymap (name
+                             doc
+                             &key
+                             map-command)
+  "Defines global and local keymaps for a mode with name
+vim:`name'-[local-]keymap and a map command vim:`map-command'
+and vim:local-`map-command'."
+  (let ((glbkeym (concat "vim:" (symbol-name name) "-keymap"))
+        (lockeym (concat "vim:" (symbol-name name) "-local-keymap")))
+    `(progn
+       (defconst ,(intern glbkeym) (vim:make-keymap)
+         ,(concat "VIM global keymap: " doc))
+       (defconst ,(intern lockeym) (vim:make-keymap)
+         ,(concat "VIM buffer local keymap: " doc))
+       ,@(when map-command
+          `((defsubst ,(intern (concat "vim:" (symbol-name map-command)))
+              (keys command)
+              ,(concat "Maps the sequence of events `keys' to a `command' in keymap "
+                       glbkeym)
+              (vim:map keys command :keymap ,(intern glbkeym)))
+            (defsubst ,(intern (concat "vim:local-" (symbol-name map-command)))
+               (keys command)
+               ,(concat "Maps the sequence of events `keys' to a `command' in keymap "
+                        lockeym)
+               (vim:map keys command :keymap ,(intern lockeym))))))))
+(font-lock-add-keywords 'emacs-lisp-mode '("vim:define-keymap"))
+             
+    
+  
+
+;; Interception of ESC event. The ESC event is intercepted. If not
+;; followed by another key, i.e. not used as a prefix-key, the event
+;; [escape] is sent, otherwise the interception-keymap is disabled for
+;; the next command and the ESC event is resent.
+(defcustom vim:intercept-ESC-timeout 0.1
+  "Time in seconds to wait for another key after an ESC event."
+  :group 'vim-mode)
+
+(defconst vim:intercept-ESC-keymap (make-sparse-keymap)
+  "Keymap to map ESC to [escape].")
+
+(define-minor-mode vim:intercept-ESC-mode
+  "VIM minor mode to capture ESC."
+  nil nil nil)
+
+;; This function is defined in vim:compat.el
+;; (defun vim:intercept-ESC () ...)
+
+(defun vim:enable-intercept-ESC ()
+  "Enables interception of ESC after executing a (prefix-)command."
+  (unless (eq this-command 'vim:intercept-ESC)
+    (remove-hook 'pre-command-hook 'vim:enable-intercept-ESC)
+    (vim:intercept-ESC-mode 1)))
+
+;; Catch '\e' and convert it to [escape] if not used as prefix key.
+(vim:map (kbd "ESC") 'vim:intercept-ESC :keymap vim:intercept-ESC-keymap)
+
+
+;; The override keymap, useful especially in normal-mode.
+(defconst vim:override-keymap (make-keymap)
+  "Global parent keymap to override some Emacs default bindings.")
+(suppress-keymap vim:override-keymap)
+(vim:map (kbd "ESC ESC ESC")
+         (lambda ()
+           "Exits any VIM mode and returns to normal-mode."
+           (interactive)
+           (vim:activate-normal-mode)
+           (ding))
+         :keymap vim:override-keymap)
+
+
+;; This function sets up the keymaps for the current mode.
+(defmacro vim:set-keymaps (mode-name keymaps)
+  (when (eq (car-safe mode-name) 'quote)
+    (setq mode-name (cadr mode-name)))
+  (when (eq (car-safe keymaps) 'quote)
+    (setq keymaps (cadr keymaps)))
+  `(setq vim:emulation-mode-alist
+         (list ,@(cons '(cons 'vim:intercept-ESC-mode vim:intercept-ESC-keymap)
+                       (mapcan #'(lambda (keym)
+                                   (let ((localname (intern (replace-regexp-in-string "mode-keymap" "mode-local-keymap"
+                                                                                      (symbol-name keym)))))
+                                     (if (eq localname keym)
+                                         (list `(cons ',mode-name ,keym))
+                                       (list `(cons ',mode-name ,localname)
+                                             `(cons ',mode-name ,keym)))))
+                               keymaps)))))
+
+;; TODO: This function is currently empty and serves only as hook for
+;; defadvice.
+(defun vim:reset-key-state ()
+  "Resets the current internal key-state."
+  nil)
+
+(vim:deflocalvar vim:current-key-sequence nil
+  "The key-sequence of the current command.")
+
+(vim:deflocalvar vim:new-buffer nil
+  "The buffer the be made current at the end of key-handline.")
+
+(defun vim:clear-key-sequence ()
+  "Clears the internal log of key-sequences."
+  (setq vim:current-key-sequence nil))
+
+(provide 'vim-keymap)
+
+;;; vim-keymap.el ends here
diff --git a/.emacs.d/vim-mode/vim-maps.el b/.emacs.d/vim-mode/vim-maps.el
new file mode 100644
index 0000000..4ab987f
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-maps.el
@@ -0,0 +1,364 @@
+;;; vim-maps.el
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+
+;; This file contains all standard keymaps.  Key mappings are defined
+;; using one of the following vim-like macros:
+
+;;   - vim:map ... general mapping in an arbitrary mode
+;;   - vim:nmap ... mapping in the normal-mode keymap
+;;   - vim:omap ... mapping in the operator-pending keymap
+;;   - vim:imap ... mapping in the insert-mode keymap
+;;   - vim:vmap ... mapping in the visual-mode keymap
+;;   - vim:emap ... mapping in the ex-mode keymap
+;;
+;; Furthermore, for each of these map-function there's a buffer-local
+;; variant
+;;
+;;   - vim:local-nmap ... mapping in the normal-mode local keymap
+;;   - vim:local-omap ... mapping in the operator-pending local keymap
+;;   - vim:local-imap ... mapping in the insert-mode local keymap
+;;   - vim:local-vmap ... mapping in the visual-mode local keymap
+;;   - vim:local-emap ... mapping in the ex-mode local keymap
+;;
+;; The local versions should be used to define mode specific bindings
+;; as local-set-key would do.
+;;
+;; Commands should usually be placed in the normal-mode keymap.
+;; Motions should be placed in the operator-pending keymap. All
+;; commands in the operator-pending-keymap are available as
+;; operator-pending in normal-mode and visual-mode (but may be
+;; overwritten by the corresponding keymaps) and as motion-arguments
+;; for complex commands in normal-mode.
+;;
+;; A mapping has one of the following two forms:
+;;
+;;   (vim:map KEYEVENTS 'my-command)
+;;
+;;   (vim:map KEYEVENTS MAPEVENTS)
+;;
+;; The first form maps the events in KEYEVENTS to the command
+;; my-command.  The second form defines a vim-like mapping of
+;; KEYEVENTS to MAPEVENTS, i.e. the activation of KEYEVENTS invokes
+;; the (key-)events in MAPEVENTS.
+;;
+;; KEYEVENTS is a usual Emacs-sequence of events as it would be used by
+;; define-key.
+
+;;; TODO:
+;;   - better mapping to support stuff like
+;;     (vim:def-map "c" "d{motion}a")
+;;
+;;   - because of this, mapping "cc" to "0C" does not work with a
+;;     count since the count is eaten by the '0'
+;;
+;;   - similarily 'o' and 'O' won't work
+;;
+;;   - should we have a 'deep-mapping' function: for example, "x" is
+;;     mapped to "dl" in the default keymap.  If someone decides to
+;;     redefine "l" to some other command, "x" will change its
+;;     behaviour, too.  A 'deep-mapping' should save the mapping on
+;;     definition of "x", therefor let "x" behave as usual even after
+;;     redefining "l"
+
+;;; Code:
+
+(vim:nmap "\\" 'vim:cmd-emacs)
+
+(vim:nmap (kbd "C-z") 'vim:activate-emacs-mode)
+(vim:map (kbd "C-z") 'vim:activate-normal-mode :keymap vim:emacs-keymap)
+
+(vim:omap [escape] 'vim:operator-pending-mode-exit)
+(vim:omap "0" 'vim:motion-beginning-of-line-or-digit-argument)
+(vim:omap "1" 'digit-argument)
+(vim:omap "2" 'digit-argument)
+(vim:omap "3" 'digit-argument)
+(vim:omap "4" 'digit-argument)
+(vim:omap "5" 'digit-argument)
+(vim:omap "6" 'digit-argument)
+(vim:omap "7" 'digit-argument)
+(vim:omap "8" 'digit-argument)
+(vim:omap "9" 'digit-argument)
+(vim:nmap "\"" 'vim:select-register)
+
+(vim:nmap "ZZ" 'vim:cmd-write-and-close)
+
+(vim:mmap "h" 'vim:motion-left)
+(vim:mmap "l" 'vim:motion-right)
+(vim:mmap "^" 'vim:motion-first-non-blank)
+(vim:mmap "$" 'vim:motion-end-of-line)
+(vim:mmap "g_" 'vim:motion-last-non-blank)
+
+(vim:mmap "k" 'vim:motion-up)
+(vim:mmap "j" 'vim:motion-down)
+(vim:mmap "-" "k^")
+(vim:mmap "+" "j^")
+(vim:mmap "G" 'vim:motion-go-to-first-non-blank-end) 
+(vim:mmap "gg" 'vim:motion-go-to-first-non-blank-beg) 
+
+(vim:mmap "w" 'vim:motion-fwd-word)
+(vim:mmap "W" 'vim:motion-fwd-WORD)
+(vim:mmap "e" 'vim:motion-fwd-word-end)
+(vim:mmap "E" 'vim:motion-fwd-WORD-end)
+(vim:mmap "b" 'vim:motion-bwd-word)
+(vim:mmap "B" 'vim:motion-bwd-WORD)
+(vim:mmap "ge" 'vim:motion-bwd-word-end)
+(vim:mmap "gE" 'vim:motion-bwd-WORD-end)
+
+(vim:mmap "(" 'vim:motion-bwd-sentence)
+(vim:mmap ")" 'vim:motion-fwd-sentence)
+(vim:mmap "{" 'vim:motion-bwd-paragraph)
+(vim:mmap "}" 'vim:motion-fwd-paragraph)
+(vim:mmap "]]" 'vim:motion-fwd-section)
+(vim:mmap "][" 'vim:motion-fwd-section)
+(vim:mmap "[[" 'vim:motion-bwd-section)
+(vim:mmap "[]" 'vim:motion-bwd-section)
+
+(vim:omap "f" 'vim:motion-find)
+(vim:omap "F" 'vim:motion-find-back)
+(vim:omap "t" 'vim:motion-find-to)
+(vim:omap "T" 'vim:motion-find-back-to)
+(vim:omap ";" 'vim:motion-repeat-last-find)
+(vim:omap "," 'vim:motion-repeat-last-find-opposite)
+
+(vim:omap "%" 'vim:motion-jump-item)
+
+(vim:omap "'" 'vim:motion-mark-line)
+(vim:omap "`" 'vim:motion-mark)
+
+(vim:omap "iw" 'vim:motion-inner-word)
+
+;(vim:nmap "x" "dl")
+(vim:nmap "m" 'vim:cmd-set-mark)
+(vim:nmap "x" 'vim:cmd-delete-char)
+(vim:nmap "D" "d$")
+(vim:nmap "d" 'vim:cmd-delete)
+
+(vim:nmap "C" 'vim:cmd-change-rest-of-line)
+(vim:nmap "c" 'vim:cmd-change)
+(vim:nmap "s" 'vim:cmd-change-char)
+
+(vim:nmap "r" 'vim:cmd-replace-char)
+(vim:nmap "R" 'vim:cmd-replace)
+
+(vim:nmap "y" 'vim:cmd-yank)
+(vim:nmap "Y" "yy")
+(vim:nmap "p" 'vim:cmd-paste-behind)
+(vim:nmap "P" 'vim:cmd-paste-before)
+
+(vim:nmap "J" 'vim:cmd-join-lines)
+
+(vim:nmap "/" 'vim:search-start)
+(vim:nmap "?" 'vim:search-start-backward)
+(vim:nmap "*" 'vim:search-word)
+(vim:nmap "#" 'vim:search-word-backward)
+(vim:nmap "g*" 'vim:search-unbounded-word)
+(vim:nmap "g#" 'vim:search-unbounded-word-backward)
+(vim:nmap "n" 'vim:search-repeat)
+(vim:nmap "N" 'vim:search-repeat-opposite)
+;; The next two maps are very special for an active search.
+(vim:map "n" 'vim:search-repeat :keymap vim:search-keymap)
+(vim:map "N" 'vim:search-repeat-opposite :keymap vim:search-keymap)
+
+(vim:nmap "i" 'vim:cmd-insert)
+(vim:nmap "a" 'vim:cmd-append)
+(vim:nmap "I" 'vim:cmd-Insert)
+(vim:nmap "A" 'vim:cmd-Append)
+(vim:nmap "o" 'vim:cmd-insert-line-below)
+(vim:nmap "O" 'vim:cmd-insert-line-above)
+
+(vim:nmap "u" 'vim:cmd-undo)
+(vim:nmap (kbd "C-r") 'vim:cmd-redo)
+
+(vim:nmap "." 'vim:cmd-repeat)
+
+(vim:nmap "=" 'vim:cmd-indent)
+(vim:nmap "<" 'vim:cmd-shift-left)
+(vim:nmap ">" 'vim:cmd-shift-right)
+
+(vim:nmap "~" "g~l")
+(vim:nmap "g~" 'vim:cmd-toggle-case)
+(vim:nmap "gU" 'vim:cmd-make-upcase)
+(vim:nmap "gu" 'vim:cmd-make-downcase)
+
+(vim:omap (kbd "C-e") 'vim:scroll-line-down)
+(vim:omap (kbd "C-d") 'vim:scroll-down)
+(vim:omap (kbd "C-f") 'vim:scroll-page-down)
+(vim:omap "z+" 'vim:scroll-bottom-line-to-top)
+
+(vim:omap (kbd "C-y") 'vim:scroll-line-up)
+(vim:omap (kbd "C-u") 'vim:scroll-up)
+(vim:omap (kbd "C-b") 'vim:scroll-page-up)
+(vim:omap "z^" 'vim:scroll-top-line-to-bottom)
+
+(vim:omap "zt" 'vim:scroll-line-to-top)
+(vim:omap (vconcat "z" [return]) "zt^")
+(vim:omap (kbd "z RET") (vconcat "z" [return]))
+(vim:omap "zz" 'vim:scroll-line-to-center)
+(vim:omap "z." "z.^")
+(vim:omap "zb" 'vim:scroll-line-to-bottom)
+(vim:omap "z-" "zb^")
+
+
+(vim:wmap (kbd "C-w +") 'vim:window-increase-height)
+(vim:wmap (kbd "C-w -") 'vim:window-decrease-height)
+(vim:wmap (kbd "C-w =") 'vim:window-balance)
+(vim:wmap (kbd "C-w >") 'vim:window-increase-width)
+(vim:wmap (kbd "C-w <") 'vim:window-decrease-width)
+(vim:wmap (kbd "C-w H") 'vim:window-move-far-left)
+(vim:wmap (kbd "C-w J") 'vim:window-move-very-bottom)
+(vim:wmap (kbd "C-w K") 'vim:window-move-very-top)
+(vim:wmap (kbd "C-w L") 'vim:window-move-far-right)
+(vim:wmap (kbd "C-w R") 'vim:window-rotate-upwards)
+(vim:wmap (kbd "C-w C-R") (kbd "C-w R"))
+(vim:wmap (kbd "C-w r") 'vim:window-rotate-downwards)
+(vim:wmap (kbd "C-w C-r") (kbd "C-w r"))
+(vim:wmap (kbd "C-w _") 'vim:window-set-height)
+(vim:wmap (kbd "C-w C-_") (kbd "C-w _"))
+(vim:wmap (kbd "C-w |") 'vim:window-set-width)
+(vim:wmap (kbd "C-w b") 'vim:window-bottom-right)
+(vim:wmap (kbd "C-w C-b") (kbd "C-w b"))
+(vim:wmap (kbd "C-w t") 'vim:window-top-left)
+(vim:wmap (kbd "C-w C-t") (kbd "C-w t"))
+(vim:wmap (kbd "C-w c") 'vim:window-close)
+(vim:wmap (kbd "C-w h") 'vim:window-left)
+(vim:wmap (kbd "C-w C-h") (kbd "C-w h"))
+(vim:wmap (kbd "C-w j") 'vim:window-down)
+(vim:wmap (kbd "C-w C-j") (kbd "C-w j"))
+(vim:wmap (kbd "C-w k") 'vim:window-up)
+(vim:wmap (kbd "C-w C-k") (kbd "C-w k"))
+(vim:wmap (kbd "C-w l") 'vim:window-right)
+(vim:wmap (kbd "C-w C-l") (kbd "C-w l"))
+(vim:wmap (kbd "C-w p") 'vim:window-lru)
+(vim:wmap (kbd "C-w C-p") (kbd "C-w p"))
+(vim:wmap (kbd "C-w w") 'vim:window-next)
+(vim:wmap (kbd "C-w C-w") (kbd "C-w w"))
+(vim:wmap (kbd "C-w W") 'vim:window-prev)
+(vim:wmap (kbd "C-w n") 'vim:window-new)
+(vim:wmap (kbd "C-w C-n") (kbd "C-w n"))
+(vim:wmap (kbd "C-w o") 'vim:window-only)
+(vim:wmap (kbd "C-w C-o") (kbd "C-w o"))
+(vim:wmap (kbd "C-w s") 'vim:window-split)
+(vim:wmap (kbd "C-w C-s") (kbd "C-w s"))
+(vim:wmap (kbd "C-w S") (kbd "C-w s"))
+(vim:wmap (kbd "C-w v") 'vim:window-vsplit)
+(vim:wmap (kbd "C-w C-v") (kbd "C-w v"))
+
+(vim:nmap "v" 'vim:visual-toggle-normal)
+(vim:nmap "V" 'vim:visual-toggle-linewise)
+(vim:nmap (kbd "C-v") 'vim:visual-toggle-block)
+(vim:nmap "gv" 'vim:visual-mode-reactivate)
+
+(vim:nmap ":" 'vim:ex-read-command)
+(vim:nmap "q" 'vim:cmd-toggle-macro-recording)
+(vim:nmap "@" 'vim:cmd-execute-macro)
+    
+
+(vim:imap (vector vim:ESC-event) 'vim:insert-mode-exit)
+(vim:imap [insert] 'vim:insert-mode-toggle-replace)
+(vim:imap [kp-insert] [insert])
+(vim:imap [insertchar] [insert])
+
+(vim:vmap (vector vim:ESC-event) 'vim:visual-mode-exit)
+(vim:vmap "v" 'vim:visual-toggle-normal)
+(vim:vmap "V" 'vim:visual-toggle-linewise)
+(vim:vmap (kbd "C-v") 'vim:visual-toggle-block)
+(vim:vmap "\"" 'vim:select-register)
+
+(vim:vmap "d" 'vim:cmd-delete)
+(vim:vmap "D" 'vim:cmd-delete)
+(vim:vmap "x" 'vim:cmd-delete)
+
+(vim:vmap "c" 'vim:cmd-change)
+(vim:vmap "C" "Vc")
+(vim:vmap "r" 'vim:cmd-replace-region)
+(vim:vmap "R" 'vim:cmd-change)
+(vim:vmap "s" 'vim:cmd-change)
+(vim:vmap "S" 'vim:cmd-change)
+
+(vim:vmap "y" 'vim:cmd-yank)
+(vim:vmap "Y" 'vim:cmd-yank)
+
+(vim:vmap "J" 'vim:cmd-join)
+
+(vim:vmap "=" 'vim:cmd-indent)
+(vim:vmap "<" 'vim:cmd-shift-left)
+(vim:vmap ">" 'vim:cmd-shift-right)
+
+(vim:vmap "~" 'vim:cmd-toggle-case)
+(vim:vmap "U" 'vim:cmd-make-upcase)
+(vim:vmap "u" 'vim:cmd-make-downcase)
+
+(vim:vmap "I" 'vim:visual-insert)
+(vim:vmap "A" 'vim:visual-append)
+
+(vim:vmap "o" 'vim:visual-exchange-point-and-mark)
+(vim:vmap "O" 'vim:visual-jump-point)
+
+(vim:vmap ":" 'vim:visual-ex-read-command)
+
+
+
+(vim:emap "edit" 'vim:cmd-edit)
+(vim:emap "e" "edit")
+(vim:emap "write" 'vim:cmd-write)
+(vim:emap "w" "write")
+(vim:emap "write!" 'vim:cmd-write-q)
+(vim:emap "w!" "write!")
+(vim:emap "wall" 'vim:cmd-write-all)
+(vim:emap "wa" "wall")
+(vim:emap "wall!" 'vim:cmd-write-all-q)
+(vim:emap "wa!" "wall!")
+(vim:emap "buffer" 'vim:cmd-buffer)
+(vim:emap "b" "buffer")
+
+(vim:emap "split" 'vim:window-split)
+(vim:emap "sp" "split")
+(vim:emap "vsplit" 'vim:window-vsplit)
+(vim:emap "vs" "vsplit")
+(vim:emap "new" 'vim:window-new)
+(vim:emap "vnew" 'vim:window-vnew)
+(vim:emap "vne" "vnew")
+(vim:emap "close" 'vim:window-close)
+(vim:emap "clo" "close")
+(vim:emap "only" 'vim:window-only)
+(vim:emap "on" "only")
+(vim:emap "quit" 'vim:cmd-quit)
+(vim:emap "q" "quit")
+(vim:emap "quit!" 'vim:cmd-quit-q)
+(vim:emap "q!" "quit")
+(vim:emap "wq" 'vim:cmd-save-and-close)
+(vim:emap "wq!" 'vim:cmd-save-and-close-q)
+(vim:emap "quitall" 'vim:cmd-quit-all)
+(vim:emap "quita" "quitall")
+(vim:emap "qall" "quitall")
+(vim:emap "qa" "qall")
+(vim:emap "quitall!" 'vim:cmd-quit-all-q)
+(vim:emap "quita!" "quitall!")
+(vim:emap "qall!" "quitall!")
+(vim:emap "qa!" "qall!")
+(vim:emap "wqall" 'vim:cmd-save-and-quit)
+(vim:emap "wqa" "wqall")
+(vim:emap "xall" "wqall")
+(vim:emap "xa" "xall")
+(vim:emap "bdelete" 'vim:cmd-delete-buffer)
+(vim:emap "bd" "bdelete")
+(vim:emap "bdelete!" 'vim:cmd-delete-buffer-q)
+(vim:emap "bd!" "bdelete!")
+(vim:emap "substitute" 'vim:cmd-substitute)
+(vim:emap "s" "substitute")
+(vim:emap "marks" 'vim:cmd-show-marks)
+
+
+(vim:nmap (vector vim:down-mouse-1) 'vim:visual-mouse-clicked)
+(vim:vmap (vector vim:down-mouse-1) 'vim:visual-mouse-clicked)
+
+(provide 'vim-maps)
+
+;;; vim-maps.el ends here
diff --git a/.emacs.d/vim-mode/vim-modes.el b/.emacs.d/vim-mode/vim-modes.el
new file mode 100644
index 0000000..ea08544
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-modes.el
@@ -0,0 +1,87 @@
+;;; vim-modes.el
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Code:
+
+(vim:deflocalvar vim:mode-string)
+(defun vim:update-mode-line (ident)
+  "Updates the mode-line to show the specified identifier `ident'."
+  (setq vim:mode-string (concat "<" (or ident "?") ">"))
+  (force-mode-line-update))
+
+
+(defun vim:mode-name (mode)
+  "Converts a mode-name to vim-mode naming conventions, e.g.
+'normal is converted to 'vim:normal-mode."
+  (intern (concat "vim:" (symbol-name mode) "-mode")))
+
+(vim:deflocalvar vim:active-mode nil
+  "The currently active vim-mode.") 
+
+(vim:deflocalvar vim:active-command-function nil
+  "The command function of the currently active vim-mode.")
+
+(defun vim:activate-mode (mode)
+  "Activates a certain vim-mode, disabling the currently active one."
+  (when vim:active-mode
+    (funcall vim:active-mode -1))
+  (when mode
+    (funcall (vim:mode-name mode) 1)))
+
+
+(defmacro* vim:define-mode (name doc
+                                 &rest body
+                                 &key
+                                 ident
+                                 message
+                                 command-function
+                                 (cursor ''box)
+                                 keymaps)
+  "Defines a new VIM-mode with certain `name', mode-line-identifier `ident',
+activation `message', a `command-function' to be called when a
+vim-command should be executed, a `cursor' shape and a list of `keymaps'."
+  (let* ((mode-name (vim:mode-name name))
+         (pred-name (intern (concat (symbol-name mode-name) "-p")))
+         (on-name (intern (concat "vim:activate-" (symbol-name name) "-mode")))
+         (cursor-name (intern (concat (symbol-name mode-name)
+                                      "-cursor"))))
+    `(progn
+       (defcustom ,cursor-name ,cursor
+         ,(concat "The cursor-type for vim-mode " (symbol-name name) ".")
+         :group 'vim-mode)
+       
+       (define-minor-mode ,mode-name ,doc nil nil nil
+         (when ,mode-name
+           ,@(when ident `((vim:update-mode-line ,ident)))
+           ,@(when message `((let (message-log-max) (message ,message))))
+           (setq vim:active-mode ',mode-name)
+           (setq vim:active-command-function
+                 ,(if command-function
+                      command-function
+                    'vim:default-command-function))
+           (vim:set-cursor ,cursor-name)
+           (vim:set-keymaps ',mode-name ,keymaps))
+         ,@(progn
+             (while (keywordp (car body)) (pop body) (pop body))
+             body))
+
+       (defun ,pred-name ()
+         ,(concat "Returns t iff vim-mode is in " (symbol-name name) " mode.")
+         (and ,mode-name t))
+       
+       (defun ,on-name ()
+         ,(concat "Activates " (symbol-name name) " mode.")
+         (interactive)
+         (vim:activate-mode ',name)))))
+
+(font-lock-add-keywords 'emacs-lisp-mode '("vim:define-mode"))
+
+(provide 'vim-modes)
+
+;;; vim-modes.el ends here
+
diff --git a/.emacs.d/vim-mode/vim-motions.el b/.emacs.d/vim-mode/vim-motions.el
new file mode 100644
index 0000000..2247681
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-motions.el
@@ -0,0 +1,666 @@
+;;; vim-motions.el - Implementation of VIM motions.
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+
+;; Motions describe functions moving the cursor or representing an
+;; argument for an operator. There are three types of motions:
+;; character-wise, line-wise and block-wise. Usually only the first
+;; two types are represented by motion-commands while the last one is
+;; implicitly used by visual-block-mode.
+;;
+;; A motion is defined using the macro 'vim:defmotion' which has the
+;; following form:
+;; 
+;; (vim:defmotion name (count 
+;;                      argument[:{char}] 
+;;                      {inclusive,exclusive,linewise,block}) 
+;;   body...)
+;;
+;; Each of the arguments is optional. The names of the arguments must
+;; be exactly as in the definition above (but see 'Argument-renaming'
+;; below).
+;;
+;; The COUNT argument (if given) takes the count of the motion which
+;; is usually the number how often the motion should be repeated. This
+;; argument may be nil if no count is given.
+;;
+;; The ARGUMENT argument is an aditional text-argument to be given and
+;; may be nil, too. If it is specified as ARGUMENT:CHAR, the argument
+;; is a one-character argument (see `vim:motion-find' usually bound to
+;; 'f' for an example), otherwise it's a string-argument. Currently all
+;; motions taking an argument take a character-argument.
+;;
+;; One if the pseudo-arguments INCLUSIVE, EXCLUSIVE, LINEWISE and BLOCK
+;; must be given and specifies the type of the motion. See the Vim-manual
+;; for an explanation of motion-types.
+;;
+;; If you do not like the default argument names, they may be renamed by using
+;; (ARG NEWNAME) instead of ARG, e.g.
+;;
+;;   (vim:defmotion vim:motion-find (inclusive count (argument:char arg))
+;;
+;; defines an inclusive motion with a count-argument but renames the 
+;; character-argument to ARG.
+;;
+;; Each motion should return an object of type `vim:motion'. This may happen
+;; in one of two ways: explicit or implicit. 
+;;
+;; Explicit: The function creates an object of type `vim:motion' using
+;; `vim:make-motion' specifing the begin position, the end position
+;; and the type of the motion (overriding the motion-type specified in
+;; the argument list). If the motion is a usual motion, the vim:motion
+;; parameter :has-begin should be nil, if it's a text-objects it
+;; should be t. The difference is that text-objects actively define a
+;; range from the begin-position to the end-position, while
+;; conventional motions define only the end-position placing begin at
+;; (point). The motion should also change (point) usually to the
+;; end-position of the returned motion.
+;;
+;; Implicit: Creating an explicit `vim:motion' object is overkill for
+;; most simple motions. If the motion does not return a `vim:motion'
+;; object, its created implicitly with the following rules: 
+;;   - the begin-position is set to (point) before the execution of motion's 
+;;     body
+;;   - the end-position is set to (point) after the execution of motion's
+;;     body
+;;   - :has-begin is nil 
+;;   - the type is the type defined in the motion's argument list
+;; Almost all motions defined in this file are implicit.
+;;
+;; Note that, independently on whether the motion is defined
+;; implicitly or explicitly, calling a motion always returns a
+;; `vim:motion' object, i.e. (vim:motion-p (vim:motion-left)) would
+;; return t.
+;;
+;; Motions can be bound to some key-sequence as any other interactive
+;; Emacs function, but they work only in vim-mode. Ususally motions
+;; are bound to the operator-pending-mode keymap using `vim:omap'.
+
+;;; Code:
+
+(vim:deflocalvar vim:this-column nil
+  "The resulting column of the current motion.")
+
+(vim:deflocalvar vim:last-column nil
+  "The resulting column of the previous motion.")
+
+(vim:deflocalvar vim:last-find nil
+  "The previous find command (command . arg).")
+
+(defcustom vim:word "[:word:]"
+  "Regexp-set matching a word."
+  :type 'string
+  :group 'vim-mode)
+
+(defcustom vim:whitespace " \t\r\n"
+  "Regexp-set matching a whitespace."
+  :type 'string
+  :group 'vim-mode)
+
+(defun vim:adjust-point ()
+  "Adjust the pointer after a command."
+  ;; TODO: should we check modes directly?
+  (when (and (not (vim:insert-mode-p))
+             )				;(not vim:replace-mode))
+    
+    (when vim:this-column
+      (move-to-column vim:this-column))
+    ;; always stop at the last character (not the newline)
+    (when (and (not (vim:visual-mode-p))
+               (eolp) (not (bolp)))
+      (backward-char)))
+  
+  (setq vim:last-column (or vim:this-column
+                            (current-column)))
+  (setq vim:this-column nil))
+
+
+(defun vim:use-last-column ()
+  "This function should by called by a motion not changing the column."
+  (setq vim:this-column vim:last-column))
+
+
+;; This structure is passed to operators taking a motion.
+;; It should *not* be returned by motions.
+(defstruct (vim:motion
+            (:constructor vim:make-motion-struct))
+  has-begin		  ; t iff the motion defined an explicit begin
+  begin			  ; first point in this motion
+  end			  ; last point in this motion
+  type			  ; 'inclusive, 'exclusive, 'linewise
+  )
+
+(defun* vim:make-motion (&key
+                         has-begin
+			 (begin (point))
+			 (end (point))
+			 type)
+  "Creates a new motion with `begin' and `end' always 
+positions within (point-min) and (point-max) and not at 
+ (line-end-position) (if possible)."
+  (unless type
+    (setq type (if (<= begin end) 'inclusive 'exclusive)))
+  
+  (labels 
+      ((shrink-to (pos lower upper)
+                  (max lower (min upper pos)))
+       
+       (normalize-pos (pos)
+                      (let ((pos (shrink-to pos (point-min) (point-max))))
+                        (shrink-to pos 
+                                   (save-excursion
+                                     (goto-char pos)
+                                     (line-beginning-position))
+                                   (save-excursion
+                                     (goto-char pos)
+                                     (- (line-end-position)
+                                        (if (eq type 'inclusive) 1 0)))))))
+    
+    (vim:make-motion-struct :has-begin has-begin
+                            :begin (normalize-pos begin)
+                            :end (normalize-pos end)
+                            :type type)))
+
+
+(defun vim:motion-line-count (motion)
+  "Returns the number of lines the `motion' covers."
+  (1+ (- (vim:motion-last-line motion)
+	 (vim:motion-first-line motion))))
+
+(defun vim:motion-first-line (motion)
+  "Returns the first line covered by `motion'."
+  (min (line-number-at-pos (vim:motion-begin motion))
+       (line-number-at-pos (vim:motion-end motion))))
+
+(defun vim:motion-last-line (motion)
+  "Returns the last line covered by `motion'."
+  (max (line-number-at-pos (vim:motion-begin motion))
+       (line-number-at-pos (vim:motion-end motion))))
+
+(defun vim:motion-first-col (motion)
+  "Returns the first column covered by `motion'."
+  (min (save-excursion 
+	 (goto-char (vim:motion-begin motion))
+	 (current-column))
+       (save-excursion 
+	 (goto-char (vim:motion-end motion))
+	 (current-column))))
+
+(defun vim:motion-last-col (motion)
+  "Returns the last column covered by `motion'."
+  (max (save-excursion 
+	 (goto-char (vim:motion-begin motion))
+	 (current-column))
+       (save-excursion 
+	 (goto-char (vim:motion-end motion))
+	 (current-column))))
+
+(defun vim:motion-begin-pos (motion)
+  "Returns the smaller position covered by `motion'.
+The result is modified depending on the motion type to
+return the correct start-position of emacs-ranges, i.e.
+  - if motion is inclusive or exclusive, nothing is changed
+  - if motion is line-wise, is always bol of the first line in the motion,
+  - if motion is block 1 is added if and only if the begin column
+    is larget than the end column."
+  (case (vim:motion-type motion)
+    (linewise
+     (save-excursion
+       (goto-line (vim:motion-first-line motion))
+       (line-beginning-position)))
+    ('block
+        (let ((b (min (vim:motion-begin motion) (vim:motion-end motion)))
+              (e (max (vim:motion-begin motion) (vim:motion-end motion))))
+          (if (> (save-excursion (goto-char b) (current-column))
+                 (save-excursion (goto-char e) (current-column)))
+              (1+ b)
+            b)))
+    (t (min (vim:motion-begin motion) (vim:motion-end motion)))))
+
+
+(defun vim:motion-end-pos (motion)
+  "Returns the larger position covered by `motion'.
+The result is modified depending on the motion type to
+return the correct end-position of emacs-ranges, i.e.
+  - if motion is inclusive, 1 is added,
+  - if motion is exclusive, nothing is change,
+  - if motion is line-wise, is always eol of the last line in the motion,
+  - if motion is block 1 is added if and only if the end column
+    is larger than or equal to the begin column."
+  (case (vim:motion-type motion)
+    (linewise
+     (save-excursion
+       (goto-line (vim:motion-last-line motion))
+       (line-end-position)))
+    ('block
+        (let ((b (min (vim:motion-begin motion) (vim:motion-end motion)))
+              (e (max (vim:motion-begin motion) (vim:motion-end motion))))
+          (if (>= (save-excursion (goto-char e) (current-column))
+                  (save-excursion (goto-char b) (current-column)))
+              (1+ e)
+            e)))
+    (inclusive
+     (1+ (max (vim:motion-begin motion) (vim:motion-end motion))))
+    (t (max (vim:motion-begin motion) (vim:motion-end motion)))))
+
+
+(defmacro vim:do-motion (type expression)
+  "Executes a motion body, ensuring the return of a valid vim:motion object."
+  (let ((current-pos (gensym))
+        (motion (gensym)))
+    `(let* ((,current-pos (point))
+            (,motion ,expression))
+       (if (vim:motion-p ,motion)
+           ,motion
+         (vim:make-motion :has-begin nil
+                          :begin ,current-pos
+                          :end (point)
+                          :type ,type)))))
+(font-lock-add-keywords 'emacs-lisp-mode '("vim:do-motion"))
+
+
+(vim:deflocalvar vim:local-marks-alist nil
+  "Local marks for this buffer.")
+
+(defvar vim:global-marks-alist nil
+  "Global marks.")
+
+(defun vim:local-mark-p (mark-char)
+  "Returns t if `mark-char' is a local mark."
+  (or (and (>= mark-char ?a) (<= mark-char ?z))
+      (member mark-char '(?^ ?. ?< ?>))))
+
+(defun vim:global-mark-p (mark-char)
+  "Returns t if `mark-char' is a global mark."
+  (and (>= mark-char ?A) (<= mark-char ?z)))
+
+(defun vim:set-mark (mark-char &optional pos)
+  "Sets the mark `mark-char' to `pos' or (point)."
+  (let (m)
+    (cond
+     ((vim:local-mark-p mark-char)
+      (setq m (or (cdr-safe (assoc mark-char vim:local-marks-alist))))
+      (unless m
+        (setq m (make-marker))
+        (push (cons mark-char m) vim:local-marks-alist)))
+     
+     ((vim:global-mark-p mark-char)
+      (setq m (or (cdr-safe (assoc mark-char vim:global-marks-alist))))
+      (unless m
+        (setq m (make-marker))
+        (push (cons mark-char m) vim:global-marks-alist)))
+     (t (error "Unknown mark '%c'" mark-char)))
+    (set-marker m (or pos (point)))))
+
+(defun vim:get-local-mark (mark-char)
+  "Returns the marker of `mark-char' if it's in the current buffer."
+  (cond
+   ((vim:local-mark-p mark-char)
+    (let ((m (cdr-safe (assoc mark-char vim:local-marks-alist))))
+      (if m m
+        (error "No mark '%c' defined." mark-char))))
+   ((vim:global-mark-p mark-char)
+    (let ((m (cdr-safe (assoc mark-char vim:global-marks-alist))))
+      (if m
+          (if (eq (marker-buffer m) (current-buffer))
+              m
+            (error "Global mark '%c' not in current buffer." mark-char))
+        (error "No mark '%c' defined." mark-char))))
+   (t
+    (error "Unknown mark: '%c'" mark-char))))
+
+(add-hook 'before-change-functions 'vim:set-change-mark)
+(defun vim:set-change-mark (beg end)
+  "Sets the change mark . to `beg'."
+  (vim:set-mark ?. beg))
+
+(defun vim:adjust-end-of-line-position (pos)
+  "If pos is an end-of-line returns pos - 1 and pos otherwise."
+  (save-excursion
+    (goto-char pos)
+    (max (line-beginning-position)
+         (min (1- (line-end-position)) pos))))
+
+(vim:defmotion vim:motion-left (exclusive count)
+  "Move the cursor count characters left."
+  (goto-char (max (line-beginning-position)
+                  (- (point) (or count 1)))))
+
+(vim:defmotion vim:motion-right (exclusive count)
+  "Move the cursor count characters right."
+  (goto-char
+   (min (line-end-position)
+        (+ (point) (or count 1)))))
+
+(vim:defmotion vim:motion-up (linewise count)
+  "Move the cursor count lines up."
+  (vim:use-last-column)
+  (forward-line (- (or count 1))))
+
+(vim:defmotion vim:motion-down (linewise count)
+  "Move the cursor count lines down."
+  (vim:use-last-column)
+  (forward-line (or count 1)))
+
+(vim:defmotion vim:motion-lines (linewise count)
+  "Moves count - 1 lines down."
+  (vim:use-last-column)
+  (forward-line (1- (or count 1))))
+
+
+(defun vim:motion-beginning-of-line-or-digit-argument ()
+  "Feeds a 0 count or moves the cursor to the beginning of the line."
+  (interactive)
+  (if (and current-prefix-arg
+           (not (zerop (prefix-numeric-value current-prefix-arg))))
+      (call-interactively 'digit-argument)
+    (call-interactively 'vim:motion-beginning-of-line)))
+
+
+(vim:defmotion vim:motion-beginning-of-line (exclusive)
+  "Move the cursor to the beginning of the current line."
+  (beginning-of-line))
+
+(vim:defmotion vim:motion-first-non-blank (exclusive)
+  "Move the cursor to the first non-blank character of the current line."
+  (back-to-indentation))
+
+(vim:defmotion vim:motion-end-of-line (inclusive count)
+  "Move the cursor to the end of the current line."
+  (end-of-line count))
+
+(vim:defmotion vim:motion-last-non-blank (inclusive count)
+  "Move the cursor to the last non-blank charactor of the current line."
+  (goto-char
+   (save-excursion
+     (beginning-of-line count)
+     (re-search-forward "[ \t]*$")
+     (max (line-beginning-position)
+          (1- (match-beginning 0))))))
+
+(vim:defmotion vim:motion-go-to-first-non-blank-beg (linewise count)
+  "Moves the cursor to the first non-blank charactor of line count."
+  (if count
+      (goto-line count)
+    (goto-char (point-min)))
+  (vim:motion-first-non-blank))
+
+(vim:defmotion vim:motion-go-to-first-non-blank-end (linewise count)
+  "Moves the cursor to the first non-blank charactor of line count."
+  (if count
+      (goto-line count)
+    (goto-char (point-max)))
+  (vim:motion-first-non-blank))
+
+
+(vim:defmotion vim:motion-fwd-word (exclusive count)
+  "Moves the cursor beginning of the next word."
+  (let ((word (concat "[" vim:word "]"))
+        (noword (concat "[^" vim:word "]"))
+        (nonword (concat "[^" vim:whitespace vim:word "]"))
+        (nononword (concat "[" vim:whitespace vim:word "]")))
+    (dotimes (i (or count 1))
+      (forward-char)
+      (while
+          (not
+           (or (and (looking-back noword) (looking-at word))
+               (and (looking-back nononword) (looking-at nonword))
+               (and (bolp) (eolp))
+               (eobp)))
+        (forward-char))))
+
+  ;; in operator-pending mode, if we reached the beginning of a new
+  ;; line, go back to the end of the previous line
+  (when (and (vim:operator-pending-mode-p)
+             (vim:looking-back "^[ \t]*")
+             (not (save-excursion
+                    (forward-line -1)
+                    (and (bolp) (eolp)))))
+    (forward-line -1)
+    (end-of-line)))
+
+
+(vim:defmotion vim:motion-bwd-word (exclusive count)
+  "Moves the cursor beginning of the previous word."
+  (let ((word (concat "[" vim:word "]"))
+        (noword (concat "[^" vim:word "]"))
+        (nonword (concat "[^" vim:whitespace vim:word "]"))
+        (nononword (concat "[" vim:whitespace vim:word "]")))
+    (dotimes (i (or count 1))
+      (backward-char)
+      (while
+          (not
+           (or (and (looking-back noword) (looking-at word))
+               (and (looking-back nononword) (looking-at nonword))
+               (and (bolp) (eolp))
+               (eobp)))
+        (backward-char)))))
+
+
+(vim:defmotion vim:motion-fwd-word-end (inclusive count)
+  "Moves the cursor to the end of the next word."            
+  (let ((wordend (concat "[" vim:word "][^" vim:word "]"))
+	(nowordend (concat "[^" vim:whitespace vim:word "][" vim:whitespace vim:word "]")))
+    (forward-char)
+    (re-search-forward (concat wordend "\\|" nowordend "\\|\\'") nil nil (or count 1))
+    (goto-char (match-beginning 0))))
+
+
+(vim:defmotion vim:motion-bwd-word-end (inclusive count)
+  "Moves the cursor to the end of the previous word."            
+  (let ((wordend (concat "[" vim:word "][^" vim:word "]"))
+	(nowordend (concat "[^" vim:whitespace vim:word "][" vim:whitespace vim:word "]")))
+    (unless (eobp) (forward-char))
+    (re-search-backward (concat wordend "\\|" nowordend "\\|\\`") nil nil (or count 1))
+    (goto-char (match-beginning 0))))
+
+
+(vim:defmotion vim:motion-fwd-WORD (exclusive count)
+  "Moves the cursor to beginning of the next WORD."
+  (let ((WORD (concat "[^" vim:whitespace "]"))
+	(noWORD (concat "[" vim:whitespace "]")))
+    (dotimes (i (or count 1))
+      (forward-char)
+      (while
+	  (not
+	   (or (and (looking-back noWORD) (looking-at WORD))
+	       (and (bolp) (eolp))
+	       (eobp)))
+	(forward-char))))
+  
+  ;; in operator-pending mode, if we reached the beginning of a new
+  ;; line, go back to the end of the previous line
+  (when (and (vim:operator-pending-mode-p)
+	     (vim:looking-back "^[ \t]*")
+	     (not (save-excursion
+		    (forward-line -1)
+		    (and (bolp) (eolp)))))
+    (forward-line -1)
+    (end-of-line)))
+
+
+(vim:defmotion vim:motion-bwd-WORD (exclusive count)
+  "Moves the cursor to beginning of the previous WORD."
+  (let ((WORD (concat "[^" vim:whitespace "]"))
+	(noWORD (concat "[" vim:whitespace "]")))
+    (dotimes (i (or count 1))
+      (backward-char)
+      (while
+	  (not
+	   (or (and (looking-back noWORD) (looking-at WORD))
+	       (and (bolp) (eolp))
+	       (eobp)))
+	(backward-char)))))
+
+
+(vim:defmotion vim:motion-fwd-WORD-end (inclusive count)
+  "Moves the cursor to the end of the next WORD."            
+  (let ((WORDend (concat "[^" vim:whitespace "][" vim:whitespace "]")))
+    (forward-char)
+    (re-search-forward (concat WORDend "\\|\\'") nil nil (or count 1))
+    (goto-char (match-beginning 0))))
+
+
+(vim:defmotion vim:motion-bwd-WORD-end (inclusive count)
+  "Moves the cursor to the end of the next WORD."            
+  (let ((WORDend (concat "[^" vim:whitespace "][" vim:whitespace "]")))
+    (unless (eobp) (forward-char))
+    (re-search-backward (concat WORDend "\\|\\'") nil nil (or count 1))
+    (goto-char (match-beginning 0))))
+
+
+(vim:defmotion vim:motion-fwd-sentence (exclusive count)
+  "Move the cursor `count' sentences forward."
+  (dotimes (i (or count 1))
+    (let ((par-end (save-excursion
+                     (forward-paragraph)
+                     (point))))
+      (unless (re-search-forward (sentence-end) par-end t)
+        (goto-char par-end)))))
+    
+
+(vim:defmotion vim:motion-bwd-sentence (exclusive count)
+  "Move the cursor `count' sentences backward."
+  (dotimes (i (or count 1))
+    (let ((par-beg (save-excursion
+                     (backward-paragraph)
+                     (point))))
+      (if (re-search-backward (concat (sentence-end) "[^ \t\n]")
+                              par-beg t)
+          (goto-char (1- (match-end 0)))
+        (goto-char par-beg)))))
+
+
+(vim:defmotion vim:motion-fwd-paragraph (exclusive count)
+  "Move the cursor `count' paragraphs forward."
+  (forward-paragraph (or count 1)))
+
+
+(vim:defmotion vim:motion-bwd-paragraph (exclusive count)
+  "Move the cursor `count' paragraphs backward."
+  (backward-paragraph (or count 1)))
+
+
+(vim:defmotion vim:motion-find (inclusive count (argument:char arg))
+  "Move the cursor to the next count'th occurrence of arg."
+  (forward-char)
+  (let ((case-fold-search nil))
+    (unless (search-forward (char-to-string arg)
+			    nil t (or count 1))
+      (backward-char)
+      (error (format "Can't find %c" arg)))
+    (setq vim:last-find (cons 'vim:motion-find arg))
+    (backward-char)))
+
+
+(vim:defmotion vim:motion-find-back (exclusive count (argument:char arg))
+  "Move the cursor to the previous count'th occurrence of arg."
+  (let ((case-fold-search nil))
+    (unless (search-backward (char-to-string arg)
+			     nil t (or count 1))
+      (error (format "Can't find %c" arg)))
+    (setq vim:last-find (cons 'vim:motion-find-back arg))))
+
+
+(vim:defmotion vim:motion-find-to (inclusive count (argument:char arg))
+  "Move the cursor to the character before the next count'th\
+   occurence of arg."
+  (vim:motion-find :count count :argument arg)
+  (backward-char)
+  (setq vim:last-find (cons 'vim:motion-find-to arg)))
+
+
+(vim:defmotion vim:motion-find-back-to (exclusive count (argument:char arg))
+  "Move the cursor to the character after the previous count'th\
+   occurence of arg."
+  (vim:motion-find-back :count count :argument arg)
+  (forward-char)
+  (setq vim:last-find (cons 'vim:motion-find-to arg)))
+
+
+(vim:defmotion vim:motion-repeat-last-find (inclusive count)
+  "Repeats the last find command."
+  (unless vim:last-find
+    (error "No previous find command."))
+  (funcall (car vim:last-find)
+	   :count count
+	   :argument (cdr vim:last-find)))
+
+
+(vim:defmotion vim:motion-repeat-last-find-opposite (inclusive count)
+  "Repeats the last find command."
+  (unless vim:last-find
+    (error "No previous find command."))
+  (let ((func (case (car vim:last-find)
+		('vim:motion-find 'vim:motion-find-back)
+		('vim:motion-find-back 'vim:motion-find)
+		('vim:motion-find-to 'vim:motion-find-back-to)
+		('vim:motion-find-back-to 'vim:motion-find-to)
+		(t (error (format "Unexpected find command %s"
+				  (car vim:last-find))))))
+	(arg (cdr vim:last-find)))
+    (let ((vim:last-find nil))
+      (funcall func :count count :argument arg))))
+
+
+(vim:defmotion vim:motion-jump-item (inclusive)
+  "Find the next item in this line after or under the cursor and
+jumps to the corresponding one."
+  (let ((next-open
+	 (condition-case err
+	     (1- (scan-lists (point) 1 -1))
+	   (error
+	    (point-max))))
+	(next-close
+	 (condition-case nil
+	     (1- (scan-lists (point) 1 +1))
+	   (error (point-max)))))
+    (let ((pos (min next-open next-close)))
+      (when (>= pos (line-end-position))
+	(error "No matching item found on the current line."))
+      (if (= pos next-open)
+	  (progn
+	    (goto-char pos)
+	    (forward-list)
+	    (backward-char))
+	(progn
+	  (goto-char (1+ pos))
+	  (backward-list))))))
+
+
+(vim:defmotion vim:motion-inner-word (inclusive count)
+  "Select `count' words."
+  (let ((beg (save-excursion
+	       (forward-char)
+	       (vim:motion-bwd-word)
+	       (point)))
+	(end (save-excursion
+	       (backward-char)
+	       (vim:motion-fwd-word-end :count count)
+	       (point))))
+    (goto-char end)
+    (vim:make-motion :has-begin t
+		     :begin beg
+		     :end end
+		     :type 'inclusive)))
+
+
+(vim:defmotion vim:motion-mark (exclusive (argument:char mark-char))
+  "Moves to the position of `mark-char'."
+  (goto-char (vim:get-local-mark mark-char)))
+
+(vim:defmotion vim:motion-mark-line (linewise (argument:char mark-char))
+  "Moves to the first non-blank char in the line of `mark-char'."
+  (goto-char (vim:get-local-mark mark-char))
+  (vim:motion-first-non-blank)
+  t)
+
+(provide 'vim-motions)
+
+;;; vim-motions.el ends here
diff --git a/.emacs.d/vim-mode/vim-normal-mode.el b/.emacs.d/vim-mode/vim-normal-mode.el
new file mode 100644
index 0000000..881fef1
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-normal-mode.el
@@ -0,0 +1,192 @@
+;;; vim-insert-mode.el - VIM normal mode.
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+
+;;; TODO:
+;; - bindings in local-omap keymap will not be seen as motions in
+;;   normal-mode since the parent-keymap of the normal-mode keymap
+;;   is operator-pending-keymap and not its local counterpart. The
+;;   reason is that the binding of the local counterpart will be
+;;   changed to a buffer-local binding.
+
+;;; Code:
+
+(defconst vim:operator-repeat-keymap (vim:make-keymap)
+  "Keymap to bind the repeat-operator-event.")
+
+(vim:define-keymap operator-pending-mode
+                   "operator pending mode"
+                   :map-command omap)
+
+(vim:define-mode operator-pending "VIM operator-pending mode"
+                 :ident "O"
+                 :keymaps '(vim:operator-pending-mode-keymap
+                            vim:motion-mode-keymap
+                            vim:operator-repeat-keymap
+                            vim:override-keymap)
+                 :command-function 'vim:operator-pending-mode-command)
+
+(add-hook 'vim:operator-pending-mode-hook 'vim:operator-pending-activate)
+(add-hook 'vim:operator-pending-mode-off-hook 'vim:operator-pending-deactivate)
+
+(defun vim:operator-pending-activate ()
+  (cond
+   (vim:operator-pending-mode
+    (setq vim:operator-repeat-last-event (vector last-command-event))
+    (vim:map vim:operator-repeat-last-event 'vim:motion-lines
+	     :keymap vim:operator-repeat-keymap)
+    (add-hook 'post-command-hook 'vim:operator-pending-mode-exit))
+
+   (vim:operator-repeat-last-event
+    (vim:map vim:operator-repeat-last-event nil :keymap vim:operator-repeat-keymap))))
+
+
+(defun vim:operator-pending-deactivate ()
+  (remove-hook 'post-command-hook 'vim:operator-pending-mode-exit))
+
+(defun vim:operator-pending-mode-exit ()
+  "Exits operator-pending-mode and returns to normal-mode."
+  (interactive)
+  (unless (or (vim:cmd-function this-command)
+              (eq this-command 'digit-argument)
+              (eq this-command 'universal-argument-other-key))
+    (vim:activate-normal-mode)))
+
+
+(defun vim:operator-pending-mode-command (command)
+  "Executes a complex command in operator-pending mode."
+  (case (vim:cmd-type command)
+    ('simple (error "No simple-commands allowed in operator-pending mode."))
+    ('complex (error "No complex-commands allowed in operator-pending mode."))
+    (t (vim:normal-execute-complex-command command)))
+    
+  (when (vim:operator-pending-mode-p)
+      (vim:activate-normal-mode)))
+
+
+(vim:define-keymap normal-mode "normal mode" &map-command nmap)
+
+(vim:define-mode normal "VIM normal mode"
+                 :ident "N"
+                 :message "-- NORMAL --"
+                 :keymaps '(vim:normal-mode-keymap
+                            vim:operator-pending-mode-keymap
+                            vim:motion-mode-keymap
+                            vim:window-mode-keymap
+                            vim:override-keymap)
+                 :command-function 'vim:normal-mode-command)
+
+(defun vim:normal-mode-command (command)
+  "Executes a motion or simple-command or prepares a complex command."
+  (case (vim:cmd-type command)
+    ('simple (vim:normal-execute-simple-command command))
+    ('complex (vim:normal-prepare-complex-command command))
+    ('special (error "no special so far"))
+    (t (vim:normal-execute-motion command))))
+
+
+(defun vim:normal-execute-motion (command)
+  "Executes a motion."
+  (setq vim:current-motion command)
+
+  (when current-prefix-arg
+    (setq vim:current-motion-count (prefix-numeric-value current-prefix-arg)))
+
+  (when (vim:cmd-char-arg-p command)
+    (setq vim:current-motion-arg (read-char-exclusive)))
+
+  (vim:execute-current-motion)
+    
+  (vim:reset-key-state)
+  (vim:clear-key-sequence)
+  (vim:adjust-point))
+
+
+(defun vim:normal-execute-simple-command (command)
+  "Executes a simple command."
+  (when current-prefix-arg
+    (setq vim:current-cmd-count (prefix-numeric-value current-prefix-arg)))
+  
+  (when (vim:cmd-char-arg-p command)
+    (setq vim:current-cmd-arg (read-char-exclusive)))
+
+  (let ((parameters nil)
+        (vim:last-undo buffer-undo-list))
+    (when (vim:cmd-count-p command)
+      (push vim:current-cmd-count parameters)
+      (push :count parameters))
+    (when (vim:cmd-char-arg-p command)
+      (push vim:current-cmd-arg parameters)
+      (push :argument parameters))
+    (when (and (vim:cmd-register-p command)
+               vim:current-register)
+      (push vim:current-register parameters)
+      (push :register parameters))
+    (vim:apply-save-buffer (vim:cmd-function command) parameters)
+    (when (vim:cmd-repeatable-p command)
+      (setq vim:repeat-events (vconcat vim:current-key-sequence
+                                       (vim:this-command-keys))))
+    (vim:connect-undos vim:last-undo))
+
+  (vim:reset-key-state)
+  (vim:clear-key-sequence)
+  (vim:adjust-point))
+    
+
+(defun vim:normal-prepare-complex-command (command)
+  "Prepares a complex command, switching to operator-pending mode."
+  (when current-prefix-arg
+    (setq vim:current-cmd-count (prefix-numeric-value current-prefix-arg)))
+  
+  (setq vim:current-cmd command)
+  (setq vim:current-key-sequence (vconcat vim:current-key-sequence (vim:this-command-keys)))
+  (vim:activate-operator-pending-mode))
+
+(defun vim:normal-execute-complex-command (motion-command)
+  "Executes a complex command with a certain motion command."
+  (setq vim:current-motion motion-command)
+
+  (when current-prefix-arg
+    (setq vim:current-motion-count (prefix-numeric-value current-prefix-arg)))
+
+  (when (or vim:current-motion-count vim:current-cmd-count)
+    (setq vim:current-motion-count (* (or vim:current-cmd-count 1)
+                                      (or vim:current-motion-count 1)))
+    (setq vim:current-cmd-count nil))
+
+  (when (vim:cmd-char-arg-p motion-command)
+    (setq vim:current-motion-arg (read-char-exclusive)))
+
+  (let ((vim:last-undo buffer-undo-list))
+    (if (and (vim:cmd-register-p vim:current-cmd) vim:current-register)
+        (vim:funcall-save-buffer (vim:cmd-function vim:current-cmd)
+                                 :motion (vim:get-current-cmd-motion)
+                                 :register vim:current-register)
+      (vim:funcall-save-buffer (vim:cmd-function vim:current-cmd)
+                               :motion (vim:get-current-cmd-motion)))
+    (when (vim:cmd-repeatable-p vim:current-cmd)
+      (setq vim:repeat-events (vconcat vim:current-key-sequence
+                                       (vim:this-command-keys))))
+    (vim:connect-undos vim:last-undo))
+    
+  (vim:reset-key-state)
+  (vim:clear-key-sequence)
+  (vim:adjust-point))
+
+
+(vim:define-mode operator-pending "VIM operator-pending mode"
+                 :ident "O"
+                 :keymaps '(vim:operator-pending-mode-keymap
+                            vim:motion-mode-keymap
+                            vim:operator-repeat-keymap
+                            vim:override-keymap)
+                 :command-function 'vim:operator-pending-mode-command)
+
+(provide 'vim-normal-mode)
+
+;;; vim-normal-mode.el ends here
diff --git a/.emacs.d/vim-mode/vim-scroll.el b/.emacs.d/vim-mode/vim-scroll.el
new file mode 100644
index 0000000..56dfc77
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-scroll.el
@@ -0,0 +1,136 @@
+;;; vim-scroll.el - Implementation of scrolling commands
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+
+;; This file contains implementations for the scrolling.  Scroll
+;; operations are usually just simple commands and should not be
+;; repeatable but should keep visual mode.
+
+;;; Code:
+
+(vim:define-keymap motion-mode "motion mode" :map-command mmap)
+
+(vim:define-mode motion "VIM motion mode"
+                 :ident "M"
+                 :keymaps '(vim:motion-mode-keymap vim:window-mode-keymap)
+                 :command-function 'vim:normal-mode-command)
+
+(defun vim:num-visible-lines ()
+  "Returns the number of currently visible lines."
+  (- (window-height) 1))
+
+(defun vim:max-scroll-up ()
+  "Returns the maximal number of lines that can be scrolled up."
+  (1- (line-number-at-pos (window-start))))
+
+(defun vim:max-scroll-down ()
+  "Returns the maximal number of lines that can be scrolled down."
+  (if (pos-visible-in-window-p (window-end))
+      0
+      (1+ (- (line-number-at-pos (point-max))
+             (line-number-at-pos (window-end))))))
+
+(vim:defcmd vim:scroll-line-up (count nonrepeatable keep-visual)
+  "Scrolls the window `count' lines upwards."
+  (vim:use-last-column)
+  (scroll-down (or count 1)))
+
+
+(vim:defcmd vim:scroll-line-down (count nonrepeatable keep-visual)
+  "Scrolls the window `count' lines downwards."
+  (vim:use-last-column)
+  (scroll-up (or count 1)))
+
+
+(vim:defcmd vim:scroll-up (count nonrepeatable keep-visual)
+  "Scrolls the window and the cursor `count' lines upwards, default half of the screen."
+  (vim:use-last-column)
+  (let ((p (point))
+        (c (or count (/ (vim:num-visible-lines) 2))))
+    (save-excursion
+      (scroll-down (min (vim:max-scroll-up) c)))
+    (forward-line (- c))
+    (when (= (line-number-at-pos p)
+             (line-number-at-pos (point)))
+      (ding))))
+
+
+(vim:defcmd vim:scroll-down (count nonrepeatable keep-visual)
+  "Scrolls the window and the cursor `count' lines downwards, default half of the screen."
+  (vim:use-last-column)
+  (let ((p (point))
+        (c (or count (/ (vim:num-visible-lines) 2))))
+    (save-excursion
+      (scroll-up (min (vim:max-scroll-down) c)))
+    (forward-line c)
+    (when (= (line-number-at-pos p)
+             (line-number-at-pos (point)))
+      (ding))))
+
+
+(vim:defcmd vim:scroll-page-up (count nonrepeatable keep-visual)
+  "Scrolls the window `count' pages upwards."
+  (vim:use-last-column)
+  (condition-case nil
+      (dotimes (i (or count 1))
+        (scroll-down nil))
+    (error (goto-char (point-min)))))
+
+
+(vim:defcmd vim:scroll-page-down (count nonrepeatable keep-visual)
+  "Scrolls the window `count' pages upwards."
+  (vim:use-last-column)
+  (condition-case nil
+      (dotimes (i (or count 1))
+        (scroll-up nil))
+    (error (goto-char (point-max)))))
+
+
+(vim:defcmd vim:scroll-line-to-top (count nonrepeatable keep-visual)
+  "Scrolls line number `count' (or the cursor line) to the top of the window."            
+  (vim:use-last-column)
+  (goto-line (or count (line-number-at-pos (point))))
+  (recenter 0))
+
+
+(vim:defcmd vim:scroll-line-to-center (count nonrepeatable keep-visual)
+  "Scrolls line number `count' (or the cursor line) to the center of the window."            
+  (vim:use-last-column)
+  (goto-line (or count (line-number-at-pos (point))))
+  (recenter nil))
+
+
+(vim:defcmd vim:scroll-line-to-bottom (count nonrepeatable keep-visual)
+  "Scrolls line number `count' (or the cursor line) to the bottom of the window."            
+  (vim:use-last-column)
+  (goto-line (or count (line-number-at-pos (point))))
+  (recenter -1))
+
+
+(vim:defcmd vim:scroll-bottom-line-to-top (count nonrepeatable keep-visual)
+  "Scrolls the line right below the window or line `count' to the top of the window."
+  (if count
+      (goto-line count)
+    (goto-char (window-end))
+    (unless (bobp) (backward-char)))
+  (recenter 0)
+  (vim:motion-first-non-blank))
+
+
+(vim:defcmd vim:scroll-top-line-to-bottom (count nonrepeatable keep-visual)
+  "Scrolls the line right below the window or line `count' to the top of the window."
+  (if count
+      (goto-line count)
+    (goto-char (window-start)))
+  (recenter -1)
+  (vim:motion-first-non-blank))
+
+(provide 'vim-scroll)
+
+;;; vim-scroll.el ends here
diff --git a/.emacs.d/vim-mode/vim-search.el b/.emacs.d/vim-mode/vim-search.el
new file mode 100644
index 0000000..6386e27
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-search.el
@@ -0,0 +1,243 @@
+;;; vim-search.el - Search und substitute commands for ex-mode.
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;; TODO:
+;;
+;;  - searching currently uses isearch.  Although this is quite powerful,
+;;    it's only usuably as interactive search and difficult to use with
+;;    semi-interactive stuff like the "*" command.  The current implementation
+;;    using unread-command-events is quite ugly.
+;;  - the substitute command should be more interactive and especially an operation
+;;    without the 'g' option should highlight all future occurences
+
+;;; Code:
+
+(defconst vim:search-keymap (make-sparse-keymap))
+(vim:set-keymap-default-binding vim:search-keymap 'vim:search-mode-exit)
+
+(vim:deflocalvar vim:search-last-direction nil
+  "The last search direction, either 'forward or 'backward.")
+
+(defun vim:search-mode-activate ()
+  (setq cursor-type vim:normal-mode-cursor))
+
+(defun vim:search-mode-deactivate ()
+  (isearch-exit))
+
+(vim:defcmd vim:search-mode-exit ()
+  (vim:activate-normal-mode)
+  (push last-command-event unread-command-events))
+
+;; Search mode is a very special mode being activated during a search
+;; command.  Its purpose is to disable highlighting of search results
+;; if something else than a repeat-search event occurs.
+(vim:define-mode search "VIM search mode"
+                 :ident "S"
+                 :keymaps '(vim:search-keymap)
+                 :command-function 'vim:search-mode-command)
+(add-hook 'vim:search-mode-on-hook 'vim:search-mode-activate)
+(add-hook 'vim:search-mode-off-hook 'vim:search-mode-activate)
+
+(defun vim:search-mode-command (command)
+  "Executes a simple-command in search-mode."
+  (case (vim:cmd-type command)
+    ('simple (vim:normal-execute-simple-command command))
+    (t (error "Only simple commands allowed in search-mode."))))
+
+(vim:defcmd vim:search-start (nonrepeatable)
+  "Starts an incremental regexp search."
+  (let ((search-nonincremental-instead nil))
+    (ad-activate 'isearch-message-prefix)
+    (isearch-forward-regexp)
+    (ad-deactivate 'isearch-message-prefix)
+    (setq vim:last-search-direction (if isearch-forward 'forward 'backward))))
+
+(vim:defcmd vim:search-start-backward (nonrepeatable)
+  "Starts an incremental regexp search."
+  (let ((search-nonincremental-instead nil))
+    (ad-activate 'isearch-message-prefix)
+    (isearch-backward-regexp)
+    (ad-deactivate 'isearch-message-prefix)
+    (setq vim:last-search-direction (if isearch-forward 'forward 'backward))))
+
+(vim:defcmd vim:search-repeat (nonrepeatable)
+  "Repeats the last incremental search."
+  (unless (vim:search-mode-p)
+    (vim:activate-search-mode))
+  (ad-activate 'isearch-message-prefix)
+  (isearch-repeat vim:last-search-direction)
+  (ad-deactivate 'isearch-message-prefix))
+
+(vim:defcmd vim:search-repeat-opposite (nonrepeatable)
+  "Starts an incremental regexp search."
+  (unless (vim:search-mode-p)
+    (vim:activate-search-mode))
+  (ad-activate 'isearch-message-prefix)
+  (isearch-repeat (if (eq vim:last-search-direction 'forward) 'backward 'forward))
+  (ad-deactivate 'isearch-message-prefix))
+
+(defadvice isearch-message-prefix (after vim:isearch-message-prefix (&optional c-q-hack ellipsis nonincremental))
+  "This advice changes the minibuffer indicator to '/' or '?'"
+  (setq ad-return-value (if isearch-forward "/" "?")))
+
+(defun vim:start-word-search (unbounded direction)
+ 
+  (condition-case nil
+      (goto-char (vim:motion-bwd-word-end :count 1))
+    (error nil))
+ 
+  (save-excursion
+    (re-search-forward (concat "\\<[" vim:word "]+\\>")))
+ 
+  (when (eq direction 'backward)
+    (goto-char (1+ (match-end 0))))
+  (let ((events (reverse (append (if (eq direction 'forward)
+				     "/"
+				   "?")
+				 (if unbounded
+				     (regexp-quote (match-string 0))
+				   (concat "\\<" 
+					   (regexp-quote (match-string 0))
+					   "\\>"))
+				 [return]
+				 "n"
+				 nil))))
+    (while events
+      (push (car events) unread-command-events)
+      (setq events (cdr events)))))
+
+
+(vim:defcmd vim:search-word (nonrepeatable)
+  "Searches the next occurence of word under the cursor."
+  (vim:start-word-search nil 'forward))
+   
+   
+(vim:defcmd vim:search-word-backward (nonrepeatable)
+  "Searches the next occurence of word under the cursor."
+  (vim:start-word-search nil 'backward))
+   
+   
+(vim:defcmd vim:search-unbounded-word (nonrepeatable)
+  "Searches the next occurence of word under the cursor."
+  (vim:start-word-search t 'forward))
+   
+   
+(vim:defcmd vim:search-unbounded-word-backward (nonrepeatable)
+  "Searches the next occurence of word under the cursor."
+  (vim:start-word-search t 'backward))
+
+
+(vim:defcmd vim:cmd-substitute (motion argument nonrepeatable)
+  "The VIM substitutde command: [range]s/pattern/replacement/flags"
+  (multiple-value-bind (pattern replacement flags) (vim:parse-substitute argument)
+    (lexical-let* ((pattern pattern)
+                   (replacement replacement)
+                   (first-line (if motion (vim:motion-first-line motion) (line-number-at-pos (point))))
+                   (last-line (if motion (vim:motion-last-line motion) (line-number-at-pos (point))))
+                   (whole-line (and flags (find ?g flags)))
+                   (confirm (and flags (find ?c flags)))
+                   (ignore-case (and flags (find ?i flags)))
+                   (dont-ignore-case (and flags (find ?I flags)))
+                   (case-fold-search (or (and case-fold-search
+                                              (not dont-ignore-case))
+                                         (and (not case-fold-search)
+                                              ignore-case)))
+                   (case-replace case-fold-search)
+                   (last-point (point))
+                   (overlay (make-overlay (point) (point)))
+                   (next-line (line-number-at-pos (point)))
+                   (nreplaced 0))
+      
+      (unwind-protect
+          (if whole-line
+              ;; this one is easy, just use the built in function
+              (vim:perform-replace pattern replacement confirm t nil nil nil 
+                                   (save-excursion
+                                     (goto-line first-line)
+                                     (line-beginning-position))
+                                   (save-excursion
+                                     (goto-line last-line)
+                                     (line-end-position)))
+            (if confirm
+                (progn
+                  ;; this one is more difficult, we have to do the
+                  ;; highlighting and questioning on our own
+                  (overlay-put overlay 'face
+                               (if (internal-find-face 'isearch nil)
+                                   'isearch 'region))
+                  (map-y-or-n-p #'(lambda (x)
+                                    (set-match-data x)
+                                    (move-overlay overlay (match-beginning 0) (match-end 0))
+                                    (concat "Query replacing " 
+                                            (match-string 0) 
+                                            " with "
+                                            (match-substitute-replacement replacement case-fold-search)
+                                            ": "))
+                                #'(lambda (x) 
+                                    (set-match-data x) 
+                                    (replace-match replacement case-fold-search) 
+                                    (incf nreplaced)
+                                    (setq last-point (point)))
+                                #'(lambda ()
+                                    (let ((end (save-excursion 
+                                                 (goto-line last-line)
+                                                 (line-end-position))))
+                                      (goto-line next-line)
+                                      (beginning-of-line)
+                                      (when (and (> end (point))
+                                                 (re-search-forward pattern end t nil))
+                                        (setq last-point (point))
+                                        (setq next-line (1+ (line-number-at-pos (point))))
+                                        (match-data))))))
+              
+              ;; just replace the first occurences per line
+              ;; without highlighting and asking
+              (goto-line first-line)
+              (beginning-of-line)
+              (while (and (<= (line-number-at-pos (point)) last-line)
+                          (re-search-forward pattern (save-excursion
+                                                       (goto-line last-line)
+                                                       (line-end-position))
+                                             t nil))
+                (incf nreplaced)
+                (replace-match replacement)
+                (setq last-point (point))
+                (forward-line)
+                (beginning-of-line)))
+
+            (goto-char last-point)
+            (if (= nreplaced 1)
+                (message "Replaced 1 occurence")
+              (message "Replaced %d occurences" nreplaced)))
+           
+        ;; clean-up the overlay
+        (delete-overlay overlay)))))
+
+
+(defun vim:parse-substitute (text)
+  (when (string-match "\\`\\s-*/\\(\\(?:[^/]\\|\\\\.\\)+\\)/\\(\\(?:[^/]\\|\\\\.\\)*\\)\\(?:/\\([giIc]*\\)\\)?\\s-*\\'"
+                      text)
+    (let ((pattern (match-string 1 text))
+          (replacement (match-string 2 text))
+          (flags (match-string 3 text)))
+      (values pattern
+              ;; handle some special escapes, especially \\ and \/
+              (replace-regexp-in-string "\\\\."
+                                        (lambda (x)
+                                          (cond ((string= x "\\n") "\n")
+                                                ((string= x "\\t") "\t")
+                                                ((string= x "\\r") "\r")
+                                                ((string= x "\\/") "/")
+                                                ((string= x "\\\\") "\\\\\\\\")
+                                                (t x)))
+                                        replacement)
+              flags))))
+
+(provide 'vim-search)
+
+;;; vim-search.el ends here
diff --git a/.emacs.d/vim-mode/vim-undo.el b/.emacs.d/vim-mode/vim-undo.el
new file mode 100644
index 0000000..c44753f
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-undo.el
@@ -0,0 +1,71 @@
+;;; vim-undo.el - Undo/Redo for VIM.
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+
+;; Before the execution of an editing command, the calling function
+;; should save the current head of buffer-undo-list.  When the
+;; editing-command has finished, the calling function should use
+;; vim:connect-undos to connect the changes made during editing to one
+;; single undo-block.
+;;
+;; Insert-mode has a special handling: when activated, it stores the
+;; current head of buffer-undo-list in vim:last-insert-undo and used
+;; this pointer to connect all editing actions during insert-mode to
+;; one undo-block when insert-mode is deactivated.  If a function
+;; activates insert-mode it may modify vim:last-insert-undo to an
+;; apropriate value (see vim:execute-mapping for an example).
+
+;;; Code:
+
+(condition-case nil
+    (require 'redo)
+  (error
+   (message "vim-mode: Could not load 'redo', redo-command not available.")))
+
+(defvar vim:last-undo)
+
+;; undo stuff
+(defun vim:connect-undos (last-undo)
+  (labels
+      ((find-mark (lst)
+                  (while (not (or (null lst)
+                                  (eq lst last-undo)))
+                    (setq lst (cdr lst)))
+                  (not (null lst))))
+                   
+    ;; ensure last-undo is still in the undo list
+    (when (and last-undo
+               (not (eq last-undo buffer-undo-list))
+               (find-mark buffer-undo-list))
+      
+      ;; add the end-of-command mark if not already there
+      (unless (null (car buffer-undo-list))
+        (push nil buffer-undo-list))
+
+      ;; remove all nils until the mark
+      (let ((lst buffer-undo-list))
+        (while (and lst
+                    (not (eq (cdr lst) last-undo)))
+          (if (null (cadr lst))
+              (setcdr lst (cddr lst))
+            (setq lst (cdr lst))))))))
+
+
+(vim:defcmd vim:cmd-undo (count nonrepeatable)
+  (setq vim:last-undo nil)
+  (dotimes (i (or count 1))
+    (undo)))
+    
+(vim:defcmd vim:cmd-redo (count nonrepeatable)
+  (setq vim:last-undo nil)
+  (redo (or count 1)))
+
+(provide 'vim-undo)
+
+;;; vim-undo.el ends here
diff --git a/.emacs.d/vim-mode/vim-vim.el b/.emacs.d/vim-mode/vim-vim.el
new file mode 100644
index 0000000..23d78c5
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-vim.el
@@ -0,0 +1,404 @@
+;;; vim-vim.el - Basic functions and macros for vim-mode.
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Code:
+
+(defvar vim:repeat-events nil
+  "The sequence of events for the repeat command.")
+
+(vim:deflocalvar vim:current-register nil
+  "The register of the current command.")
+
+(vim:deflocalvar vim:current-cmd-count nil
+  "The count of the current command.")
+
+(vim:deflocalvar vim:current-cmd nil
+  "The node of the current command.")
+
+(vim:deflocalvar vim:current-cmd-arg nil
+  "The argument of the current command.")
+
+(vim:deflocalvar vim:current-motion-count nil
+  "The count of the current motion.")
+
+(vim:deflocalvar vim:current-motion nil
+  "The node of the current motion.")
+
+(vim:deflocalvar vim:current-motion-arg nil
+  "The argument of the current motion.")
+
+(vim:deflocalvar vim:current-motion-type nil
+  "The type of the current motion (inclusive, exclusive, linewise).")
+
+(defun vim:toplevel-execution ()
+  "Returns t iff this is a toplevel execution, not a mapping or repeat."
+  (not executing-kbd-macro))
+
+
+(defadvice vim:reset-key-state (before vim:vim-reset-key-state)
+  "Resets the current state of the keymap."
+  (setq vim:current-register nil
+        vim:current-cmd-count nil
+        vim:current-cmd nil
+        vim:current-cmd-arg nil
+        vim:current-motion-count nil
+        vim:current-motion nil
+        vim:current-motion-arg nil
+        vim:current-motion-type nil))
+(ad-activate 'vim:reset-key-state)
+
+
+(defmacro* vim:defcmd (name (&rest args) &rest body)
+  "Defines a new VIM-command."
+  (declare (indent defun))
+  (let ((count nil)
+        (register nil)
+        (motion nil)
+        (argument nil)
+        (keep-visual nil)
+        (repeatable t)
+        (params nil)
+        (named-params nil)
+        (doc nil))
+
+    ;; extract documentation string
+    (if (and (consp body)
+               (cdr body)
+               (stringp (car body)))
+        (setq doc (car body)
+              body (cdr body))
+      (setq doc (format "VIM - command (%s %s)" name args)))
+    
+    ;; collect parameters
+    (dolist (arg args)
+      (case (if (consp arg) (car arg) arg)
+        ('count
+         (setq count t)
+         (push '(count nil) params)
+         (when (and (consp arg)
+                    (not (eq (cadr arg) 'count)))
+           (push `(,(cadr arg) count) named-params)))
+
+        ('register
+         (setq register t)
+         (push '(register nil) params)
+         (when (and (consp arg)
+                    (not (eq (cadr arg) 'register)))
+           (push `(,(cadr arg) register) named-params)))
+
+        ('motion
+         (when motion
+           (error "%s: only one motion argument may be specified: %s" 'vim:defcmd arg))
+         (setq motion t)
+         (push 'motion params)
+         (when (and (consp arg)
+                    (not (eq (cadr arg) 'motion)))
+           (push `(,(cadr arg) motion) named-params)))
+
+        ('motion:optional
+         (when motion
+           (error "%s: only one motion argument may be specified: %s" 'vim:defcmd arg))
+         (setq motion ''optional)
+         (push 'motion params)
+         (when (and (consp arg)
+                    (not (eq (cadr arg) 'motion)))
+           (push `(,(cadr arg) motion) named-params)))
+        
+        ((argument argument:char argument:file argument:buffer)
+         (when argument
+           (error "%s: only one argument may be specified: %s" 'vim:defcmd arg))
+         (let* ((arg-name (symbol-name (if (consp arg) (car arg) arg)))
+                (pos (position ?: arg-name))
+                (arg-type (if pos
+                              `',(intern (substring arg-name (1+ pos)))
+                            t)))
+           (setq argument arg-type)
+           (push 'argument params)
+           (when (and (consp arg)
+                      (not (eq (cadr arg) 'argument)))
+             (push `(,(cadr arg) argument) named-params))))
+
+        ('keep-visual (setq keep-visual t))
+        ('do-not-keep-visual (setq keep-visual nil))
+        ('repeatable (setq repeatable t))
+        ('nonrepeatable (setq repeatable nil))
+        
+        (t (error "%s: Unexpected argument: %s" 'vim:defcmd arg))))
+
+    `(progn
+       (put ',name 'type ',(if motion 'complex 'simple))
+       (put ',name 'count ,count)
+       (put ',name 'motion ,motion)
+       (put ',name 'argument ,argument)
+       (put ',name 'register ,register)
+       (put ',name 'keep-visual ,keep-visual)
+       (put ',name 'repeatable ,repeatable)
+       (put ',name 'function
+            (function* (lambda (,@(when params `(&key ,@params))
+                                ,@(when named-params `(&aux ,@named-params)))
+                         ,@body)))
+       (defun* ,name (&rest args)
+         ,doc
+         (interactive)
+         (if (vim:called-interactively-p)
+             (funcall vim:active-command-function ',name)
+           (apply (get ',name 'function) args))))))
+
+(defmacro* vim:defmotion (name (&rest args) &rest body)
+  (declare (indent defun))
+  (let ((type nil)
+        (count nil)
+        (argument nil)
+        (params nil)
+        (named-params nil)
+        (doc nil))
+
+    ;; extract documentation string
+    (if (and (consp body)
+               (cdr body)
+               (stringp (car body)))
+        (setq doc (car body)
+              body (cdr body))
+      (setq doc (format "VIM - motion (%s %s)" name args)))
+    
+    ;; collect parameters
+    (dolist (arg args)
+      (case (if (consp arg) (car arg) arg)
+        ((inclusive exclusive linewise block)
+         (setq type arg))
+        
+        ('count
+         (setq count t)
+         (push '(count nil) params)
+         (when (and (consp arg)
+                    (not (eq (cadr arg) 'count)))
+           (push `(,(cadr arg) count) named-params)))
+        
+        ((argument argument:char)
+         (when argument
+           (error "%s: only one argument may be specified: %s" 'vim:defcmd arg))
+         (setq argument ''char)
+         (push 'argument params)
+         (when (and (consp arg)
+                    (not (eq (cadr arg) 'argument)))
+           (push `(,(cadr arg) argument) named-params)))
+        
+        (t (error "%s: Unexpected argument: %s" 'vim:defmotion arg))))
+
+    (unless type
+      (error "%s: Motion type must be specified" 'vim:defmotion))
+
+    `(progn
+       (put ',name 'type ',type)
+       (put ',name 'count ,count)
+       (put ',name 'argument ,argument)
+       (put ',name 'function
+            (function* (lambda (,@(when params `(&key ,@params))
+                                ,@(when named-params `(&aux ,@named-params)))
+                         (vim:do-motion ',type (progn ,@body)))))
+       (defun* ,name (&rest args)
+         ,doc
+         (interactive)
+         (if (vim:called-interactively-p)
+             (vim:execute-command ',name)
+           (apply (get ',name 'function) args))))))
+
+(font-lock-add-keywords 'emacs-lisp-mode '("vim:defcmd" "vim:defmotion"))
+
+(defun vim:cmd-count-p (cmd)
+  "Returns non-nil iff command cmd takes a count."
+  (get cmd 'count))
+
+(defun vim:cmd-register-p (cmd)
+  "Returns non-nil iff command may take a register."
+  (get cmd 'register))
+
+(defun vim:cmd-motion-p (cmd)
+  "Returns non-nil iff command `cmd' takes a motion parameter."
+  (get cmd 'motion))
+
+(defun vim:cmd-arg (cmd)
+  "Returns the type of command's argument."
+  (get cmd 'argument))
+
+(defun vim:cmd-arg-p (cmd)
+  "Returns non-nil iff command cmd takes an argument of arbitrary type."
+  (not (null (get cmd 'argument))))
+  
+(defun vim:cmd-text-arg-p (cmd)
+  "Returns non-nil iff command cmd takes a text argument."
+  (eq (vim:cmd-arg cmd) t))
+  
+(defun vim:cmd-char-arg-p (cmd)
+  "Returns non-nil iff command cmd takes a char argument."
+  (eq (vim:cmd-arg cmd) 'char))
+  
+(defun vim:cmd-file-arg-p (cmd)
+  "Returns non-nil iff command cmd takes a file argument."
+  (eq (vim:cmd-arg cmd) 'file))
+  
+(defun vim:cmd-buffer-arg-p (cmd)
+  "Returns non-nil iff command cmd takes a buffer argument."
+  (eq (vim:cmd-arg cmd) 'buffer))
+  
+(defun vim:cmd-repeatable-p (cmd)
+  "Returns non-nil iff command cmd is repeatable."
+  (get cmd 'repeatable))
+
+(defun vim:cmd-keep-visual-p (cmd)
+  "Returns non-nil iff command cmd should stay in visual mode."
+  (get cmd 'keep-visual))
+  
+(defun vim:cmd-type (cmd)
+  "Returns the type of command cmd."
+  (get cmd 'type))
+
+(defun vim:cmd-function (cmd)
+  "Returns the function of command `cmd'."
+  (get cmd 'function))
+
+
+(defmacro vim:apply-save-buffer (&rest args)
+  "Like `apply' but stores the current buffer."
+  (let ((ret (gensym)))
+  `(progn
+     (save-current-buffer
+       (let ((,ret (apply ,@args)))
+         (setq vim:new-buffer (current-buffer))
+         ,ret)))))
+
+
+(defmacro vim:funcall-save-buffer (&rest args)
+  "Like `funcall' but stores the current buffer."
+  (let ((ret (gensym)))
+  `(progn
+     (save-current-buffer
+       (let ((,ret (funcall ,@args)))
+         (setq vim:new-buffer (current-buffer))
+         ,ret)))))
+
+(defun vim:select-register ()
+  "Sets the register for the next command."
+  (interactive)
+  (setq vim:current-register (read-char-exclusive)))
+
+(defun vim:get-register (register)
+  "Returns the content of `register', signals error on fail."
+  (let ((txt (get-register register)))
+    (unless txt
+      (error "Register '%c' empty." register))
+    txt))
+
+
+(defun vim:execute-command (cmd)
+  "Executes the vim-command `cmd'.
+If an error occures, this function switches back to normal-mode.
+Since all vim-mode commands go through this function, this is
+the perfect point to do some house-keeping."
+  (condition-case err
+      (funcall vim:active-command-function cmd)
+    (error
+     (vim:reset-key-state)
+     (vim:clear-key-sequence)
+     (vim:adjust-point)
+     (vim:activate-normal-mode)
+     (signal (car err) (cdr err)))))
+
+
+(defun vim:execute-current-motion ()
+  "Executes the current motion and returns the representing
+vim:motion object."
+  (if (null vim:current-motion)
+      nil
+    (let ((cmd vim:current-motion)
+          (count (if (or vim:current-cmd-count
+                         vim:current-motion-count)
+                     (* (or vim:current-cmd-count 1)
+                        (or vim:current-motion-count 1))
+                   nil))
+          (parameters nil))
+
+      ;; build the parameter-list
+      (when (vim:cmd-char-arg-p cmd)
+        (push vim:current-motion-arg parameters)
+        (push :argument parameters))
+      (when (vim:cmd-count-p cmd)
+        (push count parameters)
+        (push :count parameters))
+
+      (vim:apply-save-buffer cmd parameters))))
+
+
+(defun vim:get-current-cmd-motion ()
+  "Returns the motion range for the current command w.r.t.
+command-specific transformations."
+  (let ((motion (save-excursion (vim:execute-current-motion))))
+    (when (and (eq (vim:motion-type motion) 'exclusive)
+               (save-excursion
+                 (goto-char (vim:motion-end-pos motion))
+                 (bolp)))
+
+      ;; exclusive motions may be modified
+      (let ((end (vim:adjust-end-of-line-position (1- (vim:motion-end-pos motion)))))
+        (if (< (vim:motion-begin motion)
+               (vim:motion-end motion))
+            (setf (vim:motion-end motion) end)
+          (setf (vim:motion-begin motion) end)))
+      
+      (if (save-excursion
+            (goto-char (vim:motion-begin-pos motion))
+            (vim:looking-back "^\\s-*"))
+          ;; motion becomes linewise(-exclusive)
+          (setf (vim:motion-type motion) 'linewise)
+        
+        ;; motion becomes inclusive
+        (setf (vim:motion-type motion) 'inclusive)))
+    motion))
+
+
+(defconst vim:emacs-keymap (vim:make-keymap)
+  "Keymap for EMACS mode.")
+
+(vim:define-mode emacs "VIM emacs-mode"
+                 :ident "E"
+                 :message "-- EMACS --"
+                 :keymaps '(vim:emacs-keymap)
+                 :command-function 'vim:normal-mode-command)
+
+;; from viper
+(defsubst vim:ESC-event-p (event)
+  (let ((ESC-keys '(?\e (control \[) escape))
+        (key (event-basic-type event)))
+    (member key ESC-keys)))
+
+;; from viper
+(defun vim:escape-to-emacs (events)
+  "Executes some `events' in emacs."
+
+  (let* ((vim-key-mode nil)
+         (unread-command-events events)
+         (keys (read-key-sequence nil))
+         (event (elt (listify-key-sequence keys) 0)))
+
+    (when (vim:ESC-event-p event)
+      (let ((unread-command-events keys))
+        (setq keys (read-key-sequence nil))))
+
+    (let ((command (key-binding keys)))
+      (setq this-command command)
+      (setq last-command-event (elt keys (1- (length keys))))
+      (setq last-command-char last-command-event)
+      (command-execute command)
+      (when (memq command '(digit-argument
+                            universal-argument))
+        (vim:escape-to-emacs nil)))))
+
+
+(provide 'vim-vim)
+
+;;; vim-vim.el ends here
diff --git a/.emacs.d/vim-mode/vim-visual-mode.el b/.emacs.d/vim-mode/vim-visual-mode.el
new file mode 100644
index 0000000..eef6ac7
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-visual-mode.el
@@ -0,0 +1,774 @@
+;;; vim-insert-mode.el - VIM visual mode.
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;; TODO:
+
+;;   - when calling a non-vim-mode-command the region should be modified
+;;     s.t. the emacs command uses the correct region for block-mode
+;;   - check interaction with region (deactivate-mark-hook and others)
+
+;;; Code:
+
+(defcustom vim:visual-region-face vim:default-region-face
+  "Face of the highlighted region."
+  :type 'face
+  :group 'vim-mode)
+
+(vim:define-keymap visual-mode "visual mode" :map-command vmap)
+
+(vim:define-mode visual "VIM visual mode"
+                 :ident "V"
+                 :keymaps '(vim:visual-mode-keymap
+                            vim:operator-pending-mode-keymap
+                            vim:motion-mode-keymap)
+                 :command-function 'vim:visual-mode-command
+                 :cursor 'hollow)
+(add-hook 'vim:visual-mode-on-hook 'vim:visual-mode-activate)
+(add-hook 'vim:visual-mode-off-hook 'vim:visual-mode-deactivate)
+
+(vim:deflocalvar vim:visual-mode-type 'normal
+  "Type of visual mode, should be 'normal, 'linewise or 'block.")
+
+;; Last transient-mark-mode.
+(vim:deflocalvar vim:visual-old-transient-mark-mode)
+
+;; Old global variables changed in visual-mode.
+(vim:deflocalvar vim:visual-old-global-variables)
+
+;; List of overlays for the current region.
+(vim:deflocalvar vim:visual-overlays)
+
+;; The last beginning position of the region.
+(vim:deflocalvar vim:visual-last-begin)
+
+;; The last end position of the region.
+(vim:deflocalvar vim:visual-last-end)
+
+;; Info-struct to save information for visual-insertion.
+(defstruct (vim:visual-insert-info
+            (:constructor vim:make-visual-insert-info))
+  first-line
+  last-line
+  column)
+
+;; The last motion used to insert something in visual mode.
+(vim:deflocalvar vim:visual-last-insert-info nil)
+
+;; The undo-mark of the last visual mode insert command.
+(vim:deflocalvar vim:visual-last-insert-undo nil)
+
+;; If non-nil, the last region will be used when visual mode is activated.
+(vim:deflocalvar vim:visual-reactivate-last-region nil)
+
+;;; System variables which must temporarily be buffer local.
+(defconst vim:visual-temporary-local-variables
+  `(transient-mark-mode
+    ,vim:deactivate-region-hook))
+
+;;; Commands that deactivate the mark (and so visual-mode).
+(defconst vim:visual-deactivate-mark-commands
+  '(clear-rectangle
+    clipboard-kill-ring-save
+    copy-rectangle
+    copy-rectangle-to-register
+    kill-rectangle
+    open-rectangle
+    string-rectangle
+    yank-rectangle
+    keyboard-quit
+    ))
+
+
+(defun vim:activate-visual (type)
+  "Activates visual-mode with certain type."
+  (setq vim:visual-mode-type type)
+  (if (vim:visual-mode-p)
+      (progn
+        (vim:visual-highlight-region)
+        (let (message-log-max)
+          (case vim:visual-mode-type
+            ('normal (message "-- VISUAL --"))
+            ('linewise (message "-- VISUAL LINE --"))
+            ('block (message "-- VISUAL BLOCK --"))
+            (t (error "Unknown visual mode type: %s"
+                      vim:visual-mode-type)))))
+    (vim:activate-visual-mode)))
+
+(defun vim:visual-toggle-mode (type)
+  "Switches to visual mode of certain type or deactivates the mode."
+  (if (and (vim:visual-mode-p)
+           (eq vim:visual-mode-type type)
+           (vim:toplevel-execution))
+      (vim:visual-mode-exit)
+    (vim:activate-visual type)))
+
+
+(vim:defcmd vim:visual-toggle-normal (nonrepeatable keep-visual)
+    "Switches to normal visual-mode or deactivates it."
+    (vim:visual-toggle-mode 'normal))
+
+
+(vim:defcmd vim:visual-toggle-linewise (nonrepeatable keep-visual)
+    "Switches to linewise visual-mode or deactivates it."
+    (vim:visual-toggle-mode 'linewise))
+
+
+(vim:defcmd vim:visual-toggle-block (nonrepeatable keep-visual)
+    "Switches to block visual-mode or deactivates it."
+    (vim:visual-toggle-mode 'block))
+
+
+(vim:defcmd vim:visual-mode-exit (nonrepeatable)
+  "Deactivates visual mode, returning to normal-mode."
+  (vim:activate-normal-mode))
+
+
+(vim:defcmd vim:visual-mode-reactivate (nonrepeatable)
+  "Called when the last visual region should be reactivated."
+  (unless (and vim:visual-mode-type
+               vim:visual-last-begin
+               vim:visual-last-end)
+    (error "No former visual selection."))
+
+  (setq vim:visual-reactivate-last-region t)
+  (vim:activate-visual vim:visual-mode-type))
+
+
+(defun vim:visual-mode-activate ()
+  "Called when visual mode is activated."
+
+  (setq cursor-type vim:visual-mode-cursor)
+  
+  (if vim:visual-reactivate-last-region
+      (progn
+        (set-mark (save-excursion
+                    (goto-line (car vim:visual-last-begin))
+                    (move-to-column (cdr vim:visual-last-begin))
+                    (point)))
+        (goto-line (car vim:visual-last-end))
+        (move-to-column (cdr vim:visual-last-end))
+        (setq vim:visual-reactivate-last-region nil))
+    (set-mark (point)))
+  
+  (let (message-log-max)
+    (case vim:visual-mode-type
+      ('normal (message "-- VISUAL --"))
+      ('linewise (message "-- VISUAL LINE --"))
+      ('block (message "-- VISUAL BLOCK --"))
+      (t (error "Unknown visual mode type: %s"
+                vim:visual-mode-type))))
+
+  (setq vim:visual-overlays nil
+        vim:visual-old-transient-mark-mode (and (boundp 'transient-mark-mode)
+                                                transient-mark-mode)
+        vim:visual-old-global-variables
+        ;; Remember which system variables weren't buffer local
+        (mapcan #'(lambda (variable)
+                    (if (assoc variable (buffer-local-variables))
+                        (list variable)
+                      nil))
+                vim:visual-temporary-local-variables))
+  
+  ;; The make them all buffer local, too.
+  (mapc #'make-local-variable vim:visual-temporary-local-variables)
+  (when (boundp 'transient-mark-mode) (setq transient-mark-mode nil))
+  (add-hook 'post-command-hook 'vim:visual-post-command)
+  (add-hook 'pre-command-hook 'vim:visual-normalize-region)
+  (add-hook 'post-command-hook 'vim:visual-denormalize-region)
+  (add-hook vim:deactivate-region-hook 'vim:visual-mode-exit))
+
+
+(defun vim:visual-mode-deactivate ()
+  "Called when visual mode is deactivated."
+
+  ;; hide the selection
+  (vim:visual-hide-region)
+
+  ;; cleanup local variables
+  (remove-hook 'pre-command-hook 'vim:visual-normalize-region)
+  (remove-hook 'post-command-hook 'vim:visual-denormalize-region)
+  (remove-hook 'post-command-hook 'vim:visual-post-command post-command-hook)
+  (remove-hook vim:deactivate-region-hook 'vim:visual-mode-exit)
+  (when (boundp 'transient-mark-mode)
+    (setq transient-mark-mode vim:visual-old-transient-mark-mode))
+  (vim:visual-delete-overlays vim:visual-overlays)
+  (mapc #'kill-local-variable vim:visual-old-global-variables)
+  (vim:deactivate-mark))
+
+
+(defun vim:visual-mode-command (command)
+  "Executes a command in visual mode."
+  (case (vim:cmd-type command)
+    ('simple (vim:visual-execute-command command))
+    ('complex (vim:visual-execute-command command))
+    ('special (error "no special so far"))
+    (t (vim:visual-execute-motion command))))
+
+
+(defun vim:visual-execute-command (command)
+  "Called to execute a command is visual mode."
+  
+  ;; save the last region
+  (setq vim:visual-last-begin (cons (line-number-at-pos (mark t))
+                                    (save-excursion
+                                      (goto-char (mark t))
+                                      (current-column))))
+  (setq vim:visual-last-end (cons (line-number-at-pos (point))
+                                  (current-column)))
+  (vim:set-mark ?< (save-excursion
+                     (goto-line (car vim:visual-last-begin))
+                     (move-to-column (cdr vim:visual-last-begin))
+                     (point)))
+  (vim:set-mark ?> (save-excursion
+                     (goto-line (car vim:visual-last-end))
+                     (move-to-column (cdr vim:visual-last-end))
+                     (point)))
+  
+  (when (vim:cmd-char-arg-p command)
+    (setq vim:current-cmd-arg (read-char-exclusive)))
+
+  (if (vim:cmd-motion-p command)
+      (let ((vim:last-undo buffer-undo-list) parameters)
+        (push (vim:visual-current-motion) parameters)
+        (push :motion parameters)
+        (when (vim:cmd-register-p command)
+          (push vim:current-register parameters)
+          (push :register parameters))
+        (when (vim:cmd-char-arg-p command)
+          (push vim:current-cmd-arg parameters)
+          (push :argument parameters))
+        (vim:apply-save-buffer (vim:cmd-function command) parameters)
+        (when (vim:cmd-repeatable-p command)
+          (setq vim:repeat-events (vconcat vim:current-key-sequence)))
+        (vim:connect-undos vim:last-undo)
+        (vim:reset-key-state)
+        (vim:clear-key-sequence)
+        (vim:adjust-point))
+    (vim:normal-execute-simple-command command))
+
+  ;; deactivate visual mode unless the command should keep it
+  (when (and vim:visual-mode
+             (not (vim:cmd-keep-visual-p command)))
+    (vim:visual-mode-exit)))
+  
+
+(defun vim:visual-execute-motion (command)
+  "Called to execute a motion in visual mode."
+  
+  (setq vim:current-motion command)
+
+  (when current-prefix-arg
+    (setq vim:current-motion-count (prefix-numeric-value current-prefix-arg)))
+
+  (when (vim:cmd-arg-p command)
+    (setq vim:current-motion-arg (read-char-exclusive)))
+
+  (vim:visual-adjust-region (vim:execute-current-motion))
+  (vim:adjust-point)
+  (vim:clear-key-sequence)
+  (vim:reset-key-state))
+  
+
+(defun vim:visual-post-command ()
+  (cond
+   ((vim:visual-mode-p)
+    (if (or (vim:do-deactivate-mark)
+            (memq this-command vim:visual-deactivate-mark-commands))
+        (condition-case nil
+            (vim:visual-mode-exit)
+          (error nil))
+      (condition-case info
+          (vim:visual-highlight-region)
+        (error
+         (ding)
+         (message "visual-mode trouble: %s" info)
+         (condition-case nil
+             (vim:visual-mode-exit)
+           (error nil))))))))
+
+
+(defun vim:visual-highlight-region ()
+  "Highlights the selected region depending on `point' and `mark'.
+This function is also responsible for setting the X-selection."
+
+  (let ((start (min (point) (mark t)))
+        (end (max (point) (mark t))))
+    (case vim:visual-mode-type
+      ('normal (vim:visual-highlight-normal start end))
+      ('linewise (vim:visual-highlight-linewise start end))
+      ('block (vim:visual-highlight-block start end))
+      (t (error "Unknown visual mode %s" vim:visual-mode-type))))
+
+  (cond
+   ((not (eq window-system 'x)) nil)
+   ((= 1 (length vim:visual-overlays))
+    (vim:x-set-selection nil (car vim:visual-overlays)))
+   ((< 1 (length vim:visual-overlays))
+    (let ((text (apply #'concat
+                       (mapcar #'(lambda (ov)
+                                   (concat (buffer-substring-no-properties (overlay-start ov)
+                                                                           (overlay-end ov))
+                                           "\n"))
+                               vim:visual-overlays))))
+      (vim:x-set-selection nil text)))))
+
+
+(defun vim:visual-highlight-normal (start end)
+  "Adjusts the normal region between `start' and `end'."
+  (if vim:visual-overlays
+      (vim:visual-delete-overlays (cdr vim:visual-overlays))
+    (setq vim:visual-overlays nil))
+  
+  (setq vim:visual-overlays
+        (list (vim:visual-create-or-update-overlay (car vim:visual-overlays)
+                                                   start (1+ end)))))
+
+
+(defun vim:visual-highlight-linewise (start end)
+  "Adjusts the linewise region between `start' and `end'."
+  (let ((start-line (save-excursion
+                      (goto-char start)
+                      (line-beginning-position)))
+        (end-line (save-excursion
+                    (goto-char end)
+                    (line-end-position))))
+    
+    (if vim:visual-overlays
+        (vim:visual-delete-overlays (cdr vim:visual-overlays))
+      (setq vim:visual-overlays nil))
+    
+    (setq vim:visual-overlays
+          (list (vim:visual-create-or-update-overlay (car vim:visual-overlays)
+                                                     start-line
+                                                     (1+ end-line))))))
+
+
+(defun vim:visual-highlight-block (start end)
+  "Adjusts the block region between `start' and `end'."
+  ;; Adapted from: rm-highlight-rectangle
+  ;; This function is used to highlight the rectangular region from
+  ;; START to END.  We do this by putting an overlay on each line
+  ;; within the rectangle.  Each overlay extends across all the
+  ;; columns of the rectangle.  We try to reuse overlays where
+  ;; possible because this is more efficient and results in less
+  ;; flicker.
+  (save-excursion
+    ;; Calculate the rectangular region represented by point and mark,
+    ;; putting start in the north-west corner and end in the
+    ;; south-east corner.
+    (let ((start-col (save-excursion
+		       (goto-char start)
+		       (current-column)))
+	  (end-col (save-excursion
+		     (goto-char end)
+		     (current-column))))
+      (if (> start-col end-col)
+	  (setq start-col (prog1
+			      end-col
+			    (setq end-col start-col))
+		start (save-excursion
+			(goto-char start)
+			(move-to-column start-col nil)
+			(point))
+		end (save-excursion
+		      (goto-char end)
+		      (move-to-column end-col nil)
+		      (point))))
+      ;; Force a redisplay so we can do reliable window start/end
+      ;; calculations.
+      (sit-for 0)
+      (let* ((old vim:visual-overlays)
+	     (new nil)
+	     overlay
+	     (window-start (max (window-start) start))
+	     (window-end (min (window-end) end))
+	     (nlines (count-lines window-start
+				  (min (1+ window-end)
+				       (point-max)))))
+	;; Iterate over those lines of the rectangle which are visible
+	;; in the currently selected window.
+	(goto-char window-start)
+	(dotimes (i nlines)
+	  (let ((row-start (progn
+			     (move-to-column start-col nil)
+			     (point)))
+		(row-end (progn
+			   (move-to-column end-col nil)
+			   (min (1+ (point))
+				(line-end-position)))))
+	    ;; Trim old leading overlays.
+	    (while (and old
+			(setq overlay (car old))
+			(< (overlay-start overlay) row-start)
+			(/= (overlay-end overlay) row-end))
+	      (delete-overlay overlay)
+	      (setq old (cdr old)))
+	    ;; Reuse an overlay if possible, otherwise create one.
+	    (if (and old
+		     (setq overlay (car old))
+		     (or (= (overlay-start overlay) row-start)
+			 (= (overlay-end overlay) row-end)))
+		(progn
+		  (move-overlay overlay row-start row-end)
+		  (setq new (cons overlay new)
+			old (cdr old)))
+	      (setq overlay (make-overlay row-start row-end))
+	      (overlay-put overlay 'face vim:visual-region-face)
+	      (overlay-put overlay 'priority 99)
+	      (setq new (cons overlay new))))
+	  (forward-line 1))
+	;; Trim old trailing overlays.
+	(vim:visual-delete-overlays old)
+	(setq vim:visual-overlays (nreverse new))))))
+
+
+(defun vim:visual-create-or-update-overlay (ov start end)
+  "Creates a new overlay or updates the given overlay."
+  (if (overlayp ov)
+      (progn
+        (vim:visual-delete-overlays (cdr vim:visual-overlays))
+        (setcdr vim:visual-overlays nil)
+        (move-overlay (car vim:visual-overlays) start  end)
+        ov)
+    (let ((ov (make-overlay start  end)))
+      (vim:visual-hide-region)
+      (overlay-put ov 'face vim:visual-region-face)
+      (overlay-put ov 'priority 99)
+      ov)))
+    
+  
+
+(defun vim:visual-hide-region ()
+  "Removes the highlighting."
+  (vim:visual-delete-overlays vim:visual-overlays)
+  (setq vim:visual-overlays nil))
+
+(defun vim:visual-delete-overlays (overlays)
+  "Deletes all overlays in `overlays'."
+  (mapcar #'delete-overlay overlays))
+
+(defun vim:visual-current-motion ()
+  "Returns a motion representing the current region."
+  (case vim:visual-mode-type
+    ('normal (vim:visual-current-normal-motion))
+    ('linewise (vim:visual-current-linewise-motion))
+    ('block (vim:visual-current-block-motion))))
+
+(defun vim:visual-current-normal-motion ()
+  "Returns a motion representing the current normal region."
+  (vim:make-motion :has-begin t
+                   :begin (min (point) (mark t))
+                   :end (max (point) (mark t))
+                   :type 'inclusive))
+
+
+(defun vim:visual-current-linewise-motion ()
+  "Returns a motion representing the current linewise region."
+  (vim:make-motion :has-begin t
+                   :begin (min (point) (mark t))
+                   :end (max (point) (mark t))
+                   :type 'linewise))
+
+
+(defun vim:visual-current-block-motion ()
+  "Returns a motion representing the current block region."
+  (vim:make-motion :has-begin t
+                   :begin (min (point) (mark t))
+		   :end (max (point) (mark t))
+		   :type 'block))
+
+
+(defun vim:visual-adjust-region (motion)
+  "Adjusts the region according to a certain motion."
+  (if (vim:motion-has-begin motion)
+      (progn
+        (case (vim:motion-type motion)
+          ('linewise (vim:activate-visual 'linewise))
+          ('block (vim:activate-visual 'block))
+          (t (vim:activate-visual 'normal)))
+        (if (< (point) (mark t))
+            ;; increase backward
+            (progn
+              (goto-char (vim:motion-begin-pos motion))
+              (when (> (vim:motion-end-pos motion) (mark t))
+                (set-mark (vim:motion-end-pos motion))))
+          ;; increase forward
+          (when (< (vim:motion-begin motion)
+                          (mark t))
+            (set-mark (vim:motion-begin motion)))))))
+      
+
+(vim:defcmd vim:visual-insert (motion)
+  "Starts insertion at the left column of a visual region."
+
+  (vim:visual-start-insert 
+   (vim:make-visual-insert-info :first-line (vim:motion-first-line motion)
+                                :last-line (vim:motion-last-line motion)
+                                :column (vim:motion-first-col motion))))
+
+(defun vim:visual-start-insert (insert-info)
+  "Starts a new multi-line insert operation with `insert-info'."
+  
+  (setq vim:visual-last-insert-info insert-info)
+  (goto-line (vim:visual-insert-info-first-line insert-info))
+  (move-to-column (vim:visual-insert-info-column insert-info) t)
+  
+  (case vim:visual-mode-type
+    ('block
+     ;; TODO: ensure the right command is run on repetition.
+     ;; this is really a dirty hack
+     (setq vim:current-key-sequence "i")
+     (vim:cmd-insert :count 1)
+     (add-hook 'vim:normal-mode-on-hook 'vim:insert-block-copies))
+
+    ('linewise
+     ;; TODO: ensure the right command is run on repetition.
+     ;; this is really a dirty hack
+     (setq vim:current-key-sequence "I")
+     (vim:cmd-Insert :count 1)
+     (add-hook 'vim:normal-mode-on-hook 'vim:insert-linewise-copies)))
+
+  (setq vim:visual-last-insert-undo vim:last-insert-undo))
+
+(defun vim:insert-block-copies ()
+  "Called to repeat the last block-insert."
+  (remove-hook 'vim:normal-mode-on-hook 'vim:insert-block-copies)
+  (let ((begrow (vim:visual-insert-info-first-line vim:visual-last-insert-info))
+        (begcol (vim:visual-insert-info-column vim:visual-last-insert-info))
+        (endrow (vim:visual-insert-info-last-line vim:visual-last-insert-info)))
+    (save-excursion
+      (dotimes (i (- endrow begrow))
+            (goto-line (+ begrow i 1))
+        (when (>= (save-excursion
+                    (end-of-line)
+                    (current-column))
+                  begcol)
+          (move-to-column begcol t)
+          (vim:cmd-repeat)))
+      (setq vim:last-undo vim:visual-last-insert-undo))))
+
+
+(defun vim:insert-linewise-copies ()
+  "Called to repeat the last linewise-insert."
+  (remove-hook 'vim:normal-mode-on-hook 'vim:insert-linewise-copies)
+  (let ((begrow (vim:visual-insert-info-first-line vim:visual-last-insert-info))
+        (endrow (vim:visual-insert-info-last-line vim:visual-last-insert-info)))
+    (save-excursion
+      (goto-line (1+ begrow))
+      (dotimes (i (- endrow begrow))
+        (goto-line (+ begrow i 1))
+        (vim:cmd-repeat))
+      (setq vim:last-undo vim:visual-last-insert-undo))))
+
+
+(vim:defcmd vim:visual-append (motion)
+  "Starts insertion at the right column of a visual block."
+  
+  (vim:visual-start-append
+   (vim:make-visual-insert-info :first-line (vim:motion-first-line motion)
+                                :last-line (vim:motion-last-line motion)
+                                :column (vim:motion-last-col motion))))
+
+  
+(defun vim:visual-start-append (insert-info)
+  "Starts a new multi-line append operation with `insert-info'."
+  
+  (setq vim:visual-last-insert-info insert-info)
+  (goto-line (vim:visual-insert-info-first-line insert-info))
+  (move-to-column (vim:visual-insert-info-column insert-info) t)
+  
+  (case vim:visual-mode-type
+    ('block
+     ;; TODO: ensure the right command is run on repeation.
+     ;; this is really a dirty hack
+     (setq vim:current-key-sequence "a")
+     (vim:cmd-append :count 1)
+     (add-hook 'vim:normal-mode-on-hook 'vim:append-block-copies))
+
+    ('linewise
+     ;; TODO: ensure the right command is run on repeation.
+     ;; this is really a dirty hack
+     (setq vim:current-key-sequence "A")
+     (vim:cmd-Append :count 1)
+     (add-hook 'vim:normal-mode-on-hook 'vim:insert-linewise-copies)))
+
+  (setq vim:visual-last-insert-undo vim:last-insert-undo))
+
+
+(defun vim:append-block-copies ()
+  "Called to repeat the last block-insert."
+  (remove-hook 'vim:normal-mode-on-hook 'vim:append-block-copies)
+  (let ((begrow (vim:visual-insert-info-first-line vim:visual-last-insert-info))
+        (endcol (vim:visual-insert-info-column vim:visual-last-insert-info))
+        (endrow (vim:visual-insert-info-last-line vim:visual-last-insert-info)))
+    (save-excursion
+      (goto-line (1+ begrow))
+      (dotimes (i (- endrow begrow))
+        (move-to-column (1+ endcol) t) ; extend the newline at the end
+        (move-to-column endcol t)
+        (vim:cmd-repeat)
+        (forward-line 1))
+      (setq vim:last-undo vim:visual-last-insert-undo))))
+
+
+(vim:defcmd vim:visual-exchange-point-and-mark (nonrepeatable keep-visual)
+   "Exchanges point and mark."
+   (exchange-point-and-mark))
+
+
+(vim:defcmd vim:visual-jump-point (nonrepeatable keep-visual)
+  "In normal and linewise visual mode, this is the same as
+`vim:visual-exchange-point-and-mark'.  In block visual-mode the
+cursor jumps to the other corner of the selected region in the
+current line."
+  (case vim:visual-mode-type
+    ((normal linewise)
+     (vim:visual-exchange-point-and-mark))
+    ('block
+	(let ((mark-col (save-excursion
+			  (goto-char (mark t))
+			  (current-column)))
+	      (point-col (current-column)))
+	  (set-mark (save-excursion
+		      (goto-char (mark t))
+		      (move-to-column point-col t)
+		      (point)))
+	  (move-to-column mark-col t)))
+    (t (error "Not in visual mode."))))
+
+
+(vim:defcmd vim:visual-ex-read-command (nonrepeatable)
+  "Starts ex-mode with visual-marks as initial input."
+  (vim:ex-read-command "'<,'>"))
+
+(vim:deflocalvar vim:visual-last-point nil
+  "The position of point before a region-command.")
+(vim:deflocalvar vim:visual-last-mark nil
+  "The position of mark before a region-command.")
+(vim:deflocalvar vim:visual-new-point nil
+  "The position of modified point before a region-command." )
+
+(defun vim:visual-normalize-region ()
+  (when (vim:visual-mode-p)
+    (let* ((iform (interactive-form this-command))
+           (use-region (or (eq this-command 'execute-extended-command)
+                           (and iform (cdr iform)
+                                (string= (cadr iform) "r")))))
+      (when use-region
+        (setq vim:visual-last-point (point)
+              vim:visual-last-mark (mark))
+        (case vim:visual-mode-type
+          (normal
+           (if (> (point) (mark)) (forward-char) (set-mark (1+ (mark)))))
+          
+          (linewise
+           (if (> (point) (mark))
+               (progn
+                 (end-of-line)
+                 (forward-char)
+                 (set-mark (save-excursion
+                             (goto-char (mark))
+                             (line-beginning-position))))
+             (beginning-of-line)
+             (set-mark (save-excursion
+                         (goto-char (mark))
+                         (1+ (line-end-position))))))
+          
+          ('block))
+        (setq vim:visual-new-point (point))))))
+
+(defun vim:visual-denormalize-region()
+  (when (and vim:visual-last-point vim:visual-last-mark)
+    (set-mark vim:visual-last-mark)
+    (when (= (point) vim:visual-new-point)
+      (goto-char vim:visual-last-point))
+    (setq vim:visual-last-point nil
+          vim:visual-last-mark nil
+          vim:visual-new-point nil)))
+
+
+(defun vim:visual-mouse-clicked (event)
+  "Dispatches singe, double, triple or quad clicks."
+  (interactive "e")
+  (case (vim:mouse-click-count event)
+    (2 (vim:visual-drag-mouse-region event 'word))
+    (3 (vim:visual-drag-mouse-region event 'linewise))
+    (4 (vim:visual-drag-mouse-region event 'block))
+    (t (vim:visual-drag-mouse-region event 'char))))
+
+(defun vim:visual-drag-mouse-region (event mode)  
+  "Update visual-region during mouse-motion."
+  (vim:visual-mode-exit)
+  (select-window (vim:mouse-event-window event))
+  (let ((start-pos (vim:mouse-event-point event)))
+    (when start-pos
+      (goto-char start-pos)
+    
+      (case mode
+        ('word
+         (vim:visual-toggle-normal)
+         (multiple-value-bind (p m) (vim:visual-get-word-region start-pos start-pos)
+           (set-mark m)
+           (goto-char p))
+         (vim:visual-highlight-region))
+        ('linewise
+         (vim:visual-toggle-linewise)
+         (vim:visual-highlight-region))
+        ('block
+         (vim:visual-toggle-block)
+         (vim:visual-highlight-region)))
+    
+      (vim:track-mouse
+        (catch 'exit
+          (while t
+            (let ((ev (vim:read-event)))
+              (cond
+               ((vim:mouse-movement-p ev)
+                (let ((end-pos (vim:mouse-event-point ev)))
+                  (when end-pos
+                    (when (and (not (vim:visual-mode-p))
+                               (/= start-pos end-pos))
+                      (if (eq mode 'linewise)
+                          (vim:visual-toggle-linewise)
+                        (vim:visual-toggle-normal)))
+
+                    (when (vim:visual-mode-p)
+                      (if (eq mode 'word)
+                          (multiple-value-bind (p m) (vim:visual-get-word-region end-pos start-pos)
+                            (set-mark m)
+                            (goto-char p))
+                        (set-mark start-pos)
+                        (goto-char end-pos))
+              
+                      (vim:visual-highlight-region)))))
+           
+               ((vim:mouse-event-p ev) (throw 'exit nil))
+
+               (t
+                (push ev unread-command-events)
+                (let* ((keyseq (read-key-sequence nil))
+                       (cmd (key-binding keyseq)))
+                  (call-interactively cmd)
+                  (unless (vim:visual-mode-p)
+                    (throw 'exit nil))))))))))))
+
+
+(defun vim:visual-get-word-region (point-pos mark-pos)
+  "Returns the start and end position of the word-wise region."
+  (let ((point-motion (save-excursion (goto-char point-pos) (vim:motion-inner-word)))
+        (mark-motion (save-excursion (goto-char mark-pos) (vim:motion-inner-word))))
+    (if (< point-pos mark-pos)
+        (values (vim:motion-begin point-motion)
+                (vim:motion-end mark-motion))
+      (values (vim:motion-end point-motion)
+              (vim:motion-begin mark-motion)))))
+                      
+
+(provide 'vim-visual-mode)
+
+;;; vim-visual-mode.el ends here
diff --git a/.emacs.d/vim-mode/vim-window.el b/.emacs.d/vim-mode/vim-window.el
new file mode 100644
index 0000000..b06df2d
--- /dev/null
+++ b/.emacs.d/vim-mode/vim-window.el
@@ -0,0 +1,328 @@
+;;; vim-window.el - Implementation of window commands.
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+
+;; This file contains implementations for the window operations.
+;; Window operations are usually just simple commands and should not
+;; be repeatable.
+
+;;; Code:
+
+(condition-case nil
+    (require 'windmove)
+  (error
+   (message "vim-mode: Could not load 'windmove', window-commands not available.")
+   nil))
+
+(vim:define-keymap window-mode "window mode" :map-command wmap)
+
+(vim:define-mode window "VIM window mode"
+                 :ident "W"
+                 :keymaps '(vim:window-mode-keymap)
+                 :command-function 'vim:normal-mode-command)
+
+(defun vim:resize-window (new-size &optional horizontal)   
+  "Sets the current window's with or height to `new-size'."
+  (let ((wincfg (current-window-configuration))
+	(nwins (length (window-list)))
+	(count (if horizontal
+		   (- new-size (window-width))
+		 (- new-size (window-height)))))
+
+    (catch 'loop
+      (save-window-excursion
+	(while (not (zerop count))
+	  (if (> count 0)
+	      (progn (enlarge-window 1 horizontal) (decf count))
+	    (progn
+	      (shrink-window 1 horizontal)
+	      (incf count)))
+	  (if (= nwins (length (window-list)))
+	      (setq wincfg (current-window-configuration))
+	    (throw 'loop t)))))
+    (set-window-configuration wincfg)))
+         
+
+(defun vim:get-buffer-tree (wintree)
+  "Extracts the buffer tree from a given window-tree."
+  (if (consp wintree)
+      (cons (car wintree) (mapcar #'vim:get-buffer-tree (cddr wintree)))
+    (window-buffer wintree)))
+
+
+(defun vim:restore-window-tree (win tree)
+  "Restores the given buffer-tree layout as subwindows of win."
+  (cond
+   ((and (consp tree) (cddr tree))
+    (let ((newwin (split-window win nil (not (car tree)))))
+      (vim:restore-window-tree win (cadr tree))
+      (vim:restore-window-tree newwin (cons (car tree) (cddr tree)))))
+   ((consp tree)
+    (set-window-buffer win (cadr tree)))
+   (t (set-window-buffer win tree))))
+
+
+(vim:defcmd vim:window-split (count (argument:file file) nonrepeatable)
+  "Splits the current window horizontally, `count' lines height, editing a certain `file'."            
+  (let ((new-win (split-window (selected-window) count)))
+    (when file
+      (vim:cmd-edit :argument file))))
+
+
+(vim:defcmd vim:window-vsplit (count (argument:file file) nonrepeatable)
+  "Splits the current window vertically, `count' columns width, editing a certain `file'."            
+  (let ((new-win (split-window (selected-window) count t)))
+    (when file
+      (vim:cmd-edit :argument file))))
+
+
+(vim:defcmd vim:window-close (nonrepeatable)
+  "Closes the current window."
+  (delete-window))
+
+
+(vim:defcmd vim:window-only (nonrepeatable)
+  "Closes all but the current window."
+  (delete-other-windows))
+
+
+(vim:defcmd vim:window-left (count nonrepeatable)
+  "Move the cursor to new `count'-th window left of the current one."
+  (dotimes (i (or count 1))
+    (windmove-left)))
+
+
+(vim:defcmd vim:window-right (count nonrepeatable)
+  "Move the cursor to new `count'-th window right of the current one."
+  (dotimes (i (or count 1))
+    (windmove-right)))
+
+
+(vim:defcmd vim:window-up (count nonrepeatable)
+  "Move the cursor to new `count'-th window above the current one."
+  (dotimes (i (or count 1))
+    (windmove-up)))
+
+
+(vim:defcmd vim:window-down (count nonrepeatable)
+  "Move the cursor to new `count'-th window below the current one."
+  (dotimes (i (or count 1))
+    (windmove-down)))
+
+
+(vim:defcmd vim:window-bottom-right (nonrepeatable)
+  "Move the cursor to bottom-right window."
+  (do ((success t))
+      ((not success))
+    (setq success nil)
+    (condition-case nil
+        (progn
+          (windmove-right)
+          (setq success t))
+      (error nil))
+    (condition-case nil
+        (progn
+          (windmove-down)
+          (setq success t))
+      (error nil))))
+     
+
+(vim:defcmd vim:window-top-left (nonrepeatable)
+  "Move the cursor to top-left window."
+  (do ((success t))
+      ((not success))
+    (setq success nil)
+    (condition-case nil
+        (progn
+          (windmove-left)
+          (setq success t))
+      (error nil))
+    (condition-case nil
+        (progn
+          (windmove-up)
+          (setq success t))
+      (error nil))))
+
+
+(vim:defcmd vim:window-lru (nonrepeatable)
+  "Move the cursor to the previous (last accessed) window."
+  (select-window (get-lru-window)))
+            
+
+(vim:defcmd vim:window-next (count nonrepeatable)
+  "Move the cursor to the next window in the cyclic order.
+With `count' go to the count-th window in the order starting from
+top-left."
+  (if (not count)
+      (select-window (next-window))
+    (vim:window-top-left)
+    (other-window (1- (or count 1)))))
+
+
+(vim:defcmd vim:window-prev (count nonrepeatable)
+  "Move the cursor to the previous window in the cyclic order.
+With `count' go to the count-th window in the order starting from
+top-left."
+  (if (not count)
+      (select-window (previous-window))
+    (vim:window-top-left)
+    (other-window (1- (or count 1)))))
+
+
+(vim:defcmd vim:window-new (count (argument:file file) nonrepeatable)
+  "Splits the current window horizontally and opens a new buffer or edits a certain `file'."
+  (split-window (selected-window) count)
+  (if file
+      (vim:cmd-edit :argument file)
+    (let ((buffer (generate-new-buffer "*new*")))
+      (set-window-buffer (selected-window) buffer)
+      (with-current-buffer buffer (normal-mode)))))
+  
+
+
+(vim:defcmd vim:window-vnew (count (argument:file file) nonrepeatable)
+  "Splits the current window vertically and opens a new buffer name or edits a certain `file'."
+  (split-window (selected-window) count t)
+  (if file
+      (vim:cmd-edit :argument file)
+    (let ((buffer (generate-new-buffer "*new*")))
+      (set-window-buffer (selected-window) buffer)
+      (with-current-buffer buffer (normal-mode)))))
+
+
+(vim:defcmd vim:window-balance (nonrepeatable)
+  "Balances all window sizes."
+  (balance-windows))
+
+
+(vim:defcmd vim:window-increase-height (count nonrepeatable)
+  "Increase current window height by `count'."
+  (vim:resize-window (+ (window-height) (or count 1))))
+            
+
+(vim:defcmd vim:window-decrease-height (count nonrepeatable)
+  "Decrease current window height by `count'."
+  (vim:resize-window (- (window-height) (or count 1))))
+
+
+(vim:defcmd vim:window-increase-width (count nonrepeatable)
+  "Increase current window width by `count'."
+  (vim:resize-window (+ (window-width) (or count 1)) t))
+            
+
+(vim:defcmd vim:window-decrease-width (count nonrepeatable)
+  "Decrease current window width by `count'."
+  (vim:resize-window (- (window-width) (or count 1)) t))
+
+
+(vim:defcmd vim:window-set-height (count nonrepeatable)
+   "Sets the height of the current window to `count'."
+   (vim:resize-window (or count (frame-height)) nil))
+
+
+(vim:defcmd vim:window-set-width (count nonrepeatable)
+   "Sets the width of the current window to `count'."
+   (vim:resize-window (or count (frame-width)) t))
+
+
+(vim:defcmd vim:window-rotate-upwards (nonrepeatable)
+   "Rotates the windows according to the currenty cyclic ordering."
+   (let ((wlist (window-list))
+         (blist (mapcar #'(lambda (w) (window-buffer w))
+                        (window-list))))
+     (setq blist (append (cdr blist) (list (car blist))))
+     (while (and wlist blist)
+       (set-window-buffer (car wlist) (car blist))
+       (setq wlist (cdr wlist)
+             blist (cdr blist)))
+     (select-window (car (last (window-list))))))
+     
+     
+(vim:defcmd vim:window-rotate-downwards (nonrepeatable)
+   "Rotates the windows according to the currenty cyclic ordering."
+   (let ((wlist (window-list))
+         (blist (mapcar #'(lambda (w) (window-buffer w))
+                        (window-list))))
+     (setq blist (append (last blist) blist))
+     (while (and wlist blist)
+       (set-window-buffer (car wlist) (car blist))
+       (setq wlist (cdr wlist)
+             blist (cdr blist)))
+     (select-window (cadr (window-list)))))
+
+
+(vim:defcmd vim:window-move-very-top (nonrepeatable)
+   "Closes the current window, splits the upper-left one horizontally
+and redisplays the current buffer there."
+   (unless (one-window-p)
+     (let ((b (current-buffer)))
+       (delete-window)
+       (let ((btree (vim:get-buffer-tree (car (window-tree)))))
+         (vim:window-only)
+         (let ((newwin (selected-window))
+               (subwin (split-window)))
+           (vim:restore-window-tree subwin btree)
+           (set-window-buffer newwin b)
+           (select-window newwin))))
+     (balance-windows)))
+
+
+(vim:defcmd vim:window-move-far-left (nonrepeatable)
+   "Closes the current window, splits the upper-left one vertically
+and redisplays the current buffer there."
+   (unless (one-window-p)
+     (let ((b (current-buffer)))
+       (delete-window)
+       (let ((btree (vim:get-buffer-tree (car (window-tree)))))
+         (vim:window-only)
+         (let ((newwin (selected-window))
+               (subwin (split-window-horizontally)))
+           (vim:restore-window-tree subwin btree)
+           (set-window-buffer newwin b)
+           (select-window newwin))))
+     (balance-windows)))
+     
+
+(vim:defcmd vim:window-move-far-right (nonrepeatable)
+   "Closes the current window, splits the lower-right one vertically
+and redisplays the current buffer there."
+   (unless (one-window-p)
+     (let ((b (current-buffer)))
+       (delete-window)
+       (let ((btree (vim:get-buffer-tree (car (window-tree)))))
+         (vim:window-only)
+         (let ((subwin (selected-window))
+               (newwin (split-window-horizontally)))
+           (vim:restore-window-tree subwin btree)
+           (set-window-buffer newwin b)
+           (select-window newwin))))
+     (balance-windows)))
+     
+
+     
+
+(vim:defcmd vim:window-move-very-bottom (nonrepeatable)
+   "Closes the current window, splits the lower-right one horizontally
+and redisplays the current buffer there."
+   (unless (one-window-p)
+     (let ((b (current-buffer)))
+       (delete-window)
+       (let ((btree (vim:get-buffer-tree (car (window-tree)))))
+         (vim:window-only)
+         (let ((subwin (selected-window))
+               (newwin (split-window)))
+           (vim:restore-window-tree subwin btree)
+           (set-window-buffer newwin b)
+           (select-window newwin))))
+     (balance-windows)))
+        
+
+(provide 'vim-window)
+
+;;; vim-window.el ends here
diff --git a/.emacs.d/vim-mode/vim.el b/.emacs.d/vim-mode/vim.el
new file mode 100644
index 0000000..19f56ec
--- /dev/null
+++ b/.emacs.d/vim-mode/vim.el
@@ -0,0 +1,223 @@
+;;; vim.el --- a VIM-emulation for Emacs
+
+;; Copyright (C) 2009, 2010 Frank Fischer
+
+;; Author: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;; Maintainer: Frank Fischer <frank.fischer@mathematik.tu-chemnitz.de>,
+;; URL: http://www.emacswiki.org/emacs/VimMode 
+;; License: GPLv2 or later, as described below under "License"
+;; Compatibility: Emacs 22, 23, XEmacs 21.4
+;; Version: 0.3.0
+;; Keywords: emulation, vim
+;; Human-Keywords: vim, emacs
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Acknowledgements:
+
+;; This package contains code from several other packages:
+;;
+;; - rect-mark.el
+;; - viper
+;; - vimpulse.el
+;; - windmove.el
+;;
+;; Special thanks go to the authors of those packages.
+
+;;; Commentary:
+
+;; A simple VIM-mode for Emacs
+;;
+;; This project is in a VERY early development state and many function
+;; have not been implemented yet.
+;;
+;; If you want to try, open this file in your Emacs and evaluate the buffer.
+;; The mode can be activated by 'M-x vim-mode'.
+;;
+;; Don't forget to disable Viper if you want to try vim-mode.
+;;
+;; The project is divided into many files. Each file implements some
+;; almost-independent feature. If you want to learn how to implement
+;; new commands or motions, look at the files vim-commands.el and
+;; vim-motions.el.
+;;
+;; Here is a short description of the contents of each file:
+;;
+;;  - vim.el:  This file just sets up the mode and loads the other files.
+;;
+;;  - vim-compat.el: Compatibility layer for different Emacsen.
+;;
+;;  - vim-keymap.el: A few functions for defining keymaps for vim-mode.
+;;
+;;  - vim-vim.el: This file contains the macros for defining motions
+;;                and commands as well as some utility functions for
+;;                calling them.
+;;
+;;  - vim-modes.el: Each VIM-mode (normal-mode, insert-mode, ...) corresponds
+;;                  to an Emacs-minor-mode. This file contains some macros and
+;;                  functions to define new vim-modes in this context.   
+;;
+;;  - vim-insert-mode.el: The implementation of insert-mode.         
+;;                                                                    
+;;  - vim-normal-mode.el: The implementation of normal-mode.         
+;;                                                                    
+;;  - vim-visual-mode.el: The implementation of visual-mode.         
+;;
+;;  - vim-ex-mode.el: The implementation of ex-mode.         
+;;                                                                    
+;;  - vim-commands.el: The implementations of commands like 'delete', 
+;;                     'yank', 'paste' and so on.               
+;;
+;;  - vim-motions.el: The implementations of motion commands like 'h',
+;;                    'i', 'j', 'k', 'f', 'w', ...
+;;
+;;  - vim-scroll.el: The implementation of scrolling commands like
+;;                   'zz', 'Ctrl-F'.
+;;
+;;  - vim-window-el: The implementation of window commands like 'C-w s'.
+;;
+;;  - vim-ex-commands.el: The implementations of commands like ':edit'
+;;                        or ':buffer'.
+;;
+;;  - vim-search.el: The implementation of '/' and ':substitute'.
+;;
+;;  - vim-undo.el: Some variables and functions for undo/redo.
+;;
+;;  - vim-maps.el: The definition of the basic keymaps.  This file
+;;                 connects the keymaps with the commands and motions
+;;                 defined in vim-commands.el and vim-motions.el.
+;;
+;; TODO:
+;;
+;; HAVE:
+;;   - framework for keymaps, motions, commands and command-mappings
+;;   - insert-mode, normal-mode, visual-mode and ex-mode
+;;   - simple motions
+;;   - deletion, yank, paste, change, replace
+;;   - undo/redo
+;;   - repeat
+;;
+;; MISSING:
+;;   - better Emacs integration (modes, buffer local variables, ...)
+;;   - text objects
+;;   - several commands
+;;   - marks and register
+;;   - ...
+
+;; - several calls 'looking-back' may be inefficient
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(defgroup vim-mode nil
+  "A VIM emulation mode."
+  :group 'emulations)
+
+(defcustom vim:default-initial-mode
+  'normal
+  "The default initial vim sub-mode."
+  :type '(symbol :tag "vim-mode start mode")
+  :group 'vim-mode)
+
+(defcustom vim:initial-modes
+  '((debugger-mode . window)
+    (compilation-mode . window)
+    (grep-mode . window)
+    (gud-mode . window)
+    (sldb-mode . window)
+    (slime-repl-mode . window)
+    (reftex-select-bib-mode . window)
+    (completion-list-mode . window)
+    (help-mode . motion)
+    (Info-mode . motion))
+  "Associated list of (major-mode . vim:mode) which specifies the
+vim sub-mode in which vim-mode should start when a buffer with the
+given major-mode is created."
+  :type '(repeat (cons (symbol :tag "major mode") (symbol :tag "vim-mode start mode")))
+  :group 'vim-mode)
+
+
+(defmacro vim:deflocalvar (name &rest args)
+  "Defines a buffer-local variable."
+  (declare (indent defun))
+  `(progn
+     (defvar ,name ,@args)
+     (make-variable-buffer-local ',name)))
+(font-lock-add-keywords 'emacs-lisp-mode '("vim:deflocalvar"))
+
+(defvar vim:emulation-mode-alist nil
+  "List of all keymaps used by some modes.")
+
+(let ((load-path (cons (expand-file-name ".") load-path)))
+  (eval-when-compile
+    (load "vim-compat")
+    (load "vim-keymap")
+    (load "vim-modes")
+    (load "vim-vim")
+    (load "vim-normal-mode")
+    (load "vim-insert-mode")
+    (load "vim-visual-mode")
+    (load "vim-commands")
+    (load "vim-motions")
+    (load "vim-scroll")
+    (load "vim-window")
+    (load "vim-undo")
+    (load "vim-ex")
+    (load "vim-ex-commands")
+    (load "vim-search")
+    (load "vim-maps"))
+  
+  (require 'vim-compat)
+  (require 'vim-keymap)
+  (require 'vim-modes)
+  (require 'vim-vim)
+  (require 'vim-normal-mode)
+  (require 'vim-insert-mode)
+  (require 'vim-visual-mode)
+  (require 'vim-commands)
+  (require 'vim-motions)
+  (require 'vim-scroll)
+  (require 'vim-window)
+  (require 'vim-undo)
+  (require 'vim-ex)
+  (require 'vim-ex-commands)
+  (require 'vim-search)
+  (require 'vim-maps))
+
+(define-minor-mode vim-local-mode
+  "VIM emulation mode."
+  :lighter " VIM"
+  :init-value nil
+  :global nil
+
+  (if vim-local-mode
+      (progn
+        (make-local-variable 'vim:emulation-mode-alist)
+        (vim:initialize-keymaps t))
+    (progn
+      (vim:initialize-keymaps nil)
+      (setq global-mode-string
+            (delq 'vim:mode-string global-mode-string ))
+      (vim:activate-mode nil))))
+  
+(define-globalized-minor-mode vim-mode vim-local-mode vim:initialize)
+
+(defun vim:initialize ()
+  (unless (vim:minibuffer-p)
+    (let ((mode (cdr (or (assoc major-mode vim:initial-modes)
+                         (cons t vim:default-initial-mode)))))
+      (when mode
+        (setq vim:active-mode nil)
+        (vim-local-mode 1)
+        (vim:intercept-ESC-mode 1)
+        (vim:activate-mode mode)
+        (unless (memq 'vim:mode-string global-mode-string)
+          (setq global-mode-string
+                (append '("" vim:mode-string) (cdr global-mode-string))))))))
+
+
+(provide 'vim)
+
+;;; vim.el ends here
diff --git a/.emacs.d/vimpulse.el b/.emacs.d/vimpulse.el
new file mode 100644
index 0000000..f78685a
--- /dev/null
+++ b/.emacs.d/vimpulse.el
@@ -0,0 +1,7118 @@
+;;; vimpulse.el --- emulates Vim's most useful features -*- coding: utf-8 -*-
+
+;; Copyright (C) 2007 Brad Beveridge
+;; Copyright (C) 2007, 2009 Alessandro Piras
+;; Copyright (C) 2008 Frank Fischer
+;; Copyright (C) 2009 Jason Spiro <http://www.jspiro.com/>
+;; Copyright (C) 2010 Vegard Øye
+;; Copyright (C) 2010 Štěpán Němec
+;;
+;; Author: Brad Beveridge et al.
+;; Maintainer: Vegard Øye <vegard_oye at hotmail.com>
+;;      Please send bug reports to the mailing list (see below).
+;; Created: 23 Aug 2007
+;; Version: 0.4+git
+;; Keywords: emulations, viper
+;; Human-Keywords: vim, visual-mode, rsi, ergonomics, emacs pinky
+;; URL: http://www.emacswiki.org/emacs/vimpulse.el
+;; Git repository: http://www.assembla.com/spaces/vimpulse/
+;; Mailing list: <implementations-list at lists.ourproject.org>
+;;      Subscribe: http://tinyurl.com/implementations-list
+;;      Newsgroup: nntp://news.gmane.org/gmane.emacs.vim-emulation
+;;      Archives: http://dir.gmane.org/gmane.emacs.vim-emulation
+;;      You don't have to subscribe.  We usually reply within a few
+;;      days and CC our replies back to you.
+;; Related: viper.el, viper-in-more-modes.el
+;;
+;; Thanks to our old maintainers:
+;;      Alessandro Piras
+;;      Jason Spiro
+;; We'll miss you as maintainers :)
+;;
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+
+;; Vimpulse emulates Vim's most popular features, like Visual mode
+;; and text objects.  Vimpulse is a set of modifications to Viper, the
+;; standard library that emulates vi.  Vimpulse is not a minor mode;
+;; as soon as it is loaded, Viper will start working in a more
+;; Vim-like way.
+;;
+;; Vimpulse is under active development.  It works quite well with
+;; GNU Emacs 22.3 and 23.2, as well as XEmacs 21.4.22.  Patches and
+;; feature requests are welcome (see also the file CONTRIBUTE in the
+;; repository).
+
+;;; Installation:
+
+;; If you checked out from Git, run `make' to produce
+;; vimpulse-big.el.  If on Windows, you can run compile.bat.  Then:
+;;
+;; 1. Copy vimpulse.el (or vimpulse-big.el) to somewhere in your
+;;    `load-path'.
+;;
+;; 2. Add the following to your init file:
+;;
+;;        (require 'vimpulse)
+;;
+;;    If you use Windows, see
+;;    http://www.gnu.org/software/emacs/windows/faq3.html.
+;;
+;; The rest is optional:
+;;
+;; 3. For linear undo/redo and undo branches, install
+;;    undo-tree.el: http://www.emacswiki.org/emacs/UndoTree.
+;;
+;; Vimpulse automatically enables Viper.  You can temporarily disable
+;; Viper (and Vimpulse) with the C-z key.
+
+;;; Usage:
+
+;; To use Visual mode, press v in vi (command) mode.  Then use the
+;; motion commands to expand the selection.  Press d to delete, c to
+;; change, r to replace, or y to copy.  You can use p to paste.  For
+;; Line selection, press V instead of v; then you can copy and paste
+;; whole lines.  For Block selection, press C-v; now you can copy and
+;; paste the selected rectangle.  In Block selection, you may use
+;; I or A to insert or append text before or after the selection on
+;; each line.
+;;
+;; Other features:
+;;
+;; Vimpulse supports text objects: daw, daW, das, dap, dab, daB, da(,
+;; da[, da{, da<, da", da', as well as diw, diW, dis, etc.  To change
+;; an object: caw, cas, etc.  To yank it: yaw, yas, etc.  To select it:
+;; vaw, vas, etc.
+;;
+;; The extended documentation is still in its early stages, but you
+;; can view drafts at
+;;
+;; http://trac-git.assembla.com/vimpulse/wiki/Documentation
+;;
+;; The documentation that comes with Vim -- which is online at
+;; http://vimdoc.sf.net/ -- may also be helpful.
+;;
+;; Tips:
+;;
+;; - Vimpulse makes C-r run Redo in command mode, but you can
+;;   still get reverse isearch by pressing C-s and then C-r.
+;;
+;; - To change the color of search, add something like the following
+;;   to .emacs:
+;;
+;;       (set-face-foreground isearch nil)
+;;       (set-face-background isearch "lightgoldenrod2")
+;;
+;; - To change the color of Visual mode (`zmacs-region' in XEmacs):
+;;
+;;       (set-face-background 'region "blue")
+
+;;; News:
+
+;; Version 0.4+git [2010-06-??]
+;;  [vegard_oye at hotmail.com:]
+;;  - [NEW] :undolist or :ul shows the undo history as a tree. This
+;;    uses undo-tree.el, which replaces redo.el for undo/redo.
+;;    Get undo-tree.el from: http://www.emacswiki.org/emacs/UndoTree
+;;  - [NEW] / and ? use isearch. Matches are highlighted while typing;
+;;    also, isearch keystrokes applies, like C-w to yank the text
+;;    under cursor. See `isearch-forward' for more details.
+;;  - [NEW] If `viper-auto-indent' is t, RET extends the comment
+;;    prefix to the next line (with `comment-indent-new-line' from
+;;    newcomment.el).
+;;  - [NEW] Keys: gi, g$, g0.
+;;  - [NEW] C-w has its own prefix map, `vimpulse-window-map'.
+;;  - [NEW] Lower-case marks are buffer-local -- thanks, Štěpán Němec.
+;;  - [FIX] Replace mode's appearance is now more similar to Vim's.
+;;  - [FIX] Byte compilation errors.
+;;  - [FIX] Various bugs submitted to the mailing list --
+;;    thanks, everyone.
+;;  - To pacify the compiler, all variables are initially defined
+;;    in one place.
+;;  - For readability and consistency, "Yoda conditions" are
+;;    universally banned: e.g., (= var 0), not (= 0 var).
+;;  - Furthermore, all "level two" comments (;;) are full sentences.
+;;
+;; Version 0.4 [2010-04-26]
+;;  [vegard_oye at hotmail.com:]
+;;  - [NEW] Operator-Pending mode: the cursor's appearance
+;;    changes temporarily after y, d, c, etc.
+;;  - [NEW] Motion type system: one can change how a motion is
+;;    "interpreted" with v, V and C-v. For example, dvj will
+;;    delete a characterwise range (the default is linewise).
+;;  - [NEW] Keys: gq, gu, gU, g~, g?.
+;;  - [NEW] Keybinding functions: `vimpulse-omap' and
+;;    `vimpulse-omap-local'.
+;;  - [FIX] Vimpulse's text objects handle whitespace
+;;    more like Vim's.
+;;  - [FIX] Various bugs submitted to the mailing list --
+;;    thanks, everyone.
+;;  - The code for applying an "operator" like d to a "motion"
+;;    like w is completely rewritten. Operators are simple
+;;    to define (with `vimpulse-range'), and can be applied
+;;    to regular Emacs movement commands as well.
+;;  - The text objects have been redefined in terms of the new
+;;    framework. They are implemented as selection commands;
+;;    see the `vimpulse-define-text-object' macro for details.
+;;  - The code for adding Viper states is generalized.
+;;    Both Visual mode and Operator-Pending mode are
+;;    defined with the `vimpulse-define-state' macro.
+;;  - The comments use a more conventional format: ;;;; for major
+;;    headings (one per file), ;;; for subsections (within each file),
+;;    ;; for individual pieces of code and ; for trailing comments.
+;;    This is easier to maintain and complies with section D.7 of
+;;    the GNU Emacs Lisp Reference Manual.
+;;
+;; Version 0.3.1 [2010-03-09]
+;;  [vegard_oye at hotmail.com:]
+;;  - [NEW] Emacs-compatible Visual selection.
+;;    It is now a Viper state proper, with a user map
+;;    and a major mode extension map.
+;;    [NEW] Visual keys: u, U, ~, >, <, J, O, gv --
+;;    thanks, Frank Fischer.
+;;  - [NEW] Movement keys: C-o, C-i, C-w hjkl, gb, gd, N%, +, _.
+;;  - [NEW] Keybinding functions: `vimpulse-map',
+;;    `vimpulse-imap' and `vimpulse-vmap'.
+;;  - [NEW] Backspace in Replace mode restores text.
+;;  - [NEW] Basic vi navigation in help buffers.
+;;  - [NEW] Vimpulse has its own customization group.
+;;  - [FIX] Improved text objects support, including Visual mode.
+;;  - [FIX] Various bugs listed at EmacsWiki or submitted to the
+;;    mailing list or bug tracker -- thanks.
+;;  - All Vimpulse bindings are now in `viper-vi-basic-map',
+;;    leaving `viper-vi-global-user-map' for the user.
+;;    The same is true of Visual mode.
+;;  - Easier installation. rect-mark.el is no longer needed,
+;;    nor is cl.el.
+;;  - All tabs are replaced by spaces.
+;;  - The file encoding is UTF-8.
+;;  [laynor at gmail.com:]
+;;  - Added some small fixes, and promoted the experimental stuff to
+;;    stable, as it seems to work well and not loading it caused
+;;    problems.
+;;
+;; Version 0.3.0 [2009-07-03]
+;;  [laynor at gmail.com:]
+;;  - [NEW] Register support on text object commands.
+;;  - [NEW] Issuing : in Visual mode has a behavior closer
+;;    to Vim's.
+;;  [jasonspiro3 at gmail.com:]
+;;  - [FIX] The Enter key now does what it should do -- insert a
+;;    newline -- even when longlines-mode is on.
+;;  - Comment changes.
+;;
+;; Version 0.2.6.9 [2009-06-24]
+;;  [laynor at gmail.com:]
+;; - [FIX & NEW] Text objects support fixed and integrated with Viper.
+;;   Now count works (e.g., you can do 3caw and it works correctly),
+;;   and it's possible to repeat the commands with ".".
+;;
+;; Version 0.2.6.8 [2009-06-22]
+;;  [laynor at gmail.com:]
+;; - [NEW] Text object support: paren blocks, sentences, word, Words,
+;;   quoted expressions, paragraphs. Delete and change commands.
+;;   Example commands: diw, ci(, das, etc.
+;; - [FIX] It's now possible to exit Visual mode by pressing the
+;;   ESC key or ^[.
+;;
+;; Version 0.2.6.7
+;;  [jasonspiro3 at gmail.com:]
+;;  - No code changes.
+;;  - Fixed up "thanks" section below to mention Mieszko
+;;    <sillyfox at yahoo.com>'s full name. He wrote a small patch
+;;    which was included long ago. I must have forgotten to include it
+;;    in the changelog.
+;;
+;; Version 0.2.6.6
+;;  [laynor at gmail.com:]
+;; - Fixed pasting in Visual mode, works like in Vim now
+;;   (experimental, see point 6 of installation instructions).
+;;
+;; Version 0.2.6.5
+;;  [laynor at gmail.com:]
+;; - Fixed some major suckage with the change command. Still alpha,
+;;   comments welcome. To use it, see the installation instructions,
+;;   point 6 (it's still experimental).
+;; - Cleaned namespace, hope there are no hidden bugs.
+;; - Fixed loading on Emacs snapshot.
+;;
+;; Version 0.2.6.4
+;;  [laynor at gmail.com:]
+;;  - This can probably be considered a major release.
+;;  - [FIX & NEW] Rewritten Visual mode, v and V variants (no
+;;    changes to Visual Block still). It does not use the region like
+;;    before: highlighting is done through overlays, and the region is
+;;    set inside the command code before calling the Viper commands.
+;;    = in Visual mode calls `vimpulse-visual-indent-command'. The
+;;    Visual mode (apart from Block mode) looks and feels like Vim.
+;;  - [NEW] Enhanced paren-matching. Moving the cursor on a closing
+;;    paren in Normal mode now highlights the opening paren.
+;;  - [NEW] Pressing RET in Insert mode automatically indents the new
+;;    line.
+;;  - [NEW] ^[ works.
+;;  - [FIX] a<ESC> leaves the cursor in the same location as it was
+;;    before (it advanced the cursor 1 character before --
+;;    `viper-exit-insert-state's fault).
+;;  - [FIX] cW doesn't suck anymore at the end of a line.
+;;
+;; Version 0.2.6.3:
+;;  [frank.fischer at s2001.tu-chemnitz.de:]
+;;  - Support more Visual Block mode features: insert, append, delete,
+;;    yank, change.
+;;  - Change some Vimpulse and Viper functions to handle Block mode
+;;    properly.
+;;  - Update documentation to reflect Visual Block mode.
+;;  - The = key in Visual mode calls `indent-region'.
+;;
+;; Version 0.2.6.2:
+;;  [jasonspiro3 at gmail.com:]
+;;  - Improved XEmacs compatibility.
+;;  - Small documentation improvements.
+;;
+;; Version 0.2.6.1:
+;;  [jasonspiro3 at gmail.com:]
+;;  - Removed duplicate definition of `vimpulse-detect-mark-deactivate'
+;;    and duplicate `add-hook' call to add the hook. I must have added
+;;    the extra copies by accident when doing my last big merge; now
+;;    they are gone.
+;;
+;; Version 0.2.6.0:
+;;  [jasonspiro3 at gmail.com:]
+;;  - Merged a patch for the function that powers * and #. Based on
+;;    Ryoichi's patch and a cleaned-up version of Weihua's patch --
+;;    thanks. Now * and # will search for entire symbol at point,
+;;    including underscores, not just word at point.
+;;  - TODO addition.
+;;
+;; Version 0.2.5.1:
+;;  [jasonspiro3 at gmail.com:]
+;;  - Redefined viper-adjust-undo to do nothing. This way, in Insert
+;;    mode, typing then moving the cursor then typing more counts as
+;;    two separately undoable actions instead of one. Thanks to Weihua
+;;    JIANG and to max_ from IRC #emacs for the idea.
+;;  - Small extra TODO.
+;;
+;; Version 0.2.5.0:
+;;  [jasonspiro3 at gmail.com:]
+;;  I've ignored my local changes for too long. Here they are:
+;;  - Added keybindings from a Usenet post by Samuel Padgett.
+;;  - Made change (cw, etc.) commands work more like Vim (my code).
+;;  - I removed (setq ex-cycle-other-window nil); although it is very
+;;    useful, it merely works around a problem with Viper. I plan to
+;;    discuss it with the Viper maintainer instead.
+;;  - Other changes and bugfixes from various people.
+;;
+;; Version 0.2.0.3:
+;;  [jasonspiro3 at gmail.com:]
+;;  - Added Brad's `viper-jump-to-tag-at-point'.
+;;
+;; Version 0.2.0.2:
+;;  [jasonspiro3 at gmail.com:]
+;;  - Small C-w keys and doc fixes.
+;;
+;; Version 0.2.0.1:
+;;  [cppjavaperl:]
+;;  - Added support for Visual Block mode (i.e., rectangle selection).
+;;  - Made C-p look for matches *prior* to the cursor and added C-n
+;;    binding to look for matches *before* the cursor. This works more
+;;    like Vim does.
+;;  [jasonspiro3 at gmail.com:]
+;;  - Since Vimpulse has no website, I added a prominent pointer at
+;;    the top to the installation instructions.
+;;
+;; Version 0.2.0.0: Brad merged in several changes, including:
+;;  - Exit Visual mode when the mark deactivates.
+;;  - Changed the window manipulation to be global.
+;;  - Added gf (goto file at point).
+;;  - Added \C-] and \C-t, tag jump & pop.
+;;  - Added a helper function for defining keys.
+;;  - Commented out `show-paren-function', what is it meant to do?
+;;
+;; Version 0.1.0.1: No code changes. Small documentation changes,
+;; including updates on moving-left bug.
+;;
+;; Version 0.1: Initial release.
+
+;;; Acknowledgements:
+
+;; Special thanks to Brad Beveridge, the original author of Vimpulse.
+;;
+;; Thanks to:
+;;
+;;      cppjavaperl <cppjavaperl at yahoo.com>
+;;      Fabian Brännström <f.braennstroem at gmx.de>
+;;      Frank Fischer <frank.fischer at s2001.tu-chemnitz.de>
+;;      John <jn at ngedit.com>
+;;      John J Foerch <jjfoerch at earthlink.net>
+;;      José Alfredo Romero L. <escherdragon at gmail.com>
+;;      Mieszko <sillyfox at yahoo.com>
+;;      rhinoryan
+;;      Rick Sladkey, author of rect-mark.el
+;;      Ryoichi Kanetaka <ryoichi.kanetaka at gmail.com>
+;;      Samuel Padgett
+;;      Štěpán Němec <stepnem at gmail.com>
+;;      Stephen Bach <stephen at sjbach.com>
+;;      Stian S.
+;;      Toby Cubitt
+;;      Wang Xin
+;;      Weihua Jiang <weihua.jiang at gmail.com>
+;;
+;; and all the other people who have sent in bug reports and feedback.
+;; Also, thanks to Michael Kifer and Viper's contributors.
+;;
+;; We love patches.  Would you like to see your name here?
+;; Please send code and/or documentation patches to the maintainer.
+;; Ideas, comments, and test results are appreciated too.
+
+;;; Bugs:
+
+;; (We would appreciate it very much if you report bugs.)
+;;
+;; Known bugs:
+;;
+;; - cw with a count doesn't work quite the same as Vim when the point
+;;   is just before a space between words.
+;;     - Fix plan: try cw with a count, then try dwi with a count; or
+;;       ask on a relevant forum how the commands differ; or check
+;;       how it works in vi/Vim, then check the Vim manual for more
+;;       info; then, decide how to best fix it.
+;;         - Vim's behavior seems inconsistent in this case.  I think
+;;           it would be best to make the fix optional (defaulting to
+;;           standard Vim behavior, though), as I (at least) like
+;;           Vimpulse's behavior better in this case.
+;;
+;; - Undo has problems in XEmacs.
+
+;;; Development and documentation TODOs:
+
+;; - Make sure I have added all stuff in Brad's Viper additions and
+;;   from my collection, then start documenting already.  Once there
+;;   are even the simplest of docs (a nice keymap), people will have a
+;;   far easier time using Vimpulse and so I bet more will contribute.
+;;
+;; - Folding.  This should be implemented as a separate Lisp library
+;;   usable for even non-Viper users. Which foldmethods to do first?  I
+;;   personally only use foldmethod=marker, and even that only rarely.
+;;
+;; - i_C-(I forgot the letter) should do (copy-from-above-command 1)
+;;   from misc.el.
+;;
+;; - Add :set spell / :set nospell that uses flyspell-mode.
+;;
+;; - Add support for tabs.el, a tabs mode that works sensibly (get it
+;;   from Emacs Lisp List).
+;;     - Minimum needed: :tabedit, :tabnext, :tabprevious.
+;;     - Since I'm emulating Vim, emulate its tab pages feature.  So a
+;;       tab page should be able to hold one or more buffers.
+;;
+;; - Add Customize option to let users stop C-r from being Redo?
+;;
+;; - Copy more features from Brad's work in darcs and from vimpact
+;;   into Vimpulse.
+;;
+;; - Doc: look in Google chat log, find description of one-char-off
+;;   bug, see if it applies to this or to the not-yet-released
+;;   viper-x, and if to this, mention under Bugs.
+;;
+;; - Doc: list all new keys (and maybe all differences from Viper) in
+;;   Usage section.
+;;
+;; - Doc: describe all new keys in Usage section; can look at Vim
+;;   manual for ideas.
+;;
+;; - Modify how tramp works so it also automatically handles URLs
+;;   typed in the netrw syntax, e.g., http:// etc.  But first ask tramp
+;;   upstream if they could please make those changes themselves.
+;;
+;; - Improve CTRL-O for jumping back in the jumplist and CTRL-I for
+;;   jumping forwards (for undoing one CTRL-O).  The global mark ring
+;;   is not what I want.  I wonder if Emacs' tags functionality allows
+;;   a jumplist.  I wonder if Viper does tags like nvi does.
+;;     - Try code.google.com/p/ejumplist/source/browse/trunk/jumplist.el
+;;
+;; - On my PC (I run Ubuntu), if you start plain Vim and then press
+;;   CTRL-O many times, it starts opening recently opened files.  Is
+;;   that useful?  Should Vimpulse have persistent jump table
+;;   functionality like that, and if so, should it use recentf or
+;;   Vim's .viminfo file or some tag functionality in Emacs?  How will
+;;   it interact with the fact that in Emacs, it's not traditional to
+;;   suddenly close files without warning?
+;;
+;; - Make sentence movement work like in Vim.  I wonder if this can be
+;;   done by setting Viper options.
+;;     - In Vim, according to :help sentence, end of sentence is:
+;;         - '.', '?', or '!'
+;;         - then (optionally) one or more '"', ''', ')', and ']'
+;;           characters
+;;         - then a newline, space, or tab.
+;;         - A paragraph or section boundary is also a sentence
+;;           boundary, but I bet Viper handles that, and if it doesn't,
+;;           it should.
+;;             - A paragraph begins after each truly empty line (no
+;;               whitespace chars on it) or after certain col-1 nroff
+;;               macros.  A sentence begins after a form feed (^L), or
+;;               certain nroff macros, in column 1.
+;;             - The characters '{' and '}' sometimes affect paragraph
+;;               definitions.  See :help paragraph.
+;;     - In Viper, on the other hand, I bet sentences are like in vi,
+;;       where tabs aren't whitespace, and you need at least two spaces
+;;       after the punctuation mark.
+;;
+;; - Try to get Vimpulse included with upstream Viper; also, ideally,
+;;   if you pressed "v" in Viper, Viper would offer to load Vimpulse.
+;;   (Likely to happen?  Consider that Michael Kifer, the Viper
+;;   maintainer, told me he doesn't need Vim keys.  Then again, maybe I
+;;   could convince him that it's worth it to ship Vim keys, for other
+;;   people's benefit.)  Also, consider that some of the code (like
+;;   Operator-Pending mode) addresses problems mentioned in viper.el.
+;;
+;; - E-mail ridip <rdp at inthefaith.net> and ask him for his Vimpulse
+;;   contribs and his DVORAK stuff.
+;;
+;; - E-mail to Tromey for upload into ELPA?  We'd have to redo this
+;;   when a new major version comes out.  Or maybe we should just
+;;   contribute some auto-ELPA-management code.  By the way, should we
+;;   move Vimpulse into CVS somewhere?
+;;
+;; - Maybe merge all feature requests that anyone has ever sent into a
+;;   "Feature requests" section here.
+
+;;; Development plans:
+
+;; The design plan for Vimpulse is for it to only emulate features
+;; that are in Vim.  Therefore, other features do not belong in
+;; Vimpulse unless one can get the Vim people to implement those
+;; features too.
+;;
+;; At the same time, Vimpulse should strive for customizability and
+;; extensibility, so that the user can modify it just as easily as the
+;; rest of Emacs.
+
+;;; Undecided development questions:
+
+;; - In Vimpulse, like in real Vim, C-r only does Redo in vi (command)
+;;   mode; in Insert mode it does something else.  (In Vimpulse that
+;;   "something else" is reverse isearch.)  Should it do reverse
+;;   isearch in Insert mode too?
+;;
+;; - In Vim, when a line starts with a "// " or ";; " comment and one
+;;   presses enter, Vim extends the comment onto the next line.  What
+;;   Vim function is it that does this?  Is the function enabled in
+;;   plain vanilla Vim 7 as shipped by vim.org?  (Check by seeing how
+;;   it works on Vim for Windows running on either Windows or Wine.)
+;;   Is it mostly useful or mostly annoying?  Is it worth implementing
+;;   in Emacs, considering there are other easy ways to create
+;;   comments?
+;;
+;; - With some delete commands, Viper shows a message like "Deleted 50
+;;   characters" in the minibuffer.  Is that annoying?
+;;     - Update 1 month later: I hardly notice the message.
+;;     - Dear users: Do you think I should disable the message?
+;;
+;; - I want to allow buffer-switching without using the C-x key, since
+;;   C-x b RET an extremely large amount of times per day is
+;;   uncomfortable for my right pinky, which presses RET.  There's
+;;   already :b which seems to just invoke `switch-to-buffer'.  Is this
+;;   right?  Is it bad if I make Vimpulse emulate set autowrite=on
+;;   then write new multi-buffer code?  What should the code's user
+;;   interface be like?  I really should switch back to Vim for a day,
+;;   learn more about how it deals with multiple buffers at once (and
+;;   maybe also with tab pages) and emulate whatever of Vim's is most
+;;   convenient.  What do you think of all the above?\
+;;     - Update: IIRC :set hidden lets you switch buffers w/o saving
+;;     - Update from Sebastien Rocca Serra: :set wildmenu plus
+;;       tab-completion makes :b very pleasant to use when you have
+;;       50+ buffers open.  Wildmenu is almost like iswitchb or ido.
+;;     - I wonder how well that stuff works with just a few buffers open.
+;;
+;; - Simulate Vim's set virtualedit=onemore option to make C-x C-e
+;;   possible without first advancing to next line?
+;;
+;; - Would it be bad to edit users' .viminfo files without asking
+;;   permission, or should some variable have to be customized on to do
+;;   such a thing?
+;;
+;; - Is there any need to implement Vim's new
+;;   [count]dk-can-go-past-top-of-file-without-error functionality (to
+;;   me, no need) or any related functionality?
+;;
+;; - What to do about XEmacs?  It doesn't ship with woman.  I wonder
+;;   if woman is in some XEmacs package?
+
+;;; License:
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2 of the
+;; License, or any later version.
+;;
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, write to the Free Software
+;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; Code:
+
+(defconst vimpulse-version "0.4+git"
+  "The current version of Vimpulse")
+
+(defun vimpulse-version ()
+  (interactive)
+  (message "Vimpulse version is %s" vimpulse-version))
+
+;; Load Viper.
+(defvar viper-mode t)
+(defvar viper-inhibit-startup-message t)
+(defvar viper-expert-level 5)
+(defvar viper-want-ctl-h-help t)
+(require 'viper)
+
+;; Load undo-tree.el if available, with redo.el as fall-back.
+(unless (featurep 'undo-tree)
+  (condition-case nil
+      (require 'undo-tree)
+    (error (condition-case nil
+               (require 'redo)
+             (error nil)))))
+(and (fboundp 'global-undo-tree-mode)
+     (global-undo-tree-mode 1))
+
+;;; Customization group for Vimpulse
+
+(defgroup vimpulse nil
+  "Vim emulation within Emacs."
+  :group  'emulations
+  :link   '(custom-group-link "viper")
+  :prefix 'vimpulse-)
+
+(defcustom vimpulse-want-change-state nil
+  "Whether commands like \"cw\" invoke Replace state, vi-like.
+The default is to delete the text and enter Insert state,
+like in Vim."
+  :group 'vimpulse
+  :type  'boolean)
+
+(defcustom vimpulse-want-change-undo t
+  "Whether commands like \"cw\" are undone in a single step.
+On by default."
+  :group 'vimpulse
+  :type  'boolean)
+
+(defcustom vimpulse-want-C-u-like-Vim nil
+  "Whether C-u scrolls like in Vim, off by default."
+  :group 'vimpulse
+  :type  'boolean)
+
+(defcustom vimpulse-want-C-i-like-Vim t
+  "Whether C-i jumps forward like in Vim, on by default."
+  :group 'vimpulse
+  :type  'boolean)
+
+(defcustom vimpulse-enhanced-paren-matching t
+  "Enhanced matching of parentheses, on by default."
+  :group 'vimpulse
+  :type  'boolean)
+
+(defcustom vimpulse-want-operator-pending-cursor t
+  "Whether the cursor changes in Operator-Pending mode, on by default."
+  :group 'vimpulse
+  :type  'boolean)
+
+(defcustom vimpulse-visual-block-untabify nil
+  "Whether Block mode may change tabs to spaces for fine movement.
+Off by default."
+  :type  'boolean
+  :group 'vimpulse-visual)
+
+(defcustom vimpulse-incremental-search t
+  "Use isearch for / and ?, on by default.")
+
+(defcustom vimpulse-flash-delay 2
+  "Number of seconds to flash search matches.")
+
+(defvar vimpulse-flash-timer nil
+  "Timer for flashing search results.")
+
+(defcustom vimpulse-want-vi-keys-in-apropos t
+  "Whether to use vi keys in Apropos mode, on by default."
+  :group 'vimpulse
+  :type  'boolean)
+
+(defcustom vimpulse-want-vi-keys-in-buffmenu t
+  "Whether to use vi keys in Buffer menu, on by default."
+  :group 'vimpulse
+  :type  'boolean)
+
+(defcustom vimpulse-want-vi-keys-in-dired t
+  "Whether to use vi keys in Dired mode, on by default."
+  :group 'vimpulse
+  :type  'boolean)
+
+(defcustom vimpulse-want-vi-keys-in-Info t
+  "Whether to use vi keys in Info mode, on by default."
+  :group 'vimpulse
+  :type  'boolean)
+
+(defcustom vimpulse-want-vi-keys-in-help t
+  "Whether to use vi keys in Help mode, on by default."
+  :group 'vimpulse
+  :type  'boolean)
+
+(defcustom vimpulse-fold-level 0
+  "Default fold level."
+  :type  'integer
+  :group 'vimpulse)
+
+;; The secrets discovered from untold diggings among
+;; the ruins of Customize code.
+(defun vimpulse-custom-value-p (symbol)
+  "Non-nil if SYMBOL has a customized value."
+  (or (get symbol 'customized-value)
+      (get symbol 'customized-face)
+      (get symbol 'saved-value)))
+
+(defmacro vimpulse-setq-custom (sym val &rest body)
+  "Set the customized value of SYM to VAL."
+  `(progn
+     (prog1 (setq ,sym ,val)            ; return VAL
+       (when (get ',sym 'custom-autoload)
+         (custom-load-symbol ',sym))
+       (put ',sym 'customized-value (list (custom-quote ,val))))
+     ,@(when body
+         `((vimpulse-setq-custom ,@body)))))
+
+(defmacro vimpulse-setq-custom-default (symbol value &rest body)
+  "Set the customized default value of SYMBOL to VALUE."
+  `(progn
+     (prog1 ,value                       ; return VALUE
+       (when (get ',symbol 'custom-autoload)
+         (custom-load-symbol ',symbol))
+       (put ',symbol 'standard-value (list (custom-quote ,value))))
+     ,@(when body
+         `((vimpulse-setq-custom-default ,@body)))))
+
+(defmacro vimpulse-setq (sym val &rest body)
+  "Set SYM to VAL, defaults included, unless SYM is customized.
+SYM is unquoted. Returns VAL."
+  `(progn
+     (cond
+      ;; Customized value: just set custom standard value.
+      ((vimpulse-custom-value-p ',sym)
+       (vimpulse-setq-custom-default ,sym ,val))
+      ;; Customized variable: set custom and regular values.
+      ((custom-variable-p ',sym)
+       (vimpulse-setq-custom-default ,sym ,val)
+       (vimpulse-setq-custom ,sym ,val)
+       (setq-default ,sym ,val)
+       (setq ,sym ,val))
+      ;; Regular variable; set default and local values.
+      (t
+       (setq-default ,sym ,val)
+       (setq ,sym ,val)))
+     ,@(when body
+         `((vimpulse-setq ,@body)))))
+
+;;; Initialize variables
+
+(defvar dabbrev--last-abbrev-location)
+(defvar dabbrev--last-abbreviation)
+(defvar dabbrev--last-direction)
+(defvar dabbrev--last-expansion)
+(defvar dabbrev--last-expansion-location)
+(defvar isearch-forward)
+(defvar isearch-lazy-highlight-end)
+(defvar isearch-lazy-highlight-last-string)
+(defvar isearch-lazy-highlight-start)
+(defvar isearch-lazy-highlight-wrapped)
+(defvar isearch-regexp)
+(defvar isearch-string)
+(defvar killed-rectangle nil)
+(defvar saved-echo-keystrokes echo-keystrokes)
+(defvar show-paren-delay)
+(defvar undo-tree-visualizer-map)
+(defvar woman-use-own-frame)
+(defvar woman-use-topic-at-point)
+
+(defvar ex-token-alist)
+(defvar viper-mode-string)
+
+(defvar vimpulse-window-map)
+
+(defvar vimpulse-viper-movement-cmds
+  '(viper-backward-Word viper-backward-char viper-backward-paragraph
+    viper-backward-sentence viper-backward-word
+    viper-beginning-of-line viper-command-argument
+    viper-digit-argument viper-end-of-Word viper-end-of-word
+    viper-exec-mapped-kbd-macro viper-find-char-backward
+    viper-find-char-forward viper-forward-Word viper-forward-char
+    viper-forward-paragraph viper-forward-sentence viper-forward-word
+    viper-goto-char-backward viper-goto-char-forward viper-goto-eol
+    viper-goto-line viper-line-to-bottom viper-line-to-middle
+    viper-line-to-top viper-next-line viper-previous-line
+    viper-scroll-down-one viper-scroll-down viper-scroll-up
+    viper-scroll-up-one viper-window-bottom viper-window-middle
+    viper-window-top vimpulse-end-of-previous-word
+    vimpulse-goto-first-line vimpulse-goto-definition
+    vimpulse-goto-line vimpulse-search-backward-for-symbol-at-point
+    vimpulse-search-forward-for-symbol-at-point vimpulse-jump-backward
+    vimpulse-jump-forward vimpulse-visual-toggle-char
+    vimpulse-visual-toggle-line vimpulse-visual-toggle-block)
+  "List of Viper/Vimpulse movement commands.")
+
+(defvar vimpulse-core-movement-cmds
+  '(viper-backward-char
+    viper-next-line
+    viper-previous-line
+    viper-forward-char
+    viper-ex)
+  "List of Viper \"core\" movement commands.
+These should be present in every mode, to avoid confusion.")
+
+(viper-deflocalvar vimpulse-mark-list nil
+  "List of mark positions to jump to with `vimpulse-jump-forward'.
+ They are stored as markers, the current position first:
+
+     (car vimpulse-mark-list)  = current position (last popped)
+     (cdr vimpulse-mark-list)  = future positions (previously popped)
+     (cadr vimpulse-mark-list) = next position (to jump to)
+
+ In other words, a sort of \"reverse mark ring\": marks that are
+ popped off the mark ring, are collected here.")
+
+(viper-deflocalvar vimpulse-local-marks-alist nil
+  "Association list of local marks.
+Entries have the form (CHAR (FILE . POS)) where POS is a marker
+or a character position.")
+
+(defvar vimpulse-global-marks-alist nil
+  "Association list of global marks.
+Entries have the form (CHAR (FILE . POS)) where POS is a marker
+or a character position.")
+
+(viper-deflocalvar vimpulse-replace-alist nil
+  "Alist of characters overwritten in Replace mode.
+ Used by `vimpulse-replace-backspace' to restore text.
+ The format is (POS . CHAR).")
+
+(viper-deflocalvar vimpulse-exit-point nil
+  "Like `viper-insert-point', but when exiting Insert mode.")
+
+(defvar vimpulse-last-command-event nil
+  "Value for overwriting `last-command-event'.
+Used by `vimpulse-careful-pre-hook'.")
+
+(defvar vimpulse-careful-alist nil
+  "Key bindings for which `vimpulse-careful-pre-hook' is active.
+That is, `last-command-event' and `read-char' work differently
+for these bindings. The format is (KEY-VECTOR . COMMAND).")
+
+(defvar vimpulse-careful-map (make-sparse-keymap)
+  "Keymap of bindings overwritten by `vimpulse-map' et al.")
+
+(defvar vimpulse-paren-overlay-open nil
+  "Overlay used to highlight the opening paren.")
+
+(defvar vimpulse-paren-overlay-close nil
+  "Overlay used to highlight the closing paren.")
+
+(defvar vimpulse-operator-basic-map)
+
+(defvar vimpulse-operator-remap-map (make-sparse-keymap))
+
+(defvar vimpulse-operator-remap-alist nil
+  "Association list of command remappings in Operator-Pending mode.")
+
+(defvar vimpulse-this-operator nil
+  "Current operator.
+In general, motions and operators are orthogonal, with some exceptions:
+\"cw\" and \"dw\" work on slightly different ranges, for example.
+Motions can check this variable if they need to know what
+operator receives their range. See also `vimpulse-this-motion'.")
+
+(defvar vimpulse-this-motion nil
+  "Current motion.
+In general, motions and operators are orthogonal, with some exceptions:
+\"cc\" may indent the current line while \"cw\" may not, for example.
+Operators may check this variable if they need to know what
+motion produced the current range. See also `vimpulse-this-operator'.")
+
+(defvar vimpulse-this-count nil
+  "Current count (operator count times motion count).")
+
+(defvar vimpulse-this-motion-type nil
+  "Current motion type.
+May be `block', `line', `inclusive', `exclusive' or nil.")
+
+(defvar vimpulse-last-motion-type nil
+  "Last repeated range type.
+May be `block', `line', `inclusive', `exclusive' or nil.")
+
+(defvar vimpulse-last-operator nil
+  "Last repeated operator.
+Used by `vimpulse-operator-repeat'.")
+
+(defvar vimpulse-last-motion nil
+  "Last repeated motion.
+Used by `vimpulse-operator-repeat'.")
+
+(defvar vimpulse-visual-basic-map)
+
+(defvar vimpulse-visual-remap-alist nil
+  "Association list of command remappings in Visual mode.")
+
+(put 'vimpulse-visual-basic-map
+     'remap-alist 'vimpulse-visual-remap-alist)
+
+(viper-deflocalvar vimpulse-visual-mode nil
+  "Current Visual mode: may be nil, `char', `line' or `block'.")
+
+(viper-deflocalvar vimpulse-visual-global-vars nil
+  "List of variables that were global.")
+
+(viper-deflocalvar vimpulse-visual-local-vars
+  '(cua-mode
+    mark-active
+    transient-mark-mode
+    zmacs-regions)
+  "System variables that are reset for each Visual session.")
+
+(viper-deflocalvar vimpulse-visual-vars-alist nil
+  "Alist of old variable values.")
+
+(viper-deflocalvar vimpulse-visual-last nil
+  "Last active Visual mode.
+May be `char', `line', `block' or nil.")
+
+(viper-deflocalvar vimpulse-visual-previous-state 'viper-state
+  "Previous state before enabling Visual mode.
+This lets us revert to Emacs state in non-vi buffers.")
+
+(viper-deflocalvar vimpulse-visual-region-expanded nil
+  "Whether region is expanded to the Visual selection.")
+
+(viper-deflocalvar vimpulse-visual-point nil
+  "Last expanded `point' in Visual mode.")
+
+(viper-deflocalvar vimpulse-visual-mark nil
+  "Last expanded `mark' in Visual mode.")
+
+(viper-deflocalvar vimpulse-visual-overlay nil
+  "Overlay for Visual selection.
+In XEmacs, this is an extent.")
+
+(viper-deflocalvar vimpulse-visual-block-overlays nil
+  "Overlays for Visual Block selection.")
+
+(viper-deflocalvar vimpulse-visual-whitespace-overlay nil
+  "Overlay encompassing text inserted into the buffer
+to make Block selection at least one column wide.")
+
+(viper-deflocalvar vimpulse-undo-list-pointer nil
+  "Everything up to this mark is united in the undo-list.")
+
+(defvar vimpulse-visual-height nil
+  "Height of last Visual selection.")
+
+(defvar vimpulse-visual-width nil
+  "Width of last Visual selection.")
+
+(defvar vimpulse-visual-insert-coords nil
+  "List with (I-COM UL-POS COL NLINES), where
+I-COM is the insert command (?i, ?a, ?I or ?A),
+UL-POS is the position of the upper left corner of the region,
+COL is the column of insertion, and
+NLINES is the number of lines in the region.")
+
+(defvar vimpulse-movement-cmds
+  '(backward-char backward-list backward-paragraph backward-sentence
+    backward-sexp backward-up-list backward-word beginning-of-buffer
+    beginning-of-defun beginning-of-line beginning-of-visual-line
+    cua-cancel digit-argument down-list end-of-buffer end-of-defun
+    end-of-line end-of-visual-line exchange-point-and-mark
+    forward-char forward-list forward-paragraph forward-sentence
+    forward-sexp forward-word keyboard-quit mouse-drag-region
+    mouse-save-then-kill mouse-set-point mouse-set-region
+    move-beginning-of-line move-end-of-line next-line previous-line
+    scroll-down scroll-up undo universal-argument up-list
+    vimpulse-end-of-previous-word vimpulse-goto-definition
+    vimpulse-goto-first-line vimpulse-goto-line
+    vimpulse-visual-block-rotate vimpulse-visual-exchange-corners
+    vimpulse-visual-reselect vimpulse-visual-restore
+    vimpulse-visual-toggle-block vimpulse-visual-toggle-line
+    vimpulse-visual-toggle-char viper-backward-Word
+    viper-backward-char viper-backward-paragraph
+    viper-backward-sentence viper-backward-word
+    viper-beginning-of-line viper-digit-argument viper-end-of-Word
+    viper-end-of-word viper-exec-mapped-kbd-macro
+    viper-find-char-backward viper-find-char-forward
+    viper-forward-Word viper-forward-char viper-forward-paragraph
+    viper-forward-sentence viper-forward-word viper-goto-char-backward
+    viper-goto-char-forward viper-goto-eol viper-goto-line
+    viper-insert viper-intercept-ESC-key viper-line-to-bottom
+    viper-line-to-middle viper-line-to-top viper-next-line
+    viper-paren-match viper-previous-line viper-search-Next
+    viper-search-backward viper-search-forward viper-search-next
+    viper-window-bottom viper-window-middle viper-window-top)
+  "List of commands that move point.
+If listed here, the region is not expanded to the
+Visual selection before the command is executed.")
+
+(defvar vimpulse-newline-cmds
+  '(cua-copy-region cua-cut-region cua-delete-region delete-region
+    exchange-point-and-mark execute-extended-command kill-region
+    kill-ring-save vimpulse-Put-and-indent vimpulse-put-and-indent
+    vimpulse-visual-exchange-corners viper-Put-back viper-put-back)
+  "Non-operator commands needing trailing newline in Visual Line mode.
+In most cases, it's more useful not to include this newline in
+the region acted on.")
+
+(defvar vimpulse-search-prompt nil
+  "String to use for vi-like searching.")
+
+(defvar vimpulse-auxiliary-modes nil
+  "List of Emacs modes with state bindings.
+The topmost modes have the highest priority.")
+
+(defvar vimpulse-auxiliary-modes-alist
+  '((vi-state . viper-vi-auxiliary-modes)
+    (insert-state . viper-insert-auxiliary-modes)
+    (replace-state . viper-replace-auxiliary-modes)
+    (emacs-state . viper-emacs-auxiliary-modes)))
+
+(defvar viper-vi-auxiliary-modes nil)
+(defvar viper-insert-auxiliary-modes nil)
+(defvar viper-replace-auxiliary-modes nil)
+(defvar viper-emacs-auxiliary-modes nil)
+
+;;; Carefully set Viper/woman variables
+
+(defun vimpulse-configure-variables ()
+  "Set various variables, unless customized."
+  ;; Can backspace past start of insert/line.
+  (vimpulse-setq viper-ex-style-editing nil)
+  ;; Don't create new frame for manpages.
+  (vimpulse-setq woman-use-own-frame nil)
+  ;; Don't prompt upon K key (manpage display).
+  (vimpulse-setq woman-use-topic-at-point t)
+  ;; No start-up message.
+  (vimpulse-setq viper-inhibit-startup-message t)
+  ;; Viper expert level 5.
+  (vimpulse-setq viper-expert-level 5)
+  ;; Make cursor color consistent.
+  (vimpulse-setq viper-insert-state-cursor-color
+                 viper-vi-state-cursor-color)
+  ;; Cursor moves backwards when exiting Insert state.
+  (vimpulse-setq viper-ESC-moves-cursor-back t)
+  ;; Not in Vim: C-h is indispensable in Emacs.
+  (vimpulse-setq viper-want-ctl-h-help t)
+  ;; Refresh Viper settings.
+  (viper-change-state-to-vi))
+
+(if (and (boundp 'after-init-time) after-init-time)
+    (vimpulse-configure-variables)
+  (add-hook 'after-init-hook 'vimpulse-configure-variables))
+
+;;;; Redefinitions of some of Viper's functions
+
+(defalias 'viper-digit-argument 'digit-argument)
+
+;; Ensure that counts are always echoed immediately, since they might
+;; alter the command's behavior profoundly (e.g., 5i repeats the
+;; insertion four times).
+(defadvice digit-argument (around echo-keystrokes activate)
+  "Echo keystrokes immediately."
+  (setq echo-keystrokes 0.01)
+  ad-do-it)
+
+(defadvice ensure-overriding-map-is-bound (after echo-keystrokes activate)
+  "Echo keystrokes immediately."
+  (setq echo-keystrokes 0.01))
+
+(defadvice restore-overriding-map (after echo-keystrokes activate)
+  "Restore `echo-keystrokes'."
+  (setq echo-keystrokes saved-echo-keystrokes))
+
+(defadvice viper-change
+  (around vimpulse-want-change-state activate)
+  "Disable Replace state if `vimpulse-want-change-state' is nil."
+  (cond
+   (vimpulse-want-change-state
+    ad-do-it)
+   (t
+    ;; We don't want Viper's Replace mode when changing text;
+    ;; just delete and enter Insert state.
+    (setq viper-began-as-replace t)
+    (kill-region beg end)
+    (viper-change-state-to-insert))))
+
+(defun vimpulse-set-replace-cursor-type ()
+  "Display a horizontal bar cursor."
+  (unless (featurep 'xemacs)
+    (setq cursor-type '(hbar . 4))))
+
+(set-face-foreground viper-replace-overlay-face nil)
+(set-face-background viper-replace-overlay-face nil)
+
+(unless (featurep 'xemacs)
+  (setq viper-replace-overlay-cursor-color
+        viper-vi-state-cursor-color)
+  (add-hook 'viper-replace-state-hook
+            'vimpulse-set-replace-cursor-type)
+  (remove-hook 'viper-replace-state-hook
+               'viper-restore-cursor-type))
+
+;;; Marks
+
+;; The following makes lowercase marks buffer-local.
+(defun vimpulse-mark-point ()
+  "Set Vimpulse mark at point."
+  (interactive)
+  (let ((char (read-char)))
+    (cond
+     ;; Local marks.
+     ((and (<= ?a char) (<= char ?z))
+      (vimpulse-mark char))
+     ;; Global marks.
+     ((and (<= ?A char) (<= char ?Z))
+      (vimpulse-mark char t))
+     ;; < > . , ^
+     (t
+      (add-to-list 'unread-command-events char)
+      (viper-mark-point)))))
+
+(defun vimpulse-mark (char &optional global)
+  "Set mark CHAR at point.
+Mark is buffer-local unless GLOBAL."
+  (let* ((marks-alist (if global
+                          'vimpulse-global-marks-alist
+                        'vimpulse-local-marks-alist))
+         (mark  (assq char (symbol-value marks-alist)))
+         (value (cons buffer-file-name (point-marker))))
+    (if mark
+        (setcdr mark value)
+      (set marks-alist (cons (cons char value)
+                             (symbol-value marks-alist)))))
+  (add-hook 'kill-buffer-hook 'vimpulse-mark-swap-out nil t))
+
+(defun vimpulse-mark-swap-out ()
+  "Cf. `register-swap-out'."
+  (and buffer-file-name
+       (dolist (marks-alist '(vimpulse-local-marks-alist
+                              vimpulse-global-marks-alist))
+         (dolist (elt (symbol-value marks-alist))
+           (and (markerp (cddr elt))
+                (eq (marker-buffer (cddr elt)) (current-buffer))
+                (setcdr (cdr elt) (marker-position (cddr elt))))))))
+
+(defun vimpulse-get-mark (char)
+  (or (cdr (assq char (if (< char ?Z)
+                          vimpulse-global-marks-alist
+                        vimpulse-local-marks-alist)))
+      (error "No such mark: %c" char)))
+
+(defun vimpulse-goto-mark (arg)
+  "Go to mark."
+  (interactive "P")
+  (let ((char (read-char))
+        (com (viper-getcom arg)))
+    (vimpulse-goto-mark-subr char com nil)))
+
+(defun vimpulse-goto-mark-and-skip-white (arg)
+  "Go to mark and skip to first non-white character on line."
+  (interactive "P")
+  (let ((char (read-char))
+        (com (viper-getCom arg)))
+    (vimpulse-goto-mark-subr char com t)))
+
+(defun vimpulse-goto-mark-subr (char com skip-white)
+  (cond
+   ((viper-valid-register char '(letter Letter))
+    (let* ((buff (current-buffer))
+           (pos (vimpulse-get-mark char))
+           (file (car pos))
+           (marker (cdr pos)))
+      (if (and file (equal buffer-file-name file))
+          (goto-char marker)
+        (if (null file)
+            (if (marker-buffer marker)
+                (progn (switch-to-buffer (marker-buffer marker))
+                       (goto-char marker))
+              (error "Cannot jump to non-existent buffer"))
+          (and (or (find-buffer-visiting file)
+                   (y-or-n-p (format "Visit file %s again? " file)))
+               (find-file file)
+               (goto-char marker))))
+      (when com
+        (viper-move-marker-locally 'viper-com-point (point)))
+      (if (and (viper-same-line (point) viper-last-jump)
+               (= (point) viper-last-jump-ignore))
+          (push-mark viper-last-jump t)
+        (push-mark nil t))
+      (setq viper-last-jump (point-marker))
+      (when skip-white
+        (back-to-indentation)
+        (setq viper-last-jump-ignore (point)))
+      (when com
+        (if (equal buff (current-buffer))
+            (viper-execute-com (if skip-white
+                                   'viper-goto-mark-and-skip-white
+                                 'viper-goto-mark)
+                               nil com)
+          (switch-to-buffer buff)
+          (goto-char viper-com-point)
+          (viper-change-state-to-vi)
+          (error "Viper bell")))))
+   ((and (not skip-white) (viper= char ?`))
+    (when com
+      (viper-move-marker-locally 'viper-com-point (point)))
+    (when (and (viper-same-line (point) viper-last-jump)
+               (= (point) viper-last-jump-ignore))
+      (goto-char viper-last-jump))
+    (when (null (mark t))
+      (error "Mark is not set in this buffer"))
+    (when (= (point) (mark t))
+      (pop-mark))
+    (push-mark (prog1 (point)
+                 (goto-char (or (mark t) (point)))) t)
+    (setq viper-last-jump (point-marker)
+          viper-last-jump-ignore 0)
+    (when com
+      (viper-execute-com 'viper-goto-mark nil com)))
+   ((and skip-white (viper= char ?'))
+    (when com
+      (viper-move-marker-locally 'viper-com-point (point)))
+    (when (and (viper-same-line (point) viper-last-jump)
+               (= (point) viper-last-jump-ignore))
+      (goto-char viper-last-jump))
+    (when (= (point) (mark t))
+      (pop-mark))
+    (push-mark (prog1 (point)
+                 (goto-char (or (mark t) (point)))) t)
+    (setq viper-last-jump (point))
+    (back-to-indentation)
+    (setq viper-last-jump-ignore (point))
+    (when com
+      (viper-execute-com 'viper-goto-mark-and-skip-white nil com)))
+   (t
+    (error viper-InvalidTextmarker char))))
+
+;;; Code for adding extra states
+
+;; State index variables: for keeping track of which modes
+;; belong to which states, et cetera.
+(defvar vimpulse-state-vars-alist
+  '((vi-state
+     (id . viper-vi-state-id)
+     (auxiliary-modes . viper-vi-auxiliary-modes)
+     (change-func . viper-change-state-to-vi)
+     (basic-mode . viper-vi-basic-minor-mode)
+     (basic-map . viper-vi-basic-map)
+     (diehard-mode . viper-vi-diehard-minor-mode)
+     (diehard-map . viper-vi-diehard-map)
+     (modifier-mode . viper-vi-state-modifier-minor-mode)
+     (modifier-alist . viper-vi-state-modifier-alist)
+     (kbd-mode . viper-vi-kbd-minor-mode)
+     (kbd-map . viper-vi-kbd-map)
+     (global-user-mode . viper-vi-global-user-minor-mode)
+     (global-user-map . viper-vi-global-user-map)
+     (local-user-mode . viper-vi-local-user-minor-mode)
+     (local-user-map . viper-vi-local-user-map)
+     (need-local-map . viper-need-new-vi-local-map)
+     (intercept-mode . viper-vi-intercept-minor-mode)
+     (intercept-map . viper-vi-intercept-map))
+    (insert-state
+     (id . viper-insert-state-id)
+     (auxiliary-modes . viper-insert-auxiliary-modes)
+     (change-func . viper-change-state-to-insert)
+     (basic-mode . viper-insert-basic-minor-mode)
+     (basic-map . viper-insert-basic-map)
+     (diehard-mode . viper-insert-diehard-minor-mode)
+     (diehard-map . viper-insert-diehard-map)
+     (modifier-mode . viper-insert-state-modifier-minor-mode)
+     (modifier-alist . viper-insert-state-modifier-alist)
+     (kbd-mode . viper-insert-kbd-minor-mode)
+     (kbd-map . viper-insert-kbd-map)
+     (global-user-mode . viper-insert-global-user-minor-mode)
+     (global-user-map . viper-insert-global-user-map)
+     (local-user-mode . viper-insert-local-user-minor-mode)
+     (local-user-map . viper-insert-local-user-map)
+     (need-local-map . viper-need-new-insert-local-map)
+     (intercept-mode . viper-insert-intercept-minor-mode)
+     (intercept-map . viper-insert-intercept-map))
+    (replace-state
+     (auxiliary-modes . viper-replace-auxiliary-modes)
+     (id . viper-replace-state-id)
+     (change-func . viper-change-state-to-replace)
+     (basic-mode . viper-replace-minor-mode)
+     (basic-map . viper-replace-map))
+    (emacs-state
+     (id . viper-emacs-state-id)
+     (auxiliary-modes . viper-emacs-auxiliary-modes)
+     (change-func . viper-change-state-to-emacs)
+     (modifier-mode . viper-emacs-state-modifier-minor-mode)
+     (modifier-alist . viper-emacs-state-modifier-alist)
+     (kbd-mode . viper-emacs-kbd-minor-mode)
+     (kbd-map . viper-emacs-kbd-map)
+     (global-user-mode . viper-emacs-global-user-minor-mode)
+     (global-user-map . viper-emacs-global-user-map)
+     (local-user-mode . viper-emacs-local-user-minor-mode)
+     (local-user-map . viper-emacs-local-user-map)
+     (need-local-map . viper-need-new-emacs-local-map)
+     (intercept-mode . viper-emacs-intercept-minor-mode)
+     (intercept-map . viper-emacs-intercept-map)))
+  "Alist of Vimpulse state variables.
+Entries have the form (STATE . ((VAR-TYPE . VAR) ...)).
+For example, the basic state keymap has the VAR-TYPE `basic-map'.")
+
+(defvar vimpulse-state-modes-alist
+  '((vi-state
+     (viper-vi-intercept-minor-mode . t)
+     (viper-vi-minibuffer-minor-mode . (viper-is-in-minibuffer))
+     (viper-vi-local-user-minor-mode . t)
+     (viper-vi-auxiliary-modes . t)
+     (viper-vi-global-user-minor-mode . t)
+     (viper-vi-kbd-minor-mode . (not (viper-is-in-minibuffer)))
+     (viper-vi-state-modifier-minor-mode . t)
+     (viper-vi-diehard-minor-mode
+      . (not (or viper-want-emacs-keys-in-vi
+                 (viper-is-in-minibuffer))))
+     (viper-vi-basic-minor-mode . t))
+    (insert-state
+     (viper-insert-intercept-minor-mode . t)
+     (viper-replace-minor-mode . (eq state 'replace-state))
+     (viper-insert-minibuffer-minor-mode . (viper-is-in-minibuffer))
+     (viper-insert-local-user-minor-mode . t)
+     (viper-insert-auxiliary-modes . t)
+     (viper-insert-global-user-minor-mode . t)
+     (viper-insert-kbd-minor-mode . (not (viper-is-in-minibuffer)))
+     (viper-insert-state-modifier-minor-mode . t)
+     (viper-insert-diehard-minor-mode
+      . (not (or viper-want-emacs-keys-in-insert
+                 (viper-is-in-minibuffer))))
+     (viper-insert-basic-minor-mode . t))
+    (replace-state
+     (viper-insert-intercept-minor-mode . t)
+     (viper-replace-minor-mode . (eq state 'replace-state))
+     (viper-replace-auxiliary-modes . t)
+     (viper-insert-minibuffer-minor-mode . (viper-is-in-minibuffer))
+     (viper-insert-local-user-minor-mode . t)
+     (viper-insert-auxiliary-modes . t)
+     (viper-insert-global-user-minor-mode . t)
+     (viper-insert-kbd-minor-mode . (not (viper-is-in-minibuffer)))
+     (viper-insert-state-modifier-minor-mode . t)
+     (viper-insert-diehard-minor-mode
+      . (not (or viper-want-emacs-keys-in-insert
+                 (viper-is-in-minibuffer))))
+     (viper-insert-basic-minor-mode . t))
+    (emacs-state
+     (viper-emacs-intercept-minor-mode . t)
+     (viper-emacs-local-user-minor-mode . t)
+     (viper-emacs-auxiliary-modes . t)
+     (viper-emacs-global-user-minor-mode . t)
+     (viper-emacs-kbd-minor-mode . (not (viper-is-in-minibuffer)))
+     (viper-emacs-state-modifier-minor-mode . t)))
+  "Alist of Vimpulse state mode toggling.
+Entries have the form (STATE . ((MODE . EXPR) ...)), where STATE
+is the name of a state, MODE is a mode associated with STATE and
+EXPR is an expression with which to enable or disable MODE.
+The first modes get the highest priority.")
+
+(defvar vimpulse-state-maps-alist
+  '((viper-vi-intercept-minor-mode . viper-vi-intercept-map)
+    (viper-vi-minibuffer-minor-mode . viper-minibuffer-map)
+    (viper-vi-local-user-minor-mode . viper-vi-local-user-map)
+    (viper-vi-global-user-minor-mode . viper-vi-global-user-map)
+    (viper-vi-kbd-minor-mode . viper-vi-kbd-map)
+    (viper-vi-state-modifier-minor-mode
+     . (if (keymapp (cdr (assoc major-mode viper-vi-state-modifier-alist)))
+           (cdr (assoc major-mode viper-vi-state-modifier-alist))))
+    (viper-vi-diehard-minor-mode . viper-vi-diehard-map)
+    (viper-vi-basic-minor-mode . viper-vi-basic-map)
+    (viper-insert-intercept-minor-mode . viper-insert-intercept-map)
+    (viper-insert-minibuffer-minor-mode . viper-minibuffer-map)
+    (viper-insert-local-user-minor-mode . viper-insert-local-user-map)
+    (viper-insert-global-user-minor-mode . viper-insert-global-user-map)
+    (viper-insert-kbd-minor-mode . viper-insert-kbd-map)
+    (viper-insert-state-modifier-minor-mode
+     . (if (keymapp (cdr (assoc major-mode viper-insert-state-modifier-alist)))
+           (cdr (assoc major-mode viper-insert-state-modifier-alist))))
+    (viper-insert-diehard-minor-mode . viper-insert-diehard-map)
+    (viper-insert-basic-minor-mode . viper-insert-basic-map)
+    (viper-replace-minor-mode . viper-replace-map)
+    (viper-emacs-intercept-minor-mode . viper-emacs-intercept-map)
+    (viper-emacs-local-user-minor-mode . viper-emacs-local-user-map)
+    (viper-emacs-global-user-minor-mode . viper-emacs-global-user-map)
+    (viper-emacs-kbd-minor-mode . viper-emacs-kbd-map)
+    (viper-emacs-state-modifier-minor-mode
+     . (if (keymapp (cdr (assoc major-mode viper-emacs-state-modifier-alist)))
+           (cdr (assoc major-mode viper-emacs-state-modifier-alist)))))
+  "Alist of Vimpulse modes and keymaps.
+Entries have the form (MODE . MAP-EXPR), where MAP-EXPR is an
+expression for determining the keymap of MODE.")
+
+;; State-changing code: this uses the variables above.
+(defun vimpulse-normalize-minor-mode-map-alist ()
+  "Normalize state keymaps."
+  (let (local-user-mode map mode modes)
+    ;; Refresh `viper--intercept-key-maps'.
+    (setq viper--intercept-key-maps nil)
+    (dolist (mode vimpulse-state-vars-alist)
+      (add-to-list 'viper--intercept-key-maps
+                   (cons (cdr (assq 'intercept-mode mode))
+                         (eval (cdr (assq 'intercept-map mode)))) t))
+    ;; Refresh `viper--key-maps'.
+    (setq viper--key-maps (vimpulse-make-keymap-alist))
+    ;; Make `minor-mode-map-alist' buffer-local in older Emacs versions
+    ;; lacking `emulation-mode-map-alists'.
+    (unless (and (fboundp 'add-to-ordered-list)
+                 (boundp 'emulation-mode-map-alists))
+      (set (make-local-variable 'minor-mode-map-alist)
+           (viper-append-filter-alist
+            (append viper--intercept-key-maps viper--key-maps)
+            minor-mode-map-alist)))))
+
+(defalias 'viper-normalize-minor-mode-map-alist 'vimpulse-normalize-minor-mode-map-alist)
+
+(defun vimpulse-normalize-auxiliary-modes ()
+  "Normalize `vimpulse-auxiliary-modes'.
+Order the modes on the basis of `minor-mode-map-alist'
+and remove duplicates."
+  (let ((temp vimpulse-auxiliary-modes) result)
+    (dolist (mode minor-mode-map-alist)
+      (setq mode (car mode))
+      (when (memq mode temp)
+        (setq temp (delq mode temp))
+        (add-to-list 'result mode t 'eq)))
+    (dolist (mode temp)
+      (add-to-list 'result mode t 'eq))
+    (setq vimpulse-auxiliary-modes result)))
+
+;; Ensure that mode-specific bindings are refreshed properly.
+(defadvice set-auto-mode (after vimpulse activate)
+  "Refresh mode-specific bindings."
+  (viper-normalize-minor-mode-map-alist)
+  (viper-set-mode-vars-for viper-current-state))
+
+(defadvice set-viper-state-in-major-mode (after vimpulse activate)
+  "Refresh mode-specific bindings."
+  (viper-normalize-minor-mode-map-alist)
+  (viper-set-mode-vars-for viper-current-state))
+
+(defun vimpulse-make-toggle-alist (&optional state &rest excluded-states)
+  "Make toggle alist for STATE (current if not specified)."
+  (let (mode result toggle)
+    (setq state (or state viper-current-state 'vi-state))
+    (unless (memq state excluded-states)
+      (dolist (entry (cdr (assq state vimpulse-state-modes-alist)))
+        (setq toggle (cdr entry)
+              entry  (car entry))
+        (mapcar
+         (lambda (var)
+           (unless (assq (car var) result)
+             (if toggle
+                 (add-to-list 'result var t)
+               (add-to-list 'result (cons (car var) nil)))))
+         (cond
+          ;; State reference.
+          ((assq entry vimpulse-state-modes-alist)
+           (apply 'vimpulse-make-toggle-alist entry state excluded-states))
+          ;; Auxiliary modes.
+          ((rassq entry vimpulse-auxiliary-modes-alist)
+           (let (aux result)
+             (setq entry (symbol-value entry))
+             (dolist (mode vimpulse-auxiliary-modes)
+               (when (and (boundp mode)
+                          (symbol-value mode)
+                          (assq mode entry))
+                 (setq aux (cdr (assq mode entry)))
+                 (unless (assq aux result)
+                   (add-to-list 'result (cons aux toggle) t))))
+             (when (memq major-mode vimpulse-auxiliary-modes)
+               (setq aux (cdr (assq major-mode entry)))
+               (unless (assq aux result)
+                 (add-to-list 'result (cons aux toggle) t)))
+             result))
+          ;; Regular mode.
+          (t
+           (unless (assq entry result)
+             (list (cons entry toggle))))))))
+    result))
+
+(defun vimpulse-make-keymap-alist (&optional state)
+  "Make keymap alist for STATE (current if not specified)."
+  (let (result map)
+    (setq state (or state viper-current-state 'vi-state)
+          result (mapcar (lambda (entry)
+                           (cons (car entry)
+                                 (eval (cdr (assq (car entry)
+                                                  vimpulse-state-maps-alist)))))
+                         (vimpulse-make-toggle-alist state)))
+    (dolist (entry vimpulse-state-modes-alist)
+      (dolist (mode (cdr entry))
+        (setq mode (car mode))
+        (unless (or (assq mode result)
+                    (assq mode vimpulse-state-modes-alist)
+                    (rassq mode vimpulse-auxiliary-modes-alist))
+          (add-to-list 'result
+                       (cons mode
+                             (eval (cdr (assq mode vimpulse-state-maps-alist))))
+                       t))))
+    result))
+
+(defadvice viper-refresh-mode-line (after vimpulse-states activate)
+  "Refresh mode line tag for Vimpulse states."
+  (let ((id (assq viper-current-state vimpulse-state-vars-alist)))
+    (setq id (eval (cdr (assq 'id (cdr id)))))
+    (when id
+      (set (make-local-variable 'viper-mode-string) id)
+      (force-mode-line-update))))
+
+(defadvice viper-set-mode-vars-for (after vimpulse-states activate)
+  "Toggle Vimpulse state modes."
+  (let (enable disable)
+    ;; Determine which modes to enable.
+    (setq enable (vimpulse-make-toggle-alist state))
+    ;; Determine which modes to disable.
+    (dolist (entry vimpulse-state-modes-alist)
+      (dolist (mode (mapcar 'car (cdr entry)))
+        (unless (or (assq mode enable)
+                    (assq mode vimpulse-state-modes-alist)
+                    (rassq mode vimpulse-auxiliary-modes-alist))
+          (add-to-list 'disable mode t))))
+    (dolist (entry vimpulse-auxiliary-modes-alist)
+      (dolist (aux (mapcar 'cdr (symbol-value (cdr entry))))
+        (unless (assq aux enable)
+          (add-to-list 'disable aux t))))
+    ;; Enable modes.
+    (dolist (entry enable)
+      (when (boundp (car entry))
+        (set (car entry) (eval (cdr entry)))))
+    ;; Disable modes.
+    (dolist (entry disable)
+      (when (boundp entry)
+        (set entry nil)))))
+
+(defadvice viper-change-state (before vimpulse-states activate)
+  "Update `viper-insert-point'."
+  (let (mark-active)
+    (unless (mark t)
+      (push-mark nil t nil)))
+  (when (and (eq new-state 'insert-state)
+             (not (memq viper-current-state '(vi-state emacs-state))))
+    (viper-move-marker-locally 'viper-insert-point (point))))
+
+(defun vimpulse-modifier-map (state &optional mode)
+  "Return the current major mode modifier map for STATE.
+If none, return the empty keymap (`viper-empty-keymap')."
+  (setq mode (or mode major-mode))
+  (setq state (assq state vimpulse-state-vars-alist))
+  (setq state (eval (cdr (assq 'modifier-alist (cdr state)))))
+  (if (keymapp (cdr (assoc mode state)))
+      (cdr (assoc mode state))
+    (copy-keymap viper-empty-keymap)))
+
+(defun vimpulse-modify-major-mode (mode state keymap)
+  "Modify key bindings in a major-mode in a Viper state using a keymap.
+
+If the default for a major mode is emacs-state, then
+modifications to this major mode may not take effect until the
+buffer switches state to Vi, Insert or Emacs. If this happens,
+add `viper-change-state-to-emacs' to this major mode's hook.
+If no such hook exists, you may have to put an advice on the
+function that invokes the major mode. See `viper-set-hooks'
+for hints.
+
+The above needs not to be done for major modes that come up in
+Vi or Insert state by default."
+  (let (alist elt)
+    (setq alist (cdr (assq state vimpulse-state-vars-alist)))
+    (setq alist (cdr (assq 'modifier-alist alist)))
+    (if (setq elt (assoc mode (eval alist)))
+        (set alist (delq elt (eval alist))))
+    (set alist (cons (cons mode keymap) (eval alist)))
+    (viper-normalize-minor-mode-map-alist)
+    (viper-set-mode-vars-for viper-current-state)))
+
+(defalias 'viper-modify-major-mode 'vimpulse-modify-major-mode)
+
+(defun vimpulse-add-local-keys (state alist)
+  "Override some vi-state or insert-state bindings in the current buffer.
+The effect is seen in the current buffer only.
+Useful for customizing  mailer buffers, gnus, etc.
+STATE is 'vi-state, 'insert-state, or 'emacs-state
+ALIST is of the form ((key . func) (key . func) ...)
+Normally, this would be called from a hook to a major mode or
+on a per buffer basis.
+Usage:
+      (viper-add-local-keys state '((key-str . func) (key-str . func)...))"
+  (let (local-user-map need-local-map)
+    (setq local-user-map (cdr (assq state vimpulse-state-vars-alist)))
+    (when local-user-map
+      (setq need-local-map
+            (cdr (assq 'need-local-map local-user-map)))
+      (setq local-user-map
+            (cdr (assq 'local-user-map local-user-map)))
+      (when (symbol-value need-local-map)
+        (set local-user-map (make-sparse-keymap))
+        (set need-local-map nil))
+      (viper-modify-keymap (symbol-value local-user-map) alist)
+      (viper-normalize-minor-mode-map-alist)
+      (viper-set-mode-vars-for viper-current-state))))
+
+(defalias 'viper-add-local-keys 'vimpulse-add-local-keys)
+
+(eval-and-compile
+  (defun vimpulse-unquote (exp)
+    "Return EXP unquoted."
+    (if (and (listp exp)
+             (eq (car exp) 'quote))
+        (eval exp)
+      exp)))
+
+;; Macro for defining new Viper states. This saves us the trouble of
+;; defining and indexing all those minor modes manually.
+(defmacro vimpulse-define-state (state doc &rest body)
+  "Define a new Viper state STATE.
+DOC is a general description and shows up in all docstrings.
+Then follows one or more optional keywords:
+
+:id ID                  Mode line indicator.
+:hook LIST              Hooks run before changing to STATE.
+:change-func FUNC       Function to change to STATE.
+:basic-mode MODE        Basic minor mode for STATE.
+:basic-map MAP          Keymap of :basic-mode.
+:diehard-mode MODE      Minor mode for when Viper wants to be vi.
+:diehard-map MAP        Keymap of :diehard-mode.
+:modifier-mode MODE     Minor mode for modifying major modes.
+:modifier-alist LIST    Keymap alist for :modifier-mode.
+:kbd-mode MODE          Minor mode for Ex command macros.
+:kbd-map MAP            Keymap of :kbd-mode.
+:global-user-mode MODE  Minor mode for global user bindings.
+:global-user-map MAP    Keymap of :global-user-mode.
+:local-user-mode MODE   Minor mode for local user bindings.
+:local-user-map MAP     Keymap of :local-user-mode.
+:need-local-map VAR     Buffer-local variable for :local-user-mode.
+:intercept-mode         Minor mode for vital Viper bindings.
+:intercept-map          Keymap of :intercept-mode.
+:enable LIST            List of other modes enabled by STATE.
+:prefix PREFIX          Variable prefix, default \"vimpulse-\".
+:advice TYPE            Toggle advice type, default `after'.
+
+It is not necessary to specify all of these; the minor modes are
+created automatically unless one provides an existing mode. The
+only keyword one should really specify is :id, the mode line tag.
+For example:
+
+    (vimpulse-define-state test
+      \"A simple test state.\"
+      :id \"<T> \")
+
+The basic keymap of this state will then be
+`vimpulse-test-basic-map', and so on.
+
+Following the keywords is optional code to be executed each time
+the state is enabled or disabled. This is stored in a `defadvice'
+of `viper-change-state'. :advice specifies the advice type
+\(default `after'). The advice runs :hook before completing."
+  (declare (debug (&define name stringp
+                           [&rest [keywordp sexp]]
+                           def-body))
+           (indent defun))
+  (let (advice auxiliary-modes basic-map basic-mode change-func
+        diehard-map diehard-mode enable global-user-map
+        global-user-mode hook id intercept-map intercept-mode kbd-map
+        kbd-mode keyword local-user-map local-user-mode modifier-alist
+        modifier-mode name name-string need-local-map prefix
+        prefixed-name-string state-name state-name-string)
+    ;; Collect keywords.
+    (while (keywordp (setq keyword (car body)))
+      (setq body (cdr body))
+      (cond
+       ((eq keyword :prefix)
+        (setq prefix (vimpulse-unquote (pop body))))
+       ((eq keyword :enable)
+        (setq enable (vimpulse-unquote (pop body))))
+       ((eq keyword :advice)
+        (setq advice (vimpulse-unquote (pop body))))
+       ((memq keyword '(:state-id :id))
+        (setq id (vimpulse-unquote (pop body))))
+       ((memq keyword '(:state-hook :hook))
+        (setq hook (vimpulse-unquote (pop body))))
+       ((memq keyword '(:change-func :change))
+        (setq change-func (vimpulse-unquote (pop body))))
+       ((memq keyword '(:basic-mode :basic-minor-mode))
+        (setq basic-mode (vimpulse-unquote (pop body))))
+       ((eq keyword :basic-map)
+        (setq basic-map (vimpulse-unquote (pop body))))
+       ((memq keyword '(:local-user-mode
+                        :local-mode
+                        :local-user-minor-mode))
+        (setq local-user-mode (vimpulse-unquote (pop body))))
+       ((memq keyword '(:local-user-map :local-map))
+        (setq local-user-map (vimpulse-unquote (pop body))))
+       ((memq keyword '(:need-new-local-map
+                        :need-local-map
+                        :need-map))
+        (setq need-local-map (vimpulse-unquote (pop body))))
+       ((memq keyword '(:global-user-mode
+                        :global-mode
+                        :global-user-minor-mode))
+        (setq global-user-mode (vimpulse-unquote (pop body))))
+       ((memq keyword '(:global-user-map :global-map))
+        (setq global-user-map (vimpulse-unquote (pop body))))
+       ((memq keyword '(:state-modifier-minor-mode
+                        :state-modifier-mode
+                        :modifier-minor-mode
+                        :modifier-mode))
+        (setq modifier-mode (vimpulse-unquote (pop body))))
+       ((memq keyword '(:state-modifier-alist :modifier-alist))
+        (setq modifier-alist (vimpulse-unquote (pop body))))
+       ((memq keyword '(:diehard-mode :diehard-minor-mode))
+        (setq diehard-mode (vimpulse-unquote (pop body))))
+       ((eq keyword :diehard-map)
+        (setq diehard-map (vimpulse-unquote (pop body))))
+       ((memq keyword '(:kbd-mode :kbd-minor-mode))
+        (setq kbd-mode (vimpulse-unquote (pop body))))
+       ((eq keyword :kbd-map)
+        (setq kbd-map (vimpulse-unquote (pop body))))
+       ((memq keyword '(:intercept-mode :intercept-minor-mode))
+        (setq intercept-mode (vimpulse-unquote (pop body))))
+       ((eq keyword :intercept-map)
+        (setq intercept-map (vimpulse-unquote (pop body))))
+       (t
+        (pop body))))
+    ;; Set up the state name etc.
+    (setq name-string (replace-regexp-in-string
+                       "-state$" "" (symbol-name state)))
+    (setq name (intern name-string))
+    (setq state-name-string (concat name-string "-state"))
+    (setq state-name (intern state-name-string))
+    (when (and prefix (symbolp prefix))
+      (setq prefix (symbol-name prefix)))
+    (setq prefix (or prefix "vimpulse-"))
+    (setq prefix (concat (replace-regexp-in-string
+                          "-$" "" prefix) "-"))
+    (setq prefixed-name-string (concat prefix name-string))
+    (setq advice (or advice 'after))
+    (setq auxiliary-modes (intern (concat prefixed-name-string
+                                          "-auxiliary-modes")))
+    (unless (and change-func (symbolp change-func))
+      (setq change-func
+            (intern (concat prefix "change-state-to-" name-string))))
+    ;; Macro expansion.
+    `(progn
+       ;; Define change function.
+       (defun ,change-func ()
+         ,(format "Change Viper state to %s." state-name)
+         (viper-change-state ',state-name))
+       ;; Define state variables etc.
+       (let* ((advice ',advice)
+              (auxiliary-modes ',auxiliary-modes)
+              (change-func ',change-func)
+              (doc ',doc)
+              (enable ',enable)
+              (name ',name)
+              (name-string ',name-string)
+              (prefix ',prefix)
+              (prefixed-name-string ',prefixed-name-string)
+              (state-name ',state-name)
+              (state-name-string ',state-name-string)
+              (basic-map (vimpulse-define-symbol
+                          ',basic-map (concat prefixed-name-string
+                                              "-basic-map")
+                          (make-sparse-keymap) 'keymapp
+                          (format "The basic %s keymap.\n\n%s"
+                                  state-name doc)))
+              (basic-mode (vimpulse-define-symbol
+                           ',basic-mode
+                           (concat prefixed-name-string
+                                   "-basic-minor-mode")
+                           nil nil
+                           (format "Basic minor mode for %s.\n\n%s"
+                                   state-name doc) t))
+              (diehard-map (vimpulse-define-symbol
+                            ',diehard-map
+                            (concat prefixed-name-string
+                                    "-diehard-map")
+                            (make-sparse-keymap) 'keymapp
+                            (format "This keymap is in use when the \
+user asks Viper to simulate vi very closely.
+This happens when `viper-expert-level' is 1 or 2.  \
+See `viper-set-expert-level'.\n\n%s" doc)))
+              (diehard-mode (vimpulse-define-symbol
+                             ',diehard-mode
+                             (concat prefixed-name-string
+                                     "-diehard-minor-mode")
+                             nil nil
+                             (format "This minor mode is in effect \
+when the user wants Viper to be vi.\n\n%s" doc) t))
+              (global-user-map (vimpulse-define-symbol
+                                ',global-user-map
+                                (concat prefixed-name-string
+                                        "-global-user-map")
+                                (make-sparse-keymap) 'keymapp
+                                (format "Auxiliary map for global \
+user-defined keybindings in %s.\n\n%s" state-name doc)))
+              (global-user-mode (vimpulse-define-symbol
+                                 ',global-user-mode
+                                 (concat prefixed-name-string
+                                         "-global-user-minor-mode")
+                                 nil nil
+                                 (format "Auxiliary minor mode for \
+global user-defined bindings in %s.\n\n%s" state-name doc) t))
+              (hook (vimpulse-define-symbol
+                     ',hook (concat prefixed-name-string
+                                    "-state-hook")
+                     nil 'listp
+                     (format "*Hooks run just before the switch to %s \
+is completed.\n\n%s" state-name doc)))
+              (id (vimpulse-define-symbol
+                   ',id (concat prefixed-name-string "-state-id")
+                   (format "<%s> " (upcase name-string)) 'stringp
+                   (format "Mode line tag indicating %s.\n\n%s"
+                           state-name doc)))
+              (intercept-map (vimpulse-define-symbol
+                              ',intercept-map
+                              (concat prefixed-name-string
+                                      "-intercept-map")
+                              viper-vi-intercept-map 'keymapp
+                              (format "Keymap for binding Viper's \
+vital keys.\n\n%s" doc)))
+              (intercept-mode (vimpulse-define-symbol
+                               ',intercept-mode
+                               (concat prefixed-name-string
+                                       "-intercept-minor-mode")
+                               nil nil
+                               (format "Mode for binding Viper's \
+vital keys.\n\n%s" doc)))
+              (kbd-map (vimpulse-define-symbol
+                        ',kbd-map
+                        (concat prefixed-name-string "-kbd-map")
+                        (make-sparse-keymap) 'keymapp
+                        (format "This keymap keeps keyboard macros \
+defined via the :map command.\n\n%s" doc)))
+              (kbd-mode (vimpulse-define-symbol
+                         ',kbd-mode
+                         (concat prefixed-name-string
+                                 "-kbd-minor-mode")
+                         nil nil
+                         (format "Minor mode for Ex command macros \
+in Vi state.
+The corresponding keymap stores key bindings of Vi macros defined with
+the Ex command :map.\n\n%s" doc) t))
+              (local-user-map (vimpulse-define-symbol
+                               ',local-user-map
+                               (concat prefixed-name-string
+                                       "-local-user-map")
+                               (make-sparse-keymap) 'keymapp
+                               (format "Auxiliary map for per-buffer \
+user-defined keybindings in %s.\n\n%s" state-name doc) t))
+              (local-user-mode (vimpulse-define-symbol
+                                ',local-user-mode
+                                (concat prefixed-name-string
+                                        "-local-user-minor-mode")
+                                nil nil
+                                (format "Auxiliary minor mode for \
+user-defined local bindings in %s.\n\n%s" state-name doc) t))
+              (modifier-alist (vimpulse-define-symbol
+                               ',modifier-alist
+                               (concat prefixed-name-string
+                                       "-state-modifier-alist")
+                               nil 'listp))
+              (modifier-mode (vimpulse-define-symbol
+                              ',modifier-mode
+                              (concat prefixed-name-string
+                                      "-state-modifier-minor-mode")
+                              nil nil
+                              (format "Minor mode used to make major \
+mode-specific modifications to %s.\n\n%s" state-name doc) t))
+              (need-local-map (vimpulse-define-symbol
+                               ',need-local-map
+                               (concat prefix "need-new-"
+                                       name-string "-local-map")
+                               t (lambda (val) (eq val t)) nil t))
+              enable-modes-alist enable-states-alist
+              modes-alist vars-alist)
+         (put need-local-map 'permanent-local t)
+         (defvar ,auxiliary-modes nil)
+         (add-to-list 'vimpulse-auxiliary-modes-alist
+                      (cons ',state-name ',auxiliary-modes) t)
+         ;; Remove old index entries.
+         (dolist (entry (list basic-mode
+                              diehard-mode
+                              modifier-mode
+                              kbd-mode
+                              global-user-mode
+                              local-user-mode
+                              intercept-mode))
+           (setq vimpulse-state-maps-alist
+                 (assq-delete-all entry vimpulse-state-maps-alist)))
+         (setq vimpulse-state-modes-alist
+               (assq-delete-all state-name vimpulse-state-modes-alist))
+         (setq vimpulse-state-vars-alist
+               (assq-delete-all state-name vimpulse-state-vars-alist))
+         ;; Index keymaps.
+         (add-to-list 'vimpulse-state-maps-alist
+                      (cons basic-mode basic-map))
+         (add-to-list 'vimpulse-state-maps-alist
+                      (cons diehard-mode diehard-map))
+         (add-to-list 'vimpulse-state-maps-alist
+                      (cons modifier-mode
+                            `(if (keymapp
+                                  (cdr (assoc major-mode
+                                              ,modifier-alist)))
+                                 (cdr (assoc major-mode
+                                             ,modifier-alist)))))
+         (add-to-list 'vimpulse-state-maps-alist
+                      (cons kbd-mode kbd-map))
+         (add-to-list 'vimpulse-state-maps-alist
+                      (cons global-user-mode global-user-map))
+         (add-to-list 'vimpulse-state-maps-alist
+                      (cons local-user-mode local-user-map))
+         (add-to-list 'vimpulse-state-maps-alist
+                      (cons intercept-mode intercept-map))
+         ;; Index minor mode toggling.
+         ;; First, sort lists from symbols in :enable.
+         (unless (listp enable)
+           (setq enable (list enable)))
+         (dolist (entry enable)
+           (let ((mode entry) (val t))
+             (when (listp entry)
+               (setq mode (car entry)
+                     val  (cadr entry)))
+             (when (and mode (symbolp mode))
+               (add-to-list 'enable-modes-alist (cons mode val) t))))
+         ;; Then add the state's own modes to the front
+         ;; if they're not already there.
+         (dolist (mode (list (cons basic-mode t)
+                             (cons diehard-mode
+                                   '(not (or viper-want-emacs-keys-in-vi
+                                             (viper-is-in-minibuffer))))
+                             (cons modifier-mode t)
+                             (cons kbd-mode '(not (viper-is-in-minibuffer)))
+                             (cons global-user-mode t)
+                             (cons auxiliary-modes t)
+                             (cons local-user-mode t)
+                             (cons intercept-mode t)))
+           (unless (assq (car mode) enable-modes-alist)
+             (add-to-list 'enable-modes-alist mode)))
+         ;; Add the result to `vimpulse-state-modes-alist'.
+         (add-to-list 'vimpulse-state-modes-alist
+                      (cons state-name enable-modes-alist) t)
+         (viper-normalize-minor-mode-map-alist)
+         ;; Index state variables.
+         (setq vars-alist
+               (list (cons 'id id)
+                     (cons 'hook hook)
+                     (cons 'auxiliary-modes auxiliary-modes)
+                     (cons 'change-func change-func)
+                     (cons 'basic-mode basic-mode)
+                     (cons 'basic-map basic-map)
+                     (cons 'diehard-mode diehard-mode)
+                     (cons 'diehard-map diehard-map)
+                     (cons 'modifier-mode modifier-mode)
+                     (cons 'modifier-alist modifier-alist)
+                     (cons 'kbd-mode kbd-mode)
+                     (cons 'kbd-map kbd-map)
+                     (cons 'global-user-mode global-user-mode)
+                     (cons 'global-user-map global-user-map)
+                     (cons 'local-user-mode local-user-mode)
+                     (cons 'local-user-map local-user-map)
+                     (cons 'need-local-map need-local-map)
+                     (cons 'intercept-mode intercept-mode)
+                     (cons 'intercept-map intercept-map)))
+         (add-to-list 'vimpulse-state-vars-alist
+                      (cons state-name vars-alist) t)
+         ;; Make toggle-advice.
+         (eval `(defadvice viper-change-state (,advice ,state-name activate)
+                  ,(format "Toggle %s." state-name)
+                  ,',@body
+                  (when (eq new-state ',state-name)
+                    (run-hooks ',hook))))))))
+
+(when (fboundp 'font-lock-add-keywords)
+  (font-lock-add-keywords
+   'emacs-lisp-mode
+   '(("(\\(vimpulse-define-state\\)\\>[ \f\t\n\r\v]*\\(\\sw+\\)?"
+      (1 font-lock-keyword-face)
+      (2 font-lock-function-name-face nil t)))))
+
+(defun vimpulse-define-symbol
+  (sym-or-val varname varval &optional val-p doc local)
+  "Accept a symbol or a value and define a variable for it.
+If SYM-OR-VAL is a symbol, set that symbol's value to VARVAL.
+If SYM-OR-VAL is a value, set VARNAME's value to SYM-OR-VAL.
+VAL-P checks whether SYM-OR-VAL's value is \"valid\", in which
+case it is kept; otherwise we default to VARVAL. DOC is the
+docstring for the defined variable. If LOCAL is non-nil,
+create a buffer-local variable. Returns the result."
+  (cond
+   ((and sym-or-val (symbolp sym-or-val)) ; nil is a symbol
+    (setq varname sym-or-val))
+   ((or (not val-p) (funcall val-p sym-or-val))
+    (setq varval sym-or-val)))
+  (when (stringp varname)
+    (setq varname (intern varname)))
+  (unless (and (boundp varname) val-p
+               (funcall val-p (eval varname)))
+    (eval `(defvar ,varname (quote ,varval) ,doc))
+    (set varname varval)
+    (when local
+      (make-variable-buffer-local varname)))
+  varname)
+
+;;; Viper bugs (should be forwarded to Michael Kifer)
+
+;; `viper-deflocalvar's definition lacks a `declare' statement,
+;; so Emacs tends to mess up the indentation. Luckily, the
+;; relevant symbol properties can be set up with `put'.
+;; TODO: E-mail Michael Kifer about updating the definition.
+(put 'viper-deflocalvar 'lisp-indent-function 'defun)
+(put 'viper-loop 'lisp-indent-function 'defun)
+(put 'viper-deflocalvar 'function-documentation
+     "Define VAR as a buffer-local variable.
+DEFAULT-VALUE is the default value and DOCUMENTATION is the
+docstring. The variable becomes buffer-local whenever set.")
+
+(when (fboundp 'font-lock-add-keywords)
+  (font-lock-add-keywords
+   'emacs-lisp-mode
+   '(("(\\(viper-deflocalvar\\)\\>[ \f\t\n\r\v]*\\(\\sw+\\)?"
+      (1 font-lock-keyword-face)
+      (2 font-lock-variable-name-face nil t))
+     ("(\\(viper-loop\\)\\>" 1 font-lock-keyword-face))))
+
+;; Search bug: `viper-search' flashes twice when search wraps.
+(defun vimpulse-search
+  (string forward arg
+          &optional no-offset init-point fail-if-not-found dont-flash)
+  (if (not (equal string ""))
+      (let ((val (viper-p-val arg))
+            (com (viper-getcom arg))
+            (offset (not no-offset))
+            (case-fold-search viper-case-fold-search)
+            (start-point (or init-point (point))))
+        (viper-deactivate-mark)
+        ;; Smartcase searching: upper-case chars disable case folding.
+        (when search-upper-case
+          (setq case-fold-search
+                (and case-fold-search
+                     (isearch-no-upper-case-p
+                      viper-s-string viper-re-search))))
+        (and search-upper-case
+             (isearch-no-upper-case-p
+              viper-s-string viper-re-search)
+             viper-case-fold-search)
+        (if forward
+            (condition-case nil
+                (progn
+                  (if offset (viper-forward-char-carefully))
+                  (if viper-re-search
+                      (progn
+                        (re-search-forward string nil nil val)
+                        (re-search-backward string))
+                    (search-forward string nil nil val)
+                    (search-backward string))
+                  (if (not (equal (point) start-point))
+                      (push-mark start-point t)))
+              (search-failed
+               (if (and (not fail-if-not-found)
+                        viper-search-wrap-around)
+                   (progn
+                     (message "Search wrapped around BOTTOM of buffer")
+                     (goto-char (point-min))
+                     (viper-search string forward (cons 1 com)
+                                   t start-point 'fail)
+                     (setq dont-flash t)
+                     ;; Don't wait in macros.
+                     (or executing-kbd-macro
+                         (memq viper-intermediate-command
+                               '(viper-repeat
+                                 viper-digit-argument
+                                 viper-command-argument))
+                         (sit-for 2))
+                     ;; Delete the wrap-around message.
+                     (message ""))
+                 (goto-char start-point)
+                 (error "`%s': %s not found"
+                        string
+                        (if viper-re-search "Pattern" "String")))))
+          ;; Backward.
+          (condition-case nil
+              (progn
+                (if viper-re-search
+                    (re-search-backward string nil nil val)
+                  (search-backward string nil nil val))
+                (if (not (equal (point) start-point))
+                    (push-mark start-point t)))
+            (search-failed
+             (if (and (not fail-if-not-found) viper-search-wrap-around)
+                 (progn
+                   (message "Search wrapped around TOP of buffer")
+                   (goto-char (point-max))
+                   (viper-search string forward (cons 1 com)
+                                 t start-point 'fail)
+                   (setq dont-flash t)
+                   ;; Don't wait in macros.
+                   (or executing-kbd-macro
+                       (memq viper-intermediate-command
+                             '(viper-repeat
+                               viper-digit-argument
+                               viper-command-argument))
+                       (sit-for 2))
+                   ;; Delete the wrap-around message.
+                   (message ""))
+               (goto-char start-point)
+               (error "`%s': %s not found"
+                      string
+                      (if viper-re-search "Pattern" "String"))))))
+        ;; Pull up or down if at top/bottom of window.
+        (viper-adjust-window)
+        ;; Highlight the result of search.
+        ;; Don't wait and don't highlight in macros.
+        (or dont-flash
+            executing-kbd-macro
+            (memq viper-intermediate-command
+                  '(viper-repeat
+                    viper-digit-argument
+                    viper-command-argument))
+            (viper-flash-search-pattern)))))
+
+(defalias 'viper-search 'vimpulse-search)
+
+;; e/E bug: on a single-letter word, ce may change two words.
+(defun vimpulse-end-of-word-kernel ()
+  (when (viper-looking-at-separator)
+    (viper-skip-all-separators-forward))
+  (cond
+   ((viper-looking-at-alpha)
+    (viper-skip-alpha-forward "_"))
+   ((not (viper-looking-at-alphasep))
+    (viper-skip-nonalphasep-forward))))
+
+(defun vimpulse-end-of-word (arg &optional careful)
+  "Move point to end of current word."
+  (interactive "P")
+  (viper-leave-region-active)
+  (let ((val (viper-p-val arg))
+        (com (viper-getcom arg)))
+    (cond
+     (com
+      (viper-move-marker-locally 'viper-com-point (point))
+      (when (and (not (viper-looking-at-alpha))
+                 (not (viper-looking-at-alphasep)))
+        (setq val (1+ val))))
+     ((viper-end-of-word-p)
+      (setq val (1+ val))))
+    (viper-loop val (viper-end-of-word-kernel))
+    (if com
+        (viper-execute-com 'viper-end-of-word val com)
+      (viper-backward-char-carefully))))
+
+(defun vimpulse-end-of-Word (arg)
+  "Forward to end of word delimited by white character."
+  (interactive "P")
+  (viper-leave-region-active)
+  (let ((val (viper-p-val arg))
+        (com (viper-getcom arg)))
+    (cond
+     (com
+      (viper-move-marker-locally 'viper-com-point (point))
+      (when (and (not (viper-looking-at-alpha))
+                 (not (viper-looking-at-alphasep)))
+        (setq val (1+ val))))
+     ((save-excursion
+        (viper-forward-char-carefully)
+        (memq (char-syntax (char-after)) '(?\  ?- nil)))
+      (setq val (1+ val))))
+    (viper-loop val
+      (viper-end-of-word-kernel)
+      (viper-skip-nonseparators 'forward))
+    (if com
+        (viper-execute-com 'viper-end-of-Word val com)
+      (viper-backward-char-carefully))))
+
+(defalias 'viper-end-of-word-kernel 'vimpulse-end-of-word-kernel)
+(defalias 'viper-end-of-word 'vimpulse-end-of-word)
+(defalias 'viper-end-of-Word 'vimpulse-end-of-Word)
+
+;;;; General utility code used by all of Vimpulse;
+;;;; may be useful to the end user
+
+;;; Autogenerated vi bindings
+
+(defun vimpulse-augment-keymap
+  (map augment-alist &optional replace)
+  "Augment MAP with bindings from AUGMENT-ALIST.
+If REPLACE is non-nil, bindings in MAP may be overwritten.
+AUGMENT-ALIST has the format ((KEY . DEF) ...),
+where KEY and DEF are passed to `define-key'."
+  (let (key def num)
+    (dolist (binding augment-alist)
+      (setq key (car binding)
+            def (cdr binding)
+            num (lookup-key map key))
+      (cond
+       (replace
+        (when (numberp num)
+          (define-key map (vimpulse-truncate key num) nil))
+        (define-key map key def))
+       (t
+        (when (numberp num)
+          (setq num (lookup-key map (vimpulse-truncate key num))))
+        (unless num
+          (define-key map key def)))))))
+
+(defun vimpulse-add-vi-bindings (map cmds &optional replace filter)
+  "Add vi bindings for CMDS to MAP.
+Add forcefully if REPLACE is t. Don't add keys matching FILTER,
+which is a list of key vectors."
+  (let ((bindings (apply 'vimpulse-get-vi-bindings cmds)))
+    (unless filter
+      (when (and (boundp 'viper-want-ctl-h-help)
+                 viper-want-ctl-h-help)
+        (add-to-list 'filter [?\C-h]))
+      (unless (and (boundp 'vimpulse-want-C-u-like-Vim)
+                   vimpulse-want-C-u-like-Vim)
+        (add-to-list 'filter [?\C-u])))
+    (dolist (key filter)
+      (setq bindings (assq-delete-all key bindings)))
+    (vimpulse-augment-keymap map bindings replace)))
+
+(defun vimpulse-get-bindings (cmd &rest maps)
+  "Return assocation list of bindings for CMD in MAPS."
+  (let (keys bindings)
+    (setq maps (or maps '(nil)))
+    (dolist (map maps bindings)
+      (unless (keymapp map)
+        (setq map (eval map)))
+      (setq keys (where-is-internal cmd map))
+      (dolist (key keys)
+        (unless (assq key bindings)
+          (add-to-list 'bindings (cons key cmd) t))))))
+
+(defun vimpulse-get-vi-bindings (&rest cmds)
+  "Return assocation list of vi bindings for CMDS."
+  (let (bindings)
+    (dolist (cmd cmds bindings)
+      (dolist (binding (apply 'vimpulse-get-bindings cmd
+                              '(viper-vi-intercept-map
+                                viper-vi-local-user-map
+                                viper-vi-global-user-map
+                                viper-vi-kbd-map
+                                viper-vi-diehard-map
+                                viper-vi-basic-map)))
+        (unless (assq (car binding) bindings)
+          (add-to-list 'bindings binding t))))))
+
+(defun vimpulse-add-movement-cmds (map &optional replace)
+  "Add Viper/Vimpulse movement commands to MAP.
+The commands are taken from `vimpulse-viper-movement-cmds' and looked
+up in vi keymaps. If REPLACE is non-nil, may overwrite bindings
+in MAP."
+  (vimpulse-add-vi-bindings map vimpulse-viper-movement-cmds replace))
+
+;; The default for this function is to replace rather than augment,
+;; as core navigation should be present everywhere.
+(defun vimpulse-add-core-movement-cmds (map &optional augment)
+  "Add \"core\" movement commands to MAP, forcefully.
+The commands are taken from `vimpulse-core-movement-cmds'.
+If AUGMENT is non-nil, don't overwrite bindings in MAP."
+  (vimpulse-add-vi-bindings map
+                            vimpulse-core-movement-cmds
+                            (not augment)))
+
+(defun vimpulse-inhibit-cmds (map cmds &optional replace)
+  "Remap CMDS to `viper-nil' in MAP.
+REPLACE is passed to `vimpulse-augment-keymap'."
+  (vimpulse-augment-keymap
+   map (mapcar (lambda (cmd)
+                 (cons `[remap ,cmd] 'viper-nil))
+               cmds) replace))
+
+(defun vimpulse-inhibit-movement-cmds (map &optional replace)
+  "Remap Viper movement commands to `viper-nil' in MAP.
+The commands are taken from `vimpulse-viper-movement-cmds'.
+If REPLACE is non-nil, may overwrite bindings in MAP."
+  (vimpulse-inhibit-cmds map vimpulse-viper-movement-cmds replace))
+
+(defun vimpulse-inhibit-other-movement-cmds (map &optional replace)
+  "Remap non-core Viper movement commands to `viper-nil' in MAP.
+The commands are taken from `vimpulse-viper-movement-cmds'.
+If REPLACE is non-nil, may overwrite bindings in MAP."
+  (let ((cmds vimpulse-viper-movement-cmds))
+    ;; Remove core movement commands.
+    (dolist (cmd vimpulse-core-movement-cmds)
+      (setq cmds (delq cmd cmds)))
+    (vimpulse-inhibit-cmds map cmds replace)))
+
+(defun vimpulse-inhibit-destructive-cmds (map &optional replace)
+  "Remap destructive Viper commands to `viper-nil' in MAP."
+  (let ((cmds '(viper-Append
+                viper-Insert
+                viper-append
+                viper-change-to-eol
+                viper-command-argument
+                viper-insert
+                viper-kill-line
+                viper-substitute
+                viper-substitute-line
+                vimpulse-change
+                vimpulse-delete
+                vimpulse-visual-append
+                vimpulse-visual-insert)))
+    (vimpulse-inhibit-cmds map cmds replace)))
+
+(defmacro vimpulse-remap (keymap from to)
+  "Remap FROM to TO in KEYMAP.
+For XEmacs compatibility, KEYMAP should have a `remap-alist'
+property referring to a variable used for storing a \"remap
+association list\"."
+  (if (featurep 'xemacs)
+      `(let ((remap-alist (get ',keymap 'remap-alist))
+             (from ,from) (to ,to))
+         (when remap-alist
+           (add-to-list remap-alist (cons from to))))
+    `(let ((keymap ,keymap) (from ,from) (to ,to))
+       (define-key keymap `[remap ,from] to))))
+
+(defun vimpulse-vi-remap (from to &optional keymap)
+  "Remap FROM to TO in vi (command) state.
+If KEYMAP is specified, take the keys that FROM is bound to
+in vi state and bind them to TO in KEYMAP."
+  (if keymap
+      (vimpulse-augment-keymap
+       keymap
+       (mapcar (lambda (binding)
+                 (cons (car binding) to))
+               (vimpulse-get-vi-bindings from)))
+    (define-key viper-vi-basic-map `[remap ,from] to)))
+
+;;; States
+
+(defmacro vimpulse-with-state (state &rest body)
+  "Execute BODY with Viper state STATE, then restore previous state."
+  (declare (indent defun))
+  `(let ((new-viper-state ,state)
+         (old-viper-state viper-current-state))
+     (unwind-protect
+         (progn
+           (viper-set-mode-vars-for new-viper-state)
+           (let ((viper-current-state new-viper-state))
+             (viper-normalize-minor-mode-map-alist)
+             ,@body))
+       (viper-set-mode-vars-for old-viper-state)
+       (viper-normalize-minor-mode-map-alist))))
+
+(when (fboundp 'font-lock-add-keywords)
+  (font-lock-add-keywords
+   'emacs-lisp-mode
+   '(("(\\(vimpulse-with-state\\)\\>" 1 font-lock-keyword-face))))
+
+;;; Vector tools
+
+(defun vimpulse-truncate (vector length &optional offset)
+  "Return a copy of VECTOR truncated to LENGTH.
+If LENGTH is negative, skip last elements of VECTOR.
+If OFFSET is specified, skip first elements of VECTOR."
+  ;; If LENGTH is too large, trim it.
+  (when (> length (length vector))
+    (setq length (length vector)))
+  ;; If LENGTH is negative, convert it to the positive equivalent.
+  (when (< length 0)
+    (setq length (+ (length vector) length)))
+  (when (< length 0)
+    (setq length 0))
+  (if offset
+      (setq length (- length offset))
+    (setq offset 0))
+  (let ((result (make-vector length t)))
+    (dotimes (idx length result)
+      (aset result idx (aref vector (+ idx offset))))))
+
+;; This is useful for deriving a "standard" key-sequence from
+;; `this-command-keys', to be looked up in `vimpulse-careful-alist'.
+(defun vimpulse-strip-prefix (key-sequence &optional string)
+  "Strip any prefix argument keypresses from KEY-SEQUENCE.
+If STRING is t, output a string; otherwise output a vector."
+  (let* ((offset 0)
+         (temp-sequence (vconcat key-sequence))
+         (key (aref temp-sequence offset))
+         (length (length temp-sequence))
+         temp-string)
+    ;; If XEmacs, get rid of the event object type.
+    (and (featurep 'xemacs) (eventp key)
+         (setq key (event-to-character key nil t)))
+    ;; Any keys bound to `universal-argument', `digit-argument' or
+    ;; `negative-argument' or bound in `universal-argument-map'
+    ;; are considered prefix keys.
+    (while (and (or (memq (key-binding (vector key) t)
+                          '(universal-argument
+                            digit-argument
+                            negative-argument))
+                    (lookup-key universal-argument-map
+                                (vector key)))
+                (setq offset (1+ offset))
+                (< offset length))
+      (setq key (aref temp-sequence offset))
+      (and (featurep 'xemacs) (eventp key)
+           (setq key (event-to-character key nil t))))
+    (if string
+        (concat "" (vimpulse-truncate temp-sequence length offset))
+      (vimpulse-truncate temp-sequence length offset))))
+
+(defun vimpulse-memq-recursive (elt tree)
+  "Return non-nil if TREE contains ELT.
+Test for equivalence using `eq'."
+  (cond ((null tree) nil)
+        ((eq (car tree) elt) tree)
+        ((consp (car tree)) (or (vimpulse-memq-recursive elt (car tree))
+                                (vimpulse-memq-recursive elt (cdr tree))))
+        (t (vimpulse-memq-recursive elt (cdr tree)))))
+
+;;; Movement
+
+(defun vimpulse-move-to-column (column &optional dir force)
+  "Move point to column COLUMN in the current line.
+Places point at left of the tab character (at the right
+if DIR is non-nil) and returns point.
+If `vimpulse-visual-block-untabify' is non-nil, then
+tabs are changed to spaces. (FORCE untabifies regardless.)"
+  (interactive "p")
+  (if (or vimpulse-visual-block-untabify force)
+      (move-to-column column t)
+    (move-to-column column)
+    (when (or (not dir) (and (numberp dir) (< dir 1)))
+      (when (> (current-column) column)
+        (unless (bolp)
+          (backward-char)))))
+  (point))
+
+(defmacro vimpulse-limit (start end &rest body)
+  "Eval BODY, but limit point to buffer-positions START and END.
+Both may be nil. Returns position."
+  (declare (indent 2))
+  `(let ((start (or ,start (point-min)))
+         (end   (or ,end   (point-max))))
+     (when (> start end)
+       (setq start (prog1 end
+                     (setq end start))))
+     (save-restriction
+       (narrow-to-region start end)
+       ,@body
+       (point))))
+
+(defmacro vimpulse-skip (dir bounds &rest body)
+  "Eval BODY, but limit point to BOUNDS in DIR direction.
+Returns position."
+  (declare (indent 2))
+  `(let ((dir ,dir) (bounds ,bounds) start end)
+     (setq dir (if (and (numberp dir) (< dir 0)) -1 1))
+     (dolist (bound bounds)
+       (unless (numberp bound)
+         (setq bounds (delq bound bounds))))
+     (when bounds
+       (if (< dir 0)
+           (setq start (apply 'min bounds))
+         (setq end (apply 'max bounds))))
+     (vimpulse-limit start end ,@body)))
+
+(defun vimpulse-skip-regexp (regexp dir &rest bounds)
+  "Move point in DIR direction based on REGEXP and BOUNDS.
+REGEXP is passed to `looking-at' or `looking-back'.
+If DIR is positive, move forwards to the end of the regexp match,
+but not beyond any buffer positions listed in BOUNDS.
+If DIR is negative, move backwards to the beginning of the match.
+Returns the new position."
+  (setq dir (if (and (numberp dir) (< dir 0)) -1 1))
+  (setq regexp (or regexp ""))
+  (vimpulse-skip dir bounds
+    (if (< dir 0)
+        (when (looking-back regexp nil t)
+          (goto-char (match-beginning 0)))
+      (when (looking-at regexp)
+        (goto-char (match-end 0))))))
+
+;; XEmacs only has `looking-at'.
+(unless (fboundp 'looking-back)
+  (defun looking-back (regexp &optional limit greedy)
+    "Return t if text before point matches regular expression REGEXP."
+    (let ((start (point))
+          (pos
+           (save-excursion
+             (and (re-search-backward
+                   (concat "\\(?:" regexp "\\)\\=") limit t)
+                  (point)))))
+      (if (and greedy pos)
+          (save-restriction
+            (narrow-to-region (point-min) start)
+            (while (and (> pos (point-min))
+                        (save-excursion
+                          (goto-char pos)
+                          (backward-char 1)
+                          (looking-at
+                           (concat "\\(?:" regexp "\\)\\'"))))
+              (setq pos (1- pos)))
+            (save-excursion
+              (goto-char pos)
+              (looking-at (concat "\\(?:"  regexp "\\)\\'")))))
+      (not (null pos)))))
+
+(defun vimpulse-backward-up-list (&optional arg)
+  "Like `backward-up-list', but breaks out of strings."
+  (interactive "p")
+  (let ((orig (point)))
+    (setq arg (or arg 1))
+    (while (progn
+             (condition-case
+                 nil (backward-up-list arg)
+               (error nil))
+             (when (eq (point) orig)
+               (backward-char)
+               (setq orig (point)))))))
+
+;;; Region
+
+;; GNU Emacs 22 lacks `region-active-p'.
+(unless (fboundp 'region-active-p)
+  (defun region-active-p ()
+    (and transient-mark-mode mark-active)))
+
+(defun vimpulse-region-face ()
+  "Return face of region."
+  (if (featurep 'xemacs) 'zmacs-region 'region))
+
+(defun vimpulse-deactivate-region (&optional now)
+  "Deactivate region, respecting Emacs version."
+  (cond
+   ((and (boundp 'cua-mode) cua-mode
+         (fboundp 'cua--deactivate))
+    (cua--deactivate now))
+   ((featurep 'xemacs)
+    (let ((zmacs-region-active-p t))
+      (zmacs-deactivate-region)))
+   (now
+    (setq mark-active nil))
+   (t
+    (setq deactivate-mark t))))
+
+(defun vimpulse-activate-region (&optional pos)
+  "Activate mark if there is one. Otherwise set mark at point.
+If POS if specified, set mark at POS instead."
+  (setq pos (or pos (mark t) (point)))
+  (cond
+   ((and (boundp 'cua-mode) cua-mode)
+    (let ((opoint (point))
+          (oldmsg (current-message))
+          message-log-max
+          cua-toggle-set-mark)
+      (goto-char (or pos (mark t) (point)))
+      (unwind-protect
+          (and (fboundp 'cua-set-mark)
+               (cua-set-mark))
+        (message oldmsg))
+      (goto-char opoint)))
+   (t
+    (let (this-command)
+      (push-mark pos t t)))))
+
+(defun vimpulse-set-region (beg end &optional widen dir)
+  "Set Emacs region to BEG and END.
+Preserves the order of point and mark, unless specified by DIR:
+a positive number means mark goes before or is equal to point,
+a negative number means point goes before mark. If WIDEN is
+non-nil, only modifies region if it does not already encompass
+BEG and END. Returns nil if region is unchanged."
+  (cond
+   (widen
+    (vimpulse-set-region
+     (min beg end (or (region-beginning) (point)))
+     (max beg end (or (region-end) (point)))
+     nil dir))
+   (t
+    (unless (region-active-p)
+      (vimpulse-activate-region))
+    (let* ((oldpoint (point))
+           (oldmark  (or (mark t) oldpoint))
+           (newmark  (min beg end))
+           (newpoint (max beg end)))
+      (when (or (and (numberp dir) (< dir 0))
+                (and (not (numberp dir))
+                     (< oldpoint oldmark)))
+        (setq newpoint (prog1 newmark
+                         (setq newmark newpoint))))
+      (unless (or (and (numberp dir)
+                       (= (min newpoint newmark)
+                          (min oldpoint oldmark))
+                       (= (max newpoint newmark)
+                          (max oldpoint oldmark)))
+                  (and (= newpoint oldpoint)
+                       (= newmark  oldmark)))
+        (set-mark newmark)
+        (goto-char newpoint))))))
+
+;;; Overlays (extents in XEmacs)
+
+(eval-and-compile
+  (cond
+   ((featurep 'xemacs)                   ; XEmacs
+    (defalias 'vimpulse-delete-overlay 'delete-extent)
+    (defalias 'vimpulse-overlays-at 'extents-at))
+   (t                                    ; GNU Emacs
+    (defalias 'vimpulse-delete-overlay 'delete-overlay)
+    (defalias 'vimpulse-overlays-at 'overlays-at))))
+
+;; `viper-make-overlay' doesn't handle FRONT-ADVANCE
+;; and REAR-ADVANCE properly in XEmacs.
+(defun vimpulse-make-overlay
+  (beg end &optional buffer front-advance rear-advance)
+  "Create a new overlay with range BEG to END in BUFFER.
+In XEmacs, create an extent."
+  (cond
+   ((featurep 'xemacs)
+    (let ((extent (make-extent beg end buffer)))
+      (set-extent-property extent 'start-open front-advance)
+      (set-extent-property extent 'end-closed rear-advance)
+      (set-extent-property extent 'detachable nil)
+      extent))
+   (t
+    (make-overlay beg end buffer front-advance rear-advance))))
+
+(defun vimpulse-overlay-before-string (overlay string &optional face)
+  "Set the `before-string' property of OVERLAY to STRING.
+In XEmacs, change the `begin-glyph' property."
+  (cond
+   ((featurep 'xemacs)
+    (setq face (or face (get-text-property 0 'face string)))
+    (when (and string (not (glyphp string)))
+      (setq string (make-glyph string)))
+    (when face
+      (set-glyph-face string face))
+    (set-extent-begin-glyph overlay string))
+   (t
+    (viper-overlay-put overlay 'before-string string))))
+
+(defun vimpulse-overlay-after-string (overlay string &optional face)
+  "Set the `after-string' property of OVERLAY to STRING.
+In XEmacs, change the `end-glyph' property."
+  (cond
+   ((featurep 'xemacs)
+    (setq face (or face (get-text-property 0 'face string)))
+    (when (and string (not (glyphp string)))
+      (setq string (make-glyph string)))
+    (when face
+      (set-glyph-face string face))
+    (set-extent-end-glyph overlay string))
+   (t
+    (viper-overlay-put overlay 'after-string string))))
+
+;;; Undo
+
+(defun vimpulse-refresh-undo-step ()
+  "Refresh `buffer-undo-list' entries for current undo step.
+Undo boundaries until `vimpulse-undo-list-pointer' are removed
+to make the entries undoable as a single action.
+See `vimpulse-start-undo-step'."
+  (setq buffer-undo-list
+        (vimpulse-filter-undo-boundaries buffer-undo-list
+                                         vimpulse-undo-list-pointer)))
+
+(defun vimpulse-filter-undo-boundaries (undo-list &optional pointer)
+  "Filter undo boundaries from beginning of UNDO-LIST, until POINTER.
+A boundary is a nil element, typically inserted by `undo-boundary'.
+Return the filtered list."
+  (cond
+   ((null undo-list)
+    nil)
+   ((not (listp undo-list))
+    undo-list)
+   ((eq undo-list pointer)
+    undo-list)
+   ((null (car undo-list))
+    (vimpulse-filter-undo-boundaries (cdr undo-list) pointer))
+   (t
+    (cons (car undo-list)
+          (vimpulse-filter-undo-boundaries (cdr undo-list) pointer)))))
+
+(defun vimpulse-start-undo-step ()
+  "Start a single undo step.
+End the step with `vimpulse-end-undo-step'.
+All intermediate buffer modifications will be undoable as a
+single action."
+  (when (listp buffer-undo-list)
+    (unless (null (car buffer-undo-list))
+      (add-to-list 'buffer-undo-list nil))
+    (setq vimpulse-undo-list-pointer buffer-undo-list)
+    ;; Continually refresh the undo entries for the step,
+    ;; ensuring proper synchronization between `buffer-undo-list'
+    ;; and `buffer-undo-tree'.
+    (add-hook 'post-command-hook 'vimpulse-refresh-undo-step nil t)))
+
+(defun vimpulse-end-undo-step ()
+  "End a single undo step.
+The step must have been started with `vimpulse-start-undo-step'.
+All intermediate buffer modifications will be undoable as a
+single action."
+  (when (memq 'vimpulse-refresh-undo-step post-command-hook)
+    (vimpulse-refresh-undo-step)
+    (undo-boundary)
+    (remove-hook 'post-command-hook 'vimpulse-refresh-undo-step t)))
+
+(defmacro vimpulse-single-undo (&rest body)
+  "Execute BODY as a single undo step."
+  `(unwind-protect
+       (progn
+         (vimpulse-start-single-undo)
+         ,@body)
+     (vimpulse-end-single-undo)))
+
+;;; Motion type system
+
+(defun vimpulse-range-p (object)
+  "Return t if OBJECT is a pure range (BEG END)."
+  (and (listp object)
+       (eq (length object) 2)
+       (numberp (car object))
+       (numberp (cadr object))))
+
+(defun vimpulse-motion-range-p (object)
+  "Return t if OBJECT is a motion range (TYPE BEG END)."
+  (and (listp object)
+       (symbolp (car object))
+       (vimpulse-range-p (cdr object))))
+
+(defun vimpulse-motion-range (object)
+  "Return the range part of OBJECT."
+  (cond
+   ((vimpulse-motion-range-p object)
+    (cdr object))
+   ((vimpulse-range-p object)
+    object)
+   (t
+    (list (point) (point)))))
+
+(defun vimpulse-range-beginning (range)
+  "Return the beginning of RANGE."
+  (apply 'min (vimpulse-motion-range range)))
+
+(defun vimpulse-range-end (range)
+  "Return the end of RANGE."
+  (apply 'max (vimpulse-motion-range range)))
+
+(defun vimpulse-motion-type (object &optional raw)
+  "Return motion type of OBJECT.
+The type is one of `exclusive', `inclusive', `line' and `block'.
+Defaults to `exclusive' unless RAW is specified."
+  (let ((type (cond
+               ((symbolp object)
+                (get object 'motion-type))
+               ((vimpulse-motion-range-p object)
+                (car object)))))
+    (if raw
+        type
+      (or type 'exclusive))))
+
+(defun vimpulse-make-motion-range (beg end &optional type normalize)
+  "Return motion range (TYPE BEG END).
+If NORMALIZE is non-nil, normalize the range with
+`vimpulse-normalize-motion-range'."
+  (let* ((range (list (min beg end) (max beg end)))
+         (type (or type 'exclusive)))
+    (if normalize
+        (vimpulse-normalize-motion-range range type)
+      (cons type range))))
+
+;; This implements section 1 of motion.txt (Vim Reference Manual).
+(defun vimpulse-normalize-motion-range (range &optional type)
+  "Normalize the beginning and end of a motion range (TYPE FROM TO).
+Returns the normalized range.
+
+Usually, a motion range should be normalized only once, as
+information is lost in the process: an unnormalized motion range
+has the form (TYPE FROM TO), while a normalized motion range has
+the form (TYPE BEG END).
+
+See also `vimpulse-block-range', `vimpulse-line-range',
+`vimpulse-inclusive-range' and `vimpulse-exclusive-range'."
+  (let* ((type (or type (vimpulse-motion-type range)))
+         (range (vimpulse-motion-range range))
+         (from (car range))
+         (to   (cadr range)))
+    (cond
+     ((memq type '(blockwise block))
+      (vimpulse-block-range from to))
+     ((memq type '(linewise line))
+      (vimpulse-line-range from to))
+     ((eq type 'inclusive)
+      (vimpulse-inclusive-range from to))
+     (t
+      (vimpulse-exclusive-range from to t)))))
+
+;; Ranges returned by these functions have the form (TYPE BEG END) where TYPE
+;; is one of `inclusive', `exclusive', `line' or `block' and BEG and END are
+;; the buffer positions.
+(defun vimpulse-block-range (from to)
+  "Return a blockwise motion range delimited by FROM and TO.
+Like `vimpulse-inclusive-range', but for rectangles:
+the last column is included."
+  (let* ((beg (min from to))
+         (end (max from to))
+         (beg-col (save-excursion
+                    (goto-char beg)
+                    (current-column)))
+         (end-col (save-excursion
+                    (goto-char end)
+                    (current-column))))
+    (save-excursion
+      (cond
+       ((= beg-col end-col)
+        (goto-char end)
+        (cond
+         ((eolp)
+          (goto-char beg)
+          (if (eolp)
+              (vimpulse-make-motion-range beg end 'block)
+            (vimpulse-make-motion-range (1+ beg) end 'block)))
+         (t
+          (vimpulse-make-motion-range beg (1+ end) 'block))))
+       ((< beg-col end-col)
+        (goto-char end)
+        (if (eolp)
+            (vimpulse-make-motion-range beg end 'block)
+          (vimpulse-make-motion-range beg (1+ end) 'block)))
+       (t
+        (goto-char beg)
+        (if (eolp)
+            (vimpulse-make-motion-range beg end 'block)
+          (vimpulse-make-motion-range (1+ beg) end 'block)))))))
+
+(defun vimpulse-line-range (from to)
+  "Return a linewise motion range delimited by FROM and TO."
+  (let* ((beg (min from to))
+         (end (max from to)))
+    (vimpulse-make-motion-range
+     (save-excursion
+       (goto-char beg)
+       (line-beginning-position))
+     (save-excursion
+       (goto-char end)
+       (line-beginning-position 2))
+     'line)))
+
+(defun vimpulse-inclusive-range (from to)
+  "Return an inclusive motion range delimited by FROM and TO.
+That is, the last character is included."
+  (let* ((beg (min from to))
+         (end (max from to)))
+    (save-excursion
+      (goto-char end)
+      (unless (or (eobp) (and (eolp) (not (bolp))))
+        (setq end (1+ end)))
+      (vimpulse-make-motion-range beg end 'inclusive))))
+
+(defun vimpulse-exclusive-range (from to &optional normalize)
+  "Return an exclusive motion range delimited by FROM and TO.
+However, if NORMALIZE is t and the end of the range is at the
+beginning of a line, a different type of range is returned:
+
+  * If the start of the motion is at or before the first
+    non-blank in the line, the motion becomes `line' (normalized).
+
+  * Otherwise, the end of the motion is moved to the end of the
+    previous line and the motion becomes `inclusive' (normalized)."
+  (let* ((beg (min from to))
+         (end (max from to)))
+    (save-excursion
+      (cond
+       ((and normalize
+             (/= beg end)
+             (progn
+               (goto-char end)
+               (bolp)))
+        (viper-backward-char-carefully)
+        (setq end (max beg (point)))
+        (cond
+         ((save-excursion
+            (goto-char beg)
+            (looking-back "^[ \f\t\v]*"))
+          (vimpulse-make-motion-range beg end 'line t))
+         (t
+          (vimpulse-make-motion-range beg end 'inclusive))))
+       (t
+        (vimpulse-make-motion-range beg end 'exclusive))))))
+
+;;;; Keybindings
+
+;;; C-u
+
+(unless vimpulse-want-C-u-like-Vim
+  (define-key viper-vi-basic-map "\C-u" 'universal-argument))
+
+;;; vi (command) mode keys
+
+(define-key viper-vi-basic-map "c" 'vimpulse-change)
+(define-key viper-vi-basic-map "d" 'vimpulse-delete)
+(define-key viper-vi-basic-map "g" nil) ; delete `viper-nil' binding
+(define-key viper-vi-basic-map "g?" 'vimpulse-rot13)
+(define-key viper-vi-basic-map "gU" 'vimpulse-upcase)
+(define-key viper-vi-basic-map "gb" 'vimpulse-end-of-previous-word)
+(define-key viper-vi-basic-map "gd" 'vimpulse-goto-definition)
+(define-key viper-vi-basic-map "gf" 'find-file-at-point)
+(define-key viper-vi-basic-map "gg" 'vimpulse-goto-first-line)
+(define-key viper-vi-basic-map "gh" 'backward-char)
+(define-key viper-vi-basic-map "gi" 'vimpulse-resume-insert)
+(define-key viper-vi-basic-map "gj" 'next-line)
+(define-key viper-vi-basic-map "gk" 'previous-line)
+(define-key viper-vi-basic-map "gl" 'forward-char)
+(define-key viper-vi-basic-map "gq" 'vimpulse-fill)
+(define-key viper-vi-basic-map "gu" 'vimpulse-downcase)
+(define-key viper-vi-basic-map "gw" 'vimpulse-fill)
+(define-key viper-vi-basic-map "g~" 'vimpulse-invert-case)
+(define-key viper-vi-basic-map "g0" 'vimpulse-beginning-of-visual-line)
+(define-key viper-vi-basic-map "g$" 'vimpulse-end-of-visual-line)
+(define-key viper-vi-basic-map "J" 'vimpulse-join)
+(define-key viper-vi-basic-map "K" 'woman)
+(define-key viper-vi-basic-map "m" 'vimpulse-mark-point)
+(define-key viper-vi-basic-map "`" 'vimpulse-goto-mark)
+(define-key viper-vi-basic-map "'" 'vimpulse-goto-mark-and-skip-white)
+(define-key viper-vi-basic-map "r" 'vimpulse-replace)
+(define-key viper-vi-basic-map "y" 'vimpulse-yank)
+(define-key viper-vi-basic-map "zb" 'viper-line-to-bottom)
+(define-key viper-vi-basic-map "zh" 'scroll-right)
+(define-key viper-vi-basic-map "zl" 'scroll-left)
+(define-key viper-vi-basic-map "zt" 'viper-line-to-top)
+(define-key viper-vi-basic-map "zz" 'viper-line-to-middle)
+(define-key viper-vi-basic-map "\C-]" 'vimpulse-jump-to-tag-at-point)
+(define-key viper-vi-basic-map "\C-t" 'pop-tag-mark)
+(define-key viper-vi-basic-map "]" nil) ; delete `viper-ket-function' binding
+(define-key viper-vi-basic-map "]P" 'vimpulse-Put-and-indent)
+(define-key viper-vi-basic-map "]p" 'vimpulse-put-and-indent)
+(define-key viper-vi-basic-map "=" 'vimpulse-indent)
+(define-key viper-vi-basic-map "+" 'vimpulse-previous-line-skip-white)
+(define-key viper-vi-basic-map "_" 'vimpulse-next-line-skip-white)
+(define-key viper-vi-basic-map "#" 'vimpulse-search-backward-for-symbol-at-point)
+(define-key viper-vi-basic-map "*" 'vimpulse-search-forward-for-symbol-at-point)
+(define-key viper-vi-basic-map "<" 'vimpulse-shift-left)
+(define-key viper-vi-basic-map ">" 'vimpulse-shift-right)
+(define-key viper-vi-basic-map "~" 'vimpulse-invert-char)
+(define-key viper-vi-basic-map "\"" 'vimpulse-read-register)
+
+;; Visual bindings.
+(define-key viper-vi-basic-map "v" 'vimpulse-visual-toggle-char)
+(define-key viper-vi-basic-map "V" 'vimpulse-visual-toggle-line)
+(define-key viper-vi-basic-map "\C-v" 'vimpulse-visual-toggle-block)
+(define-key viper-vi-basic-map "gv" 'vimpulse-visual-restore)
+
+;; Map undo and redo.
+(define-key viper-vi-basic-map "u" 'undo)
+(cond
+ ((fboundp 'undo-tree-redo)
+  (define-key viper-vi-basic-map "\C-r" 'undo-tree-redo))
+ ((fboundp 'redo)
+  (define-key viper-vi-basic-map "\C-r" 'redo)))
+
+;; Window manipulation.
+(define-prefix-command 'vimpulse-window-map)
+(define-key viper-vi-basic-map "\C-w" 'vimpulse-window-map)
+(define-key vimpulse-window-map "\C-w" 'vimpulse-cycle-windows)
+(define-key vimpulse-window-map "w" 'vimpulse-cycle-windows)
+(define-key vimpulse-window-map "o" 'delete-other-windows)
+(define-key vimpulse-window-map "c" 'delete-window)
+(define-key vimpulse-window-map "s" 'split-window-vertically)
+(define-key vimpulse-window-map "v" 'split-window-horizontally)
+
+(when (fboundp 'windmove-left)
+  (define-key vimpulse-window-map "h" 'windmove-left)
+  (define-key vimpulse-window-map "j" 'windmove-down)
+  (define-key vimpulse-window-map "k" 'windmove-up)
+  (define-key vimpulse-window-map "l" 'windmove-right))
+
+;;; Insert mode keys
+
+;; Vim-like completion keys.
+(define-key viper-insert-basic-map "\C-p" 'vimpulse-abbrev-expand-before)
+(define-key viper-insert-basic-map "\C-n" 'vimpulse-abbrev-expand-after)
+(define-key viper-insert-basic-map "\C-x\C-p" 'vimpulse-expand-line)
+(define-key viper-insert-basic-map "\C-x\C-n" 'vimpulse-expand-line)
+(define-key viper-insert-basic-map [delete] 'delete-char) ; <delete> key
+;; Make ^[ work.
+(define-key viper-insert-basic-map (kbd "ESC") 'viper-exit-insert-state)
+
+;; His code (Brad).
+(defun vimpulse-cycle-windows ()
+  "Cycle point to another window."
+  (interactive)
+  (select-window (next-window)))
+
+;;; r, J, =, >, <
+
+(defun vimpulse-replace (beg end)
+  "Replace all selected characters with ARG."
+  (interactive (vimpulse-range nil t nil t 'forward-char))
+  (let (endpos length visual-p)
+    (setq endpos (max beg (1- end)))
+    (unless (and (eq viper-intermediate-command 'viper-repeat)
+                 viper-d-char)
+      (unwind-protect
+          (progn
+            (vimpulse-set-replace-cursor-type)
+            (save-excursion
+              (viper-special-read-and-insert-char))
+            (setq viper-d-char (char-after))
+            (delete-char 1))
+        (viper-restore-cursor-type)
+        (when vimpulse-visual-mode
+          (vimpulse-visual-mode -1)
+          (setq endpos beg))))
+    (cond
+     ((eq vimpulse-this-motion-type 'block)
+      (setq length (abs (- (save-excursion
+                             (goto-char beg)
+                             (current-column))
+                           (save-excursion
+                             (goto-char end)
+                             (current-column)))))
+      (vimpulse-apply-on-block
+       (lambda (beg end)
+         (goto-char beg)
+         (delete-region beg end)
+         (insert (make-string length viper-d-char)))
+       beg end))
+     (t
+      (goto-char beg)
+      (while (< (point) end)
+        (if (looking-at "\n")
+            (forward-char)
+          (delete-char 1)
+          (insert-char viper-d-char 1)))
+      (goto-char endpos)))))
+
+(defun vimpulse-join (beg end)
+  "Join the selected lines."
+  (interactive (vimpulse-range nil nil t nil 'vimpulse-line))
+  (let ((num (count-lines beg end)))
+    (unless (> num 2)
+      (setq num 2))
+    (viper-join-lines num)))
+
+(defun vimpulse-indent (beg end)
+  "Indent text according to mode."
+  (interactive (vimpulse-range t nil t))
+  (indent-region beg end nil)
+  (when viper-auto-indent
+    (back-to-indentation)))
+
+(defun vimpulse-shift-left (beg end)
+  "Shift all selected lines to the left."
+  (interactive (vimpulse-range))
+  (let ((nlines (count-lines beg end)))
+    (viper-next-line (cons (1- nlines) ?<))))
+
+(defun vimpulse-shift-right (beg end)
+  "Shift all selected lines to the right."
+  (interactive (vimpulse-range))
+  (let ((nlines (count-lines beg end)))
+    (viper-next-line (cons (1- nlines) ?>))))
+
+;;; g0, g$
+
+(defun vimpulse-beginning-of-visual-line (arg)
+  "Go to beginning of `visual-line-mode' line."
+  (interactive "p")
+  (if (and (boundp 'visual-line-mode) visual-line-mode)
+      (beginning-of-visual-line arg)
+    ;; Using `move-beginning-of-line' instead of `beginning-of-line'
+    ;; handles longlines-mode properly.
+    (move-beginning-of-line arg)))
+
+(defun vimpulse-end-of-visual-line (arg)
+  "Go to end of `visual-line-mode' line."
+  (interactive "p")
+  (if (and (boundp 'visual-line-mode) visual-line-mode)
+      (end-of-visual-line arg)
+    ;; Using `move-end-of-line' instead of `end-of-line'
+    ;; handles longlines-mode properly.
+    (move-end-of-line arg))
+  (unless (bolp)
+    (backward-char)))
+
+;;; gg
+
+(defun vimpulse-goto-first-line (arg)
+  "Go to first line."
+  (interactive "P")
+  (let ((val (viper-P-val arg))
+        (com (viper-getCom arg)))
+    (when (eq com ?c) (setq com ?C))
+    (viper-move-marker-locally 'viper-com-point (point))
+    (viper-deactivate-mark)
+    (push-mark nil t)
+    (cond
+     ((null val)
+      (goto-char (point-min)))
+     (t
+      (viper-goto-line val)))
+    (when com
+      (viper-execute-com 'vimpulse-goto-line val com))))
+
+;;; gb
+
+(defun vimpulse-beginning-of-Word-p ()
+  (save-excursion
+    (or (bobp)
+        (when (viper-looking-at-alpha)
+          (backward-char)
+          (not (viper-looking-at-alpha))))))
+
+(defun vimpulse-end-of-previous-word (arg)
+  "Move point to end of previous word."
+  (interactive "P")
+  (viper-leave-region-active)
+  (let ((val (viper-p-val arg))
+        (com (viper-getcom arg)))
+    (when com
+      (viper-move-marker-locally 'viper-com-point (point)))
+    (unless (vimpulse-beginning-of-Word-p)
+      (viper-backward-Word 1))
+    (viper-backward-Word val)
+    (viper-end-of-Word '(1 . ?r))
+    (unless com
+      (backward-char))
+    (when com
+      (viper-execute-com 'viper-end-of-word val com))))
+
+;;; gd
+
+(defun vimpulse-goto-definition ()
+  "Go to definition or first occurrence of symbol under cursor."
+  (interactive)
+  (let ((str (vimpulse-search-string (point) 'symbol))
+        ientry ipos)
+    (cond
+     ((string= str "")
+      (error "No string under cursor"))
+     ;; If imenu is available, try it.
+     ((or (fboundp 'imenu--make-index-alist)
+          (load "imenu" t))
+      (setq ientry
+            (condition-case nil
+                (and (fboundp 'imenu--make-index-alist)
+                     (imenu--make-index-alist))
+              (error nil)))
+      (setq ientry (assoc str ientry))
+      (setq ipos (cdr ientry))
+      (unless (markerp ipos)
+        (setq ipos (cadr ientry)))
+      (cond
+       ;; imenu found a position, so go there and
+       ;; highlight the occurrence.
+       ((and (markerp ipos)
+             (eq (marker-buffer ipos) (current-buffer)))
+        (vimpulse-search-for-symbol nil ipos str))
+       ;; imenu failed, so just go to first occurrence in buffer.
+       (t
+        (vimpulse-search-for-symbol nil (point-min)))))
+     ;; No imenu, so just go to first occurrence in buffer.
+     (t
+      (vimpulse-search-for-symbol nil (point-min))))))
+
+(defun vimpulse-jump-to-tag-at-point ()
+  (interactive)
+  (let ((tag (thing-at-point 'word)))
+    (find-tag tag)))
+
+;;; gi
+
+(defun vimpulse-resume-insert (arg)
+  "Insert at previous insert position."
+  (interactive "P")
+  (when (markerp vimpulse-exit-point)
+    (goto-char vimpulse-exit-point))
+  (viper-insert arg))
+
+;;; gq, gu, gU
+
+(defun vimpulse-fill (beg end)
+  "Fill text."
+  (interactive (vimpulse-range t t))
+  (setq end (save-excursion
+              (goto-char end)
+              (skip-chars-backward " ")
+              (point)))
+  (save-excursion
+    (fill-region beg end)))
+
+(defun vimpulse-downcase (beg end)
+  "Convert text to lower case."
+  (interactive (vimpulse-range))
+  (if (eq vimpulse-this-motion-type 'block)
+      (vimpulse-apply-on-block 'downcase-region beg end)
+    (downcase-region beg end))
+  (when (and viper-auto-indent
+             (looking-back "^[ \f\t\v]*"))
+    (back-to-indentation)))
+
+(defun vimpulse-upcase (beg end)
+  "Convert text to upper case."
+  (interactive (vimpulse-range))
+  (if (eq vimpulse-this-motion-type 'block)
+      (vimpulse-apply-on-block 'upcase-region beg end)
+    (upcase-region beg end)
+    (when (and viper-auto-indent
+               (looking-back "^[ \f\t\v]*"))
+      (back-to-indentation))))
+
+(defun vimpulse-invert-case (beg end)
+  "Convert text to inverted case."
+  (interactive (vimpulse-range))
+  (let (char)
+    (save-excursion
+      (cond
+       ((eq vimpulse-this-motion-type 'block)
+        (let (vimpulse-this-motion-type)
+          (vimpulse-apply-on-block 'vimpulse-invert-case beg end)))
+       (t
+        (goto-char beg)
+        (while (< beg end)
+          (setq char (following-char))
+          (delete-char 1 nil)
+          (if (eq (upcase char) char)
+              (insert-char (downcase char) 1)
+            (insert-char (upcase char) 1))
+          (setq beg (1+ beg))))))
+    (when (and viper-auto-indent
+               (looking-back "^[ \f\t\v]*"))
+      (back-to-indentation))))
+
+(defun vimpulse-invert-char (beg end)
+  "Invert case of character."
+  (interactive (vimpulse-range nil nil nil t 'forward-char))
+  (vimpulse-invert-case beg end)
+  (cond
+   (vimpulse-visual-mode
+    (goto-char beg)
+    (vimpulse-visual-mode -1))
+   (t
+    (goto-char end))))
+
+(defun vimpulse-rot13 (beg end)
+  "ROT13 encrypt text."
+  (interactive (vimpulse-range))
+  (rot13-region beg end))
+
+;;; +, _
+
+(defun vimpulse-previous-line-skip-white (&optional arg)
+  "Go ARG lines backward and to the first non-blank character."
+  (interactive "P")
+  (let ((val (viper-p-val arg))
+        (com (viper-getcom arg)))
+    (when com
+      (viper-move-marker-locally 'viper-com-point (point)))
+    (forward-line (- val))
+    (back-to-indentation)
+    (when com
+      (viper-execute-com 'vimpulse-previous-line-nonblank val com))))
+
+(defun vimpulse-next-line-skip-white (&optional arg)
+  "Go ARG lines forward and to the first non-blank character."
+  (interactive "P")
+  (let ((val (viper-p-val arg))
+        (com (viper-getcom arg)))
+    (when com
+      (viper-move-marker-locally 'viper-com-point (point)))
+    (forward-line val)
+    (back-to-indentation)
+    (when com
+      (viper-execute-com 'vimpulse-next-line-nonblank val com))))
+
+;;; *, #
+
+(defun vimpulse-search-string (&optional pos thing backward regexp)
+  "Find something to search for near POS or point.
+ THING is a `thing-at-point', default `symbol'.
+ BACKWARD, if t, specifies reverse direction.
+ REGEXP, if t, means the string is `regexp-quote'd.
+ Returns the empty string if nothing is found."
+  (save-excursion
+    (setq pos (or pos (point))
+          thing (or thing 'symbol))
+    (goto-char pos)
+    (let ((str (thing-at-point thing)))
+      ;; If there's nothing under point, go forwards
+      ;; (or backwards) to find it.
+      (while (and (not str) (or (and backward (not (bobp)))
+                                (and (not backward) (not (eobp)))))
+        (if backward (backward-char) (forward-char))
+        (setq str (thing-at-point 'symbol)))
+      (setq str (or str ""))
+      ;; No text properties, thank you very much.
+      (set-text-properties 0 (length str) nil str)
+      (when regexp
+        (setq str (regexp-quote str)))
+      str)))
+
+(defun vimpulse-search-for-symbol (&optional backward pos search)
+  "Search forwards or backwards for the symbol under point.
+ If BACKWARD is t, search in the reverse direction.
+ SEARCH is a regular expression to use for searching instead of
+ the symbol under point; it is wrapped in \"\\\\_<\" and \"\\\\_>\".
+ POS specifies an alternative position to search from. Note that
+ if POS is specified and at the beginning of a match, that match
+ is highlighted rather than skipped past."
+  (setq search (or search (vimpulse-search-string
+                           (point) 'symbol backward t)))
+  (cond
+   ((string= search "")
+    (error "No string under cursor"))
+   (t
+    (setq viper-s-string  (concat "\\_<" search "\\_>")
+          viper-s-forward (not backward))
+    (cond
+     (pos
+      (unless (region-active-p)
+        (push-mark nil t))
+      (goto-char pos)
+      (cond
+       ((looking-at search)
+        (save-excursion
+          (search-forward search))
+        (viper-flash-search-pattern))
+       (t
+        (viper-search viper-s-string (not backward) 1)
+        (unless (region-active-p)
+          (pop-mark)))))
+     (t
+      (viper-search viper-s-string (not backward) 1))))))
+
+(defun vimpulse-search-forward-for-symbol-at-point ()
+  (interactive)
+  (vimpulse-search-for-symbol))
+
+(defun vimpulse-search-backward-for-symbol-at-point ()
+  (interactive)
+  (vimpulse-search-for-symbol t))
+
+;;; Auto-indent
+
+(defun vimpulse-autoindent ()
+  "Auto Indentation, Vim-style."
+  (interactive)
+  (let ((col (current-indentation)))
+    (when abbrev-mode
+      (expand-abbrev))
+    (if viper-preserve-indent
+        (setq viper-preserve-indent nil)
+      (setq viper-current-indent col))
+    ;; Don't leave whitespace lines around.
+    (if (memq last-command
+              '(viper-autoindent
+                viper-open-line viper-Open-line
+                viper-replace-state-exit-cmd))
+        (indent-to-left-margin))
+    (when viper-auto-indent
+      (setq viper-cted t)
+      (if (and viper-electric-mode
+               (not (memq major-mode
+                          '(fundamental-mode
+                            text-mode
+                            paragraph-indent-text-mode))))
+          (if (fboundp 'comment-indent-new-line)
+              (comment-indent-new-line)
+            (newline-and-indent))
+        (newline)
+        (indent-to col)))))
+
+(defun vimpulse-Put-and-indent (&optional arg)
+  "Put before point/line and indent to current line.
+Doesn't indent with a prefix argument."
+  (interactive "P")
+  (viper-Put-back nil)
+  (unless arg
+    (indent-region (region-beginning) (region-end))))
+
+(defun vimpulse-put-and-indent (&optional arg)
+  "Put after point/line and indent to current line.
+Doesn't indent with a prefix argument."
+  (interactive "P")
+  (viper-put-back nil)
+  (unless arg
+    (indent-region (region-beginning) (region-end))))
+
+(defalias 'viper-autoindent 'vimpulse-autoindent)
+
+;;; C-o, C-i
+
+(defadvice set-mark (after vimpulse activate)
+  "Clear `vimpulse-mark-list'."
+  (mapc (lambda (marker)
+          (set-marker marker nil))
+        vimpulse-mark-list)
+  (setq vimpulse-mark-list nil))
+
+(defadvice push-mark (after vimpulse activate)
+  "Clear `vimpulse-mark-list'."
+  (mapc (lambda (marker)
+          (set-marker marker nil))
+        vimpulse-mark-list)
+  (setq vimpulse-mark-list nil))
+
+(defun vimpulse-jump-backward (arg)
+  "Go to older position in jump list.
+ To go the other way, press \\[vimpulse-jump-forward]."
+  (interactive "p")
+  (let ((current-pos (make-marker)) i)
+    (unless vimpulse-mark-list
+      (move-marker current-pos (point))
+      (add-to-list 'vimpulse-mark-list current-pos))
+    (dotimes (arg arg)
+      (setq current-pos (make-marker))
+      ;; Skip past duplicate entries in the mark ring.
+      (setq i (length mark-ring))
+      (while (progn (move-marker current-pos (point))
+                    (let (vimpulse-mark-list)
+                      ;; Protect `vimpulse-mark-list'.
+                      (set-mark-command 0))
+                    (setq i (1- i))
+                    (and (= (point) current-pos) (> i 0))))
+      ;; Already there?
+      (move-marker current-pos (point))
+      (unless (= (car vimpulse-mark-list) current-pos)
+        (setq vimpulse-mark-list
+              (cons current-pos vimpulse-mark-list))))))
+
+(defun vimpulse-jump-forward (arg)
+  "Go to newer position in jump list.
+ To go the other way, press \\[vimpulse-jump-backward]."
+  (interactive "p")
+  (let (current-pos next-pos)
+    (dotimes (arg arg)
+      (setq current-pos (car vimpulse-mark-list)
+            next-pos (cadr vimpulse-mark-list))
+      (when next-pos
+        ;; Protect `vimpulse-mark-list'.
+        (let (vimpulse-mark-list)
+          (push-mark current-pos t nil))
+        (goto-char next-pos)
+        (setq vimpulse-mark-list (cdr vimpulse-mark-list))))))
+
+(when vimpulse-want-C-i-like-Vim
+  (define-key viper-vi-basic-map "\C-i" 'vimpulse-jump-forward))
+(define-key viper-vi-basic-map "\C-o" 'vimpulse-jump-backward)
+
+;;; Replace backspace
+
+(defcustom vimpulse-backspace-restore t
+  "Whether Backspace restores the original text in Replace mode.
+ On by default."
+  :group 'vimpulse
+  :type  'boolean)
+
+(defun vimpulse-replace-pre-command ()
+  "Remember the character under point."
+  (cond
+   (viper-replace-minor-mode
+    (unless (assq (point) vimpulse-replace-alist)
+      (add-to-list 'vimpulse-replace-alist
+                   (cons (point) (char-after)))))
+   ;; If not in Replace mode, remove itself.
+   (t
+    (remove-hook 'pre-command-hook 'vimpulse-replace-pre-command))))
+
+(add-hook 'viper-replace-state-hook
+          (lambda ()
+            (setq vimpulse-replace-alist nil)
+            (vimpulse-replace-pre-command)
+            (add-hook 'pre-command-hook
+                      'vimpulse-replace-pre-command)))
+
+(defun vimpulse-replace-backspace ()
+  "Restore character under cursor.
+ If `vimpulse-backspace-restore' is nil,
+ call `viper-del-backward-char-in-replace' instead."
+  (interactive)
+  (cond
+   (vimpulse-backspace-restore
+    (backward-char)
+    (let ((oldchar (cdr (assq (point) vimpulse-replace-alist))))
+      (when oldchar
+        (save-excursion
+          (delete-char 1)
+          (insert oldchar)))))
+   (t
+    (viper-del-backward-char-in-replace))))
+
+(defadvice viper-adjust-keys-for (after vimpulse activate)
+  "Map <backspace> to `vimpulse-replace-backspace' in Replace mode."
+  (define-key viper-replace-map [backspace] 'vimpulse-replace-backspace))
+
+(defun vimpulse-abbrev-expand-before ()
+  "Expand to the nearest preceding word.
+Search forwards if a match isn't found."
+  (interactive)
+  (if (minibufferp)
+      (minibuffer-complete)
+    (dabbrev-expand nil)))
+
+;; Getting dabbrev to search forwards first and then backwards
+;; is tricky, because (dabbrev-expand -1) just fails when it
+;; doesn't find a following match.
+(defun vimpulse-abbrev-expand-after ()
+  "Expand to the nearest following word.
+Search backwards if a match isn't found."
+  (interactive)
+  ;; Back up global variables.
+  (let ((abbrev (and (boundp 'dabbrev--last-abbreviation)
+                     dabbrev--last-abbreviation))
+        (abbrev-loc (and (boundp 'dabbrev--last-abbrev-location)
+                         dabbrev--last-abbrev-location))
+        (expansion (and (boundp 'dabbrev--last-expansion)
+                        dabbrev--last-expansion))
+        (expansion-loc (and (boundp 'dabbrev--last-expansion-location)
+                            dabbrev--last-expansion-location)))
+    ;; Expand in same direction as previously,
+    ;; initially forward.
+    (if (minibufferp)
+        (minibuffer-complete)
+      (condition-case nil
+          (if (eq last-command this-command)
+              (dabbrev-expand nil)
+            (setq dabbrev--last-direction -1)
+            (dabbrev-expand -1))
+        ;; Restore dabbrev variables if version < 23.2.
+        (error (progn
+                 (when (version< emacs-version "23.2")
+                   (setq dabbrev--last-abbreviation abbrev
+                         dabbrev--last-abbrev-location abbrev-loc
+                         dabbrev--last-expansion expansion
+                         dabbrev--last-expansion-location expansion-loc))
+                 (setq dabbrev--last-direction 1)
+                 (dabbrev-expand nil) nil))))))
+
+(defun vimpulse-expand-line (&optional arg)
+  "Expand a whole line."
+  (interactive "P")
+  (let ((hippie-expand-try-functions-list
+         '(try-expand-line
+           try-expand-line-all-buffers)))
+    (hippie-expand arg)))
+
+;;;; Modal keybinding functions
+
+;; This provides the functions `vimpulse-map', `vimpulse-imap',
+;; `vimpulse-vmap' and `vimpulse-omap', which mimic :map, :imap, :vmap
+;; and :omap in Vim, as well as `vimpulse-make-careful-binding', which
+;; makes bindings "on top of" previous bindings.
+;;
+;; BACKGROUND
+;;
+;; The :map, :imap, :vmap and :omap commands of Vim let one make two
+;; key mappings starting with the same sequence of characters without
+;; one overwriting the other. For example:
+;;
+;;     :imap aa foo
+;;     :imap aaa bar
+;;
+;; When Vim has read "aa" in Insert mode, it will wait for another
+;; character to decide whether to insert "foo" or "bar". If the user
+;; types "a", "bar" is inserted; if another letter, "foo" plus that
+;; letter.
+;;
+;; Compare with the analogous use of Emacs' `global-set-key' function:
+;;
+;;     (global-set-key "aa" 'foo)
+;;     (global-set-key "aaa" 'bar)
+;;
+;; Here, the first binding is simply overwritten by the more specific
+;; second. The end result is that "aaa" is bound to `bar', while any
+;; other sequence starting with "aa" is not bound to anything.
+;;
+;; The solution is a set of Vim-like or "modal" functions for making
+;; new key bindings "on top of" previous bindings. They are
+;; `vimpulse-map', `vimpulse-imap', `vimpulse-vmap' and
+;; `vimpulse-omap', which mimic Vim's commands, and
+;; `vimpulse-make-careful-binding', a general function for specifying
+;; the keymap. Returning to the example:
+;;
+;;     (vimpulse-imap "aa" 'foo)
+;;     (vimpulse-imap "aaa" 'bar)
+;;
+;; This will bind "aaa" to `bar', and "aa" + any other key to `foo'.
+;; The syntax is the same as that of `global-set-key'. The key
+;; sequence may be specified as a string, like above, as a vector
+;; (like [?a ?b ?c]), or as a call to `kbd' (like (kbd "a b c")).
+;;
+;; To make a binding in vi (command) mode, use `vimpulse-map'; in
+;; Insert mode, `vimpulse-imap'; in Visual mode, `vimpulse-vmap'; in
+;; Operator-Pending mode, `vimpulse-omap'. The more general
+;; `vimpulse-make-careful-binding' function lets one specify the
+;; keymap to store the binding in, as when using `define-key':
+;;
+;;     (vimpulse-make-careful-binding keymap "abc" 'command)
+;;
+;; IMPLEMENTATION
+;;
+;; The code depends on a little-known GNU Emacs feature called
+;; "default key bindings". A default key binding is a binding ending
+;; with the Lisp symbol t, which roughly stands for "any other key".
+;; Default bindings allow a keymap to bind all possibilities without
+;; having to enumerate them. For example, we may bind the sequence
+;; "AB" + any key as such:
+;;
+;;     (global-set-key (kbd "A B <t>") 'foo)
+;;
+;; This means that "ABA" will execute `foo', as will "ABB", "ABC",
+;; and so on. For more on default key bindings, see the GNU Emacs
+;; Lisp Reference Manual, chapter 22.3: "Format of Keymaps".
+;;
+;; What is done by functions like `vimpulse-make-careful-binding' and
+;; `vimpulse-map' (which depends on the former) is to generate these
+;; default bindings automatically. If "AB" is already bound to `foo'
+;; and we carefully bind "ABC" to `bar', the old binding is first
+;; replaced by a default binding, as if we issued the following:
+;;
+;;     (global-set-key (kbd "A B") nil) ; delete old binding
+;;     (global-set-key (kbd "A B <t>") 'foo)
+;;     (global-set-key (kbd "A B C") 'bar)
+;;
+;; Then, "ABC" runs `bar', while "AB" + any other key than C
+;; runs `foo'.
+;;
+;; This almost gets us where we want with regard to Vimpulse, but not
+;; quite. The problem is that quite a few commands must necessarily
+;; read and parse keyboard input to decide what to do. For instance,
+;; Viper binds "d" to the general command `viper-command-argument',
+;; which, depending on the next key-presses, deletes a line, two
+;; words, or any motion entered by the user. What happens if we decide
+;; to carefully bind, say, "dq" to a custom command `foo' of our own?
+;;
+;;     (global-set-key (kbd "d") nil) ; delete old binding
+;;     (global-set-key (kbd "d <t>") 'viper-command-argument)
+;;     (global-set-key (kbd "d q") 'foo)
+;;
+;; Now, if the user enters "dq", `foo' is called. But when the user
+;; enters "dw" to delete a word, `viper-command-argument' is called
+;; only after the "w" is entered. This destroys the logic of the
+;; command, which depends on "d" being the last key-press (stored in
+;; `last-command-event') before "w" is read through `read-char'. It
+;; obviously won't work as intended with a single "w" missing a
+;; preceding "d", which is what it sees.
+;;
+;; So, we need to find a way to pass "d" and "w" along in the proper
+;; manner; that is, to make the default binding appear the same as the
+;; old binding it replaces. This is done by
+;; `vimpulse-careful-pre-hook', which unreads "w" (so it can be read
+;; again) and changes `last-command-event' to "d". Of course, this
+;; behavior is only needed for default key bindings, and only for
+;; default key bindings made by careful bindings. To that end, every
+;; time `vimpulse-make-careful-binding' makes a default binding, the
+;; binding is listed in `vimpulse-careful-alist' for future reference.
+;; Checking against the list, `vimpulse-careful-pre-hook' only does
+;; its thing if the current binding comes back positive.
+;;
+;; XEmacs is somewhat fuzzy about its command loop variables, not
+;; allowing direct modification of `last-command-event'. However,
+;; shadowing it with a `let' binding is possible, and a wrap-around
+;; advice of the current command is employed to accomplish this. Also,
+;; XEmacs does not have default key bindings in quite the same way as
+;; GNU Emacs; `vimpulse-default-binding' takes care of the
+;; differences.
+;;
+;; LIMITATIONS
+;;
+;; Vim has a `timeout' option which lets one specify the time in
+;; milliseconds that is waited for a key code or mapped key sequence
+;; to complete. Emacs, on the other hand, will wait indefinitely. This
+;; behavior is probably not implementable.
+
+;;; Advice
+
+;; For XEmacs, construct a wrap-around advice of the current command
+;; shadowing the read-only command loop variables with a
+;; `let' binding.
+(defmacro vimpulse-advice-command (command)
+  "Make wrap-around advice for shadowing `last-command-event'.
+XEmacs does not allow us to change its command loop variables
+directly, but shadowing them with a `let' binding works."
+  `(defadvice ,command (around vimpulse-careful activate)
+     "Shadow `last-command-event' with a `let' binding."
+     (cond
+      (vimpulse-last-command-event
+       (let* ((last-command-event
+               (character-to-event vimpulse-last-command-event))
+              (last-command-char vimpulse-last-command-event)
+              (last-input-event last-command-event)
+              (last-input-char last-command-char))
+         ad-do-it))
+      (t
+       ad-do-it))))
+
+;;; General functions
+
+(defun vimpulse-careful-check (key-sequence)
+  "Return t if KEY-SEQUENCE defaults to `this-command',
+but only for bindings listed in `vimpulse-careful-alist'."
+  (let ((temp-sequence (vimpulse-strip-prefix key-sequence)))
+    (setq temp-sequence (vimpulse-truncate temp-sequence -1))
+    (and this-command ; may be nil
+         (not (key-binding key-sequence)) ; only default bindings
+         (eq (cdr (assoc temp-sequence vimpulse-careful-alist))
+             this-command))))
+
+(defun vimpulse-careful-remove (key-vector &optional recursive)
+  "Delete entry with KEY-VECTOR from `vimpulse-careful-alist'.
+If RECURSIVE is non-nil, also delete entries whose key-vectors
+start with KEY-VECTOR."
+  (if recursive
+      (dolist (entry vimpulse-careful-alist)
+        (when (equal (vimpulse-truncate (car entry)
+                                        (length key-vector))
+                     key-vector)
+          (setq vimpulse-careful-alist
+                (delq entry vimpulse-careful-alist))))
+    (setq vimpulse-careful-alist
+          (assq-delete-all key-vector vimpulse-careful-alist))))
+
+(defun vimpulse-xemacs-def-binding
+  (keymap key def &optional careful-binding define-func)
+  "Make a default binding in XEmacs. If CAREFUL-BINDING is
+non-nil, advice DEF by means of `vimpulse-advice-command'."
+  (let ((temp-sequence (vconcat key))
+        (submap (lookup-key keymap key)))
+    (unless define-func (setq define-func 'define-key))
+    (and careful-binding (commandp def)
+         (eval `(vimpulse-advice-command ,def)))
+    (and (> (length temp-sequence) 1)
+         (eq (aref temp-sequence (1- (length temp-sequence))) t)
+         (setq temp-sequence (vimpulse-truncate temp-sequence -1)))
+    ;; The following is from
+    ;; http://tracker.xemacs.org/XEmacs/its/msg2021.
+    (unless (keymapp submap)
+      (setq submap (make-sparse-keymap)))
+    (when (fboundp 'set-keymap-default-binding)
+      (set-keymap-default-binding submap def))
+    (funcall define-func keymap temp-sequence submap)))
+
+(defun vimpulse-default-binding
+  (keymap key def &optional careful-binding define-func)
+  "Make a default binding in GNU Emacs or XEmacs,
+whichever is appropriate. If CAREFUL-BINDING is non-nil,
+the binding is listed in `vimpulse-careful-alist'."
+  (let ((temp-sequence (vconcat key)))
+    (unless define-func (setq define-func 'define-key))
+    (cond
+     ((featurep 'xemacs)
+      (vimpulse-xemacs-def-binding
+       keymap temp-sequence def careful-binding define-func))
+     (t
+      (unless (eq (aref temp-sequence (1- (length temp-sequence))) t)
+        (setq temp-sequence (vconcat temp-sequence [t])))
+      (funcall define-func keymap temp-sequence def)))
+    (when careful-binding
+      (add-to-list 'vimpulse-careful-alist
+                   (cons (vimpulse-truncate temp-sequence -1) def)))))
+
+;;; Hook run before each command
+
+;; If the current command is a default key binding made by
+;; `vimpulse-make-careful-binding', we need to unread the last input
+;; events and change some command loop variables to give the command
+;; the impression of its "old" binding.
+(defun vimpulse-careful-pre-hook ()
+  "Update `vimpulse-last-command-event' and `unread-command-events'.
+If the current key-sequence defaults to a shorter key-sequence,
+the difference is stored in these two variables, to be passed on
+via the `last-command-event' variable and the `read-char'
+functions, respectively."
+  (setq vimpulse-last-command-event nil)
+  (let ((key-sequence (vconcat (this-command-keys))))
+    ;; If XEmacs, get rid of the event object type.
+    (when (featurep 'xemacs)
+      (setq key-sequence (events-to-keys key-sequence)))
+    (while (and (> (length key-sequence) 1)
+                (vimpulse-careful-check key-sequence))
+      ;; Unread last event.
+      (setq vimpulse-last-command-event
+            (elt key-sequence (1- (length key-sequence))))
+      (when (featurep 'xemacs)
+        (setq vimpulse-last-command-event
+              (character-to-event vimpulse-last-command-event)))
+      (add-to-list 'unread-command-events vimpulse-last-command-event)
+      ;; Change command loop variables
+      (setq vimpulse-last-command-event
+            (elt key-sequence (1- (1- (length key-sequence)))))
+      (unless (featurep 'xemacs)      ; if XEmacs, do this with advice
+        (with-no-warnings
+          (setq last-command-event vimpulse-last-command-event
+                last-command-char  vimpulse-last-command-event
+                last-input-event   vimpulse-last-command-event
+                last-input-char    vimpulse-last-command-event)))
+      (setq key-sequence
+            (vimpulse-truncate key-sequence -1)))))
+
+;;; Hook run after each command
+
+;; This merely ensures `vimpulse-last-command-event' is reset.
+(defun vimpulse-careful-post-hook ()
+  "Erase `vimpulse-last-command-event'."
+  (setq vimpulse-last-command-event nil))
+
+(add-hook 'pre-command-hook  'vimpulse-careful-pre-hook)
+(add-hook 'post-command-hook 'vimpulse-careful-post-hook)
+
+;;; Modal binding functions
+
+;; `vimpulse-make-careful-binding' is general; `vimpulse-map',
+;; `vimpulse-imap', `vimpulse-vmap' and `vimpulse-omap' imitate Vim's
+;; :map, :imap, :vmap and :omap, respectively.
+(defun vimpulse-make-careful-binding
+  (keymap key def &optional dont-list define-func)
+  "Carefully bind KEY to DEF in KEYMAP.
+\"Carefully\" means that if a subset of the key sequence is already
+bound, a default binding is made so that the new binding won't
+overwrite the old. E.g., if we want to carefully bind \"A B C\" to
+`foo', and \"A B\" is already bound to `bar', the end result is
+
+    \"A B C\"   => `foo'
+    \"A B <t>\" => `bar'
+
+which means that \"A B D\", for example, defaults to `bar'. (For
+more on default bindings, see `define-key'.) The default binding
+gets listed in `vimpulse-careful-alist', so that, with regard to
+command loop variables, it appears exactly the same as the
+binding it replaced. To override this, use DONT-LIST.
+DEFINE-FUNC specifies a function to be used in place of
+`define-key'.
+
+To remove a binding, bind it to nil.
+
+NOTE: If the original binding \"A B\" is not stored in KEYMAP,
+but in some other map which is active only in a certain
+state (say, Insert mode), this function can detect that binding
+only if called in the same state. The functions `vimpulse-map',
+`vimpulse-imap' and `vimpulse-vmap' take care of this."
+  (let (key-vector temp-sequence current-binding previous-binding)
+    ;; For each subset of KEY-VECTOR (stored in `temp-sequence'), check
+    ;; the binding (stored in `current-binding'); if it isn't bound,
+    ;; use `previous-binding'.
+    (setq define-func (or define-func 'define-key))
+    (setq key-vector key)
+    (when (stringp key-vector)
+      (condition-case nil
+          (setq key-vector (eval `(kbd ,key-vector)))
+        (error nil))
+      (when (memq key-vector '("" [] nil))
+        (setq key-vector key)))
+    (setq key-vector (vconcat key-vector))
+    (cond
+     ;; nil unbinds the key-sequence.
+     ((not def)
+      (funcall define-func keymap key-vector def)
+      (while (and (> (length key-vector) 1)
+                  (not (lookup-key keymap key-vector)))
+        (vimpulse-careful-remove key-vector t)
+        (setq key-vector (vimpulse-truncate key-vector -1))))
+     ;; `undefined' also unbinds, but less forcefully.
+     ((eq def 'undefined)
+      (if (keymapp (lookup-key keymap key-vector))
+          (vimpulse-default-binding keymap key-vector nil t define-func)
+        (funcall define-func keymap key-vector def))
+      (vimpulse-careful-remove key-vector))
+     ;; Regular binding: convert previous bindings to default bindings.
+     (t
+      (dotimes (i (1- (length key-vector)))
+        (setq temp-sequence (vimpulse-truncate key-vector (1+ i)))
+        (setq current-binding (lookup-key keymap temp-sequence t))
+        (when (or (numberp current-binding) (not current-binding))
+          (setq current-binding
+                (or (key-binding temp-sequence t) previous-binding)))
+        (setq previous-binding current-binding)
+        ;; If `current-binding' is a keymap, do nothing, since our
+        ;; careful binding can exist happily as part of that keymap.
+        ;; However, if `current-binding' is a command, we need to make
+        ;; room for the careful binding by creating a default binding.
+        (unless (keymapp current-binding)
+          (setq temp-sequence (vconcat temp-sequence [t]))
+          (setq current-binding (lookup-key keymap temp-sequence t))
+          (when (or (numberp current-binding) (not current-binding))
+            (setq current-binding
+                  (or (key-binding temp-sequence t) previous-binding))
+            (define-key keymap
+              (vimpulse-truncate temp-sequence -1) nil)
+            (vimpulse-default-binding
+             keymap temp-sequence current-binding
+             (not dont-list) define-func))
+          (setq previous-binding current-binding)))
+      ;; Defaults are taken care of; we may now bind the key.
+      ;; If a longer binding starting with KEY-VECTOR exists,
+      ;; make a default binding so it's not overwritten.
+      (if (keymapp (lookup-key keymap key-vector))
+          (vimpulse-default-binding
+           keymap key-vector def (not dont-list) define-func)
+        (funcall define-func keymap key def))))))
+
+(define-minor-mode vimpulse-careful-minor-mode
+  "Minor mode of bindings overwritten by `vimpulse-map' et al."
+  :keymap vimpulse-careful-map
+  (dolist (entry vimpulse-careful-alist)
+    (unless (lookup-key vimpulse-careful-map (car entry))
+      (define-key vimpulse-careful-map (car entry) (cdr entry))))
+  (when vimpulse-careful-minor-mode
+    (viper-normalize-minor-mode-map-alist)))
+
+(add-to-list 'vimpulse-state-maps-alist
+             (cons 'vimpulse-careful-minor-mode 'vimpulse-careful-map))
+
+(defun vimpulse-define-key (mode state key def &optional careful)
+  "Modally bind KEY to DEF in STATE for MODE.
+MODE is an Emacs mode (minor or major), while STATE is one of
+`vi-state', `insert-state', `visual-state' or `operator-state'.
+For example:
+
+    (vimpulse-define-key 'text-mode 'vi-state \"a\" 'foo)
+    (vimpulse-define-key 'visual-line-mode 'visual-state \"b\" 'bar)
+
+If CAREFUL is non-nil, make a careful binding with
+`vimpulse-make-careful-binding'."
+  (let* ((entry (cdr (assq state vimpulse-auxiliary-modes-alist)))
+         (aux   (cdr (assq mode (symbol-value entry))))
+         (map   (eval (cdr (assq aux vimpulse-state-maps-alist)))))
+    ;; If no auxiliary mode exists, create one.
+    (unless (keymapp map)
+      (setq aux (intern (format "vimpulse-%s-%s" state mode))
+            map (intern (format "vimpulse-%s-%s-map" state mode)))
+      (eval `(viper-deflocalvar ,aux nil
+               ,(format "Auxiliary %s mode for `%s'." state mode)))
+      (eval `(defvar ,map (make-sparse-keymap)
+               ,(format "Auxiliary %s keymap for `%s'." state mode)))
+      (eval `(defadvice ,mode (after vimpulse-modal activate)
+               (viper-normalize-minor-mode-map-alist)))
+      (add-to-list 'vimpulse-state-maps-alist (cons aux map) t)
+      (add-to-list entry (cons mode aux) t)
+      (add-to-list 'vimpulse-auxiliary-modes mode)
+      (vimpulse-normalize-auxiliary-modes)
+      (setq map (eval map)))
+    ;; Define key.
+    (if careful
+        (vimpulse-with-state state
+          (vimpulse-make-careful-binding map key def))
+      (define-key map key def))))
+
+;; This modifies the major mode extension keymap, i.e., it's
+;; a reuseable front-end to `viper-modify-major-mode'.
+;; (By itself, `viper-modify-major-mode' discards the previous keymap.)
+(defun vimpulse-define-major-key (mode state key def &optional careful)
+  "Modally bind KEY to DEF in STATE for major mode MODE.
+STATE is one of `vi-state', `insert-state', `visual-state' or
+`operator-state'. If CAREFUL is non-nil, make a careful binding
+with `vimpulse-make-careful-binding'."
+  (let ((modifier-map (vimpulse-modifier-map state mode)))
+    (if careful
+        (vimpulse-with-state state
+          (vimpulse-make-careful-binding modifier-map key def))
+      (define-key modifier-map key def))
+    (viper-modify-major-mode mode state modifier-map)))
+
+(defalias 'vimpulse-define-minor-key 'vimpulse-define-key)
+
+(defun vimpulse-global-set-key (state key def &optional careful)
+  "Modally bind KEY to DEF in STATE.
+STATE is one of `vi-state', `insert-state', `visual-state' or `operator-state'.
+If CAREFUL is non-nil, don't overwrite previous bindings."
+  (let* ((map (cdr (assq state vimpulse-state-vars-alist)))
+         (global-user-map (eval (cdr (assq 'global-user-map map)))))
+    (if careful
+        (vimpulse-with-state state
+          (vimpulse-make-careful-binding global-user-map key def))
+      (define-key global-user-map key def))))
+
+(defun vimpulse-local-set-key (state key def)
+  "Modally bind KEY to DEF in STATE, locally.
+STATE is one of `vi-state', `insert-state', `visual-state' or `operator-state'."
+  (viper-add-local-keys state `((,key . ,def))))
+
+(defun vimpulse-map-state (state key def &optional modes)
+  "Modally bind KEY to DEF in STATE.
+Don't use this function directly; see `vimpulse-map',
+`vimpulse-imap', `vimpulse-vmap' and `vimpulse-omap' instead."
+  (let* ((map (cdr (assq state vimpulse-state-vars-alist)))
+         (basic-map (eval (cdr (assq 'basic-map map)))))
+    (if modes
+        (dolist (mode modes)
+          (if (eq mode t)
+              (vimpulse-global-set-key 'vi-state key def t)
+            (vimpulse-define-major-key mode 'vi-state key def t)))
+      (vimpulse-with-state state
+        (vimpulse-make-careful-binding basic-map key def)))))
+
+(defalias 'vimpulse-map-state-local 'vimpulse-local-set-key)
+
+(defun vimpulse-map (key def &rest modes)
+  "Modally bind KEY to DEF in vi (command) state.
+The syntax is the same as that of `global-set-key', e.g.,
+
+    (vimpulse-map \"abc\" 'abc-command)
+
+The optional MODES argument specifies which major modes the
+binding is seen in:
+
+    (vimpulse-map \"abc\" 'abc-command 'lisp-mode 'text-mode)
+
+Otherwise, the binding is universal, but has lower priority.
+Pass t to MODES to create an universal binding with presedence
+over mode-specific bindings."
+  (vimpulse-map-state 'vi-state key def modes))
+
+(defun vimpulse-imap (key def &rest modes)
+  "Modally bind KEY to DEF in Insert state.
+The syntax is the same as that of `global-set-key', e.g.,
+
+    (vimpulse-imap \"abc\" 'abc-command)
+
+The optional MODES argument specifies which major modes the
+binding is seen in:
+
+    (vimpulse-imap \"abc\" 'abc-command 'lisp-mode 'text-mode)
+
+Otherwise, the binding is universal, but has lower priority.
+Pass t to MODES to create an universal binding with presedence
+over mode-specific bindings."
+  (vimpulse-map-state 'insert-state key def modes))
+
+(defun vimpulse-vmap (key def &rest modes)
+  "Modally bind KEY to DEF in the Visual state.
+The syntax is the same as that of `global-set-key', e.g.,
+
+    (vimpulse-vmap \"abc\" 'abc-command)
+
+The optional MODES argument specifies which major modes the
+binding is seen in:
+
+    (vimpulse-vmap \"abc\" 'abc-command 'lisp-mode 'text-mode)
+
+Otherwise, the binding is universal, but has lower priority.
+Pass t to MODES to create an universal binding with presedence
+over mode-specific bindings."
+  (vimpulse-map-state 'visual-state key def modes))
+
+(defun vimpulse-omap (key def &rest modes)
+  "Modally bind KEY to DEF in the Operator-Pending state.
+The syntax is the same as that of `global-set-key', e.g.,
+
+    (vimpulse-omap \"abc\" 'abc-command)
+
+The optional MODES argument specifies which major modes the
+binding is seen in:
+
+    (vimpulse-omap \"abc\" 'abc-command 'lisp-mode 'text-mode)
+
+Otherwise, the binding is universal, but has lower priority.
+Pass t to MODES to create an universal binding with presedence
+over mode-specific bindings."
+  (vimpulse-map-state 'operator-state key def modes))
+
+(defun vimpulse-map! (key def &rest modes)
+  "Bind KEY to DEF in vi (command) state and the Visual state.
+To bind in Insert state, use `vimpulse-imap'."
+  (vimpulse-map key def modes)
+  (vimpulse-vmap key def modes))
+
+(defun vimpulse-map-local (key def)
+  "Make a buffer-local binding of KEY to DEF in vi (command) state.
+The syntax is the same as that of `local-set-key', e.g.,
+
+    (vimpulse-map-local \"abc\" 'abc-command)
+
+You would typically use this in a mode hook. To make a global
+binding, use `vimpulse-map'."
+  (vimpulse-map-state-local 'vi-state key def))
+
+(defun vimpulse-imap-local (key def)
+  "Make a buffer-local binding of KEY to DEF in Insert state.
+The syntax is the same as that of `local-set-key', e.g.,
+
+    (vimpulse-imap-local \"abc\" 'abc-command)
+
+You would typically use this in a mode hook. To make a global
+binding, use `vimpulse-imap'."
+  (vimpulse-map-state-local 'insert-state key def))
+
+(defun vimpulse-vmap-local (key def)
+  "Make a buffer-local binding of KEY to DEF in the Visual state.
+The syntax is the same as that of `local-set-key', e.g.,
+
+    (vimpulse-vmap-local \"abc\" 'abc-command)
+
+You would typically use this in a mode hook. To make a global
+binding, use `vimpulse-vmap'."
+  (vimpulse-map-state-local 'visual-state key def))
+
+(defun vimpulse-omap-local (key def)
+  "Make a buffer-local binding of KEY to DEF in the Operator-Pending state.
+The syntax is the same as that of `local-set-key', e.g.,
+
+    (vimpulse-omap-local \"abc\" 'abc-command)
+
+You would typically use this in a mode hook. To make a global
+binding, use `vimpulse-omap'."
+  (vimpulse-map-state-local 'visual-state key def))
+
+;;;; Ex commands
+
+;; All this code is taken from Brad Beveridge's extended viper.
+(defvar vimpulse-extra-ex-commands
+  '(("b" "buffer")
+    ("bdelete" (vimpulse-kill-current-buffer))
+    ("bnext" "next")
+    ("clo" "close")
+    ("close" (delete-window))
+    ("on" "only")
+    ("only" (delete-other-windows))
+    ("quit" (save-buffers-kill-emacs))
+    ("split" (split-window))
+    ("syntax" (global-font-lock-mode))
+    ;; Emacs and Vim use inverted naming conventions for splits.
+    ("vsplit" (split-window-horizontally)))
+  "Extra Ex commands, added to `ex-token-alist' when Vimpulse loads.")
+
+(defun vimpulse-kill-current-buffer ()
+  "Kill the current buffer."
+  (interactive)
+  (kill-buffer nil))
+
+;; Additional Ex mode features: `ex-token-alist' is defined as a
+;; constant, but it appears I can safely push values to it!
+(dolist (entry vimpulse-extra-ex-commands)
+  (setq ex-token-alist
+        (delete (assoc (car entry) ex-token-alist) ex-token-alist))
+  (add-to-list 'ex-token-alist entry t))
+
+;;;; Paren matching
+
+;; When highlighting matching parentheses, Emacs matches the closing
+;; parenthesis before the cursor, instead of under it (like in Vim).
+;; This code provides an alternate parenthesis matching function
+;; used when Viper is in vi (command) mode, so that the parenthesis
+;; under the cursor is matched. This makes it possible to visually
+;; inspect a closing parenthesis at the end of the line.
+;;
+;; In Insert mode, Emacs' scheme is deemed best and kept as is.
+;;
+;; Custom paren-matching LOADED BY DEFAULT.
+;; To avoid loading it, set `vimpulse-enhanced-paren-matching' to nil
+;; in your .emacs before loading Vimpulse.
+
+;; Load and enable paren.el if available.
+(unless (featurep 'paren)
+  (condition-case nil
+      (require 'paren)
+    (error nil)))
+(and (fboundp 'show-paren-mode)
+     (not (vimpulse-custom-value-p 'show-paren-mode))
+     ;; Fast paren-matching.
+     (vimpulse-setq show-paren-delay 0)
+     (show-paren-mode 1))
+
+(defun vimpulse-paren-open-p (&optional pos)
+  "Return t if the character at point (or POS) is an opening paren."
+  (setq pos (or pos (point)))
+  (let ((class (syntax-after pos)))
+    (when class
+      (setq class (syntax-class class))
+      (= class 4))))
+
+(defun vimpulse-paren-close-p (&optional pos)
+  "Return t if the character at point (or POS) is an closing paren."
+  (setq pos (or pos (point)))
+  (let ((class (syntax-after pos)))
+    (when class
+      (setq class (syntax-class class))
+      (= class 5))))
+
+(defun vimpulse-paren-match (&optional pos)
+  "Return the position of possible matching paren at point (or POS).
+If not a paren, return `not-a-paren'. If not found, return nil."
+  (setq pos (or pos (point)))
+  (condition-case nil
+      (cond
+       ((vimpulse-paren-open-p pos)
+        (1- (scan-sexps pos 1)))
+       ((vimpulse-paren-close-p pos)
+        (scan-sexps (1+ pos) -1))
+       (t
+        'not-a-paren))
+    (error nil)))
+
+(defun vimpulse-paren-match-p (pos1 pos2)
+  "Return t if POS1 and POS2 are matching characters.
+Checks the characters at position POS1 and POS2 and returns t
+if they are matching characters (in a paren-match meaning),
+nil otherwise."
+  (let ((class1 (car (syntax-after pos1)))
+        (match1 (cdr (syntax-after pos1)))
+        (class2 (car (syntax-after pos2)))
+        (match2 (cdr (syntax-after pos2))))
+    (or (eq match1 (char-after pos2))
+        (eq match2 (char-after pos1))
+        (eq match1 match2))))
+
+(defun vimpulse-paren-highlight (face &optional pos)
+  "Highlight the paren at point (or POS) with FACE."
+  (setq pos (or pos (point)))
+  (let ((ovl (if (vimpulse-paren-open-p pos)
+                 vimpulse-paren-overlay-open
+               vimpulse-paren-overlay-close)))
+    (viper-overlay-put ovl 'face face)
+    (viper-move-overlay ovl pos (1+ pos))))
+
+;; FIXME: this description sucks.
+(defun vimpulse-paren-highlight-pair (&optional pos)
+  "Highlight paren pair.
+Highlights the paren at point (or POS) and eventual matching
+or mismatched paren."
+  (setq pos (or pos (point)))
+  (let ((match (vimpulse-paren-match pos)))
+    (cond
+     ((not match)
+      (vimpulse-paren-highlight 'show-paren-mismatch pos))
+     ((eq match 'not-a-paren)
+      (vimpulse-delete-overlay vimpulse-paren-overlay-open)
+      (vimpulse-delete-overlay vimpulse-paren-overlay-close))
+     ((/= pos (vimpulse-paren-match match))
+      (vimpulse-paren-highlight 'show-paren-mismatch pos))
+     ((vimpulse-paren-match-p pos match)
+      (vimpulse-paren-highlight 'show-paren-match pos)
+      (vimpulse-paren-highlight 'show-paren-match match))
+     (t
+      (vimpulse-paren-highlight 'show-paren-mismatch pos)
+      (vimpulse-paren-highlight 'show-paren-mismatch match)))))
+
+(defadvice show-paren-function (around vimpulse-paren activate)
+  "Use custom highlighting if `vimpulse-enhanced-paren-matching' is t."
+  ;; Define overlays if they don't exist.
+  (cond
+   (vimpulse-enhanced-paren-matching
+    (unless (viper-overlay-live-p vimpulse-paren-overlay-open)
+      (setq vimpulse-paren-overlay-open
+            (viper-make-overlay (point) (point) nil t nil)
+            vimpulse-paren-overlay-close
+            (viper-make-overlay (point) (point) nil t nil))
+      (vimpulse-delete-overlay vimpulse-paren-overlay-open)
+      (vimpulse-delete-overlay vimpulse-paren-overlay-close))
+    (cond
+     ;; Viper not in Insert, Replace or Emacs state.
+     ((and (not (eq viper-current-state 'insert-state))
+           (not (eq viper-current-state 'replace-state))
+           (not (eq viper-current-state 'emacs-state))
+           show-paren-mode viper-mode)
+      ;; Safely delete the overlays used by `show-paren-function'
+      ;; and call our custom function instead.
+      (and (viper-overlay-live-p show-paren-overlay)
+           (vimpulse-delete-overlay show-paren-overlay))
+      (and (viper-overlay-live-p show-paren-overlay-1)
+           (vimpulse-delete-overlay show-paren-overlay-1))
+      (vimpulse-paren-highlight-pair))
+     ;; Viper in Insert mode.
+     (t
+      ;; Delete the overlays used by our custom function.
+      (vimpulse-delete-overlay vimpulse-paren-overlay-open)
+      (vimpulse-delete-overlay vimpulse-paren-overlay-close)
+      ad-do-it)))
+   (t
+    ad-do-it)))
+
+;;;; Operator-Pending mode
+
+;; This provides a framework for combining "motions" and "operators".
+;; A motion is any command moving point. An operator is a command
+;; acting on the text moved over by a motion.
+;;
+;; Defining operator commands is similar to defining commands acting
+;; on the region. That is, both must have two arguments, BEG and END,
+;; and an `interactive' specification that stores the relevant range
+;; in those arguments:
+;;
+;;     (defun foo-region (beg end)
+;;       (interactive "r")
+;;       ;; Do stuff from BEG to END
+;;       )
+;;
+;;     (defun foo-operator (beg end)
+;;       (interactive (vimpulse-range))
+;;       ;; Do stuff from BEG to END
+;;       )
+;;
+;; (If you like, you can convert any region command to an operator
+;; with `vimpulse-convert-to-operator'.)
+;;
+;; When the latter command above is run in vi state, `vimpulse-range'
+;; will query the user for a motion and determine the resulting range
+;; to pass on to the command's arguments. Note that in Visual mode,
+;; however, it simply uses the selection boundaries (no querying).
+;;
+;; While a motion is read from the keyboard, a temporary Viper state,
+;; Operator-Pending mode, is entered. This state inherits bindings
+;; from the regular vi state, but it may also define its own, for
+;; instance text objects. Text objects are like motions, but define a
+;; starting point as well as an ending point. They are implemented
+;; simply as selection commands.
+;;
+;; As in Vim, a motion may specify a motion type, such as `line',
+;; stored in the `motion-type' symbol property:
+;;
+;;   * `line': the motion range is extended to whole lines.
+;;   * `inclusive': the ending character is included.
+;;   * `exclusive' (default): the ending character is excluded.
+;;
+;; For example, (put 'foo 'motion-type 'line) gives `foo' a type of
+;; `line'. If unspecified, the motion is considered `exclusive'.
+;; You can override the type with v, V and C-v: for instance,
+;; dvj will delete an exclusive range rather than a linewise.
+;;
+;; The benefit of a dedicated state when an "operator" is "pending" is
+;; code separation. In the original scheme, every Viper motion must
+;; manually do the work of deleting/changing/yanking the text moved
+;; over, making that action repeatable, etc. The new framework handles
+;; everything automatically and orthogonally, enabling the use of
+;; plain Emacs movement commands (like S-exp navigation) as motions.
+;;
+;; A smattering of compatibility macros ensure that certain Viper
+;; motions are repeated correctly. In the long run, Viper's motions
+;; should be rewritten; I'll have to contact Michael Kifer and hear
+;; what he thinks about this. For what it's worth, the following code
+;; addresses "TODO item #1" in viper.el.
+
+(vimpulse-define-state operator
+  "Operator-pending mode is when an operator is pending,
+awaiting a motion (after \"d\", \"y\", \"c\", etc.)."
+  :id "<OP> "
+  :hook '(vimpulse-set-operator-cursor-type)
+  :enable '(vimpulse-operator-remap-minor-mode
+            (viper-vi-kbd-minor-mode nil)
+            vi-state vimpulse-careful-minor-mode)
+  (cond
+   ((eq viper-current-state 'operator-state)
+    (vimpulse-careful-minor-mode 1))
+   (t
+    (vimpulse-careful-minor-mode -1))))
+
+;; This is a short-lived state, only used for calculating
+;; motion ranges. If anything goes wrong and we enter the
+;; command loop, exit to vi state immediately.
+(defun vimpulse-operator-exit-hook ()
+  "Exit Operator-Pending mode."
+  (when (eq viper-current-state 'operator-state)
+    (save-excursion (viper-change-state-to-vi))))
+
+(add-hook 'pre-command-hook 'vimpulse-operator-exit-hook)
+(add-hook 'post-command-hook 'vimpulse-operator-exit-hook)
+
+;; We place all remap bindings in a keymap of their own.
+;; This enables Visual mode only to inherit text object
+;; bindings from Operator-Pending mode, not any remapping.
+(define-minor-mode vimpulse-operator-remap-minor-mode
+  "Minor mode of bindings overwritten by `vimpulse-map' et al."
+  :keymap vimpulse-operator-remap-map)
+
+(put 'vimpulse-operator-remap-map
+     'remap-alist 'vimpulse-operator-remap-alist)
+
+(when (featurep 'xemacs)
+  ;; XEmacs shows the tag before the modes, so truncate it to a
+  ;; constant length to avoid excessive flickering.
+  (setq vimpulse-operator-state-id "<OP>") ; 4 characters
+  ;; XEmacs lacks a horizontal bar cursor option.
+  (setq vimpulse-want-operator-pending-cursor nil))
+
+(defun vimpulse-set-operator-cursor-type ()
+  "Change cursor appearance in Operator-Pending mode."
+  (when vimpulse-want-operator-pending-cursor
+    (vimpulse-half-height-cursor)))
+
+(defun vimpulse-half-height-cursor ()
+  "Change cursor to a half-height box.
+\(This is really just a thick horizontal bar.)"
+  (unless (featurep 'xemacs)
+    (condition-case nil
+        (let (height)
+          (redisplay)
+          (setq height (window-line-height))
+          (setq height (+ (nth 0 height) (nth 3 height)))
+          ;; Cut cursor height in half.
+          (setq height (/ height 2))
+          (setq cursor-type (cons 'hbar height))
+          ;; Ensure the cursor is redisplayed.
+          (force-window-update (selected-window))
+          (redisplay))
+      (error nil))))
+
+(defun vimpulse-range
+  (&optional no-repeat dont-move-point whole-lines keep-visual custom-motion)
+  "Read a motion and return a range (BEG END).
+In Visual mode, returns the beginning and end of the selection.
+This can be used in the `interactive' form of a command:
+
+    (defun foo (beg end)
+      (interactive (vimpulse-range))
+      ;; Do foo from BEG to END
+      )
+
+When such a command is called interactively, a motion is read from
+the keyboard and the resulting range is stored in BEG and END.
+The command then proceeds to do whatever it wants to do on the
+text between those buffer positions. The optional arguments allow
+for some customization:
+
+NO-REPEAT: don't let \\[viper-repeat] repeat the command.
+DONT-MOVE-POINT: don't move to beginning of range in vi state.
+WHOLE-LINES: extend the range to include whole lines.
+KEEP-VISUAL: don't disable Visual selection.
+CUSTOM-MOTION: predefined motion to use in vi state.
+
+If CUSTOM-MOTION is specified, the command will not read a motion
+from the keyboard. This has no effect in Visual mode."
+  (let ((range (list (point) (point)))
+        (type-alist '((vimpulse-visual-toggle-char . inclusive)
+                      (vimpulse-visual-toggle-line . line)
+                      (vimpulse-visual-toggle-block . block)))
+        (type (when whole-lines 'line))
+        ;; For restoration of the echo area. We bind `message-log-max' to nil
+        ;; to prevent `oldmsg' from messing up the *Messages* buffer.
+        (oldmsg (current-message))
+        message-log-max)
+    (setq vimpulse-this-motion-type nil
+          vimpulse-this-count nil
+          vimpulse-this-motion nil
+          vimpulse-this-operator this-command)
+    (cond
+     ;; If text is selected, use selection boundaries as range.
+     ((or vimpulse-visual-mode (region-active-p))
+      (when (and whole-lines
+                 (not (eq vimpulse-visual-mode 'line)))
+        (vimpulse-visual-activate 'line)
+        (vimpulse-set-visual-dimensions))
+      ;; Determine range and go to beginning.
+      (setq range (vimpulse-visual-range))
+      (setq vimpulse-this-motion-type (vimpulse-motion-type range)
+            range (vimpulse-motion-range range))
+      (setq vimpulse-this-motion 'vimpulse-visual-reselect)
+      (if keep-visual
+          (if (eq vimpulse-visual-mode 'line)
+              (vimpulse-visual-restore)
+            (vimpulse-visual-contract-region))
+        (if (eq vimpulse-this-motion-type 'block)
+            (vimpulse-visual-block-rotate
+             'upper-left
+             (vimpulse-range-beginning range)
+             (vimpulse-range-end range))
+          (goto-char (vimpulse-range-beginning range))
+          (set-mark  (vimpulse-range-end range)))
+        ;; Disable selection.
+        (if (and vimpulse-visual-mode
+                 (fboundp 'vimpulse-visual-mode))
+            (vimpulse-visual-mode -1)
+          (vimpulse-deactivate-region))))
+     ;; Not in Visual mode: use CUSTOM-MOTION if specified,
+     ;; or read motion and return motion range.
+     (t
+      (if custom-motion
+          (setq vimpulse-this-motion custom-motion)
+        (vimpulse-change-state-to-operator)
+        (while (progn
+                 (setq vimpulse-this-motion
+                       (vimpulse-keypress-parser t))
+                 (setq vimpulse-this-count
+                       (if vimpulse-this-count
+                           (if (numberp (cadr vimpulse-this-motion))
+                               (string-to-number
+                                (concat (number-to-string
+                                         vimpulse-this-count)
+                                        (number-to-string
+                                         (cadr vimpulse-this-motion))))
+                             vimpulse-this-count)
+                         (cadr vimpulse-this-motion))
+                       vimpulse-this-motion
+                       (car vimpulse-this-motion))
+                 (when (assq vimpulse-this-motion type-alist)
+                   (setq type (cdr (assq vimpulse-this-motion
+                                         type-alist))))))
+        ;; Motion reading done: restore the echo area.
+        (message oldmsg)
+        ;; With doubled operator ("gqgq" or "gqq"), set motion to current line.
+        (if (or (eq vimpulse-this-motion vimpulse-this-operator)
+                (member (vimpulse-strip-prefix (this-command-keys) t)
+                        '("g??" "gUU" "gqq" "guu" "gww" "g~~")))
+            (setq vimpulse-this-motion 'vimpulse-line)
+          (setq vimpulse-this-motion
+                (vimpulse-operator-remapping vimpulse-this-motion))))
+      (cond
+       ;; Quit if motion reading failed.
+       ((or (not vimpulse-this-motion)
+            (memq vimpulse-this-motion '(viper-nil keyboard-quit))
+            (vimpulse-operator-cmd-p vimpulse-this-motion))
+        (save-excursion (viper-change-state-to-vi))
+        (setq quit-flag t))
+       (t
+        ;; Multiply operator count and motion count together.
+        (when (or current-prefix-arg vimpulse-this-count)
+          (setq vimpulse-this-count
+                (* (prefix-numeric-value current-prefix-arg)
+                   (prefix-numeric-value vimpulse-this-count))))
+        ;; Determine type to use for type conversion.
+        (when (and (eq type 'inclusive)
+                   (memq (vimpulse-motion-type vimpulse-this-motion)
+                         '(line inclusive)))
+          (setq type 'exclusive))
+        (setq range (vimpulse-calculate-motion-range
+                     vimpulse-this-count vimpulse-this-motion type))
+        (setq vimpulse-this-motion-type (vimpulse-motion-type range)
+              range (vimpulse-motion-range range))
+        (unless dont-move-point
+          (goto-char (vimpulse-range-beginning range))
+          (when (and viper-auto-indent
+                     (looking-back "^[ \f\t\v]*"))
+            (back-to-indentation)))
+        (save-excursion (viper-change-state-to-vi))))))
+    ;; Set up repeat.
+    (unless no-repeat
+      (setq vimpulse-last-operator vimpulse-this-operator
+            vimpulse-last-motion vimpulse-this-motion
+            vimpulse-last-motion-type
+            (when type vimpulse-this-motion-type))
+      (viper-set-destructive-command
+       (list 'vimpulse-operator-repeat
+             vimpulse-this-count nil viper-use-register nil nil)))
+    range))
+
+(defun vimpulse-calculate-motion-range (count motion &optional type refresh)
+  "Derive motion range (TYPE BEG END) from MOTION and COUNT.
+MOTION can move point or select some text (a text object).
+TYPE may specify the motion type for normalizing the resulting
+range. If REFRESH is t, this function changes point,
+`viper-com-point' and `vimpulse-this-motion-type'."
+  (cond
+   ;; REFRESH is nil, so bind global variables.
+   ((not refresh)
+    (let (viper-com-point vimpulse-this-motion-type)
+      (save-excursion
+        (vimpulse-calculate-motion-range count motion type t))))
+   (t
+    (let ((current-prefix-arg count)
+          (viper-intermediate-command 'viper-command-argument)
+          (viper-current-state 'operator-state)
+          (vimpulse-operator-basic-minor-mode t)
+          (motion-type (vimpulse-motion-type motion t))
+          (already-selection (or vimpulse-visual-mode
+                                 (region-active-p)))
+          (range (list 'exclusive (point) (point)))
+          vimpulse-visual-vars-alist)
+      (setq vimpulse-this-motion-type
+            (or type motion-type 'exclusive))
+      (viper-move-marker-locally 'viper-com-point (point))
+      ;; Enable Transient Mark mode so we can reliably
+      ;; detect selection commands.
+      (vimpulse-transient-mark)
+      ;; Whatever happens next, we must restore Transient Mark mode
+      ;; to its original state afterwards!
+      (unwind-protect
+          ;; `vimpulse-visual-vars-alist' is used for restoring,
+          ;; so protect it.
+          (let (vimpulse-visual-vars-alist)
+            (if (commandp motion)
+                (call-interactively motion)
+              (funcall motion count))
+            (cond
+             ;; If text has been selected (i.e., it's a text object),
+             ;; return the selection.
+             ((and (not already-selection)
+                   (or vimpulse-visual-mode (region-active-p)))
+              (setq range (vimpulse-visual-range))
+              (cond
+               ((and motion-type (not (eq (car range) motion-type)))
+                (setcar range motion-type))
+               ((and type (not (eq (car range) type)))
+                (setcar range type)
+                (setq range (vimpulse-normalize-motion-range range))))
+              ;; Deactivate Visual mode/region.
+              (if (and vimpulse-visual-mode
+                       (fboundp 'vimpulse-visual-mode))
+                  (vimpulse-visual-mode -1)
+                (vimpulse-deactivate-region)))
+             ;; Otherwise, range is defined by `viper-com-point'
+             ;; and point (Viper type motion).
+             (t
+              (setq range (vimpulse-make-motion-range
+                           (marker-position viper-com-point)
+                           (point)
+                           (or type vimpulse-this-motion-type) t)))))
+        (vimpulse-transient-restore))
+      range))))
+
+;; A keypress parser of some kind is unavoidable because we need to
+;; know what we are executing beforehand (like when multiplying the
+;; counts in "2d3w"). We try to avoid hard-coding where possible by
+;; inspecting commands rather than the keys themselves.
+(defun vimpulse-keypress-parser (&optional no-remap)
+  "Read from keyboard and build a command description.
+Returns (CMD COUNT), where COUNT is the numeric prefix argument
+of CMD. Both COUNT and CMD may be nil."
+  (let ((inhibit-quit t)
+        (echo-keystrokes 0.01)
+        char digit keys cmd count)
+    (while (progn
+             ;; Read a keypress, respecting Emacs version,
+             ;; and convert it to ASCII representation.
+             (if (featurep 'xemacs)
+                 (setq char (event-to-character
+                             (next-command-event) nil t))
+               (setq char (read-event))
+               (when (symbolp char)
+                 (setq char (or (get char 'ascii-character) char))))
+             ;; This trick from simple.el's `digit-argument'
+             ;; converts keystrokes like C-0 and C-M-1 to digits.
+             (setq digit (- (logand char ?\177) ?0))
+             (if (keymapp cmd)
+                 (setq keys (vconcat keys (vector char)))
+               (setq keys (vector char)))
+             (if no-remap              ; XEmacs doesn't have remapping
+                 (setq cmd (key-binding keys t))
+               (setq cmd (key-binding keys t t)))
+             ;; This `cond' form determines whether
+             ;; the reading loop will continue.
+             (cond
+              ;; If calling itself ("cc"), return current command.
+              ((eq (vimpulse-strip-prefix
+                    (vconcat (this-command-keys))) keys)
+               (setq cmd this-command)
+               nil)
+              ;; If CMD is a keymap, we need to read more.
+              ((keymapp cmd)
+               t)
+              ;; Numeric prefix argument.
+              ((or (memq cmd '(viper-digit-argument digit-argument))
+                   ;; The 0 key runs `viper-beginning-of-line',
+                   ;; so ignore it unless preceded by other digits.
+                   (and (eq (length keys) 1)
+                        (not (keymapp cmd))
+                        count
+                        ;; Probably overkill: only 0 bound this way.
+                        (memq digit '(0 1 2 3 4 5 6 7 8 9))))
+               ;; Store digits in a string, which is easily converted
+               ;; to a number afterwards.
+               (setq count (concat (or count "")
+                                   (number-to-string digit)))
+               t)
+              ;; Catch middle digits like "da2w".
+              ((and (not cmd)
+                    (> (length keys) 1)
+                    (memq digit '(0 1 2 3 4 5 6 7 8 9)))
+               (setq count (concat (or count "")
+                                   (number-to-string digit)))
+               ;; Remove the digit from the key sequence
+               ;; so we can see if the previous one goes anywhere.
+               (setq keys (vimpulse-truncate keys -1))
+               (setq cmd (key-binding keys))
+               t)
+              ;; We might as well accept negative numbers using
+              ;; Emacs' C--. Best of both worlds, right?
+              ((eq cmd 'negative-argument)
+               (unless count
+                 (setq count "-")))
+              ;; User pressed C-g, so return nil for CMD.
+              ((eq cmd 'keyboard-quit)
+               (setq cmd nil))
+              ;; We are done, exit the `while' loop.
+              (t
+               nil))))
+    ;; Determine COUNT.
+    (when (stringp count)
+      (if (string= count "-")
+          (setq count nil)
+        (setq count (string-to-number count))))
+    ;; Return command description.
+    (list cmd count)))
+
+;;; Repeat an operator/motion combination
+
+;; This is used in `viper-d-com' (read by `viper-repeat').
+(defun vimpulse-operator-repeat (arg)
+  "Repeat an operator-motion combination.
+ARG is a list of the form (COUNT . COM).
+COM is discarded."
+  (let ((val (viper-P-val arg)))
+    (cond
+     ((region-active-p)
+      (funcall vimpulse-last-operator
+               (region-beginning) (region-end)))
+     (t
+      (vimpulse-operator-apply
+       vimpulse-last-operator vimpulse-last-motion val
+       vimpulse-last-motion-type)))))
+
+(defun vimpulse-operator-apply (operator motion count &optional type)
+  "Apply OPERATOR on MOTION. COUNT is the motion count.
+TYPE is the motion type."
+  (let ((vimpulse-this-operator operator)
+        (vimpulse-this-motion motion)
+        (vimpulse-this-motion-type (or type vimpulse-this-motion-type))
+        beg end range)
+    (setq range (vimpulse-calculate-motion-range count motion type)
+          beg   (vimpulse-range-beginning range)
+          end   (vimpulse-range-end range)
+          vimpulse-this-motion-type (vimpulse-motion-type range))
+    (funcall operator beg end)))
+
+(defun vimpulse-region-cmd-p (cmd)
+  "Return t if CMD is a region command."
+  (let ((spec (car (cdr (interactive-form cmd)))))
+    (and (stringp spec)
+         (not (not (string-match "r" spec))))))
+
+(defun vimpulse-operator-cmd-p (cmd)
+  "Return t if CMD is an operator command."
+  (vimpulse-memq-recursive 'vimpulse-range (interactive-form cmd)))
+
+;;; Operators (yank, delete, change)
+
+(defvar killed-rectangle nil)
+
+(defun vimpulse-yank (beg end)
+  "Yank text from BEG to END."
+  (interactive (vimpulse-range t t))
+  (let ((length (abs (- beg end)))
+        last-command)
+    (cond
+     ((eq vimpulse-this-motion-type 'block)
+      (setq killed-rectangle (extract-rectangle beg end))
+      ;; Associate the rectangle with the last entry in the kill-ring.
+      (unless kill-ring
+        (copy-region-as-kill beg end))
+      (put 'killed-rectangle 'previous-kill (current-kill 0))
+      (vimpulse-operator-message "Saved <N>" beg end)
+      (vimpulse-visual-block-rotate 'upper-left beg end))
+     (t
+      (vimpulse-store-in-current-register beg end)
+      (copy-region-as-kill beg end)
+      (unless (eq vimpulse-this-motion-type 'line)
+        (goto-char beg))
+      (when (and (eolp) (not (bolp)))
+        (backward-char))
+      (vimpulse-operator-message "Saved <N>" beg end)))))
+
+(defun vimpulse-delete (beg end &optional dont-save)
+  "Delete text from BEG to END.
+If DONT-SAVE is t, just delete it."
+  (interactive (vimpulse-range))
+  (let ((length (if (eq vimpulse-this-motion-type 'line)
+                    (count-lines beg end)
+                  (abs (- end beg))))
+        last-command)
+    (cond
+     (dont-save
+      (cond
+       ((eq vimpulse-this-motion-type 'block)
+        (delete-rectangle beg end))
+       (t
+        (delete-region beg end))))
+     ((eq vimpulse-this-motion-type 'block)
+      (let ((orig (make-marker)))
+        ;; Associate the rectangle with the last entry in the kill-ring
+        (viper-move-marker-locally
+         'orig (vimpulse-visual-block-position 'upper-left beg end))
+        (unless kill-ring
+          (copy-region-as-kill beg end))
+        (kill-rectangle beg end)
+        (put 'killed-rectangle 'previous-kill (current-kill 0))
+        (goto-char orig)
+        (set-marker orig nil)
+        (vimpulse-operator-message "Deleted <N>" beg end)))
+     (t
+      (vimpulse-store-in-current-register beg end)
+      (kill-region beg end)
+      (when (and (eolp) (not (bolp)))
+        (backward-char))
+      (vimpulse-operator-message "Deleted <N>" beg end length)))))
+
+(defun vimpulse-change (beg end &optional dont-save)
+  "Change text from BEG to END.
+If DONT-SAVE is non-nil, just delete it."
+  (interactive (vimpulse-range))
+  (when vimpulse-want-change-undo
+    (vimpulse-start-undo-step))
+  (cond
+   ((eq vimpulse-this-motion-type 'block)
+    (vimpulse-delete beg end dont-save)
+    (goto-char
+     (vimpulse-visual-create-coords
+      'block ?i
+      (min vimpulse-visual-point vimpulse-visual-mark)
+      (1+ (max vimpulse-visual-point vimpulse-visual-mark))))
+    (viper-insert nil))
+   ((eq 'viper-repeat viper-intermediate-command)
+    (if dont-save
+        (delete-region beg end)
+      (kill-region beg end))
+    (when (eq vimpulse-this-motion-type 'line)
+      (save-excursion (newline))
+      (when viper-auto-indent
+        (indent-according-to-mode)))
+    (viper-yank-last-insertion))
+   ((eq vimpulse-this-motion-type 'line)
+    (setq viper-began-as-replace t)
+    (if dont-save
+        (delete-region beg end)
+      (vimpulse-store-in-current-register beg end)
+      (kill-region beg end))
+    (save-excursion (newline))
+    (when viper-auto-indent
+      (indent-according-to-mode))
+    (viper-change-state-to-insert))
+   (t
+    (if dont-save
+        (delete-region beg end)
+      (vimpulse-store-in-current-register beg end)
+      (viper-change beg end)))))
+
+(defun vimpulse-operator-message
+  (template &optional beg end length type)
+  "Echo a message like \"Deleted 2 characters\".
+TEMPLATE is a string like \"Deleted <N>\", where <N>
+is substituted with the amount of characters or lines.
+BEG and END are the range of text. If you specify LENGTH,
+they are ignored.
+
+This function respects `viper-change-notification-threshold'."
+  (let* ((beg (or beg (vimpulse-visual-beginning) 1))
+         (end (or end (vimpulse-visual-end) 1))
+         (height (or vimpulse-visual-height 1))
+         (width (or vimpulse-visual-width 1))
+         (type (or type vimpulse-this-motion-type))
+         (length (if (eq type 'line)
+                     (or length (count-lines beg end))
+                   (or length (abs (- end beg)))))
+         (template (replace-regexp-in-string
+                    "<N>"
+                    (apply 'format
+                           (if (eq type 'block)
+                               `("%s row%s and %s column%s"
+                                 ,height
+                                 ,(if (/= 1 (abs height)) "s" "")
+                                 ,width
+                                 ,(if (/= 1 (abs width)) "s" ""))
+                             `(,(if (eq type 'line)
+                                    "%s line%s" "%s character%s")
+                               ,length
+                               ,(if (/= 1 (abs length)) "s" ""))))
+                    template)))
+    (when (and (> length viper-change-notification-threshold)
+               (not (viper-is-in-minibuffer)))
+      (message template))))
+
+(defun vimpulse-store-in-register (register start end)
+  "Store text from START to END in REGISTER."
+  (cond
+   ((viper-valid-register register '(Letter))
+    (viper-append-to-register
+     (downcase register) start end))
+   (t
+    (copy-to-register register start end))))
+
+(defun vimpulse-store-in-current-register (start end)
+  "Store text from START to END in current register, if any.
+Resets `viper-use-register'."
+  (when viper-use-register
+    (vimpulse-store-in-register viper-use-register start end)
+    (setq viper-use-register nil)))
+
+(defun vimpulse-read-register (&optional register command)
+  "Use COMMAND with REGISTER.
+If called interactively, read REGISTER and COMMAND from keyboard."
+  (interactive)
+  (setq register (or register (read-char)))
+  (when (viper-valid-register register)
+    (setq command (or command (key-binding (read-key-sequence nil))))
+    (when (commandp command)
+      (let ((this-command command)
+            (viper-use-register register))
+        (call-interactively command)))))
+
+;;; Remap non-motion commands to `viper-nil'
+
+(defun vimpulse-operator-remap (from to)
+  "Remap FROM to TO in Operator-Pending mode."
+  (vimpulse-remap vimpulse-operator-remap-map from to))
+
+(defun vimpulse-operator-remapping (cmd)
+  "Return Operator-Pending remapping for CMD."
+  (if (featurep 'xemacs)
+      (or (cdr (assq cmd vimpulse-operator-remap-alist)) cmd)
+    (or (command-remapping cmd) cmd)))
+
+(vimpulse-operator-remap 'undo 'viper-nil)
+(vimpulse-operator-remap 'undo-tree-redo 'viper-nil)
+(vimpulse-operator-remap 'redo 'viper-nil)
+(vimpulse-operator-remap 'vimpulse-put-and-indent 'viper-nil)
+(vimpulse-operator-remap 'vimpulse-Put-and-indent 'viper-nil)
+(vimpulse-operator-remap 'viper-Put-back 'viper-nil)
+(vimpulse-operator-remap 'viper-put-back 'viper-nil)
+(vimpulse-operator-remap 'viper-delete-backward-char 'viper-nil)
+(vimpulse-operator-remap 'viper-delete-char 'viper-nil)
+(vimpulse-operator-remap 'viper-insert 'viper-nil)
+(vimpulse-operator-remap 'viper-intercept-ESC-key 'viper-nil)
+(vimpulse-operator-remap 'viper-line-to-bottom 'viper-nil)
+(vimpulse-operator-remap 'viper-line-to-middle 'viper-nil)
+(vimpulse-operator-remap 'viper-line-to-top 'viper-nil)
+(vimpulse-operator-remap 'viper-repeat 'viper-nil)
+(vimpulse-operator-remap 'viper-substitute 'viper-nil)
+
+;;; Utility macro for converting region commands to operators
+
+(defmacro vimpulse-convert-to-operator (region-cmd &rest args)
+  "Convert a region command to an operator command.
+Defines a new command with the name REGION-CMD-operator.
+ARGS is passed to `vimpulse-range'."
+  (let ((region-cmd (eval region-cmd)))
+    `(defun ,(intern (concat (symbol-name region-cmd) "-operator"))
+       (beg end)
+       ,(format "Operator-wrapper for `%s'.\n\n%s"
+                region-cmd (documentation region-cmd t))
+       (interactive (vimpulse-range ,@args))
+       (,region-cmd beg end))))
+
+;;; Compatibility code allowing old-style Viper motions to work
+
+;; Postpone operator execution by disabling `viper-execute-com'.
+;; However, some motions, like f and /, need to update `viper-d-com'
+;; with negative count, command-keys, etc., to repeat properly.
+(defadvice viper-execute-com (around vimpulse-operator activate)
+  "Disable in Operator-Pending mode."
+  (cond
+   ((eq 'operator-state viper-current-state)
+    (setq com ?r)
+    ad-do-it
+    (unless (or (eq 'viper-repeat this-command)
+                (eq 'viper-repeat viper-intermediate-command))
+      (unless viper-d-com
+        (setq viper-d-com (list nil nil nil nil nil nil)))
+      (unless (eq vimpulse-this-motion
+                  (vimpulse-operator-remapping m-com))
+        (setq vimpulse-this-motion (vimpulse-operator-remapping m-com))
+        (setcar (nthcdr 2 viper-d-com) com))
+      (setq vimpulse-this-count val)
+      (setcar (nthcdr 5 viper-d-com)
+              (viper-array-to-string
+               (if (arrayp viper-this-command-keys)
+                   viper-this-command-keys
+                 (this-command-keys))))))
+   (t
+    ad-do-it)))
+
+;; This separates the operator-pending part of a Viper motion from the
+;; rest, defining a new command called vimpulse-operator-MOTION.
+(defmacro vimpulse-operator-map-define
+  (viper-motion &optional type &rest body)
+  "Define a new command for the Operator-Pending part of VIPER-MOTION.
+The new command is named VIMPULSE-OPERATOR-MOTION and has motion
+type TYPE. A custom function body may be specified via BODY."
+  (declare (indent 2))
+  `(let* ((viper-motion ',viper-motion)
+          (type ,type)
+          (body ',body)
+          (motion-name (symbol-name viper-motion))
+          (docstring (documentation viper-motion t)))
+     (setq type (or type (vimpulse-motion-type viper-motion)))
+     (unless (memq type '(inclusive line block))
+       (setq type 'exclusive))
+     (setq motion-name (replace-regexp-in-string
+                        "^viper-\\\|^vimpulse-" "" motion-name))
+     (setq motion-name
+           (concat "vimpulse-operator-" motion-name))
+     (setq motion-name (intern motion-name))
+     (add-to-list 'vimpulse-movement-cmds motion-name)
+     (vimpulse-operator-remap viper-motion motion-name)
+     (eval `(defun ,motion-name (arg)
+              ,(format "Operator-pending %s part of `%s'.\n\n%s"
+                       type viper-motion (or docstring ""))
+              ,@(if body body
+                  `((interactive "P")
+                    (let (com com-alist)
+                      (setq com-alist
+                            '((vimpulse-change . ?c)
+                              (vimpulse-delete . ?d)
+                              (vimpulse-yank . ?y)))
+                      (setq com
+                            (or (cdr (assq vimpulse-this-operator
+                                           com-alist))
+                                ?r))
+                      (,viper-motion (if (region-active-p)
+                                         arg
+                                       (cons arg com)))
+                      ,@(unless (eq 'exclusive type)
+                          '((viper-backward-char-carefully))))))))
+     (put motion-name 'motion-type type)
+     `(quote ,motion-name)))
+
+;; d%: when point is before the parenthetical expression,
+;; include it in the resulting range.
+(vimpulse-operator-map-define viper-paren-match 'inclusive
+  (interactive "P")
+  (let ((orig (point)))
+    (viper-paren-match arg)
+    (viper-move-marker-locally 'viper-com-point orig)
+    (when (integerp arg)
+      (setq vimpulse-this-motion-type 'line))))
+
+;; These motions need wrapper functions to repeat correctly.
+(vimpulse-operator-map-define viper-end-of-Word 'inclusive)
+(vimpulse-operator-map-define viper-end-of-word 'inclusive)
+(vimpulse-operator-map-define viper-find-char-backward 'exclusive)
+(vimpulse-operator-map-define viper-find-char-forward 'inclusive)
+(vimpulse-operator-map-define viper-forward-Word 'exclusive)
+(vimpulse-operator-map-define viper-forward-char 'inclusive)
+(vimpulse-operator-map-define viper-forward-word 'exclusive)
+(vimpulse-operator-map-define viper-goto-char-backward 'exclusive)
+(vimpulse-operator-map-define viper-goto-char-forward 'inclusive)
+(vimpulse-operator-map-define viper-search-backward 'exclusive)
+(vimpulse-operator-map-define viper-search-forward 'exclusive)
+
+;; Set up motion types for remaining Viper motions.
+(put 'vimpulse-goto-first-line 'motion-type 'line)
+(put 'vimpulse-goto-mark-and-skip-white 'motion-type 'line)
+(put 'vimpulse-end-of-visual-line 'motion-type 'inclusive)
+(put 'viper-backward-Word 'motion-type 'exclusive)
+(put 'viper-backward-char 'motion-type 'exclusive)
+(put 'viper-backward-paragraph 'motion-type 'exclusive)
+(put 'viper-backward-sentence 'motion-type 'exclusive)
+(put 'viper-backward-word 'motion-type 'exclusive)
+(put 'viper-beginning-of-line 'motion-type 'exclusive)
+(put 'viper-forward-paragraph 'motion-type 'exclusive)
+(put 'viper-forward-sentence 'motion-type 'exclusive)
+(put 'viper-goto-eol 'motion-type 'inclusive)
+(put 'viper-goto-line 'motion-type 'line)
+(put 'viper-goto-mark 'motion-type 'exclusive)
+(put 'viper-goto-mark-and-skip-white 'motion-type 'line)
+(put 'viper-next-line 'motion-type 'line)
+(put 'viper-previous-line 'motion-type 'line)
+(put 'viper-search-Next 'motion-type 'exclusive)
+(put 'viper-search-next 'motion-type 'exclusive)
+(put 'viper-window-bottom 'motion-type 'line)
+(put 'viper-window-middle 'motion-type 'line)
+(put 'viper-window-top 'motion-type 'line)
+(put 'next-line 'motion-type 'line)
+(put 'previous-line 'motion-type 'line)
+
+;;;; Text objects support
+
+;; The following code implements support for text objects and commands
+;; like diw, daw, ciw, caw. Currently, the most common objects are
+;; supported:
+;;
+;;   - paren-blocks: b B { [ ( < > ) ] }
+;;   - sentences: s
+;;   - paragraphs: p
+;;   - quoted expressions: " and '
+;;   - words: w and W
+;;
+;; Vimpulse's text objects are fairly close to Vim's, and are based on
+;; Viper's movement commands. More objects are easily added with
+;; `vimpulse-define-text-object'.
+
+(defmacro vimpulse-define-text-object (object args &rest body)
+  "Define a text object OBJECT.
+ARGS is the argument list, which must contain at least one argument:
+the count. It is followed by an optional docstring and optional
+keywords:
+
+:keys KEYS      A key or a list of keys to bind the command to.
+:map MAP        Keymap to bind :keys in, default
+                `vimpulse-operator-basic-map'.
+:type TYPE      The object's motion type.
+
+The keywords are followed by the object's body, which must return
+a pure range (BEG END) or a motion range (TYPE BEG END). Thus,
+a simple example may look somewhat like:
+
+    (vimpulse-define-text-object test (arg)
+      \"Test object.\"
+      :keys \"t\"
+      (list 'exclusive (point) (+ arg (point))))
+
+Here, the count is stored in ARG. Note that the body must be able
+to handle a negative value, which specifies reverse direction."
+  (declare (indent defun))
+  (let ((map 'vimpulse-operator-basic-map)
+        count doc keys keyword type)
+    ;; Collect COUNT argument.
+    (setq args (or args (list 'arg))
+          count (car args))
+    ;; Collect docstring, if any.
+    (when (stringp (car body))
+      (setq doc  (list (car body))      ; for splicing
+            body (cdr body)))
+    ;; Collect keywords.
+    (while (keywordp (setq keyword (car body)))
+      (setq body (cdr body))
+      (cond
+       ((eq keyword :keys)
+        (setq keys (vimpulse-unquote (pop body))))
+       ((eq keyword :map)
+        (setq map (vimpulse-unquote (pop body))))
+       ((eq keyword :type)
+        (setq type (vimpulse-unquote (pop body))))
+       (t
+        (pop body))))
+    (unless (listp keys)
+      (setq keys (list keys)))
+    (when type
+      (setq type `(',type)))
+    ;; Macro expansion: define key bindings, set motion type
+    ;; and define command.
+    `(progn
+       (dolist (key ',keys)
+         (define-key ,map key ',object))
+       ,@(when type
+           `((put ',object 'motion-type ,@type)))
+       (defun ,object ,args
+         ,@doc
+         (interactive "p")
+         (let ((,count (if (numberp ,count) ,count 1))
+               range)
+           (cond
+            ((region-active-p)
+             (when (< (point) (mark t))
+               (setq ,count (- ,count)))
+             (when (memq vimpulse-visual-mode '(line block))
+               (vimpulse-visual-activate 'char))
+             (when (and vimpulse-visual-mode
+                        (not vimpulse-visual-region-expanded))
+               (vimpulse-visual-expand-region))
+             (setq range (progn ,@body))
+             (unless (vimpulse-mark-range range t ,@type)
+               ;; Are we stuck (unchanged region)?
+               ;; Move forward and try again.
+               (viper-forward-char-carefully (if (< ,count 0) -1 1))
+               (setq range (progn ,@body))
+               (vimpulse-mark-range range t ,@type)))
+            (t
+             (setq range (progn ,@body))
+             (vimpulse-mark-range range nil ,@type))))))))
+
+(when (fboundp 'font-lock-add-keywords)
+  (font-lock-add-keywords
+   'emacs-lisp-mode
+   '(("(\\(vimpulse-define-text-object\\)\\>[ \f\t\n\r\v]*\\(\\sw+\\)?"
+      (1 font-lock-keyword-face)
+      (2 font-lock-function-name-face nil t)))))
+
+(defun vimpulse-mark-range (range &optional widen type)
+  "Mark RANGE, which has the form (BEG END) or (TYPE BEG END).
+If WIDEN is non-nil, expands existing region. If the TYPE
+argument is specified, it overrides the type of RANGE."
+  (let* ((type  (or type (vimpulse-motion-type range)))
+         (range (vimpulse-motion-range range))
+         (beg (vimpulse-range-beginning range))
+         (end (vimpulse-range-end range)))
+    (cond
+     ((eq type 'exclusive)
+      (if vimpulse-visual-mode
+          (vimpulse-visual-select beg end widen)
+        (vimpulse-set-region beg end widen)))
+     (t
+      (when vimpulse-visual-mode
+        (unless (memq type '(line block))
+          (setq type 'char))
+        (unless (eq type vimpulse-visual-mode)
+          (vimpulse-visual-activate type)))
+      (vimpulse-visual-select beg end widen)))))
+
+;;; Text object range functions
+
+;; Word-like expressions (words, sentences, paragraphs).
+(defun vimpulse-object-range
+  (count backward-func forward-func &optional type)
+  "Return a text object range (TYPE BEG END).
+BACKWARD-FUNC moves point to the object's beginning,
+FORWARD-FUNC moves to its end. Schematically,
+
+\(vimpulse-object-range <num> <beg-of-object> <end-of-object>)
+
+COUNT is the number of objects. If positive, go forwards and
+then backwards; if negative, go backwards and then forwards.
+
+The type of the object (`exclusive', `inclusive' or `line')
+may be specified with TYPE. Otherwise, the type is inferred
+from the motion types of BACKWARD-FUNC and FORWARD-FUNC."
+  (let ((types '(exclusive inclusive line block))
+        beg end forward-range backward-range
+        viper-com-point
+        vimpulse-visual-vars-alist
+        vimpulse-this-motion
+        vimpulse-this-motion-type)
+    (save-excursion
+      (setq count (or (if (eq count 0) 1 count) 1))
+      (if (< count 0)
+          (setq backward-range
+                (vimpulse-calculate-motion-range
+                 (abs count) backward-func type t)
+                forward-range
+                (vimpulse-calculate-motion-range
+                 (abs count) forward-func type t))
+        (setq forward-range
+              (vimpulse-calculate-motion-range
+               (abs count) forward-func type t)
+              backward-range
+              (vimpulse-calculate-motion-range
+               (abs count) backward-func type t)))
+      (setq beg (apply 'min (vimpulse-motion-range backward-range))
+            end (apply 'max (vimpulse-motion-range forward-range)))
+      (unless type
+        (setq type 'exclusive)
+        (dolist (elt types)
+          (when (or (eq elt (vimpulse-motion-type backward-range))
+                    (eq elt (vimpulse-motion-type forward-range)))
+            (setq type elt))))
+      (list type beg end))))
+
+(defun vimpulse-an-object-range
+  (count backward-func forward-func &optional include-newlines regexp)
+  "Return a text object range (BEG END) with whitespace.
+Unless INCLUDE-NEWLINES is t, whitespace inclusion is restricted
+to the line(s) the object is on. REGEXP is a regular expression
+for matching whitespace; the default is \"[ \\f\\t\\n\\r\\v]+\".
+See `vimpulse-object-range' for more details."
+  (let (range beg end line-beg line-end mark-active-p)
+    (save-excursion
+      (setq count (or (if (eq count 0) 1 count) 1))
+      (setq regexp (or regexp "[ \f\t\n\r\v]+"))
+      (setq range (vimpulse-motion-range
+                   (vimpulse-object-range
+                    count backward-func forward-func)))
+      ;; Let `end' be the boundary furthest from point,
+      ;; based on the direction we are going.
+      (if (< count 0)
+          (setq beg (cadr range)
+                end (car range))
+        (setq beg (car range)
+              end (cadr range)))
+      ;; If INCLUDE-NEWLINES is nil, never move past
+      ;; the line boundaries of the text object.
+      (unless include-newlines
+        (setq line-beg (line-beginning-position)
+              line-end (line-end-position))
+        (when (> (* count beg)
+                 (max (* count line-beg) (* count line-end)))
+          (setq count (- count))
+          (setq range (vimpulse-motion-range
+                       (vimpulse-object-range
+                        count backward-func forward-func)))
+          (if (< count 0)
+              (setq beg (cadr range)
+                    end (car range))
+            (setq beg (car range)
+                  end (cadr range))))
+        (setq line-beg (save-excursion
+                         (goto-char (min beg end))
+                         (line-beginning-position))
+              line-end (save-excursion
+                         (goto-char (max beg end))
+                         (line-end-position))))
+      ;; Generally only include whitespace at one side (but see below).
+      ;; If we are before the object, include leading whitespace;
+      ;; if we are inside the object, include trailing whitespace.
+      ;; If trailing whitespace inclusion fails, include leading.
+      (setq count (if (< count 0) -1 1))
+      (when (or (< (* count (point)) (* count beg))
+                (eq end (setq end (save-excursion
+                                    (goto-char end)
+                                    (vimpulse-skip-regexp
+                                     regexp count line-beg line-end)))))
+        (setq beg (save-excursion
+                    (goto-char beg)
+                    (if (and (not include-newlines)
+                             (looking-back "^[ \t]*"))
+                        beg
+                      (vimpulse-skip-regexp
+                       regexp (- count) line-beg line-end))))
+        ;; Before/after adjustment for whole lines: if the object is
+        ;; followed by a blank line, include that as trailing
+        ;; whitespace and subtract a line from the leading whitespace.
+        (when include-newlines
+          (goto-char end)
+          (forward-line count)
+          (when (looking-at "[ \t]*$")
+            (setq end (line-beginning-position))
+            (goto-char beg)
+            (when (looking-at "[ \t]*$")
+              (forward-line count)
+              (setq beg (line-beginning-position))))))
+      ;; Return the range.
+      (list (min beg end) (max beg end)))))
+
+(defun vimpulse-inner-object-range
+  (count backward-func forward-func)
+  "Return a text object range (BEG END) including point.
+If point is outside the object, it is included in the range.
+To include whitespace, use `vimpulse-an-object-range'.
+See `vimpulse-object-range' for more details."
+  (let (range beg end line-beg line-end)
+    (setq count (or (if (eq count 0) 1 count) 1))
+    (setq range (vimpulse-motion-range
+                 (vimpulse-object-range
+                  count backward-func forward-func)))
+    (setq beg (car range)
+          end (cadr range))
+    (setq line-beg (line-beginning-position)
+          line-end (line-end-position))
+    (when (> (min (* count beg) (* count end))
+             (max (* count line-beg) (* count line-end)))
+      (setq count (- count))
+      (setq range (vimpulse-motion-range
+                   (vimpulse-object-range
+                    count backward-func forward-func))
+            beg (car range)
+            end (cadr range)))
+    ;; Return the range, including point.
+    (list (min beg (point)) (max end (point)))))
+
+;; Parenthetical expressions.
+(defun vimpulse-paren-range (count &optional open close include-parentheses)
+  "Return a parenthetical expression range (BEG END).
+The type of parentheses may be specified with OPEN and CLOSE,
+which must be characters. INCLUDE-PARENTHESES specifies
+whether to include the parentheses in the range."
+  (let ((beg (point)) (end (point))
+        line-beg line-end)
+    (setq count (if (eq count 0) 1 (abs count)))
+    (save-excursion
+      (setq open  (if (characterp open)
+                      (regexp-quote (string open)) "")
+            close (if (characterp close)
+                      (regexp-quote (string close)) ""))
+      (when (and (not (string= open ""))
+                 (looking-at open))
+        (forward-char))
+      ;; Find opening and closing paren with
+      ;; Emacs' S-exp facilities.
+      (while (progn
+               (vimpulse-backward-up-list 1)
+               (not (when (looking-at open)
+                      (when (save-excursion
+                              (forward-sexp)
+                              (when (looking-back close)
+                                (setq end (point))))
+                        (if (>= count 0)
+                            (setq beg (point))
+                          (setq count (1- count)) nil))))))
+      (if include-parentheses
+          (list beg end)
+        (setq beg (prog1 (min (1+ beg) end)
+                    (setq end (max (1- end) beg))))
+        (if (<= (count-lines beg end) 1)
+            (list beg end)
+          ;; Multi-line inner range: select whole lines.
+          (goto-char beg)
+          (when (looking-at "[ \f\t\n\r\v]*$")
+            (forward-line)
+            ;; Include indentation?
+            (if (and viper-auto-indent
+                     (not (eq vimpulse-this-operator
+                              'vimpulse-delete)))
+                (back-to-indentation)
+              (beginning-of-line))
+            (setq beg (point)))
+          (goto-char end)
+          (when (and (looking-back "^[ \f\t\n\r\v]*")
+                     (not (eq vimpulse-this-operator
+                              'vimpulse-delete)))
+            (setq end (line-end-position 0))
+            (goto-char end))
+          (list (min beg end) (max beg end)))))))
+
+;; Quoted expressions.
+(defun vimpulse-quote-range (count &optional quote include-quotes)
+  "Return a quoted expression range (BEG END).
+QUOTE is a quote character (default ?\\\"). INCLUDE-QUOTES
+specifies whether to include the quote marks in the range."
+  (let ((beg (point)) (end (point))
+        regexp)
+    (save-excursion
+      (setq count (if (eq count 0) 1 (abs count)))
+      (setq quote (or quote ?\"))
+      (setq quote (if (characterp quote)
+                      (regexp-quote (string quote)) "")
+            regexp (concat "\\([^\\\\]\\|^\\)" quote))
+      (when (and (not (string= quote ""))
+                 (looking-at quote))
+        (forward-char))
+      ;; Search forward for a closing quote.
+      (while (and (> count 0)
+                  (re-search-forward regexp nil t))
+        (setq count (1- count))
+        (setq end (point))
+        ;; Find the matching opening quote.
+        (condition-case nil
+            (progn
+              (setq beg (scan-sexps end -1))
+              ;; Emacs' S-exp logic doesn't work in text mode.
+              (save-excursion
+                (goto-char beg)
+                (unless (looking-at quote)
+                  (re-search-backward regexp)
+                  (unless (looking-at quote)
+                    (forward-char))
+                  (setq beg (point)))))
+          ;; Finding the opening quote failed. Maybe we're already at
+          ;; the opening quote and should look for the closing instead?
+          (error (condition-case nil
+                     (progn
+                       (viper-backward-char-carefully)
+                       (setq beg (point))
+                       (setq end (scan-sexps beg 1))
+                       (unless (looking-back quote)
+                         (re-search-forward regexp)
+                         (unless (looking-back quote)
+                           (backward-char))
+                         (setq end (point))))
+                   (error (setq end beg))))))
+      (if include-quotes
+          (list beg end)
+        (list (min (1+ beg) end) (max (1- end) beg))))))
+
+;;; Text object definitions
+
+(vimpulse-define-text-object vimpulse-line (arg)
+  "Select ARG lines."
+  :type 'line
+  (setq arg (1- arg))
+  (vimpulse-line-range
+   (point)
+   (save-excursion
+     (when (> arg 0)
+       (viper-next-line-carefully arg))
+     (point))))
+
+(vimpulse-define-text-object vimpulse-a-word (arg)
+  "Select a word."
+  :keys "aw"
+  (vimpulse-an-object-range
+   arg
+   (lambda (arg)
+     (vimpulse-limit (line-beginning-position) (line-end-position)
+       (viper-backward-word (cons arg ?r))))
+   (lambda (arg)
+     (vimpulse-limit (line-beginning-position) (line-end-position)
+       (viper-end-of-word (cons arg ?r))))))
+
+(vimpulse-define-text-object vimpulse-inner-word (arg)
+  "Select inner word."
+  :keys "iw"
+  (vimpulse-inner-object-range
+   arg
+   (lambda (arg)
+     (vimpulse-limit (line-beginning-position) (line-end-position)
+       (viper-backward-word (cons arg ?r))))
+   (lambda (arg)
+     (vimpulse-limit (line-beginning-position) (line-end-position)
+       (backward-char)
+       (viper-end-of-word (cons arg ?r))))))
+
+(vimpulse-define-text-object vimpulse-a-Word (arg)
+  "Select a Word."
+  :keys "aW"
+  (vimpulse-an-object-range
+   arg
+   (lambda (arg)
+     (vimpulse-limit (line-beginning-position) (line-end-position)
+       (viper-backward-Word (cons arg ?r))))
+   (lambda (arg)
+     (vimpulse-limit (line-beginning-position) (line-end-position)
+       (viper-end-of-Word (cons arg ?r))))))
+
+(vimpulse-define-text-object vimpulse-inner-Word (arg)
+  "Select inner Word."
+  :keys "iW"
+  (vimpulse-inner-object-range
+   arg
+   (lambda (arg)
+     (vimpulse-limit (line-beginning-position) (line-end-position)
+       (viper-backward-Word (cons arg ?r))))
+   (lambda (arg)
+     (vimpulse-limit (line-beginning-position) (line-end-position)
+       (viper-end-of-Word (cons arg ?r))))))
+
+(vimpulse-define-text-object vimpulse-a-sentence (arg)
+  "Select a sentence."
+  :keys "as"
+  (vimpulse-an-object-range
+   arg
+   (lambda (arg)
+     (viper-backward-sentence arg)
+     (vimpulse-skip-regexp "[ \f\t\n\r\v]+" 1))
+   (lambda (arg)
+     (viper-forward-sentence arg)
+     (vimpulse-skip-regexp "[ \f\t\n\r\v]+" -1))))
+
+(vimpulse-define-text-object vimpulse-inner-sentence (arg)
+  "Select inner sentence."
+  :keys "is"
+  (vimpulse-inner-object-range
+   arg
+   (lambda (arg)
+     (viper-backward-sentence arg)
+     (vimpulse-skip-regexp "[ \f\t\n\r\v]+" 1))
+   (lambda (arg)
+     (viper-forward-sentence arg)
+     (vimpulse-skip-regexp "[ \f\t\n\r\v]+" -1))))
+
+(vimpulse-define-text-object vimpulse-a-paragraph (arg)
+  "Select a paragraph."
+  :keys "ap"
+  (vimpulse-an-object-range
+   arg
+   (lambda (arg)
+     (vimpulse-skip-regexp "[ \f\t\n\r\v]+" -1)
+     (viper-backward-paragraph arg)
+     (vimpulse-skip-regexp "[ \f\t\n\r\v]+" 1))
+   (lambda (arg)
+     (vimpulse-skip-regexp "[ \f\t\n\r\v]+" 1)
+     (viper-forward-paragraph arg)
+     (vimpulse-skip-regexp "[ \f\t\n\r\v]+" -1)) t))
+
+(vimpulse-define-text-object vimpulse-inner-paragraph (arg)
+  "Select inner paragraph."
+  :keys "ip"
+  (vimpulse-inner-object-range
+   arg
+   (lambda (arg)
+     (vimpulse-skip-regexp "[ \f\t\n\r\v]+" -1)
+     (viper-backward-paragraph arg)
+     (vimpulse-skip-regexp "[ \f\t\n\r\v]+" 1))
+   (lambda (arg)
+     (vimpulse-skip-regexp "[ \f\t\n\r\v]+" 1)
+     (viper-forward-paragraph arg)
+     (vimpulse-skip-regexp "[ \f\t\n\r\v]+" -1))))
+
+(vimpulse-define-text-object vimpulse-a-paren (arg)
+  "Select a parenthesis."
+  :keys '("ab" "a(" "a)")
+  (vimpulse-paren-range arg ?\( nil t))
+
+(vimpulse-define-text-object vimpulse-inner-paren (arg)
+  "Select inner parenthesis."
+  :keys '("ib" "i(" "i)")
+  (vimpulse-paren-range arg ?\())
+
+(vimpulse-define-text-object vimpulse-a-bracket (arg)
+  "Select a bracket parenthesis."
+  :keys '("a[" "a]")
+  (vimpulse-paren-range arg ?\[ nil t))
+
+(vimpulse-define-text-object vimpulse-inner-bracket (arg)
+  "Select inner bracket parenthesis."
+  :keys '("i[" "i]")
+  (vimpulse-paren-range arg ?\[))
+
+(vimpulse-define-text-object vimpulse-a-curly (arg)
+  "Select a curly parenthesis."
+  :keys '("aB" "a{" "a}")
+  (vimpulse-paren-range arg ?{ nil t))
+
+(vimpulse-define-text-object vimpulse-inner-curly (arg)
+  "Select inner curly parenthesis."
+  :keys '("iB" "i{" "i}")
+  (vimpulse-paren-range arg ?{))
+
+(vimpulse-define-text-object vimpulse-an-angle (arg)
+  "Select an angle bracket."
+  :keys '("a<" "a>")
+  (vimpulse-paren-range arg ?< nil t))
+
+(vimpulse-define-text-object vimpulse-inner-angle (arg)
+  "Select inner angle bracket."
+  :keys '("i<" "i>")
+  (vimpulse-paren-range arg ?<))
+
+(vimpulse-define-text-object vimpulse-a-single-quote (arg)
+  "Select a single quoted expression."
+  :keys "a'"
+  (vimpulse-quote-range arg ?' t))
+
+(vimpulse-define-text-object vimpulse-inner-single-quote (arg)
+  "Select inner single quoted expression."
+  :keys "i'"
+  (vimpulse-quote-range arg ?'))
+
+(vimpulse-define-text-object vimpulse-a-double-quote (arg)
+  "Select a double quoted expression."
+  :keys "a\""
+  (vimpulse-quote-range arg ?\" t))
+
+(vimpulse-define-text-object vimpulse-inner-double-quote (arg)
+  "Select inner double quoted expression."
+  :keys "i\""
+  (vimpulse-quote-range arg ?\"))
+
+;;;; Visual mode
+
+;; Visual mode is defined as another Viper state, just like vi state,
+;; Insert state, Replace state etc. It inherits keybindings from
+;; vi state (movement), but defines some bindings of its own
+;; on top of that.
+;;
+;; Text selection in Emacs and Vim differs subtly by that in Vim, the
+;; character under the cursor is always included in the selection,
+;; while Emacs' region excludes it when point follows mark. Vimpulse
+;; solves the problem by "translating" a Visual selection to the
+;; equivalent Emacs region when a command is about to be executed.
+;; Likewise, a Line selection is translated to an Emacs region of
+;; whole lines.
+;;
+;; This is pretty transparent, except that we don't wish to do any
+;; translating when the user is just moving around in the buffer.
+;; To that end, the variable `vimpulse-movement-cmds' lists all of
+;; Viper's movement commands, so that translation can be postponed
+;; until the user executes a non-movement command.
+;;
+;; Block selections are rectangle compatible. This means Emacs'
+;; rectangular commands are applicable on the selection, and you can
+;; write your own utilities using the rect.el library. Alternatively,
+;; use the `vimpulse-apply-on-block' function.
+
+(vimpulse-define-state visual
+  "Visual mode is a flexible and easy way to select text.
+To use Visual mode, press v in vi (command) mode. Then use the
+motion commands to expand the selection. Press d to delete, c to
+change, r to replace, or y to copy. You can use p to paste.
+For Line selection, press V instead of v; then you can copy and
+paste whole lines. For Block selection, press C-v; now you can
+copy and paste the selected rectangle. In Block selection, you
+may use I or A to insert or append text before or after the
+selection on each line."
+  :id "<VIS> "
+  :basic-minor-mode 'vimpulse-visual-mode
+  :enable '((vimpulse-visual-mode (or vimpulse-visual-mode t))
+            (vimpulse-operator-remap-minor-mode nil)
+            operator-state
+            vi-state)
+  (cond
+   ((eq new-state 'visual-state)
+    (unless (memq vimpulse-visual-mode '(char line block))
+      (vimpulse-visual-mode 1)))
+   (t
+    (vimpulse-visual-mode -1))))
+
+(defgroup vimpulse-visual nil
+  "Visual mode for Viper."
+  :prefix "vimpulse-visual-"
+  :group  'vimpulse)
+
+;; Visual mode comprises three "submodes": characterwise, linewise
+;; and blockwise selection. We implement this by setting the mode
+;; variable `vimpulse-visual-mode' to either `char', `line'
+;; or `block'.
+(define-minor-mode vimpulse-visual-mode
+  "Toggles Visual mode in Viper."
+  :initial-value nil
+  :keymap vimpulse-visual-basic-map
+  :group 'vimpulse-visual
+  (cond
+   (vimpulse-visual-mode
+    (unless (memq vimpulse-visual-mode '(char line block))
+      (vimpulse-visual-activate 'char)))
+   (t
+    ;; This is executed when we do (vimpulse-visual-mode -1).
+    ;; It must run without error even if Visual mode is not active.
+    (vimpulse-visual-highlight -1)
+    ;; Clean up local variables.
+    (dolist (var vimpulse-visual-local-vars)
+      (when (assq var vimpulse-visual-vars-alist)
+        (set var (cdr (assq var vimpulse-visual-vars-alist))))
+      (when (memq var vimpulse-visual-global-vars)
+        (kill-local-variable var)))
+    (setq vimpulse-visual-region-expanded nil)
+    ;; Deactivate mark.
+    (when vimpulse-visual-vars-alist
+      (vimpulse-deactivate-mark t))
+    (vimpulse-transient-restore)
+    (kill-local-variable 'vimpulse-visual-vars-alist)
+    (kill-local-variable 'vimpulse-visual-global-vars)
+    ;; If Viper state is not already changed,
+    ;; change it to vi (command) state.
+    (when (eq viper-current-state 'visual-state)
+      (cond
+       ((eq vimpulse-visual-previous-state 'emacs-state)
+        (viper-change-state-to-emacs))
+       (t
+        (save-excursion (viper-change-state-to-vi)))))
+    (kill-local-variable 'vimpulse-visual-previous-state))))
+
+;;; Activation
+
+(eval-and-compile
+  (defalias 'viper-deactivate-mark 'vimpulse-deactivate-mark)
+  (defalias 'vimpulse-activate-mark 'vimpulse-activate-region))
+
+(defun vimpulse-visual-activate (&optional mode)
+  "Activate Visual mode. MODE is `char', `line' or `block'.
+May also be used to change the Visual mode."
+  (unless (memq vimpulse-visual-mode '(char line block))
+    ;; We are activating Visual mode for the first time.
+    (kill-local-variable 'vimpulse-visual-vars-alist)
+    (kill-local-variable 'vimpulse-visual-global-vars)
+    (setq vimpulse-visual-previous-state viper-current-state)
+    ;; Make global variables buffer-local.
+    (setq vimpulse-visual-vars-alist nil)
+    (vimpulse-visual-block-cleanup-whitespace)
+    (vimpulse-transient-remember)
+    (dolist (var vimpulse-visual-local-vars)
+      (when (and (boundp var)
+                 (not (assq var vimpulse-visual-vars-alist)))
+        ;; Remember old value.
+        (add-to-list 'vimpulse-visual-vars-alist
+                     (cons var (eval var))))
+      (unless (assoc var (buffer-local-variables))
+        (make-local-variable var)
+        (add-to-list 'vimpulse-visual-global-vars var)))
+    (setq vimpulse-visual-region-expanded nil)
+    ;; Re-add hooks in case they were cleared.
+    (add-hook 'pre-command-hook 'vimpulse-visual-pre-command)
+    (add-hook 'post-command-hook 'vimpulse-visual-post-command)
+    (if (featurep 'xemacs)
+        (add-hook 'zmacs-deactivate-region-hook
+                  'vimpulse-visual-deactivate-hook)
+      (add-hook 'deactivate-mark-hook 'vimpulse-visual-deactivate-hook))
+    ;; Activate mark at point.
+    (cond
+     ((eq mode 'block)
+      (set-mark (point))
+      (vimpulse-deactivate-mark t)     ; `set-mark' activates the mark
+      (vimpulse-transient-mark -1))
+     (t
+      (vimpulse-transient-mark 1)
+      ;; Convert active Emacs region to Visual selection, if any.
+      (cond
+       ((region-active-p)
+        (vimpulse-visual-contract-region
+         (not viper-ESC-moves-cursor-back)))
+       (t
+        (vimpulse-activate-mark (point))))
+      (vimpulse-visual-highlight))))
+  ;; Set the Visual mode.
+  (setq mode (or mode 'char))
+  (setq vimpulse-visual-mode mode
+        vimpulse-visual-last mode)
+  (viper-change-state 'visual-state)
+  (viper-restore-cursor-type)           ; use vi cursor
+  ;; Reactivate mark.
+  (cond
+   ((eq mode 'block)
+    (vimpulse-deactivate-mark t)
+    (vimpulse-transient-mark -1))
+   (t
+    (vimpulse-transient-mark 1)
+    (vimpulse-activate-mark)))
+  (vimpulse-set-visual-dimensions))
+
+(defun vimpulse-visual-toggle (mode)
+  "Enable Visual MODE if this is not the current mode.
+Otherwise disable Visual mode."
+  (if (eq mode vimpulse-visual-mode)
+      (vimpulse-visual-mode -1)
+    (vimpulse-visual-activate mode)))
+
+(defun vimpulse-visual-activate-char ()
+  "Enable Visual Character selection."
+  (interactive)
+  (let (message-log-max)
+    (vimpulse-visual-activate 'char)
+    (message "-- VISUAL --")))
+
+(defun vimpulse-visual-activate-line ()
+  "Enable Visual Line selection."
+  (interactive)
+  (let (message-log-max)
+    (vimpulse-visual-activate 'line)
+    (message "-- VISUAL LINE --")))
+
+(defun vimpulse-visual-activate-block ()
+  "Enable Visual Block selection."
+  (interactive)
+  (let (message-log-max)
+    (vimpulse-visual-activate 'block)
+    (message "-- VISUAL BLOCK --")))
+
+(defun vimpulse-visual-toggle-char ()
+  "Toggle Visual Character selection."
+  (interactive)
+  (let (message-log-max)
+    (vimpulse-visual-toggle 'char)
+    (when vimpulse-visual-mode
+      (message "-- VISUAL --"))))
+
+(defun vimpulse-visual-toggle-line ()
+  "Toggle Visual Line selection."
+  (interactive)
+  (let (message-log-max)
+    (vimpulse-visual-toggle 'line)
+    (when vimpulse-visual-mode
+      (message "-- VISUAL LINE --"))))
+
+(defun vimpulse-visual-toggle-block ()
+  "Toggle Visual Block selection."
+  (interactive)
+  (let (message-log-max)
+    (vimpulse-visual-toggle 'block)
+    (when vimpulse-visual-mode
+      (message "-- VISUAL BLOCK --"))))
+
+;;; Visualization
+
+(defun vimpulse-deactivate-mark (&optional now)
+  "Don't deactivate mark in Visual mode."
+  (cond
+   ((and vimpulse-visual-mode
+         (not (eq vimpulse-visual-mode 'block)))
+    nil)
+   (t
+    (vimpulse-deactivate-region now))))
+
+(defun vimpulse-transient-mark (&optional arg)
+  "Enable Transient Mark mode (and Cua mode) if not already enabled.
+Enable forcefully with positive ARG. Disable with negative ARG.
+Saves the previous state of Transient Mark mode in
+`vimpulse-visual-vars-alist', so it can be restored with
+`vimpulse-transient-restore'."
+  (setq deactivate-mark nil)
+  (and (boundp 'mark-active)
+       (setq mark-active (region-active-p)))
+  (let (deactivate-mark)
+    (cond
+     ;; Disable Transient Mark/Cua.
+     ((and (integerp arg) (< arg 1))
+      (and (fboundp 'cua-mode)
+           cua-mode
+           (cua-mode -1))
+      (and (fboundp 'transient-mark-mode)
+           transient-mark-mode
+           (transient-mark-mode -1))
+      (and (boundp 'zmacs-regions)
+           (setq zmacs-regions nil)))
+     ;; Enable Transient Mark/Cua.
+     (t
+      (vimpulse-transient-remember)
+      (cond
+       ((and (fboundp 'cua-mode)
+             (vimpulse-visual-before (eq cua-mode t))
+             (or (not cua-mode) (numberp arg)))
+        (cua-mode 1))
+       ((and (fboundp 'transient-mark-mode)
+             (or (not transient-mark-mode) (numberp arg)))
+        (transient-mark-mode 1))
+       ((and (boundp 'zmacs-regions)
+             (or (not zmacs-regions) (numberp arg)))
+        (setq zmacs-regions t)))))))
+
+(defun vimpulse-transient-remember ()
+  "Remember Transient Mark mode state in `vimpulse-visual-vars-alist'."
+  (when (and (boundp 'transient-mark-mode)
+             (not (assq 'transient-mark-mode
+                        vimpulse-visual-vars-alist)))
+    (add-to-list 'vimpulse-visual-vars-alist
+                 (cons 'transient-mark-mode
+                       (when (eq transient-mark-mode t)
+                         transient-mark-mode))))
+  (when (and (boundp 'cua-mode)
+             (not (assq 'cua-mode vimpulse-visual-vars-alist)))
+    (add-to-list 'vimpulse-visual-vars-alist
+                 (cons 'cua-mode cua-mode))))
+
+(defun vimpulse-transient-restore ()
+  "Restore Transient Mark mode to what is was before Visual mode.
+ Also restores Cua mode."
+  (when vimpulse-visual-vars-alist
+    (when (boundp 'transient-mark-mode)
+      (if (vimpulse-visual-before transient-mark-mode)
+          (transient-mark-mode 1)
+        (transient-mark-mode -1)))
+    (when (boundp 'cua-mode)
+      ;; Prevent Cua mode from setting `deactivate-mark' to t.
+      (let (deactivate-mark)
+        (if (vimpulse-visual-before cua-mode)
+            (cua-mode 1)
+          (cua-mode -1))))
+    (when (boundp 'zmacs-regions)
+      (let ((oldval (vimpulse-visual-before zmacs-regions)))
+        (setq zmacs-regions oldval)))))
+
+;; Should be replaced with something more readable,
+;; like (vimpulse-visual-historical-value 'transient-mark-mode).
+(defmacro vimpulse-visual-before (&rest body)
+  "Evaluate BODY with original system values from before Visual mode.
+This is based on `vimpulse-visual-vars-alist'."
+  ;; This needs to be expanded at runtime, obviously.
+  `(eval `(let ,(mapcar (lambda (elt)
+                          `(,(car elt) (quote ,(cdr elt))))
+                        vimpulse-visual-vars-alist)
+            ,',@body)))
+
+(defun vimpulse-visual-beginning (&optional mode force)
+  "Return beginning of Visual selection.
+See `vimpulse-visual-range'."
+  (vimpulse-range-beginning (vimpulse-visual-range mode force)))
+
+(defun vimpulse-visual-end (&optional mode force)
+  "Return end of Visual selection.
+See `vimpulse-visual-range'."
+  (vimpulse-range-end (vimpulse-visual-range mode force)))
+
+(defun vimpulse-visual-range (&optional mode force)
+  "Return a Visual motion range (TYPE BEG END).
+TYPE is the Visual mode.
+
+The range depends on `point', `mark' and `vimpulse-visual-mode'.
+The Visual mode may be specified explicitly with MODE, which must
+be one of `char', `line' and `block'.
+
+In Character mode, returns region plus one character.
+In Line mode, returns region as whole lines.
+In Block mode, returns rectangle plus one column.
+
+If the Visual selection is already translated to Emacs' region,
+returns the region as-is. This can be overridden with FORCE.
+
+See also `vimpulse-visual-beginning' and `vimpulse-visual-end'."
+  (let ((mark  (or (mark t) 1))
+        (point (point)))
+    (setq mode (or mode vimpulse-visual-mode))
+    (unless (memq mode '(line block))
+      (setq mode (if vimpulse-visual-mode 'inclusive 'exclusive)))
+    (cond
+     ((and (not force)
+           (or (not vimpulse-visual-mode)
+               vimpulse-visual-region-expanded))
+      (vimpulse-make-motion-range mark point mode))
+     ((eq mode 'block)
+      (vimpulse-block-range mark point))
+     ((eq mode 'line)
+      (vimpulse-line-range mark point))
+     (t
+      (vimpulse-inclusive-range mark point)))))
+
+(defun vimpulse-visual-select (beg end &optional widen)
+  "Visually select text inclusively from BEG to END.
+Return nil if selection is unchanged. If WIDEN is non-nil, only
+modify selection if it does not already encompass BEG and END.
+
+Under the hood, this function changes Emacs' `point' and `mark'.
+The boundaries of the Visual selection are deduced from these and
+the current Visual mode via `vimpulse-visual-beginning' and
+`vimpulse-visual-end'."
+  (cond
+   ;; In Visual mode, protect the value of `mark-active'.
+   (vimpulse-visual-mode
+    (let (mark-active)
+      (vimpulse-set-region
+       (min beg end)
+       (if vimpulse-visual-region-expanded
+           (max beg end)
+         (max (min beg end) (1- (max beg end))))
+       widen)))
+   (t
+    (vimpulse-set-region
+     (min beg end) (max beg end) widen))))
+
+;;; Functions for Visual selection <=> Emacs region transformation
+
+;; In Vim, Visual-mode selection always includes the character position under
+;; the cursor (i.e., "at point" or "following point" in Emacs-speak), so the
+;; former is invariably larger than the latter -- thus "expand" and "contract".
+(defun vimpulse-visual-expand-region (&optional mode no-trailing-newline)
+  "Transform the current Emacs region to the equivalent Visual selection.
+If NO-TRAILING-NEWLINE is t and the selection ends with a newline,
+exclude that newline from the region.
+Cf. `vimpulse-visual-contract-region' for the reverse operation."
+  (let* ((range (vimpulse-visual-range mode))
+         (type  (vimpulse-motion-type range))
+         (beg   (vimpulse-range-beginning range))
+         (end   (vimpulse-range-end range))
+         mark-active)
+    (when no-trailing-newline
+      (save-excursion
+        (goto-char end)
+        (when (and (bolp) (not (bobp)))
+          (setq range (vimpulse-make-motion-range
+                       beg (max beg (1- (point))) type)))))
+    (setq vimpulse-visual-region-expanded t)
+    (vimpulse-mark-range range)))
+
+(defun vimpulse-visual-contract-region (&optional keep-point)
+  "Transform the current Visual selection to the equivalent Emacs region.
+If KEEP-POINT is t, do not move point (transformation may be incomplete
+if mark < point).
+Return nil if selection is unchanged.
+Cf. `vimpulse-visual-expand-region' for the reverse operation."
+  (let ((opoint (point)) (omark (mark t)))
+    (setq vimpulse-visual-region-expanded nil)
+    (vimpulse-visual-select (region-beginning) (region-end))
+    ;; KEEP-POINT?
+    (when keep-point
+      (goto-char opoint))
+    ;; Was selection changed?
+    (not (and (= (point)  opoint)
+              (= (mark t) omark)))))
+
+;; While there is a one-to-one relationship between Vim-like, "inclusive"
+;; selections and Emacs-like, "exclusive" regions, line selection is a
+;; one-way operation -- multiple selections can produce the same number
+;; of lines. Line "contraction" is therefore based on memory.
+(defun vimpulse-visual-restore ()
+  "Restore previous selection.
+This selects a specific range of text in the buffer.
+See also `vimpulse-visual-reselect'."
+  (interactive)
+  (setq vimpulse-visual-region-expanded nil)
+  (let ((last vimpulse-visual-last))
+    (cond
+     ;; If no previous selection, try a quick C-x C-x.
+     ((or (not vimpulse-visual-point)
+          (not vimpulse-visual-mark))
+      (vimpulse-activate-mark nil)
+      (vimpulse-visual-mode 1))
+     (t
+      (unless vimpulse-visual-mode
+        ;; Protect the previous values of `vimpulse-visual-mark'
+        ;; and `vimpulse-visual-point'.
+        (let (vimpulse-visual-mark vimpulse-visual-point)
+          (cond
+           ((eq last 'line)
+            (vimpulse-visual-activate-line))
+           ((eq last 'block)
+            (vimpulse-visual-activate-block))
+           (t                           ; char
+            (vimpulse-visual-activate-char)))))
+      (set-mark vimpulse-visual-mark)
+      (goto-char vimpulse-visual-point)
+      (vimpulse-visual-contract-region)
+      (vimpulse-visual-highlight)))))
+
+(defun vimpulse-visual-reselect (&optional mode height width pos)
+  "Create a Visual MODE selection of dimensions HEIGHT and WIDTH.
+When called interactively, uses dimensions of previous selection.
+If specified, selects about POS; otherwise selects about point.
+See also `vimpulse-visual-restore'."
+  (interactive)
+  (when pos
+    (goto-char pos))
+  (setq mode (or mode vimpulse-visual-mode vimpulse-visual-last)
+        height (or height vimpulse-visual-height 1)
+        width (or width vimpulse-visual-width 1))
+  (unless vimpulse-visual-mode
+    (vimpulse-visual-activate mode))
+  (cond
+   ((eq mode 'block)
+    (viper-next-line-carefully (1- height))
+    (setq width (+ (1- width) (current-column)))
+    (vimpulse-move-to-column width)
+    (setq height (count-lines (vimpulse-visual-beginning mode)
+                              (vimpulse-visual-end mode)))
+    (while (and (not (eq (current-column) width))
+                (> height 1))
+      (viper-next-line-carefully -1)
+      (setq height (1- height))
+      (move-to-column width)))
+   ((eq mode 'line)
+    (viper-next-line-carefully (1- height)))
+   (t                                   ; char
+    (viper-forward-char-carefully (1- width)))))
+
+(defun vimpulse-set-visual-markers (&optional point mark)
+  "Refresh `vimpulse-visual-point' and `vimpulse-visual-mark'."
+  (setq mark  (vimpulse-visual-beginning 'char)
+        point (vimpulse-visual-end 'char))
+  (when (< (point) (mark t))
+    (setq mark (prog1 point
+                 (setq point mark))))
+  (viper-move-marker-locally 'vimpulse-visual-point point)
+  (viper-move-marker-locally 'vimpulse-visual-mark  mark)
+  (set-marker-insertion-type vimpulse-visual-point
+                             (<= point mark))
+  (set-marker-insertion-type vimpulse-visual-mark
+                             (> point mark)))
+
+(defun vimpulse-set-visual-dimensions (&optional beg end mode)
+  "Refresh `vimpulse-visual-height' and `vimpulse-visual-width'."
+  (vimpulse-set-visual-markers beg end)
+  (setq mode (or mode vimpulse-visual-mode)
+        beg (or beg (vimpulse-visual-beginning mode))
+        end (or end (vimpulse-visual-end mode)))
+  (cond
+   ((eq mode 'block)
+    (setq vimpulse-visual-height
+          (count-lines beg
+                       (save-excursion
+                         (goto-char end)
+                         (if (and (bolp) (not (eobp)))
+                             (1+ end)
+                           end)))
+          vimpulse-visual-width (abs (- (save-excursion
+                                          (goto-char end)
+                                          (current-column))
+                                        (save-excursion
+                                          (goto-char beg)
+                                          (current-column))))))
+   ((eq mode 'line)
+    (setq vimpulse-visual-height (count-lines beg end)
+          vimpulse-visual-width nil))
+   (t
+    (setq vimpulse-visual-height nil
+          vimpulse-visual-width (abs (- end beg))))))
+
+(defun vimpulse-visual-highlight (&optional arg)
+  "Highlight Visual selection, depending on region and Visual mode.
+With negative ARG, removes highlighting."
+  (cond
+   ((and (numberp arg) (< arg 1))
+    (when (viper-overlay-live-p vimpulse-visual-overlay)
+      (vimpulse-delete-overlay vimpulse-visual-overlay))
+    (mapc 'vimpulse-delete-overlay vimpulse-visual-block-overlays)
+    (setq vimpulse-visual-block-overlays nil)
+    ;; Clean up unreferenced overlays.
+    (dolist (overlay (vimpulse-overlays-at (point)))
+      (when (eq (viper-overlay-get overlay 'face) (vimpulse-region-face))
+        (vimpulse-delete-overlay overlay))))
+   ((eq vimpulse-visual-mode 'block)
+    ;; Remove any char/line highlighting.
+    (when (viper-overlay-live-p vimpulse-visual-overlay)
+      (vimpulse-delete-overlay vimpulse-visual-overlay))
+    ;; Block highlighting isn't perfect.
+    (condition-case nil
+        (vimpulse-visual-highlight-block
+         (vimpulse-visual-beginning)
+         (vimpulse-visual-end))
+      (error nil)))
+   (vimpulse-visual-mode                ; char or line
+    (let ((beg (vimpulse-visual-beginning))
+          (end (vimpulse-visual-end)))
+      ;; Remove any block highlighting.
+      (mapc 'vimpulse-delete-overlay vimpulse-visual-block-overlays)
+      (setq vimpulse-visual-block-overlays nil)
+      ;; Reuse overlay if possible.
+      (if (viper-overlay-live-p vimpulse-visual-overlay)
+          (viper-move-overlay vimpulse-visual-overlay beg end)
+        (setq vimpulse-visual-overlay
+              (vimpulse-make-overlay beg end nil t))
+        (viper-overlay-put vimpulse-visual-overlay
+                           'face (vimpulse-region-face))
+        (viper-overlay-put vimpulse-visual-overlay
+                           'priority 99))))))
+
+(defun vimpulse-visual-highlight-block (beg end)
+  "Highlight rectangular region from BEG to END.
+We do this by putting an overlay on each line within the
+rectangle. Each overlay extends across all the columns of the
+rectangle. We try to reuse overlays where possible because this
+is more efficient and results in less flicker.
+
+Adapted from: `rm-highlight-rectangle' in rect-mark.el."
+  (let ((opoint (point))                ; remember point
+        (omark  (mark t))               ; remember mark
+        (old vimpulse-visual-block-overlays)
+        beg-col end-col new nlines overlay window-beg window-end)
+    ;; Calculate the rectangular region represented by BEG and END,
+    ;; but put BEG in the north-west corner and END in the south-east
+    ;; corner if not already there.
+    (save-excursion
+      (setq beg-col (save-excursion (goto-char beg)
+                                    (current-column))
+            end-col (save-excursion (goto-char end)
+                                    (current-column)))
+      (when (>= beg-col end-col)
+        (if (= beg-col end-col)
+            (setq end-col (1+ end-col))
+          (setq beg-col (prog1 end-col
+                          (setq end-col beg-col))))
+        (setq beg (save-excursion (goto-char beg)
+                                  (vimpulse-move-to-column beg-col)
+                                  (point))
+              end (save-excursion (goto-char end)
+                                  (vimpulse-move-to-column end-col 1)
+                                  (point))))
+      ;; Force a redisplay so we can do reliable
+      ;; windows BEG/END calculations.
+      (sit-for 0)
+      (setq window-beg (max (window-start) beg)
+            window-end (min (window-end) (1+ end))
+            nlines (count-lines window-beg
+                                (min window-end (point-max))))
+      ;; Iterate over those lines of the rectangle which are
+      ;; visible in the currently selected window.
+      (goto-char window-beg)
+      (dotimes (i nlines)
+        (let (row-beg row-end bstring astring)
+          ;; Beginning of row.
+          (vimpulse-move-to-column beg-col)
+          (when (< (current-column) beg-col)
+            ;; Prepend overlay with virtual spaces if we are unable to
+            ;; move directly to the first column.
+            (setq bstring
+                  (propertize
+                   (make-string
+                    (- beg-col (current-column)) ?\ )
+                   'face
+                   (or (get-text-property (1- (point)) 'face)
+                       'default))))
+          (setq row-beg (point))
+          ;; End of row.
+          (vimpulse-move-to-column end-col)
+          (when (< (current-column) end-col)
+            ;; Append overlay with virtual spaces if we are unable to
+            ;; move directly to the last column.
+            (setq astring
+                  (propertize
+                   (make-string
+                    (if (= (point) row-beg)
+                        (- end-col beg-col)
+                      (- end-col (current-column)))
+                    ?\ ) 'face (vimpulse-region-face)))
+            ;; Place cursor on one of the virtual spaces
+            ;; (only works in GNU Emacs).
+            (if (= opoint row-beg)
+                (put-text-property
+                 0 (min (length astring) 1)
+                 'cursor t astring)
+              (put-text-property
+               (max 0 (1- (length astring))) (length astring)
+               'cursor t astring)))
+          (setq row-end (min (point) (line-end-position)))
+          ;; XEmacs bug: zero-length extents display
+          ;; end-glyph before start-glyph.
+          (and (featurep 'xemacs)
+               bstring astring
+               (= row-beg row-end)
+               (setq bstring (prog1 astring
+                               (setq astring bstring))))
+          ;; Trim old leading overlays.
+          (while (and old
+                      (setq overlay (car old))
+                      (< (viper-overlay-start overlay) row-beg)
+                      (/= (viper-overlay-end overlay) row-end))
+            (vimpulse-delete-overlay overlay)
+            (setq old (cdr old)))
+          ;; Reuse an overlay if possible, otherwise create one.
+          (cond
+           ((and old (setq overlay (car old))
+                 (or (= (viper-overlay-start overlay) row-beg)
+                     (= (viper-overlay-end overlay) row-end)))
+            (viper-move-overlay overlay row-beg row-end)
+            (vimpulse-overlay-before-string overlay bstring)
+            (vimpulse-overlay-after-string overlay astring)
+            (setq new (cons overlay new)
+                  old (cdr old)))
+           (t
+            (setq overlay (vimpulse-make-overlay row-beg row-end))
+            (vimpulse-overlay-before-string overlay bstring)
+            (vimpulse-overlay-after-string overlay astring)
+            (viper-overlay-put overlay 'face (vimpulse-region-face))
+            (viper-overlay-put overlay 'priority 99)
+            (setq new (cons overlay new)))))
+        (forward-line 1))
+      ;; Trim old trailing overlays.
+      (mapc 'vimpulse-delete-overlay old)
+      (setq vimpulse-visual-block-overlays (nreverse new)))))
+
+(defun vimpulse-visual-pre-command ()
+  "Run before each command in Visual mode."
+  (when vimpulse-visual-mode
+    ;; Refresh Visual restore markers and marks.
+    (vimpulse-set-visual-dimensions)
+    (cond
+     ;; Movement command: don't expand region.
+     ((vimpulse-movement-cmd-p this-command)
+      (setq vimpulse-visual-region-expanded nil))
+     (t
+      ;; Add whitespace if necessary for making a rectangle.
+      (and (eq vimpulse-visual-mode 'block)
+           (vimpulse-visual-block-add-whitespace))
+      (vimpulse-visual-expand-region
+       ;; If in Line mode, don't include trailing newline
+       ;; unless the command has real need of it.
+       nil (and (eq vimpulse-visual-mode 'line)
+                (not (vimpulse-needs-newline-p this-command))))))))
+
+(defun vimpulse-visual-post-command ()
+  "Run after each command in Visual mode."
+  (cond
+   (vimpulse-visual-mode
+    ;; Quitting: exit to vi (command) mode.
+    (cond
+     (quit-flag                         ; C-g
+      (vimpulse-visual-mode -1))
+     ((eq this-command 'keyboard-quit)
+      (vimpulse-visual-mode -1))
+     ((and (not (region-active-p))
+           (not (eq vimpulse-visual-mode 'block)))
+      (vimpulse-visual-mode -1))
+     ;; Region was expanded, so contract it.
+     (vimpulse-visual-region-expanded
+      (when (eq vimpulse-visual-mode 'block)
+        (vimpulse-visual-block-cleanup-whitespace))
+      (if (eq vimpulse-visual-mode 'line)
+          (vimpulse-visual-restore)
+        (vimpulse-visual-contract-region))
+      (vimpulse-visual-highlight))
+     (t
+      (vimpulse-visual-highlight))))
+   ;; Not in the Visual state, but maybe the mark
+   ;; was activated in vi (command) state?
+   ((and (region-active-p)
+         (eq viper-current-state 'vi-state)
+         (if (boundp 'deactivate-mark) (not deactivate-mark) t))
+    (vimpulse-visual-mode 1))))
+
+(defun vimpulse-visual-deactivate-hook ()
+  "Hook run when mark is deactivated in Visual mode."
+  (when vimpulse-visual-mode
+    (and (not (region-active-p))
+         (not (vimpulse-movement-cmd-p this-command))
+         (vimpulse-visual-mode -1))))
+
+(add-hook 'pre-command-hook 'vimpulse-visual-pre-command)
+(add-hook 'post-command-hook 'vimpulse-visual-post-command)
+(if (featurep 'xemacs)
+    (add-hook 'zmacs-deactivate-region-hook
+              'vimpulse-visual-deactivate-hook)
+  (add-hook 'deactivate-mark-hook 'vimpulse-visual-deactivate-hook))
+
+;; Advise viper-intercept-ESC-key to exit Visual mode with ESC.
+(defadvice viper-intercept-ESC-key
+  (around vimpulse-ESC-exit-visual-mode activate)
+  "Exit Visual mode with ESC."
+  (let ((viper-ESC-moves-cursor-back (unless (region-active-p)
+                                       viper-ESC-moves-cursor-back))
+        deactivate-mark)
+    (if (and vimpulse-visual-mode
+             (not (input-pending-p)))
+        (vimpulse-visual-mode -1)
+      ad-do-it)))
+
+(defadvice viper-Put-back (around vimpulse-visual activate)
+  "Delete selection before pasting in Visual mode."
+  (let (inserted-text replaced-text mode)
+    (setq yank-window-start (window-start))
+    (cond
+     (vimpulse-visual-mode
+      (setq mode vimpulse-visual-mode)
+      (unless (eq mode 'block)
+        ;; Add replaced text to the kill-ring before the current kill.
+        (setq inserted-text (current-kill 0))
+        (setq replaced-text
+              (buffer-substring (region-beginning) (region-end)))
+        (kill-new replaced-text t)
+        (kill-new inserted-text))
+      (vimpulse-delete (region-beginning) (region-end) t)
+      (when (and (eq mode 'char)
+                 (not (bolp))
+                 (viper-end-with-a-newline-p inserted-text))
+        (newline))
+      (when (and (eq mode 'line)
+                 (not (viper-end-with-a-newline-p inserted-text)))
+        (save-excursion (newline))))
+     ((region-active-p)
+      (delete-region (region-beginning) (region-end))))
+    (if (and killed-rectangle
+             kill-ring
+             (eq (get 'killed-rectangle 'previous-kill)
+                 (current-kill 0)))
+        (save-excursion
+          (yank-rectangle))
+      ad-do-it)
+    (when vimpulse-visual-mode
+      (vimpulse-visual-mode -1))))
+
+(defadvice viper-put-back (around vimpulse-visual activate)
+  "Delete selection before pasting in Visual mode."
+  (setq yank-window-start (window-start))
+  (cond
+   (vimpulse-visual-mode
+    (viper-Put-back arg))
+   ((region-active-p)
+    (viper-Put-back arg))
+   ((and killed-rectangle
+         kill-ring
+         (eq (get 'killed-rectangle 'previous-kill)
+             (current-kill 0)))
+    (unless (eolp)
+      (viper-forward-char-carefully))
+    (save-excursion
+      (yank-rectangle)))
+   (t
+    ad-do-it))
+  (when vimpulse-visual-mode
+    (vimpulse-visual-mode -1)))
+
+;; Viper's larger movement commands use the mark to store the previous
+;; position, which is fine and useful when the mark isn't active. When
+;; it is, however, it has the effect of remaking the region.
+(defadvice push-mark (around vimpulse-visual-mode activate)
+  (unless (and vimpulse-visual-mode
+               ;; Note: if you really need to call `push-mark'
+               ;; in proximity with these commands (e.g., in a hook),
+               ;; do (let (this-command) (push-mark)).
+               (memq this-command
+                     '(vimpulse-goto-first-line
+                       vimpulse-goto-line
+                       viper-backward-paragraph
+                       viper-backward-sentence
+                       viper-forward-paragraph
+                       viper-forward-sentence
+                       viper-goto-line
+                       viper-search-next
+                       viper-search-Next
+                       viper-window-bottom
+                       viper-window-middle
+                       viper-window-top)))
+    ad-do-it))
+
+;; Block selection disables Transient Mark mode.
+(defadvice deactivate-mark (after vimpulse-visual activate)
+  "Deactivate Visual Block mode."
+  (when (eq vimpulse-visual-mode 'block)
+    (vimpulse-visual-mode -1)))
+
+(defmacro vimpulse-visual-mouse-advice (cmd)
+  "Advise mouse command CMD to enable Visual mode."
+  `(defadvice ,cmd (around vimpulse-visual activate)
+     "Enable Visual mode in vi (command) state."
+     (let ((w (posn-window (event-start (ad-get-arg 0)))))
+       (cond
+        ;; If Visual mode is enabled in the window clicked in,
+        ;; adjust region afterwards.
+        ((with-selected-window w
+           vimpulse-visual-mode)
+         (vimpulse-visual-highlight -1)
+         ad-do-it
+         (when (eq (selected-window) w)
+           (vimpulse-visual-contract-region t)
+           (vimpulse-visual-highlight)))
+        ;; Otherwise, if in vi (command) state, enable Visual mode.
+        ((with-selected-window w
+           (eq viper-current-state 'vi-state))
+         ad-do-it
+         (when (eq (selected-window) w)
+           (cond
+            (vimpulse-visual-mode
+             (vimpulse-visual-contract-region t))
+            ((region-active-p)
+             (vimpulse-visual-mode 1)
+             (setq vimpulse-visual-region-expanded nil)
+             (vimpulse-visual-contract-region t)))))
+        (t
+         ad-do-it)))))
+
+(vimpulse-visual-mouse-advice mouse-drag-region)
+(vimpulse-visual-mouse-advice mouse-save-then-kill)
+
+(defadvice mouse-show-mark (before vimpulse-visual activate)
+  "Refresh highlighting of Visual selection."
+  (when vimpulse-visual-mode
+    (vimpulse-visual-highlight)))
+
+(defun vimpulse-movement-cmd-p (command)
+  "Whether COMMAND is a \"movement\" command.
+That is, whether it is listed in `vimpulse-movement-cmds'."
+  ;; We use `member' rather than `memq' to allow lambdas.
+  (member command vimpulse-movement-cmds))
+
+(defun vimpulse-needs-newline-p (command)
+  "Whether COMMAND needs trailing newline in Visual Line mode.
+In most cases (say, when wrapping the selection in a skeleton),
+it is more useful to exclude the last newline from the region."
+  (or (member command vimpulse-newline-cmds)
+      (vimpulse-operator-cmd-p command)))
+
+(defun vimpulse-visual-remap (from to)
+  "Remap FROM to TO in Visual mode."
+  (vimpulse-remap vimpulse-visual-basic-map from to))
+
+;;; Ex
+
+(defun vimpulse-visual-ex (arg)
+  "Call `viper-ex' on region."
+  (interactive "p")
+  (viper-ex arg))
+
+;;; Insert/append
+
+(defun vimpulse-visual-insert (beg end &optional arg)
+  "Enter Insert state at beginning of Visual selection."
+  (interactive "r\nP")
+  (let (deactivate-mark)
+    (cond
+     ((eq vimpulse-visual-mode 'block)
+      (vimpulse-visual-block-rotate 'upper-left beg end)
+      (setq beg (vimpulse-visual-beginning)
+            end (vimpulse-visual-end))
+      (vimpulse-visual-mode -1)
+      (goto-char
+       (vimpulse-visual-create-coords 'block ?i beg end))
+      (viper-insert arg))
+     (t
+      (vimpulse-visual-mode -1)
+      (push-mark end t t)
+      (goto-char beg)
+      (viper-insert arg))
+     (t
+      (error "Not in Visual mode")))))
+
+(defun vimpulse-visual-append (beg end &optional arg)
+  "Enter Insert state at end of Visual selection."
+  (interactive "r\nP")
+  (let (deactivate-mark)
+    (cond
+     ((eq vimpulse-visual-mode 'block)
+      (vimpulse-visual-block-rotate 'upper-left beg end)
+      (setq beg (vimpulse-visual-beginning)
+            end (vimpulse-visual-end))
+      (setq vimpulse-visual-whitespace-overlay nil)
+      (vimpulse-visual-mode -1)
+      (goto-char
+       (vimpulse-visual-create-coords 'block ?a beg end))
+      (viper-append arg))
+     (t
+      (vimpulse-visual-mode -1)
+      (push-mark beg t t)
+      (goto-char end)
+      (viper-insert arg))
+     (t
+      (error "Not in Visual mode")))))
+
+;;; Block selection
+
+(defun vimpulse-apply-on-block (func &optional beg end &rest args)
+  "Call FUNC for each line of Visual Block selection.
+The selection may be specified explicitly with BEG and END.
+FUNC must take at least two arguments, the beginning and end of
+each line. Extra arguments to FUNC may be passed via ARGS."
+  (let (beg-col end-col)
+    (save-excursion
+      (setq beg (or beg (vimpulse-visual-beginning))
+            end (or end (vimpulse-visual-end)))
+      ;; Ensure BEG < END.
+      (setq beg (prog1 (min beg end)
+                  (setq end (max beg end))))
+      ;; Calculate columns.
+      (goto-char end)
+      (setq end-col (current-column))
+      (goto-char beg)
+      (setq beg-col (current-column))
+      ;; Ensure BEG-COL < END-COL.
+      (when (> beg-col end-col)
+        (setq beg-col (prog1 end-col
+                        (setq end-col beg-col)))
+        (setq end (save-excursion
+                    (goto-char end)
+                    (move-to-column end-col)
+                    (point))))
+      ;; Apply FUNC on each line.
+      (while (< (point) end)
+        (apply func
+               (save-excursion
+                 (move-to-column beg-col)
+                 (point))
+               (save-excursion
+                 (move-to-column end-col)
+                 (point))
+               args)
+        (forward-line 1)))))
+
+(defun vimpulse-visual-block-position (corner &optional beg end)
+  "Return position of Visual Block CORNER.
+CORNER may be one of `upper-left', `upper-right', `lower-left'
+and `lower-right', or a clockwise number from 0 to 3:
+
+        0---1        upper-left +---+ upper-right
+        |   |                   |   |
+        3---2        lower-left +---+ lower-right
+
+The rectangle is defined by mark and point, or BEG and END
+if specified. The CORNER values `upper', `left', `lower'
+and `right' return one of the defining corners.
+
+        upper P---+                    +---M upper
+         left |   | lower        lower |   | right
+              +---M right         left P---+
+
+Corners 0 and 3 are returned by their left side, corners 1 and 2
+by their right side. To place point in one of the corners, use
+`vimpulse-visual-block-rotate'.
+
+To go the other way, use `vimpulse-visual-block-corner'."
+  (save-excursion
+    (setq beg (or beg (vimpulse-visual-beginning 'block))
+          end (or end (vimpulse-visual-end 'block)))
+    (when (> beg end) (setq beg (prog1 end (setq end beg))))
+    (let ((beg-col (progn (goto-char beg)
+                          (current-column)))
+          (end-col (progn (goto-char end)
+                          (current-column)))
+          (upper beg) (left beg) (lower end) (right end)
+          (upper-left 0) (upper-right 1)
+          (lower-left 3) (lower-right 2))
+      (when (> beg-col end-col)
+        (setq beg-col (prog1 end-col
+                        (setq end-col beg-col)))
+        (setq left (prog1 right
+                     (setq right left))))
+      (if (memq corner '(upper left lower right))
+          (eval corner)
+        (setq corner (mod (eval corner) 4))
+        (if (memq corner '(0 1))
+            (goto-char beg)
+          (goto-char end))
+        (if (memq corner '(0 3))
+            (vimpulse-move-to-column beg-col)
+          (vimpulse-move-to-column end-col))
+        (point)))))
+
+(defun vimpulse-visual-block-corner (&optional symbolic pos)
+  "Return the current Visual Block corner as a number from 0 to 3.
+Corners are numbered clockwise, starting with the upper-left corner.
+Return as one of `upper-left', `upper-right', `lower-left' and
+`lower-right' if SYMBOLIC is non-nil.
+
+        0---1        upper-left +---+ upper-right
+        |   |                   |   |
+        3---2        lower-left +---+ lower-right
+
+Specify POS to compare that position, rather than point,
+against the corners. The result can be passed to functions
+like `vimpulse-visual-block-position' and
+`vimpulse-visual-block-rotate'."
+  (let ((upper-left 0)
+        (upper-right 1)
+        (lower-left 3)
+        (lower-right 2)
+        corner)
+    (setq pos (or pos (point)))
+    (or (dolist (i '(upper-left lower-left) corner)
+          (when (eq (vimpulse-visual-block-position i) pos)
+            (setq corner i)))
+        (progn
+          (unless vimpulse-visual-region-expanded
+            (setq pos (1+ pos)))
+          (dolist (i '(upper-right lower-right) corner)
+            (when (eq (vimpulse-visual-block-position i) pos)
+              (setq corner i)))))
+    (if symbolic
+        corner
+      (eval corner))))
+
+(defun vimpulse-visual-block-rotate (corner &optional beg end)
+  "In Visual Block selection, rotate point and mark clockwise.
+When called non-interactively, CORNER specifies the corner to
+place point in; mark is placed in the opposite corner.
+
+        0---1        upper-left +---+ upper-right
+        |   |                   |   |
+        3---2        lower-left +---+ lower-right
+
+Corners are numbered clockwise from 0. For better readability,
+you may use the symbolic values `upper-left', `upper-right',
+`lower-left' and `lower-right'.
+
+This function updates `vimpulse-visual-point' and
+`vimpulse-visual-mark' so that \\[vimpulse-visual-restore]
+restores the selection with the same rotation."
+  (interactive
+   (list (if (< (prefix-numeric-value current-prefix-arg) 0)
+             (1- (vimpulse-visual-block-corner))
+           (1+ (vimpulse-visual-block-corner)))))
+  (let ((upper-left 0) (upper-right 1) (lower-left 3) (lower-right 2)
+        newmark newpoint newmark-marker newpoint-marker mark-active)
+    (setq corner (mod (eval corner) 4))
+    (setq newpoint (vimpulse-visual-block-position corner beg end))
+    (setq newmark (vimpulse-visual-block-position
+                   (mod (+ 2 corner) 4) beg end))
+    (if (memq corner '(0 3))
+        (setq newmark-marker (1- newmark)
+              newpoint-marker newpoint)
+      (setq newpoint-marker (1- newpoint)
+            newmark-marker newmark))
+    (unless vimpulse-visual-region-expanded
+      (setq newpoint newpoint-marker
+            newmark  newmark-marker))
+    (set-mark newmark)
+    (goto-char newpoint)
+    (vimpulse-set-visual-dimensions beg end 'block)))
+
+(defun vimpulse-visual-exchange-corners ()
+  "Rearrange corners in Visual Block mode.
+
+        M---+          +---M
+        |   |    =>    |   |
+        +---P          P---+
+
+For example, if mark is in the upper left corner and point
+in the lower right (see fig.), this function puts mark in
+the upper right corner and point in the lower left."
+  (interactive)
+  (cond
+   ((memq vimpulse-visual-mode '(char line))
+    (exchange-point-and-mark))
+   ((eq vimpulse-visual-mode 'block)
+    (let ((mark-col (save-excursion
+                      (goto-char (mark t))
+                      (forward-char)
+                      (1- (current-column))))
+          (point-col (current-column)))
+      (set-mark (save-excursion
+                  (goto-char (mark t))
+                  (vimpulse-move-to-column
+                   point-col (< (current-column) point-col))
+                  (point)))
+      (vimpulse-move-to-column
+       mark-col (< (current-column) mark-col))
+      (and (eolp) (not (bolp)) (backward-char))))
+   (t
+    (error "Not in Visual mode"))))
+
+;; Insert whitespace into buffer to handle zero-width rectangles.
+;; This isn't ideal and should be replaced with something else.
+(defun vimpulse-visual-block-add-whitespace ()
+  "Ensure rectangle is at least one column wide.
+If the Block selection starts and ends on blank lines, the
+resulting rectangle has width zero even if intermediate lines
+contain characters. This function inserts a space after mark
+so that a one-column rectangle can be made. The position of the
+space is stored in `vimpulse-visual-whitespace-overlay' so it can be
+removed afterwards with `vimpulse-visual-block-cleanup-whitespace'."
+  (save-excursion
+    (when (and (eq vimpulse-visual-mode 'block)
+               (/= (vimpulse-visual-beginning)
+                   (vimpulse-visual-end))
+               (save-excursion
+                 (goto-char (vimpulse-visual-beginning))
+                 (and (bolp) (eolp)))
+               (save-excursion
+                 (goto-char (vimpulse-visual-end))
+                 (and (bolp) (eolp))))
+      (goto-char (mark t))
+      (insert " ")
+      (setq vimpulse-visual-whitespace-overlay
+            (vimpulse-make-overlay (mark t) (1+ (mark t))
+                                   nil t nil)))))
+
+(defun vimpulse-visual-block-cleanup-whitespace ()
+  "Clean up whitespace inserted by `vimpulse-visual-block-add-whitespace'."
+  (when (viper-overlay-live-p vimpulse-visual-whitespace-overlay)
+    (when (= (- (viper-overlay-end
+                 vimpulse-visual-whitespace-overlay)
+                (viper-overlay-start
+                 vimpulse-visual-whitespace-overlay))
+             1)
+      (delete-region
+       (viper-overlay-start vimpulse-visual-whitespace-overlay)
+       (viper-overlay-end   vimpulse-visual-whitespace-overlay)))
+    (vimpulse-delete-overlay vimpulse-visual-whitespace-overlay)
+    (setq vimpulse-visual-whitespace-overlay nil)))
+
+(defun vimpulse-visual-create-coords
+  (mode i-com upper-left lower-right)
+  "Update the list of block insert coordinates with current rectangle.
+I-COM should be ?c, ?i, ?a, ?I or ?A; the column for the
+insertion will be chosen according to this command.
+Returns the insertion point."
+  (setq vimpulse-visual-insert-coords nil)
+  (let ((nlines (count-lines upper-left lower-right))
+        (col 0))               ; for ?I and ?A, trivial: column is 0
+    (when (memq i-com '(?a ?c ?i))
+      ;; For ?i and ?a, choose the left (the right) rectangle column.
+      (let ((beg-col (save-excursion
+                       (goto-char upper-left)
+                       (current-column)))
+            (end-col (save-excursion
+                       (goto-char lower-right)
+                       (current-column))))
+        ;; Decide if we use the left or right column.
+        (setq col (max 0 (if (memq i-com '(?c ?i))
+                             beg-col
+                           (1- end-col))))))
+    ;; Save the information.
+    (setq vimpulse-visual-insert-coords
+          (list mode i-com upper-left col nlines))
+    (save-excursion
+      (goto-char upper-left)
+      (vimpulse-move-to-column col)
+      (point))))
+
+;; Redefinitions of Viper functions to handle Visual block selection,
+;; that is, the "update all lines when we hit ESC" part.
+;; This function is not in viper-functions-redefinitions.el
+;; because its code is closely related to Visual mode.
+(defun vimpulse-exit-insert-state ()
+  (interactive)
+  (viper-move-marker-locally 'vimpulse-exit-point (point))
+  (viper-change-state-to-vi)
+  (when vimpulse-visual-insert-coords
+    ;; Get the saved info about the Visual selection.
+    (let ((mode   (nth 0 vimpulse-visual-insert-coords))
+          (i-com  (nth 1 vimpulse-visual-insert-coords))
+          (pos    (nth 2 vimpulse-visual-insert-coords))
+          (col    (nth 3 vimpulse-visual-insert-coords))
+          (nlines (nth 4 vimpulse-visual-insert-coords)))
+      (goto-char pos)
+      (save-excursion
+        (dotimes (i (1- nlines))
+          (forward-line 1)
+          (let ((cur-col (vimpulse-move-to-column col)))
+            ;; If we are in Block mode, this line, but do not hit the
+            ;; correct column, we check if we should convert tabs
+            ;; and/or append spaces.
+            (if (and (eq mode 'block)
+                     (or (/= col cur-col) ; wrong column or
+                         (eolp)))         ; end of line
+                (cond ((> cur-col col)    ; we are inside a tab
+                       (move-to-column (1+ col) t) ; convert to spaces
+                       (move-to-column col t) ; this is needed for ?a
+                       (viper-repeat nil))
+                      ((and (>= col cur-col) ; we are behind the end
+                            (eq i-com ?a))   ; and I-COM is ?a
+                       (move-to-column (1+ col) t) ; append spaces
+                       (viper-repeat nil)))
+              (viper-repeat nil)))))
+      (setq vimpulse-visual-insert-coords nil)))
+  ;; Update undo-list.
+  (vimpulse-end-undo-step))
+
+(defalias 'viper-exit-insert-state 'vimpulse-exit-insert-state)
+
+;;; Key bindings
+
+(define-key vimpulse-visual-basic-map "v" 'vimpulse-visual-toggle-char)
+(define-key vimpulse-visual-basic-map "V" 'vimpulse-visual-toggle-line)
+(define-key vimpulse-visual-basic-map "\C-v" 'vimpulse-visual-toggle-block)
+(define-key vimpulse-visual-basic-map "x" 'vimpulse-delete)
+(define-key vimpulse-visual-basic-map "D" 'vimpulse-delete)
+(define-key vimpulse-visual-basic-map "Y" 'vimpulse-yank)
+(define-key vimpulse-visual-basic-map "R" 'vimpulse-change)
+(define-key vimpulse-visual-basic-map "C" 'vimpulse-change)
+(define-key vimpulse-visual-basic-map "s" 'vimpulse-change)
+(define-key vimpulse-visual-basic-map "S" 'vimpulse-change)
+(define-key vimpulse-visual-basic-map "o" 'exchange-point-and-mark)
+(define-key vimpulse-visual-basic-map "O" 'vimpulse-visual-exchange-corners)
+(define-key vimpulse-visual-basic-map "I" 'vimpulse-visual-insert)
+(define-key vimpulse-visual-basic-map "A" 'vimpulse-visual-append)
+(define-key vimpulse-visual-basic-map "U" 'vimpulse-upcase)
+(define-key vimpulse-visual-basic-map "u" 'vimpulse-downcase)
+(define-key vimpulse-visual-basic-map ":" 'vimpulse-visual-ex)
+;; Keys that have no effect in Visual mode.
+(vimpulse-visual-remap 'viper-repeat 'viper-nil)
+
+;;;; This code integrates Viper with the outside world
+
+;;; undo-tree.el
+
+(when (and (boundp 'undo-tree-visualizer-map)
+           (fboundp 'undo-tree-visualizer-quit))
+
+  (defun vimpulse-undo-quit ()
+    "Quit the undo-tree visualizer and delete window."
+    (interactive)
+    (let ((w (selected-window)))
+      (undo-tree-visualizer-quit)
+      (when (eq (selected-window) w)
+        (delete-window))))
+
+  (add-to-list 'viper-vi-state-mode-list 'undo-tree-visualizer-mode)
+
+  (let ((map undo-tree-visualizer-map))
+    (vimpulse-add-core-movement-cmds map)
+    (vimpulse-inhibit-destructive-cmds map)
+    (vimpulse-inhibit-other-movement-cmds map)
+
+    (define-key map [remap viper-backward-char] 'undo-tree-visualize-switch-branch-left)
+    (define-key map [remap viper-forward-char] 'undo-tree-visualize-switch-branch-right)
+    (define-key map [remap viper-next-line] 'undo-tree-visualize-redo)
+    (define-key map [remap viper-previous-line] 'undo-tree-visualize-undo)
+    (define-key map [remap undo-tree-visualizer-scroll-left] 'viper-scroll-up)
+    (define-key map [remap undo-tree-visualizer-scroll-left] 'viper-scroll-up-one)
+    (define-key map [remap undo-tree-visualizer-scroll-right] 'viper-scroll-down)
+    (define-key map [remap undo-tree-visualizer-scroll-right] 'viper-scroll-down-one)
+    (define-key map [remap viper-intercept-ESC-key] 'vimpulse-undo-quit)
+    (define-key map [remap undo-tree-visualizer-quit] 'vimpulse-undo-quit)
+    (define-key map [remap viper-next-line-at-bol] 'vimpulse-undo-quit)
+
+    (viper-modify-major-mode 'undo-tree-visualizer-mode 'vi-state map)
+
+    (add-to-list 'ex-token-alist '("undolist" (undo-tree-visualize)))
+    (add-to-list 'ex-token-alist '("ulist" (undo-tree-visualize)))))
+
+;;; Isearch
+
+(defadvice isearch-message-prefix (around vimpulse-search activate)
+  "Use vi prefix if appropriate."
+  (if vimpulse-search-prompt
+      (setq ad-return-value vimpulse-search-prompt)
+    ad-do-it))
+
+(defadvice isearch-delete-char (around vimpulse-search activate)
+  "Exit search if no search string."
+  (if (and vimpulse-search-prompt
+           (string= isearch-string ""))
+      (isearch-exit)
+    ad-do-it))
+
+(defadvice isearch-update-ring (after vimpulse-search activate)
+  "Update `viper-s-string'."
+  (when (eq viper-re-search regexp)
+    (setq viper-s-string string)))
+
+(defadvice isearch-lazy-highlight-search (around vimpulse-search activate)
+  "Deactivate `viper-search-wrap-around'."
+  (let (viper-search-wrap-around)
+    ad-do-it))
+
+(defadvice viper-search (after vimpulse-search activate)
+  "Update isearch history."
+  (isearch-update-ring string viper-re-search))
+
+;; If `viper-search-wrap-around' is t, we want the search to wrap.
+(defun vimpulse-search-fun-function (&optional regexp forward)
+  "Return a wrapping search function.
+Based on `viper-re-search' and `viper-s-forward'."
+  (let* ((regexp (or regexp viper-re-search))
+         (forward (or forward viper-s-forward))
+         (search-fun (if regexp
+                         (if forward
+                             're-search-forward
+                           're-search-backward)
+                       (if forward
+                           'search-forward
+                         'search-backward))))
+    (eval `(lambda (regexp &optional bound noerror count)
+             (let ((orig (point)) retval)
+               (setq retval (,search-fun regexp bound t count))
+               (when (and (not retval) viper-search-wrap-around)
+                 (goto-char ,@(if forward '((point-min))
+                                '((point-max))))
+                 (setq retval (,search-fun regexp bound t count))
+                 (unless retval
+                   (goto-char orig)))
+               retval)))))
+
+(defun vimpulse-search-backward (arg)
+  "Search backward for user-entered text.
+Searches for regular expression if `viper-re-search' is t."
+  (interactive "P")
+  (let ((vimpulse-search-prompt "?")
+        (lazy-highlight-initial-delay 0)
+        (orig (point))
+        (isearch-mode-map isearch-mode-map)
+        (isearch-search-fun-function 'vimpulse-search-fun-function)
+        (oldmsg (current-message))
+        message-log-max
+        search-nonincremental-instead)
+    (vimpulse-vi-remap 'viper-intercept-ESC-key
+                       'isearch-exit
+                       isearch-mode-map)
+    (setq viper-s-forward nil)
+    (isearch-backward viper-re-search)
+    (when (and (eq orig (point))
+               (not (string= isearch-string "")))
+      (isearch-repeat-backward)
+      (isearch-exit))
+    (message oldmsg)
+    (unless (string= isearch-string "")
+      (vimpulse-flash-search-pattern t))
+    (setq vimpulse-this-motion 'viper-search-next)))
+
+(defun vimpulse-search-forward (arg)
+  "Search forward for user-entered text.
+Searches for regular expression if `viper-re-search' is t."
+  (interactive "P")
+  (let ((vimpulse-search-prompt "/")
+        (orig (point))
+        (isearch-mode-map isearch-mode-map)
+        (isearch-search-fun-function 'vimpulse-search-fun-function)
+        (oldmsg (current-message))
+        message-log-max
+        search-nonincremental-instead)
+    (vimpulse-vi-remap 'viper-intercept-ESC-key
+                       'isearch-exit
+                       isearch-mode-map)
+    (setq viper-s-forward t)
+    (isearch-forward viper-re-search)
+    (and isearch-other-end (goto-char isearch-other-end))
+    (when (and (eq orig (point))
+               (not (string= isearch-string "")))
+      (isearch-repeat-forward)
+      (isearch-exit))
+    (and isearch-other-end (goto-char isearch-other-end))
+    (message oldmsg)
+    (unless (string= isearch-string "")
+      (vimpulse-flash-search-pattern t))
+    (setq vimpulse-this-motion 'viper-search-next)))
+
+(defun vimpulse-flash-search-pattern (&optional only-current)
+  "Flash search matches for duration of `vimpulse-flash-delay'."
+  (let ((lazy-highlight-initial-delay 0)
+        (isearch-search-fun-function 'vimpulse-search-fun-function)
+        (disable (lambda (&optional arg) (vimpulse-flash-hook t))))
+    (when vimpulse-flash-timer
+      (if (fboundp 'disable-timeout)
+          (disable-timeout vimpulse-flash-timer)
+        (cancel-timer vimpulse-flash-timer)))
+    (when (viper-has-face-support-p)
+      (isearch-highlight (match-beginning 0) (match-end 0))
+      (unless only-current
+        (setq isearch-string viper-s-string
+              isearch-forward viper-s-forward
+              isearch-regexp viper-re-search
+              isearch-lazy-highlight-wrapped nil
+              isearch-lazy-highlight-start (point)
+              isearch-lazy-highlight-end (point))
+        (and (fboundp 'isearch-lazy-highlight-new-loop)
+             (isearch-lazy-highlight-new-loop))
+        (unless (and (boundp 'isearch-lazy-highlight-overlays)
+                     isearch-lazy-highlight-overlays)
+          (and (fboundp 'isearch-lazy-highlight-update)
+               (isearch-lazy-highlight-update))))
+      (add-hook 'pre-command-hook 'vimpulse-flash-hook)
+      (setq vimpulse-flash-timer
+            (if (fboundp 'run-at-time)
+                (add-timeout vimpulse-flash-delay disable nil)
+              (run-at-time vimpulse-flash-delay nil disable))))))
+
+(defun vimpulse-flash-hook (&optional force)
+  "Disable hightlighting if `this-command' is not search.
+Disable anyway if FORCE is t."
+  (when (or force
+            ;; To avoid flicker, don't disable highlighting if the
+            ;; next command is also a search command.
+            (not (memq this-command
+                       '(viper-exec-mapped-kbd-macro
+                         viper-search
+                         viper-search-backward
+                         viper-search-forward
+                         viper-search-next
+                         viper-search-Next
+                         vimpulse-search-backward
+                         vimpulse-search-forward
+                         vimpulse-search-backward-for-symbol-at-point
+                         vimpulse-search-forward-for-symbol-at-point))))
+    (isearch-dehighlight)
+    (setq isearch-lazy-highlight-last-string nil)
+    (and (fboundp 'isearch-highlight-all-cleanup)
+         (isearch-highlight-all-cleanup))
+    (and (fboundp 'lazy-highlight-cleanup)
+         (lazy-highlight-cleanup t))
+    (when vimpulse-flash-timer
+      (cancel-timer vimpulse-flash-timer)))
+  (remove-hook 'pre-command-hook 'vimpulse-flash-hook))
+
+(when vimpulse-incremental-search
+  (defalias 'viper-search-backward 'vimpulse-search-backward)
+  (defalias 'viper-search-forward 'vimpulse-search-forward)
+  (defalias 'viper-flash-search-pattern 'vimpulse-flash-search-pattern))
+
+;;; Add vi navigation to help buffers
+
+;; Apropos.
+(eval-after-load 'apropos
+  '(when vimpulse-want-vi-keys-in-apropos
+     (add-to-list 'viper-vi-state-mode-list 'apropos-mode)
+     (let ((map apropos-mode-map))
+       (vimpulse-add-core-movement-cmds map)
+       (vimpulse-inhibit-destructive-cmds map)
+       (viper-modify-major-mode 'apropos-mode 'vi-state map))))
+
+;; Buffer-menu.
+(eval-after-load "buff-menu"
+  '(when vimpulse-want-vi-keys-in-buffmenu
+     (setq viper-emacs-state-mode-list
+           (delq 'Buffer-menu-mode viper-emacs-state-mode-list))
+     (add-to-list 'viper-vi-state-mode-list 'Buffer-menu-mode)
+     (let ((map Buffer-menu-mode-map))
+       (vimpulse-add-core-movement-cmds map)
+       (vimpulse-inhibit-destructive-cmds map)
+       (viper-modify-major-mode 'Buffer-menu-mode 'vi-state map))))
+
+;; Dired.
+(eval-after-load 'dired
+  '(when vimpulse-want-vi-keys-in-dired
+     (setq viper-emacs-state-mode-list
+           (delq 'dired-mode viper-emacs-state-mode-list))
+     (add-to-list 'viper-vi-state-mode-list 'dired-mode)
+     (let ((map dired-mode-map))
+       (vimpulse-add-core-movement-cmds map)
+       (vimpulse-inhibit-destructive-cmds map)
+       (viper-modify-major-mode 'dired-mode 'vi-state map))))
+
+;; Info.
+(eval-after-load 'info
+  '(when vimpulse-want-vi-keys-in-Info
+     (setq viper-emacs-state-mode-list
+           (delq 'Info-mode viper-emacs-state-mode-list))
+     (add-to-list 'viper-vi-state-mode-list 'Info-mode)
+     (let ((map Info-mode-map))
+       (vimpulse-add-core-movement-cmds map)
+       (vimpulse-inhibit-destructive-cmds map)
+       (define-key map "\C-t" 'Info-history-back) ; l
+       (define-key map "\C-o" 'Info-history-back)
+       (define-key map (kbd "\M-h") 'Info-help) ; h
+       (define-key map " " 'Info-scroll-up)
+       (define-key map "\C-]" 'Info-follow-nearest-node)
+       (define-key map [backspace] 'Info-scroll-down)
+       (viper-modify-major-mode 'Info-mode 'vi-state map))))
+
+;; Help.
+(eval-after-load 'help-mode
+  '(when vimpulse-want-vi-keys-in-help
+     (setq viper-emacs-state-mode-list
+           (delq 'help-mode viper-emacs-state-mode-list))
+     (add-to-list 'viper-vi-state-mode-list 'help-mode)
+     (let ((map help-mode-map))
+       (vimpulse-add-core-movement-cmds map)
+       (vimpulse-inhibit-destructive-cmds map)
+       (define-key map "q" 'View-quit)
+       (viper-modify-major-mode 'help-mode 'vi-state map))))
+
+;; Slime.
+(eval-after-load 'slime
+  '(defadvice slime-popup-buffer-mode (after vimpulse activate)
+     (when slime-popup-buffer-mode
+       (viper-add-local-keys
+        'vi-state '(([?q] . slime-popup-buffer-quit-function))))))
+
+;;; ElDoc
+
+(eval-after-load 'eldoc
+  '(apply 'eldoc-add-command
+          (append vimpulse-viper-movement-cmds
+                  vimpulse-core-movement-cmds)))
+
+;;; Folding
+
+(eval-after-load 'hideshow
+  '(progn
+     (defun vimpulse-za ()
+       (interactive)
+       (hs-toggle-hiding)
+       (hs-hide-level vimpulse-fold-level))
+     (defun vimpulse-hs-setup ()
+       (define-key viper-vi-basic-map "za" 'vimpulse-za)
+       (define-key viper-vi-basic-map "zm" 'hs-hide-all)
+       (define-key viper-vi-basic-map "zr" 'hs-show-all)
+       (define-key viper-vi-basic-map "zo" 'hs-show-block)
+       (define-key viper-vi-basic-map "zc" 'hs-hide-block))
+     (add-hook 'hs-minor-mode-hook 'vimpulse-hs-setup)))
+
+(provide 'vimpulse)
+
+;;; vimpulse.el ends here