;;; XEmacs backwards compatibility file
(setq my-user-init-file
      (expand-file-name "init.common.el"
			(expand-file-name ".emacs.d" "~")))
(load-file my-user-init-file)
;;(message "{***(my-custom-file load)")
(setq my-custom-file
      (expand-file-name "custom.el"
			(expand-file-name ".xemacs" "~")))
;;(load-file my-custom-file)
;;(message "}***(my-custom-file load)")

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(agda2-include-dirs (quote ("." "/usr/lib/agda-stdlib/")))
 '(c-cleanup-list nil)
 '(c-echo-syntactic-information-p t)
 '(c-hanging-braces-alist (quote ((brace-list-open) (brace-entry-open) (statement-cont) (substatement-open after) (block-close . c-snug-do-while) (extern-lang-open after) (namespace-open after) (module-open after) (composition-open after) (inexpr-class-open after) (inexpr-class-close before))))
 '(c-offsets-alist (quote ((arglist-close . 0))))
 '(c-report-syntactic-errors t)
 '(c-syntactic-indentation t)
 '(case-fold-search t)
 '(column-number-mode t)
 '(current-language-environment "Latin-1")
 '(default-input-method "latin-1-prefix")
 '(desktop-load-locked-desktop nil)
 '(desktop-save t)
 '(desktop-save-mode t)
 '(ecb-cedet-url "http://cedet.sourceforge.net/")
 '(haskell-doc-show-global-types t)
 '(haskell-program-name (or (cond ((not (fboundp (quote executable-find))) nil) ((executable-find "ghci") "ghci") ((executable-find "hugs") "hugs \"+.\"")) "ghci"))
 '(line-number-mode t)
 '(mail-archive-file-name "/home/evansl/Mail/emacs-sent-mail")
 '(mail-host-address "pop.suddenlink.net")
 '(recent-files-add-menu-before "nil")
 '(recent-files-include-save-now t)
 '(recent-files-menu-path nil)
 '(require-final-newline t)
 '(safe-local-variable-values (quote ((folded-file . t) (fold-internal-margins . 0) (Fill-column . 100))))
 '(save-place t nil (saveplace))
 '(shell-input-autoexpand (quote input))
 '(smtpmail-default-smtp-server "smtp.suddenlink.net")
 '(speedbar-frame-parameters (quote ((minibuffer) (width . 20) (border-width . 0) (menu-bar-lines . 0) (tool-bar-lines . 0) (unsplittable . t) (set-background-color "black"))))
 '(standard-indent 8)
 '(tab-width 8)
 '(tags-table-list (quote ("TAGS")))
 '(transient-mark-mode t)
 '(user-mail-address "cppljevans@suddenlink.net")
 '(version-control (quote never)))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(background "blue")
 '(font-lock-builtin-face ((((class color) (background dark)) (:foreground "Turquoise"))))
 '(font-lock-comment-face ((t (:foreground "MediumAquamarine"))))
 '(font-lock-constant-face ((((class color) (background dark)) (:bold t :foreground "DarkOrchid"))))
 '(font-lock-doc-string-face ((t (:foreground "green2"))))
 '(font-lock-function-name-face ((t (:foreground "SkyBlue"))))
 '(font-lock-keyword-face ((t (:bold t :foreground "CornflowerBlue"))))
 '(font-lock-preprocessor-face ((t (:italic nil :foreground "CornFlowerBlue"))))
 '(font-lock-reference-face ((t (:foreground "DodgerBlue"))))
 '(font-lock-string-face ((t (:foreground "LimeGreen"))))
 '(font-lock-type-face ((t (:foreground "#9290ff"))))
 '(font-lock-variable-name-face ((t nil)))
 '(font-lock-warning-face ((((class color) (background dark)) (:foreground "yellow" :background "red"))))
 '(highlight ((t (:background "CornflowerBlue"))))
 '(list-mode-item-selected ((t (:background "gold"))))
 '(makefile-space-face ((t (:background "wheat"))) t)
 '(mode-line ((t (:background "gray"))))
 '(mode-line-inactive ((default nil) (((class color) (min-colors 88) (background light)) (:background "grey90" :foreground "grey20" :box (:line-width -1 :color "grey40") :weight light))))
 '(paren-match ((t (:background "darkseagreen4"))))
 '(region ((t (:background "DarkSlateBlue"))))
 '(show-paren-match ((t (:foreground "black" :background "wheat"))))
 '(show-paren-mismatch ((((class color)) (:foreground "white" :background "red"))))
 '(speedbar-button-face ((((class color) (background dark)) (:foreground "green4"))))
 '(speedbar-directory-face ((((class color) (background dark)) (:foreground "khaki"))))
 '(speedbar-file-face ((((class color) (background dark)) (:foreground "cyan"))))
 '(speedbar-tag-face ((((class color) (background dark)) (:foreground "Springgreen"))))
 '(vhdl-speedbar-architecture-selected-face ((((class color) (background dark)) (:underline t :foreground "Blue"))))
 '(vhdl-speedbar-entity-face ((((class color) (background dark)) (:foreground "darkGreen"))))
 '(vhdl-speedbar-entity-selected-face ((((class color) (background dark)) (:underline t :foreground "darkGreen"))))
 '(vhdl-speedbar-package-face ((((class color) (background dark)) (:foreground "black"))))
 '(vhdl-speedbar-package-selected-face ((((class color) (background dark)) (:underline t :foreground "black"))))
 '(widget-field ((((class grayscale color) (background light)) (:background "DarkBlue")))))