When doing M-x jde-wiz-override-method I get the following error now that I
have upgraded to jde 2.2.8beta6
Symbol's value as variable is void: jde-wiz-source-buffer
Do I have to redo all my prj.el files again? Is this something I should
just do every time? Is it a bug?
TIA,
bld
my .emacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Bruce L. Durling's <[EMAIL PROTECTED]> .emacs
;; $Id: .emacs,v 1.43 2001/08/16 12:57:23 b_durlin Exp $
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; load path for my site lisp
(setq load-path
(nconc
'(
;; Add paths to other add-on packages here.
"~/site-lisp/"
; jde stuff
"~/site-lisp/elib-1.0/"
"~/site-lisp/eieio-0.17beta2/"
"~/site-lisp/semantic-1.4beta9/"
"~/site-lisp/speedbar-0.14beta1/"
"~/site-lisp/jde-2.2.8beta6/lisp/"
; ecb stuff
"~/site-lisp/ecb-1.32/"
; xml stuff
"~/site-lisp/psgml-1.2.1/"
"~/site-lisp/tdtd-mode/"
"~/site-lisp/xslide/"
; everything else
"~/site-lisp/pcl-cvs-2.9.7/"
"~/site-lisp/w3/"
"~/site-lisp/template/lisp/"
"~/site-lisp/vm-6.75/"
"~/site-lisp/tramp/lisp/"
)
load-path))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Colors
; set geometry and font in .Xdefaults with the following values
; emacs*geometry: 80x50+10+100
; emacs*useBitmap: true
; emacs*font: -*-*-Medium-R-*-*-11-82-96-96-c-*-fontset-startup
(setq frame-background-mode (quote dark))
;(set-background-color "darkslategray")
;(set-foreground-color "wheat")
;(setq default-frame-alist
; '(
;(width . 95) (height . 40)
;(cursor-color . "magenta")
;(cursor-type . box)
;(foreground-color . "wheat")
;(background-color . "darkslategray")
; ))
; (require 'color-theme)
; (color-theme-gnome)
; (color-theme-gnome2)
; (color-theme-jonadabian)
; (color-theme-sitaramv-solaris)
; (color-theme-retro-orange)
; (color-theme-fischmeister)
; (color-theme-billw)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; General Configuration
;; just in case I break my config
; (setq debug-on-error t)
;; who am i
(setq user-full-name "Bruce Durling")
(setq user-mail-address "[EMAIL PROTECTED]")
;; separate the custom stuff from my stuff
(setq custom-file "/home/b_durlin/.custom.el")
(load "/home/b_durlin/.custom.el")
;; do I *really* want to kill emacs?
(setq kill-emacs-query-functions
(cons (lambda () (yes-or-no-p "Really kill Emacs? "))
kill-emacs-query-functions))
;; C-c g is goto line
(global-set-key (read-kbd-macro "C-c g") 'goto-line)
;; auto fill in text modes
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;; C-c p to go to previous window
(global-set-key (read-kbd-macro "C-c p") 'previous-multiframe-window)
;; show paren (doesn't work with Xemacs)
(show-paren-mode 1)
;; Auto De/Compression
(auto-compression-mode 1)
;; Turn on interactive templates
(setq tempo-interactive t)
;; turn on column numbering
(column-number-mode 1)
;; lovely hippie expand, man
(define-key global-map (read-kbd-macro "M-RET") 'hippie-expand)
;; I like to be able to downcase and upcase and narrow to region
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
;; Kill those scroll bars
(set-scroll-bar-mode nil)
;; I need to be able to edit Info files
(setq Info-enable-edit t)
;; I like font-lock
(global-font-lock-mode t)
;(setq font-lock-support-mode 'lazy-lock-mode)
(setq font-lock-maximum-decoration t)
;; auto-revert mode
(autoload 'auto-revert-mode "autorevert" nil t)
(autoload 'turn-on-auto-revert-mode "autorevert" nil nil)
(autoload 'global-auto-revert-mode "autorevert" nil t)
;; Start up an emacs server so that we can attach to it.
(if (eq window-system 'w32)
(message "Should use gnuserv.")
(message "Start up emacsserver.")
(server-start))
;; saving desktop sessions
(desktop-load-default)
(desktop-read)
;; just a four *space* indent as standard
(setq indent-tabs-mode nil)
(setq-default indent-tabs-mode nil)
(setq standard-indent 4)
;; tramp mode
(require 'tramp)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; vm setup
;; disable rmail so we don't start it by accident
(put 'rmail 'disabled t)
(autoload 'vm "vm" "Start VM on your primary inbox." t)
(autoload 'vm-other-frame "vm" "Like `vm' but starts in another frame." t)
(autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
(autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
(autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
(autoload 'vm-mail "vm" "Send a mail message using VM." t)
(autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)
; replace rmail defaults
(define-key menu-bar-tools-menu [rmail] '("Read Mail" . vm))
(add-to-list 'auto-mode-alist
'("\\.vm$" . emacs-lisp-mode))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; various modes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; calculator mode
(autoload 'calculator "calculator"
"A simple pocket calculator for Emacs." t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Resize minibuffer mode
(resize-minibuffer-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; live mode ( like tail -f )
(require 'live-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Crontab mode
(require 'crontab-mode)
(add-to-list 'auto-mode-alist
'("\\.crontab$" . crontab-mode))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; xrdb-mode
(autoload 'xrdb-mode "xrdb-mode" "Mode for editing X resource files" t)
(setq auto-mode-alist
(append '(("\\.Xdefaults$" . xrdb-mode)
("\\.Xenvironment$" . xrdb-mode)
("\\.Xresources$" . xrdb-mode)
("*.\\.ad$" . xrdb-mode)
)
auto-mode-alist))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; speedbar goodness http://choochoo.ultranet.com/~zappo/fsf.shtml
(define-key-after (lookup-key global-map [menu-bar tools])
[speedbar] '("Speedbar" . speedbar-frame-mode) [calendar])
(global-set-key [(f4)] 'speedbar-get-focus)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; .bat file mode
(setq auto-mode-alist
(append
'(("\\.[bB][aA][tT]$" . bat-mode)
;; for DOS config files
("CONFIG\\." . bat-mode)
("AUTOEXEC\\." . bat-mode)
("\\.[cC][mM][dD]$" . bat-mode))
auto-mode-alist))
(autoload 'bat-mode "bat-mode"
"DOS and WIndows BAT files" t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; RedHat Package Manager Mode
(autoload 'rpm "rpm"
"Shell for the rpm package management utility." t)
(autoload 'rpm-dired-install "rpm"
"Install all marked (or next ARG) rpm-files." t)
(add-hook 'dired-load-hook
'(lambda () (define-key dired-mode-map "I"
'rpm-dired-install)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Template mode
(require 'template)
(template-initialize)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Orbix CORBA ORB mode
;;(require 'orbix)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; CatDoc the Word to text document converter
(require 'catdoc)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; FAQ mode
(require 'faq-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Find Files stuff
(require 'ffap)
(require 'ff-paths)
(require 'find-lisp)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; RE builder
(load "re-builder")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; uptimes
;(require 'uptimes)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; word count(
(require 'wcount)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; vkill mode
(autoload 'vkill "vkill" nil t)
(autoload 'list-unix-processes "vkill" nil t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ietf retrieval mode
(autoload 'rfc "ietfdoc" nil t)
(autoload 'idraft "ietfdoc" nil t)
(autoload 'internet-draft "ietfdoc" nil t)
(autoload 'bcp "ietfdoc" nil t)
(autoload 'fyi "ietfdoc" nil t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; sawfish mode
(autoload 'sawfish-mode "sawfish" "sawfish-mode" t)
(setq auto-mode-alist (cons '("\\.sawfishrc$" . sawfish-mode)
auto-mode-alist)
auto-mode-alist (cons '("\\.jl$" . sawfish-mode) auto-mode-alist))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; multi-mode
(autoload 'multi-mode
"multi-mode"
"Allowing multiple major modes in a buffer."
t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; HTMLize/W3/SGML/HTML/XML/XSL/DTD modes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; jsp multi-mode
(defun jsp-mode () (interactive)
(multi-mode 1
'html-mode
;;'("<%" java-mode)
'("<%" java-mode)
'("%>" sgml-mode)))
(setq auto-mode-alist
(cons '("\\.jsp$" . jsp-mode)
auto-mode-alist))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; HTMLize buffer (convert from font-lock to html).
(require 'htmlize)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Emacs/W3 Configuration
(condition-case () (require 'w3-auto "w3-auto") (error nil))
(setq w3-default-homepage "http://hermes:9116/personal/";)
;;(setq w3-default-homepage "http://hermes:9500";)
(setq w3-honor-stylesheets nil)
(setq w3-user-colors-take-precedence t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; psgml mode
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
(setq auto-mode-alist
(append
(list
'("\\.xml$" . xml-mode)
'("\\.tld$" . xml-mode)
'("\\.sgml$" . sgml-mode)
'("\\.html$" . sgml-mode)
'("\\.jhtml$" . sgml-mode)
'("\\.shtml$" . sgml-mode))
auto-mode-alist))
;; indent data as well.
(setq sgml-indent-data t)
(setq sgml-indent-step 4)
;; set up the catalog files
(setq sgml-catalog-files '("CATALOG" "/home/b_durlin/dtd/CATALOG") )
;; Here are some dtd's that we can paste in.
(setq sgml-custom-dtd
'(
("stb application"
"<!DOCTYPE application PUBLIC \"-//EQUIFAX UK NTG//DTD secure trust
application v1.0//EN\" \"http://www.equifax.co.uk/stb_application.dtd\";>")
( "xhtml 1.0"
"<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\";>")
("HTML 3.2"
"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2//EN\"
\"http://www.w3.org/html32.dtd\";>")
("hfxrequest"
"<!DOCTYPE request PUBLIC \"-//EQUIFAX UK NTG//DTD Halifax request
v1.0//EN\" \"http://www.equifax.co.uk/hfx-request.dtd\";>")
("hfxresponse"
"<!DOCTYPE response PUBLIC \"-//EQUIFAX UK NTG//DTD Halifax
response v1.0//EN\" \"http://www.equifax.co.uk/hfx-response.dtd\";>")
("nextcard-request"
"<!DOCTYPE request PUBLIC \"-//EQUIFAX UK NTG//DTD NextCard request
v1.0//EN\" \"http://www.equifax.co.uk/nextcard-request.dtd\";>")
("nextcard-response"
"<!DOCTYPE response PUBLIC \"-//EQUIFAX UK NTG//DTD NextCard
response v1.0//EN\" \"http://www.equifax.co.uk/nextcard-response.dtd\";>")
("dn-rapid-request"
"<!DOCTYPE request PUBLIC \"-//EQUIFAX UK NTG//DTD DN Rapid request
v1.0//EN\" \"http://www.equifax.co.uk/dn-rapid-request.dtd\";>")
("dn-rapid-response"
"<!DOCTYPE request PUBLIC \"-//EQUIFAX UK NTG//DTD DN Rapid response
v1.0//EN\" \"http://www.equifax.co.uk/dn-rapid-response.dtd\";>")
("zb-request"
"<!DOCTYPE request PUBLIC \"-//EQUIFAX UK NTG//DTD ZB DN request
v1.0//EN\" \"http://www.equifax.co.uk/zb-dn-request.dtd\";>")
("zb-response"
"<!DOCTYPE response PUBLIC \"-//EQUIFAX UK NTG//DTD ZB DN response
v1.0//EN\" \"http://www.equifax.co.uk/zb-dn-response.dtd\";>")
("ant-project"
"<!DOCTYPE project PUBLIC \"-//ANT//DTD project//EN\"
\"project.dtd\">")
)
)
;; font lock colors for psgml mode
(setq screenshots nil) ; t for screenshot color settings, else nil
(make-face 'sgml-comment-face)
(make-face 'sgml-start-tag-face)
(make-face 'sgml-end-tag-face)
(make-face 'sgml-entity-face)
(make-face 'sgml-doctype-face)
; (set-face-foreground 'sgml-comment-face "IndianRed")
; (set-face-foreground 'sgml-start-tag-face "LightSalmon")
; (set-face-foreground 'sgml-end-tag-face "LightSalmon")
; (set-face-background 'sgml-entity-face "LightSalmon")
; (set-face-foreground 'sgml-entity-face "Wheat")
; (set-face-foreground 'sgml-doctype-face "Aquamarine")
; )
(cond ((equal screenshots nil)
(set-face-foreground 'sgml-comment-face "Salmon")
(set-face-foreground 'sgml-start-tag-face "Aquamarine")
(set-face-foreground 'sgml-end-tag-face "Aquamarine")
;(set-face-background 'sgml-entity-face "Wheat")
(set-face-foreground 'sgml-entity-face "Wheat")
(set-face-foreground 'sgml-doctype-face "Aquamarine")
)
((equal screenshots t)
; This set for screen shots
(set-background-color "White")
(set-face-foreground 'sgml-comment-face "White") ; Comments:
white on
(set-face-background 'sgml-comment-face "Gray") ; gray.
(set-face-background 'sgml-start-tag-face "Gray") ; Tags: black
(default)
(set-face-background 'sgml-end-tag-face "Gray") ; on gray.
(set-face-foreground 'sgml-entity-face "White") ; Entity references:
(set-face-background 'sgml-entity-face "Black") ; white on black.
)
(t nil))
(setq sgml-set-face t) ; without this, all SGML text is in same
color
(setq sgml-markup-faces
'((comment . sgml-comment-face)
(start-tag . sgml-start-tag-face)
(end-tag . sgml-end-tag-face)
(doctype . sgml-doctype-face)
(entity . sgml-entity-face)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; XSL IDE Mode http://www.mulberrytech.com/xsl/xslide/
(autoload 'xsl-mode "xslide" "Major mode for XSL stylesheets." t)
(setq auto-mode-alist
(append
(list
'("\\.xsl" . xsl-mode))
auto-mode-alist))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; DTD mode http://www.mulberrytech.com/tdtd/index.html
(autoload 'dtd-mode "tdtd" "Major mode for SGML and XML DTDs." t)
(autoload 'dtd-etags "tdtd"
"Execute etags on FILESPEC and match on DTD-specific regular
expressions."
t)
(autoload 'dtd-grep "tdtd" "Grep for PATTERN in files matching FILESPEC."
t)
;; Turn on font lock when in DTD mode
(add-hook 'dtd-mode-hooks
'turn-on-font-lock)
(setq auto-mode-alist
(append
(list
'("\\.dcl$" . dtd-mode)
'("\\.dec$" . dtd-mode)
'("\\.dtd$" . dtd-mode)
'("\\.ele$" . dtd-mode)
'("\\.ent$" . dtd-mode)
'("\\.mod$" . dtd-mode))
auto-mode-alist))
; (setq auto-mode-alist
; (append
; (list
; '("\\.html$" . html-mode)
; '("\\.jhtml$" . html-mode)
; '("\\.shtml$" . html-mode)
; '("\\.kjhtml$" . html-mode))
; auto-mode-alist))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; LaTeX/AucTeX/RefTeX/BibTeX and assorted modes
;; auc-tex
(require 'tex-site)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Programming modes
;; like Java/C/C++/IDL/Python/OO-Browser/SQL*Plus
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; I want to be able to recognize more things as makefiles
(setq auto-mode-alist
(append
(list
'("Makefile\\." . makefile-mode)
'("\\.Makefile.machine" . makefile-mode))
auto-mode-alist))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; CC-Mode stuff
(defun my-c-mode-common-hook ()
;; no tabs!
(setq indent-tabs-mode nil)
;; use java style for all C like languages
(c-set-style "java")
;; other customizations can go here
(c-set-offset
;; make the arglist-closing paren have no indentation
'arglist-close 0)
(c-toggle-auto-hungry-state 1)
)
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
;; see http://cc-mode.sourceforge.net/cc-mode.html#Clean-ups
(setq c-cleanup-list '(scope-operator
empty-defun-braces
brace-else-brace
brace-elseif-brace
brace-catch-brace
defun-close-semi))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; C++ Stuff
;; Our C++ headers are .h files
(add-to-list 'auto-mode-alist
'("\\.h$" . c++-mode))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; glasses stuff for interCaps
(require 'glasses)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; warn of dodgy c stuff from Anders Lindgren
(require 'cwarn)
(global-cwarn-mode 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Diff Mode
(autoload 'diff-mode "diff-mode" "Diff major mode" t)
(add-to-list 'auto-mode-alist
'("\\.\\(diffs?\\|patch\\|rej\\)\\'" . diff-mode))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; idl font lock
(add-to-list 'auto-mode-alist
'("\\.idl\\'" . idl-mode))
(require 'idl-font-lock)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ecb stuff
(require 'ecb)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; JDE mode http://sunsite.auk.dk/jde
(require 'jde)
;; JDE helper stuff http://perso.wanadoo.fr/david.ponce/
; (require 'jmaker)
; (require 'jdok)
; (require 'jjar)
; (require 'jpack)
; (require 'jsee)
;(add-hook 'java-mode-hook 'my-java-mode-hook)
;; anders lindgren's java font lock
;; http:\\www.csd.uu.se\~andersl\emacs.shtml
;(defun my-java-mode-hook ()
; (cond (window-system
; (require 'andersl-java-font-lock)
; (turn-on-font-lock)))
; )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; python mode
(add-to-list 'auto-mode-alist
'("\\.py$" . python-mode))
(add-to-list 'interpreter-mode-alist
'("python" . python-mode))
(autoload 'python-mode "python-mode" "Python editing mode." t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; SQL Oracle mode
(autoload 'sql-oracle "sql" "Interactive SQL mode." t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; SQL*Plus mode
(autoload 'sqlplus "sqlplus-mode"
"Start the interactive SQL*Plus interpreter in a new buffer." t)
(autoload 'sqlplus-mode "sqlplus-mode"
"Mode for editing SQL files and running a SQL*Plus interpretor." t)
(add-to-list 'auto-mode-alist '("\\.sql\\'" . sqlplus-mode))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; SQL Transform mode
(require 'sql-transform)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; hide-show for all programming modes
; (load-library "hideshow")
; (add-hook 'c++-mode-hook 'hs-minor-mode)
; (add-hook 'c-mode-hook 'hs-minor-mode)
; (add-hook 'cperl-mode-hook 'hs-minor-mode)
; (add-hook 'jde-mode-hook 'hs-minor-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; VC modes PCL-CVS/Vis SourceSafe Mode
;; pcl-cvs mode
(load "pcl-cvs-config")
;; Visual SourceSafe Mode
;(require 'source-safe)
;(setq ss-program "C:/Program Files/Microsoft Visual
Studio/vss/win32/ss.exe")
;(setq ss-project-dirs '(("^d:/devel/wmw/mc" . "$/MC/")
; ("^d:/devel/wmw/sc" . "$/SC/")
; ("^d:/devel/wmw/generator" . "$/generator/")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; my functions.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; lisp playpen
(defun lisp-play ()
"Create a temporary buffer to play Lisp in."
(interactive)
(switch-to-buffer "Lisp playpen")
(lisp-interaction-mode))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; unix <-> dos file conversion
(defun unix2dos ()
;; This function really does work now, changed `replace-string()'
;; to `replace-regexp()' which does the business !! *PP*
"Convert this entire buffer from UNIX text file format to MS-DOS."
(interactive)
(dos2unix); kills preventive all ^M to set them again
(save-excursion
(goto-char (point-min))
(replace-regexp "$" "\015" )
(goto-char (point-max))
(insert "\n\C-z")))
(message "unix2dos")
(defun dos2unix ()
"Convert this entire buffer from MS-DOS text file format to UNIX."
(interactive)
(save-excursion
(goto-char (point-min))
(replace-regexp "\r$" "" nil)
(goto-char (1- (point-max)))
(if (looking-at "\C-z")
(delete-char 1))))
(message "dos2unix")
