Marc Brooks a �crit :
> Here's the relevant snippets that I use in my .emacs file for setting
> color and such. It's work without a problem on Windows 2000. Let me
> know if you have problems. I'm not an expert, but I'll try. <grin>
>
> Later,
> Marc
Thank you for your help. The problem I find is the defconst command
doesn't work in some cases. It is syntaxically accepted but values are not
taken into account. Perhaps could you see my _emacs file in attachment?
Just one another question: what may cursor forms take? Here, you set
"box". What are other values? (precisely, can be it found in emacs
variable?)
Later,
Fenintsoa
--
-----(�_�)------
ANDRIAMASINORO Fenintsoa
Multi-agent Researcher
IREMIA University of La R�union
FRANCE
T�l: 02 62 89 51 65 (portable) / 02 62 93 83 24 (office)
E-Mail: [EMAIL PROTECTED]
----------------------------
;;;===================================================
;;; Set the default font and frame size for all frames
;;;===================================================
(defconst my_background_color "white")
(defconst my_foreground_color "black")
(defconst my_cursor_color "red")
;;; initial window position settings
;;; with the top left corner as 0 0
;;; and the bottom right as -1 -1
(defconst my_initial_top 100)
(defconst my_initial_left 100)
(defconst my_initial_width 125)
;(defconst my_initial_height 58)
(setq initial-frame-alist '
((top . my_initial_top)
(left . 100)
(width . 125)
(menu-bar-lines . 1)
(cursor-type . box)
(cursor-color . "Yellow")
(foreground-color . "white")
(background-color . "black")
)
)
(setq w32-use-w32-font-dialog nil)
;; no emacs start-up message
(setq inhibit-startup-message t)
(put 'eval-expression 'disabled nil)
(setq text-mode-hook '(lambda() (auto-fill-mode 1)))
;; Redefine some keys.
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
;; Desactivation 3eme boutton
(global-unset-key [mouse-2])
;; Coloration
(cond ((fboundp 'global-font-lock-mode)
;; Turn on font-lock in all modes that support it
(global-font-lock-mode t)
;; Maximum colors
(setq font-lock-maximum-decoration t)))
(load "cua-mode")
(CUA-mode t)
(global-unset-key [mouse-2])
;; -------------------- JDE --------------------
(setq load-path
(nconc
'("C:/EMACS/Jde/jde-2.2.2/lisp")
'("C:/EMACS/Jde/semantic-1.2.1")
'("C:/EMACS/Jde/speedbar-0.12")
load-path))
;; Tell Emacs to load the entire JDE package at startup (only once).
(require 'jde)
(load "paren")
(show-paren-mode t)
(setq paren-face 'bold)
(setq paren-sexp-mode t)
(setq paren-delay 5)
;;+++++ KEYS
(global-set-key [f2] 'save-buffer)
(global-set-key [C-f2] 'jde-save-project)
(global-set-key [f3] 'goto-line)
(global-set-key [f4] 'speedbar)
(global-set-key [M-f4] 'kill-emacs)
(global-set-key [f5] 'jde-complete-at-point)
(global-set-key [f6] 'kill-this-buffer)
(global-set-key [f7] 'indent-region)
;compilation & execution
(global-set-key [f9] 'jde-make)
(global-set-key [C-f9] 'jde-run)
(global-set-key [M-f9] 'jde-compile)
;; Sets the basic indentation for Java source files
;; to two spaces.
(defun my-jde-mode-hook ()
(setq c-basic-offset 2))
(add-hook 'jde-mode-hook 'my-jde-mode-hook)
(custom-set-variables
'(debug-on-error t)
'(jde-compile-option-directory "E:/MesDocuments/javaProject/mouseSimul/classes")
'(jde-compiler "jikes")
'(jde-make-program "make")
'(jde-global-classpath (quote ("." "E:/Langages/jdk1.3/jre/LIB/rt.jar")))
'(jde-enable-abbrev-mode t)
'(jde-mode-abbreviations (quote (("ab" . "abstract") ("bo" . "boolean") ("br" .
"break") ("by" . "byte") ("byv" . "byvalue") ("cas" . "cast") ("ca" . "catch") ("ch" .
"char") ("cl" . "class") ("co" . "const") ("con" . "continue") ("de" . "default")
("dou" . "double") ("el" . "else") ("ex" . "extends") ("fa" . "false") ("fi" .
"final") ("fin" . "finally") ("fl" . "float") ("fo" . "for") ("fu" . "future") ("ge" .
"generic") ("go" . "goto") ("impl" . "implements") ("impo" . "import") ("ins" .
"instanceof") ("in" . "int") ("inte" . "interface") ("lo" . "long") ("na" . "native")
("ne" . "new") ("nu" . "null") ("pa" . "package") ("pri" . "private") ("pro" .
"protected") ("pu" . "public") ("re" . "return") ("sh" . "short") ("st" . "static")
("str" . "String") ("su" . "super") ("sw" . "switch") ("sy" . "synchronized") ("th" .
"this") ("thr" . "throw") ("throw" . "throws") ("tra" . "transient") ("tr" . "true")
("vo" . "void") ("vol" . "volatile") ("wh" . "while"))))
)
(custom-set-faces)
