auctex
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[AUCTeX] Installation of Auctex 11.83

From: Christophe FARGES
Subject: [AUCTeX] Installation of Auctex 11.83
Date: Tue, 25 Jul 2006 16:15:39 +0200
User-agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.7.12) Gecko/20050915 
Hello,
I've got some problems making my new installation of auctex work... I'm really a basic user so I'll explain each step of installation I made. I'm currently using Cygwin with an old auctex version and I want to update it with the new one. 
1) I downloaded: auctex-11.83.zip
2) I unziped
3) I run ./configure
4) make
5) make install
6) I've got no error message
7) I run Xemacs but it seems like if it is still my old auctex installation: for example, I've got no Preview menu
Is there a way to check my auctex version? Why doess the preview menu not appear? 

Thanks in advance for your answer,
Christophe


If it can help, here is my init.el file:

(global-set-key '(button4) 'scroll-down-command)
(global-set-key '(button5) 'scroll-up-command)

(require 'completion)

;;(require 'tex-site)

     (add-to-list 'load-path "~/.xemacs/latex-toolbar")
     ;; Load AucTeX ...
     (require 'tex-site)
     ;;...
     (add-hook 'LaTeX-mode-hook
               (function (lambda()
                  ;; Add some commands to `TeX-command-list'
               (LaTeX-add-environments
                    '("theoreme")
                    '("corollaire")
                    '("definition")
                    '("remarque")
                    '("algo")
                    '("demo")
'("preuve") '("afaire") 
               '("areecrire"))
                   (add-to-list
                    'TeX-command-list
                    '("PDFLaTeX" "pdflatex '\\nonstopmode\\input{%t}'"
                  TeX-run-command nil nil))
                   (add-to-list
                    'TeX-command-list
                    '("Acroread" "acroread %s.pdf"
                  TeX-run-silent t nil))
                   (add-to-list
                    'TeX-command-list
                    '("xpdf" "xpdf %s.pdf" TeX-run-silent t nil))
                   (add-to-list
                    'TeX-command-list
                    '("genererps" "genererps" TeX-run-silent t nil))
             (add-to-list
                    'TeX-command-list
'("genererpspdf" "genererpspdf" TeX-run-silent t nil)) ;;(add-to-list 
                   ;; 'TeX-command-list
                   ;; '("ps2pdf" "ps2pdf %s.pdf" TeX-run-silent t nil))
                   ;;(add-to-list
                   ;; 'TeX-command-list
                   ;; '("gv" "gv %s.ps" TeX-run-silent t nil))
                   ;;(add-to-list
                   ;; 'TeX-command-list
;; '("makeindex" "makeindex %s.tex" TeX-run-silent t nil)) 
                   ;;(add-to-list
                   ;; 'TeX-command-list
                   ;; '("dvips" "dvips %s.dvi" TeX-run-silent t nil))
                   ;; ...
                           ;; LaTeX toolbar
                   (require 'latex-toolbar)
                   (latex-toolbar-install))))

(setq-default TeX-master nil)

(setq Tex-parse-self t);
(setq Tex-auto-save t);

(setq reftex-plug-into-AUCTeX t)
    (add-hook 'LaTeX-mode-hook 'turn-on-reftex)   ; with AUCTeX LaTeX mode
    (add-hook 'latex-mode-hook 'turn-on-reftex)   ; with Emacs latex mode

(setq-default ispell-program-name "aspell")
(setq ispell-dictionary "francais")







(global-set-key "\e\C-l" 'what-line)
(global-set-key "\e\C-g" 'goto-line)
(put 'eval-expression 'disabled nil)

(setq-default c-basic-offset 3)
(setq-default tab-width 8)


;;; Indentation pour le C
;;;
(setq c-indent-level 3)
(setq c-continued-statement-offset 3)
(setq comment-edged t)
(setq comment-multi-line t)
; L'underscore fait partie des mots en C
;(modify-syntax-entry ?_ "w" c-mode-syntax-table)



;;;
;;; Tell emacs where to look for customization files.

(setq load-path (cons (expand-file-name "/home/peaucell/") load-path))

;;   Put the this file as "matlab.el" somewhere on your load path, then
;;   add this to your .emacs or site-init.el file:
  (autoload 'matlab-mode "matlab" "Enter Matlab mode." t)
  (setq auto-mode-alist (cons '("\\.m\\'" . matlab-mode) auto-mode-alist))
  (autoload 'matlab-shell "matlab" "Interactive Matlab mode." t)
;;
;; User Level customizations (You need not use them all):
  (setq matlab-indent-function t)    ; if you want function bodies indented
  (setq matlab-verify-on-save-flag nil) ; turn off auto-verify on save
  (defun my-matlab-mode-hook ()
    (setq fill-column 76))        ; where auto-fill should wrap
  (add-hook 'matlab-mode-hook 'my-matlab-mode-hook)
  (defun my-matlab-shell-mode-hook ()
   '())
  (add-hook 'matlab-shell-mode-hook 'my-matlab-shell-mode-hook)

;;;----------------------------------------------------------------------
;;;----------------------------------------------------------------------;; Options Menu Settings 
;; =====================
(cond
((and (string-match "XEmacs" emacs-version)
      (boundp 'emacs-major-version)
      (>= emacs-major-version 19)
      (>= emacs-minor-version 1))
 (setq-default overwrite-mode nil)
 (setq-default teach-extended-commands-p nil)
 (setq-default bar-cursor 2)
 (setq-default debug-on-error nil)
 (setq-default debug-on-quit nil)
 (setq-default get-frame-for-buffer-default-instance-limit nil)
(setq-default temp-buffer-show-function 'show-temp-buffer-in-current-frame) 
 (setq-default complex-buffers-menu-p nil)
 (setq-default font-menu-ignore-scaled-fonts t)
 (setq-default font-menu-this-frame-only-p t)
 (setq-default buffers-menu-max-size 20)
 (setq-default case-fold-search t)
 (setq-default case-replace t)
 (setq-default zmacs-regions t)
 (setq-default truncate-lines nil)
 (setq-default mouse-yank-at-point nil)
 (set-default-toolbar-position 'top)
 (add-spec-list-to-specifier top-toolbar-height 'nil)
 (add-spec-list-to-specifier bottom-toolbar-height 'nil)
 (add-spec-list-to-specifier left-toolbar-width 'nil)
 (add-spec-list-to-specifier right-toolbar-width 'nil)
 (add-spec-list-to-specifier scrollbar-width 'nil)
 (add-spec-list-to-specifier scrollbar-height 'nil)
(add-spec-list-to-specifier modeline-shadow-thickness '((global (nil . 2)))) 
 (require 'paren)
 (paren-set-mode 'sexp)
 (require 'pending-del)
 (setq-default font-lock-auto-fontify t)
 (setq-default font-lock-use-fonts nil)
 (setq-default font-lock-use-colors t)
 (setq-default font-lock-use-maximal-decoration t)
 (setq-default font-lock-mode-enable-list nil)
 (setq-default font-lock-mode-disable-list nil)
 (require 'font-lock)
 (require 'fast-lock)
 (remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)
 (make-face 'isearch)
(add-spec-list-to-specifier (face-property 'isearch 'foreground) '((global (nil . "purple"))))
(add-spec-list-to-specifier (face-property 'isearch 'background) '((global (nil . "LightBlue2"))))
(add-spec-list-to-specifier (face-property 'isearch 'reverse) '((global ((tty) . t)))) 
 (make-face 'font-lock-doc-string-face)
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face 'foreground) '((global (nil . "green4")))) 
 (make-face 'font-lock-preprocessor-face)
(add-spec-list-to-specifier (face-property 'font-lock-preprocessor-face 'foreground) '((global (nil . "CadetBlue")))) 
 (make-face 'font-lock-comment-face)
(add-spec-list-to-specifier (face-property 'font-lock-comment-face 'foreground) '((global (nil . "VioletRed3")))) (add-spec-list-to-specifier (face-property 'font-lock-comment-face 'font) '((global (nil . "-lucida sans-medium-i-normal-sans-*-120-72-72-p-0-iso8859-1")))) 
 (make-face 'stop-face)
(add-spec-list-to-specifier (face-property 'stop-face 'foreground) '((global (nil . "red")))) (add-spec-list-to-specifier (face-property 'stop-face 'background) '((global (nil . "light yellow")))) 
 (make-face 'underline)
(add-spec-list-to-specifier (face-property 'underline 'underline) '((global (nil . t)))) 
 (make-face 'paren-mismatch)
(add-spec-list-to-specifier (face-property 'paren-mismatch 'foreground) '((global ((grayscale x) . [modeline foreground]) ((mono x) . [modeline foreground])))) (add-spec-list-to-specifier (face-property 'paren-mismatch 'background) '((global ((grayscale x) . [modeline background]) ((mono x) . [modeline background]) ((color x) . "DeepPink")))) (add-spec-list-to-specifier (face-property 'paren-mismatch 'reverse) '((global ((tty) . t)))) 
 (make-face 'highlight)
(add-spec-list-to-specifier (face-property 'highlight 'foreground) '((global (nil . "yellow")))) (add-spec-list-to-specifier (face-property 'highlight 'background) '((global (nil . "red")))) (add-spec-list-to-specifier (face-property 'highlight 'background-pixmap) '((global ((color x) . [nothing]) ((color tty) . [nothing]) ((color stream) . [nothing]) ((grayscale x) . [nothing]) ((grayscale tty) . [nothing]) ((grayscale stream) . [nothing]) ((mono x) . [string :data "gray1"]) ((mono tty) . [string :data "gray1"])))) (add-spec-list-to-specifier (face-property 'highlight 'underline) '((global (nil)))) (add-spec-list-to-specifier (face-property 'highlight 'highlight) '((global ((tty) . t)))) 
 (make-face 'paren-match)
(add-spec-list-to-specifier (face-property 'paren-match 'foreground) '((global (nil . "CadetBlue4")))) (add-spec-list-to-specifier (face-property 'paren-match 'background) '((global (nil . "DarkSeaGreen2")))) (add-spec-list-to-specifier (face-property 'paren-match 'font) '((global (nil . "-*-Lucida Sans Typewriter-Bold-R-*-*-*-120-72-72-*-*-iso8859-1")))) (add-spec-list-to-specifier (face-property 'paren-match 'background-pixmap) '((global ((color x) . [nothing]) ((color tty) . [nothing]) ((color stream) . [nothing]) ((grayscale x) . [nothing]) ((grayscale tty) . [nothing]) ((grayscale stream) . [nothing]) ((mono x) . [string :data "gray1"]) ((mono tty) . [string :data "gray1"])))) (add-spec-list-to-specifier (face-property 'paren-match 'underline) '((global (nil) ((tty) . t)))) (add-spec-list-to-specifier (face-property 'paren-match 'highlight) '((global ((tty) . t)))) 
 (make-face 'left-margin)
 (make-face 'primary-selection)
(add-spec-list-to-specifier (face-property 'primary-selection 'foreground) '((global (nil . "red")))) (add-spec-list-to-specifier (face-property 'primary-selection 'background) '((global (nil . "black")))) (add-spec-list-to-specifier (face-property 'primary-selection 'background-pixmap) '((global ((mono x) . [string :data "gray3"]) ((mono tty) . [string :data "gray3"])))) 
 (make-face 'solid-arrow-face)
(add-spec-list-to-specifier (face-property 'solid-arrow-face 'foreground) '((global (nil . "purple")))) (add-spec-list-to-specifier (face-property 'solid-arrow-face 'background) '((global (nil . "light yellow")))) 
 (make-face 'bold)
(add-spec-list-to-specifier (face-property 'bold 'foreground) '((global (nil . "magenta")))) (add-spec-list-to-specifier (face-property 'bold 'font) '((global (nil . "lucidasans-typewriterbold-12")))) (add-spec-list-to-specifier (face-property 'bold 'underline) '((global (nil)))) (add-spec-list-to-specifier (face-property 'bold 'highlight) '((global ((tty) . t)))) 
 (make-face 'font-lock-string-face)
(add-spec-list-to-specifier (face-property 'font-lock-string-face 'foreground) '((global (nil . "Chartreuse4")))) 
 (make-face 'bold-italic)
(add-spec-list-to-specifier (face-property 'bold-italic 'foreground) '((global (nil . "red")))) (add-spec-list-to-specifier (face-property 'bold-italic 'font) '((global (nil . "lucidasans-bolditalic-12")))) (add-spec-list-to-specifier (face-property 'bold-italic 'underline) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'bold-italic 'highlight) '((global ((tty) . t)))) 
 (make-face 'zmacs-region)
(add-spec-list-to-specifier (face-property 'zmacs-region 'background) '((global ((grayscale) . "gray3") ((color) . "gray")))) (add-spec-list-to-specifier (face-property 'zmacs-region 'background-pixmap) '((global ((mono x) . [string :data "gray3"]) ((mono tty) . [string :data "gray3"]) ((grayscale x) . [nothing]) ((grayscale tty) . [nothing]) ((grayscale stream) . [nothing]) ((color x) . [nothing]) ((color tty) . [nothing]) ((color stream) . [nothing])))) (add-spec-list-to-specifier (face-property 'zmacs-region 'reverse) '((global ((tty) . t)))) 
 (make-face 'hollow-arrow-face)
(add-spec-list-to-specifier (face-property 'hollow-arrow-face 'foreground) '((global (nil . "purple")))) (add-spec-list-to-specifier (face-property 'hollow-arrow-face 'background) '((global (nil . "light yellow")))) 
 (make-face 'default)
(add-spec-list-to-specifier (face-property 'default 'foreground) '((global (nil . "black")))) (add-spec-list-to-specifier (face-property 'default 'background) '((global (nil . "ivory")))) (add-spec-list-to-specifier (face-property 'default 'font) '((global (nil . "-*-Lucida Sans Typewriter-Bold-R-*-*-*-120-72-72-*-*-iso8859-1")))) 
 (make-face 'right-margin)
 (make-face 'secondary-selection)
(add-spec-list-to-specifier (face-property 'secondary-selection 'background) '((global ((grayscale) . "gray1") ((color) . "paleturquoise") ((color) . "green")))) (add-spec-list-to-specifier (face-property 'secondary-selection 'background-pixmap) '((global ((mono x) . [string :data "gray1"]) ((mono tty) . [string :data "gray1"])))) 
 (make-face 'font-lock-keyword-face)
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face 'foreground) '((global (nil . "DodgerBlue2")))) (add-spec-list-to-specifier (face-property 'font-lock-keyword-face 'font) '((global (nil . "lucidasans-typewriterbold-12")))) 
 (make-face 'paren-blink-off)
(add-spec-list-to-specifier (face-property 'paren-blink-off 'foreground) '((global (nil . "light yellow")))) (add-spec-list-to-specifier (face-property 'paren-blink-off 'background) '((global (nil . "DarkBlue")))) 
 (make-face 'modeline)
(add-spec-list-to-specifier (face-property 'modeline 'foreground) '((global (nil . "Black")))) (add-spec-list-to-specifier (face-property 'modeline 'background) '((global (nil . "Gray75")))) (add-spec-list-to-specifier (face-property 'modeline 'font) '((global (nil . "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*")))) (add-spec-list-to-specifier (face-property 'modeline 'background-pixmap) '((global ((x) . [nothing]) ((tty) . [nothing]) ((stream) . [nothing])))) (add-spec-list-to-specifier (face-property 'modeline 'reverse) '((global ((tty) . t)))) 
 (make-face 'font-lock-type-face)
(add-spec-list-to-specifier (face-property 'font-lock-type-face 'foreground) '((global (nil . "BlueViolet")))) 
 (make-face 'font-lock-function-name-face)
(add-spec-list-to-specifier (face-property 'font-lock-function-name-face 'foreground) '((global (nil . "red3")))) 
 (make-face 'italic)
;;(add-spec-list-to-specifier (face-property 'italic 'foreground) '((global (nil . "white")))) (add-spec-list-to-specifier (face-property 'italic 'font) '((global (nil . "lucidasans-italic-12")))) (add-spec-list-to-specifier (face-property 'italic 'underline) '((global ((tty) . t)))) 
 (make-face 'sbrowse-arrow-face)
(add-spec-list-to-specifier (face-property 'sbrowse-arrow-face 'foreground) '((global (nil . "blue")))) (add-spec-list-to-specifier (face-property 'sbrowse-arrow-face 'background) '((global (nil . "light yellow")))) 
 ))
(cond
((and (string-match "XEmacs" emacs-version)
      (boundp 'emacs-major-version)
      (>= emacs-major-version 19)
      (>= emacs-minor-version 12))
 (setq-default overwrite-mode nil)
 (setq-default teach-extended-commands-p nil)
 (setq-default bar-cursor 2)
 (setq-default debug-on-error nil)
 (setq-default debug-on-quit nil)
 (setq-default get-frame-for-buffer-default-instance-limit nil)
(setq-default temp-buffer-show-function 'show-temp-buffer-in-current-frame) 
 (setq-default complex-buffers-menu-p nil)
 (setq-default font-menu-ignore-scaled-fonts t)
 (setq-default font-menu-this-frame-only-p t)
 (setq-default buffers-menu-max-size 20)
 (setq-default case-fold-search t)
 (setq-default case-replace t)
 (setq-default zmacs-regions t)
 (setq-default truncate-lines nil)
 (setq-default mouse-yank-at-point nil)
 (set-default-toolbar-position 'top)
 (add-spec-list-to-specifier top-toolbar-height 'nil)
 (add-spec-list-to-specifier bottom-toolbar-height 'nil)
 (add-spec-list-to-specifier left-toolbar-width 'nil)
 (add-spec-list-to-specifier right-toolbar-width 'nil)
 (add-spec-list-to-specifier scrollbar-width 'nil)
 (add-spec-list-to-specifier scrollbar-height 'nil)
(add-spec-list-to-specifier modeline-shadow-thickness '((global (nil . 2)))) 
 (require 'paren)
 (paren-set-mode 'sexp)
 (require 'pending-del)
 (setq-default font-lock-auto-fontify t)
 (setq-default font-lock-use-fonts nil)
 (setq-default font-lock-use-colors t)
 (setq-default font-lock-use-maximal-decoration t)
 (setq-default font-lock-mode-enable-list nil)
 (setq-default font-lock-mode-disable-list nil)
 (require 'font-lock)
 (require 'fast-lock)
 (remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)
 (make-face 'isearch)
(add-spec-list-to-specifier (face-property 'isearch 'foreground) '((global (nil . "purple"))))
(add-spec-list-to-specifier (face-property 'isearch 'background) '((global (nil . "LightBlue2") ((color) . "paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'isearch 'reverse) '((global ((tty) . t)))) 
 (make-face 'modeline)
(add-spec-list-to-specifier (face-property 'modeline 'foreground) '((global (nil . "Black")))) (add-spec-list-to-specifier (face-property 'modeline 'background) '((global (nil . "Gray75")))) (add-spec-list-to-specifier (face-property 'modeline 'font) '((global (nil . "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*")))) (add-spec-list-to-specifier (face-property 'modeline 'background-pixmap) '((global ((x) . [nothing]) ((tty) . [nothing]) ((stream) . [nothing])))) (add-spec-list-to-specifier (face-property 'modeline 'reverse) '((global ((tty) . t)))) 
 (make-face 'underline)
(add-spec-list-to-specifier (face-property 'underline 'foreground) '((global (nil . "blue")))) (add-spec-list-to-specifier (face-property 'underline 'underline) '((global (nil . t)))) 
 (make-face 'sbrowse-arrow-face)
(add-spec-list-to-specifier (face-property 'sbrowse-arrow-face 'foreground) '((global (nil . "blue")))) (add-spec-list-to-specifier (face-property 'sbrowse-arrow-face 'background) '((global (nil . "light yellow")))) 
 (make-face 'secondary-selection)
(add-spec-list-to-specifier (face-property 'secondary-selection 'background) '((global ((grayscale) . "gray1") ((color) . "paleturquoise") ((color) . "green")))) (add-spec-list-to-specifier (face-property 'secondary-selection 'background-pixmap) '((global ((mono x) . [string :data "gray1"]) ((mono tty) . [string :data "gray1"])))) 
 (make-face 'stop-face)
(add-spec-list-to-specifier (face-property 'stop-face 'foreground) '((global (nil . "red")))) (add-spec-list-to-specifier (face-property 'stop-face 'background) '((global (nil . "light yellow")))) 
 (make-face 'font-lock-preprocessor-face)
(add-spec-list-to-specifier (face-property 'font-lock-preprocessor-face 'foreground) '((global (nil . "CadetBlue")))) 
 (make-face 'paren-match)
(add-spec-list-to-specifier (face-property 'paren-match 'foreground) '((global (nil . "CadetBlue4")))) (add-spec-list-to-specifier (face-property 'paren-match 'background) '((global (nil . "DarkSeaGreen2") ((color) . "darkseagreen2") ((color) . "green") ((grayscale) . "gray1")))) (add-spec-list-to-specifier (face-property 'paren-match 'font) '((global (nil . "-*-Lucida Sans Typewriter-Bold-R-*-*-*-120-72-72-*-*-iso8859-1")))) (add-spec-list-to-specifier (face-property 'paren-match 'background-pixmap) '((global ((color x) . [nothing]) ((color tty) . [nothing]) ((color stream) . [nothing]) ((grayscale x) . [nothing]) ((grayscale tty) . [nothing]) ((grayscale stream) . [nothing]) ((mono x) . [string :data "gray1"]) ((mono tty) . [string :data "gray1"])))) (add-spec-list-to-specifier (face-property 'paren-match 'underline) '((global (nil) ((tty) . t)))) (add-spec-list-to-specifier (face-property 'paren-match 'highlight) '((global ((tty) . t)))) 
 (make-face 'highlight)
(add-spec-list-to-specifier (face-property 'highlight 'foreground) '((global (nil . "yellow")))) (add-spec-list-to-specifier (face-property 'highlight 'background) '((global (nil . "red") ((color) . "darkseagreen2") ((color) . "green") ((grayscale) . "gray1")))) (add-spec-list-to-specifier (face-property 'highlight 'background-pixmap) '((global ((color x) . [nothing]) ((color tty) . [nothing]) ((color stream) . [nothing]) ((grayscale x) . [nothing]) ((grayscale tty) . [nothing]) ((grayscale stream) . [nothing]) ((mono x) . [string :data "gray1"]) ((mono tty) . [string :data "gray1"])))) (add-spec-list-to-specifier (face-property 'highlight 'underline) '((global (nil)))) (add-spec-list-to-specifier (face-property 'highlight 'highlight) '((global ((tty) . t)))) 
 (make-face 'paren-blink-off)
(add-spec-list-to-specifier (face-property 'paren-blink-off 'foreground) '((global (nil . "light yellow")))) (add-spec-list-to-specifier (face-property 'paren-blink-off 'background) '((global (nil . "DarkBlue")))) 
 (make-face 'left-margin)
(add-spec-list-to-specifier (face-property 'left-margin 'foreground) '((global (nil . "BlueViolet")))) 
 (make-face 'primary-selection)
(add-spec-list-to-specifier (face-property 'primary-selection 'foreground) '((global (nil . "red")))) (add-spec-list-to-specifier (face-property 'primary-selection 'background) '((global (nil . "black") ((grayscale) . "gray3") ((color) . "gray")))) (add-spec-list-to-specifier (face-property 'primary-selection 'background-pixmap) '((global ((mono x) . [string :data "gray3"]) ((mono tty) . [string :data "gray3"])))) 
 (make-face 'solid-arrow-face)
(add-spec-list-to-specifier (face-property 'solid-arrow-face 'foreground) '((global (nil . "purple")))) (add-spec-list-to-specifier (face-property 'solid-arrow-face 'background) '((global (nil . "light yellow")))) 
 (make-face 'font-lock-doc-string-face)
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face 'foreground) '((global (nil . "green4")))) 
 (make-face 'font-lock-comment-face)
(add-spec-list-to-specifier (face-property 'font-lock-comment-face 'foreground) '((global (nil . "VioletRed3")))) (add-spec-list-to-specifier (face-property 'font-lock-comment-face 'font) '((global (nil . "-lucida sans-medium-i-normal-sans-*-120-72-72-p-0-iso8859-1")))) 
 (make-face 'font-lock-string-face)
(add-spec-list-to-specifier (face-property 'font-lock-string-face 'foreground) '((global (nil . "Chartreuse4")))) 
 (make-face 'bold-italic)
(add-spec-list-to-specifier (face-property 'bold-italic 'foreground) '((global (nil . "red")))) (add-spec-list-to-specifier (face-property 'bold-italic 'font) '((global (nil . "lucidasans-bolditalic-12")))) (add-spec-list-to-specifier (face-property 'bold-italic 'underline) '((global ((tty) . t)))) (add-spec-list-to-specifier (face-property 'bold-italic 'highlight) '((global ((tty) . t)))) 
 (make-face 'zmacs-region)
(add-spec-list-to-specifier (face-property 'zmacs-region 'background) '((global ((grayscale) . "gray3") ((color) . "gray")))) (add-spec-list-to-specifier (face-property 'zmacs-region 'background-pixmap) '((global ((mono x) . [string :data "gray3"]) ((mono tty) . [string :data "gray3"]) ((grayscale x) . [nothing]) ((grayscale tty) . [nothing]) ((grayscale stream) . [nothing]) ((color x) . [nothing]) ((color tty) . [nothing]) ((color stream) . [nothing])))) (add-spec-list-to-specifier (face-property 'zmacs-region 'reverse) '((global ((tty) . t)))) 
 (make-face 'hollow-arrow-face)
(add-spec-list-to-specifier (face-property 'hollow-arrow-face 'foreground) '((global (nil . "purple")))) (add-spec-list-to-specifier (face-property 'hollow-arrow-face 'background) '((global (nil . "light yellow")))) 
 (make-face 'default)
(add-spec-list-to-specifier (face-property 'default 'foreground) '((global (nil . "black")))) (add-spec-list-to-specifier (face-property 'default 'background) '((global (nil . "light yellow")))) (add-spec-list-to-specifier (face-property 'default 'font) '((global (nil . "-*-Lucida Sans Typewriter-Bold-R-*-*-*-120-72-72-*-*-iso8859-1")))) 
 (make-face 'right-margin)
(add-spec-list-to-specifier (face-property 'right-margin 'foreground) '((global (nil . "green")))) 
 (make-face 'font-lock-function-name-face)
(add-spec-list-to-specifier (face-property 'font-lock-function-name-face 'foreground) '((global (nil . "red3")))) 
 (make-face 'font-lock-type-face)
(add-spec-list-to-specifier (face-property 'font-lock-type-face 'foreground) '((global (nil . "BlueViolet")))) 
 (make-face 'bold)
(add-spec-list-to-specifier (face-property 'bold 'foreground) '((global (nil . "magenta")))) (add-spec-list-to-specifier (face-property 'bold 'font) '((global (nil . "lucidasans-typewriterbold-12")))) (add-spec-list-to-specifier (face-property 'bold 'underline) '((global (nil)))) (add-spec-list-to-specifier (face-property 'bold 'highlight) '((global ((tty) . t)))) 
 (make-face 'paren-mismatch)
(add-spec-list-to-specifier (face-property 'paren-mismatch 'foreground) '((global ((grayscale x) . [modeline foreground]) ((mono x) . [modeline foreground])))) (add-spec-list-to-specifier (face-property 'paren-mismatch 'background) '((global ((grayscale x) . [modeline background]) ((mono x) . [modeline background]) ((color x) . "DeepPink")))) (add-spec-list-to-specifier (face-property 'paren-mismatch 'reverse) '((global ((tty) . t)))) 
 (make-face 'italic)
(add-spec-list-to-specifier (face-property 'italic 'foreground) '((global (nil . "white")))) (add-spec-list-to-specifier (face-property 'italic 'font) '((global (nil . "lucidasans-italic-12")))) (add-spec-list-to-specifier (face-property 'italic 'underline) '((global ((tty) . t)))) 
 (make-face 'font-lock-keyword-face)
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face 'foreground) '((global (nil . "DodgerBlue2")))) (add-spec-list-to-specifier (face-property 'font-lock-keyword-face 'font) '((global (nil . "lucidasans-typewriterbold-12")))) 
 ))
;; ============================
;; End of Options Menu Settings

(setq minibuffer-max-depth nil)

(require 'x-compose)
(require 'iso-syntax)
(standard-display-european t)

(setq auto-mode-alist (cons '("\\.cxx\\'". c++-mode) auto-mode-alist))

;; Options Menu Settings
;; =====================
(cond
((and (string-match "XEmacs" emacs-version)
      (boundp 'emacs-major-version)
      (or (and
           (= emacs-major-version 19)
           (>= emacs-minor-version 14))
          (= emacs-major-version 20))
      (fboundp 'load-options-file))
 (load-options-file "/home/cfarges/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
reply via email to
[Prev in Thread] Current Thread [Next in Thread]