summaryrefslogtreecommitdiffstats
path: root/emacs.d/nxhtml/tests/angus77-setup-jde.el
blob: dd8f9aca726ee207050ce145b266f08bd845d1a2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
;;; angus77-setup-jde.el ---
;;
;; Author: Lennart Borgman (lennart O borgman A gmail O com)
;; Created: 2008-08-20T16:57:35+0200 Wed
;; Version:
;; Last-Updated:
;; URL:
;; Keywords:
;; Compatibility:
;;
;; Features that might be required by this library:
;;
;;   None
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Commentary:
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Change log:
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; 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, 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; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
;; Floor, Boston, MA 02110-1301, USA.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Code:

;; Question #42407 on nXhtml changed:
;; https://answers.launchpad.net/nxhtml/+question/42407

;; Angus77 posted a new comment:

(eval-when-compile (require 'cl))
(let (
      ;;(jde-lisp-dir "C:/jdee/jdee/trunk/jde/lisp/")
      (jde-lisp-dir "C:/jdee/jdee/branches/phil_lord/dimitre_liotev_new_build/jde/lisp")
      (cedet-root "c:/cedet/cedet/")
      (elib-dir "C:/DL/emacs/elib-1.0")
      )
  (assert (file-directory-p jde-lisp-dir) t)
  ;;(add-to-list 'load-path (expand-file-name "~/elisp/jde-2.3.5.1/lisp"))
  (add-to-list 'load-path jde-lisp-dir)
  ;;(add-to-list 'load-path (expand-file-name "~/elisp/cedet-1.0pre4/semantic"))
  (add-to-list 'load-path (expand-file-name "semantic" cedet-root))
  ;;(add-to-list 'load-path (expand-file-name "~/elisp/cedet-1.0pre4/speedbar"))
  (add-to-list 'load-path (expand-file-name "speedbar" cedet-root))
  ;;(add-to-list 'load-path (expand-file-name "~/elisp/elib"))
  (add-to-list 'load-path elib-dir)
  ;;(add-to-list 'load-path (expand-file-name "~/elisp/cedet-1.0pre4/eieio"))
  (add-to-list 'load-path (expand-file-name "eieio" cedet-root))
  ;;(add-to-list 'load-path (expand-file-name "~/elisp/cedet-1.0pre4/common"))
  (add-to-list 'load-path (expand-file-name "common" cedet-root)))

;; Initialize CEDET.
;;(load-file (expand-file-name "~/elisp/cedet-1.0pre4/common/cedet.el"))
(load-library "cedet.el")

(setq defer-loading-jde t)

(if defer-loading-jde
    (progn
      (autoload 'jde-mode "jde" "JDE mode." t)
      (setq auto-mode-alist
	    (append
	     '(("\\.java\\'" . jde-mode))
	     auto-mode-alist)))
  (require 'jde))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; angus77-setup-jde.el ends here