jdeeのインストール

必要なパッケージ

cedet-1.0beta3
elib-1.0
jde-2.3.5.1

(setq load-path (cons "/usr/local/bin/Meadow/site-lisp/elib-1.0" load-path))
(setq load-path (cons "/usr/local/bin/Meadow/site-lisp/cedet-1.0beta3b" load-path))
(setq load-path (cons "/usr/local/bin/Meadow/site-lisp/cedet-1.0beta3b/eieio" load-path))
(setq load-path (cons "/usr/local/bin/Meadow/site-lisp/cedet-1.0beta3b/semantic" load-path))
(setq load-path (cons "/usr/local/bin/Meadow/site-lisp/cedet-1.0beta3b/speedbar" load-path))
(setq load-path (cons "/usr/local/bin/Meadow/site-lisp/jde-2.3.5.1/lisp" load-path))

(autoload 'jde-mode "jde" "Java Development Environment for Emacs." t)
(setq auto-mode-alist (cons '("\.java$" . jde-mode) auto-mode-alist))
(setq semantic-load-turn-useful-things-on t)
(load "cedet")

export ANT_HOME=/c:/apache-ant-1.6.2
export JAVA_HOME=c:/j2sdk1.4.2_10

http://www.02.246.ne.jp/~torutk/jdee/jdee.html
http://www1.u-netsurf.ne.jp/~ysk-net/WithEmacs/JDEE/index.html

http://www.bookshelf.jp/2ch/tech/1017214967.html

引用

事故解決
というか，俺のミス．

JDEEがCEDIT1.0beta2から1.0までの間しかサポートしてないのに，CEDIT1.0pre3を入れていたからだ．
jde-2.3.5/lisp/jde.el 内の
　　(defconst jde-cedet-max-version "1.0"
って行を
　　(defconst jde-cedet-max-version "1.0pre4"
にしたら色付いた．

http://www.02.246.ne.jp/~torutk/jdee/jdee.html#doc1_id339

引用

Emacs 20.x(Meadow1.15等)にSemantic 1.4

Meadow1.15(Emacs 20.7)にSemanticパッケージを入れた時に以下の問題が発生しました。

1.

Meadow起動時にInvalid face property.underlineが発生

semantic 1.4に含まれるsemantic-util-modes.elの中にある以下の記述が原因となっています。

(:underline "red")

これを以下のように修正します(二箇所あり)。

(:background "red" :underline t)

パッチファイルをここに置いています。

Emacs 20.xでは、"red"がnilのように扱われるそうですが、Meadow 1.1xの場合は厳密に評価されてエラーとなってしまうそうです。nilのように扱われる場合、色もアンダーラインも付かないかもしれません。

キーバインドの設定と取り消し

(global-set-key "\M-g" 'goto-line)
(global-unset-key "\M-g")

人狼ブラウザ for emacs的な物

http://www.geocities.jp/emacsjjjj/jinnavi/

動的補完で大文字小文字を区別する。

;; http://unknownplace.org/memo/tag/emacs
(setq dabbrev-case-fold-search nil)

タブ, 全角スペース, 行末スペースを表示

;; タブ, 全角スペース, 行末スペースを表示
(defface my-face-tab '((t (:foreground "SteelBlue" :underline t))) nil :group 'my-faces)
(defface my-face-zenkaku-space '((t (:background "gray"))) nil :group 'my-faces)
(defface my-face-eol-space '((t (:background "SteelBlue"))) nil :group 'my-faces)
(defvar my-face-tab 'my-face-tab)
(defvar my-face-zenkaku-space 'my-face-zenkaku-space)
(defvar my-face-eol-space 'my-face-eol-space)
(defadvice font-lock-mode (before my-font-lock-mode ())
(font-lock-add-keywords
major-mode
'(("\t" 0 my-face-tab append)
("　" 0 my-face-zenkaku-space append)
("[ \t]+$" 0 my-face-eol-space append)
)))
(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
(ad-activate 'font-lock-mode)

emacsで静的補完

;; 静的補完
;; http://www.math.s.chiba-u.ac.jp/~matsu/emacs/emacs21/abbrev.html#sabbrev
(setq abbrev-file-name "~/.abbrev_defs")
(setq save-abbrevs t)
(quietly-read-abbrev-file)
(setq save-abbrevs t)