Re: default for opening files read-only or read-write
Steve Whitlatch <swhitlat-r/[email protected]>
| Newsgroups | gmane.emacs.xslt-process.general |
|---|---|
| Organization | Steve Whitlatch, Inc. |
| Message-ID | <[email protected]> |
On Sunday 18 January 2004 08:46 am, Ovidiu Predescu wrote:
> Are you using GNU Emacs or XEmacs are you using? Can you post your
> .emacs file or the relevant portions from it that have to do with
> xslt-process?
>
> Thanks,
> Ovidiu
Yes, I'm posting first the portions that may more likely be relevant
(xsl-process and related programs), and then my entire .emacs. It's
big, but I've found it very helpful to read other's .emacs files.
Steve Whitlatch
*******************
. [snip]
.
.
;; uncomment the "(require 'tex-site)" line when activating AucTeX
;; From the AucTeX distribution (9.7)
(require 'tex-site)
;; for getnet nntp
(setq gnus-select-method '(nntp "news.getnet.net"))
;; From the Java Developer Environment package installation
instructions
(add-to-list 'load-path
(expand-file-name "/usr/share/emacs/site-lisp/jde/lisp"))
(add-to-list 'load-path
(expand-file-name "/usr/share/emacs/site-lisp/semantic"))
(add-to-list 'load-path
(expand-file-name "/usr/share/emacs/site-lisp/speedbar"))
(add-to-list 'load-path
(expand-file-name "/usr/share/emacs/site-lisp/elib"))
(add-to-list 'load-path
(expand-file-name "/usr/share/emacs/site-lisp/eieio"))
;; If you do not want Emacs to defer loading the JDE until you open a
;; Java file, edit the following line
(setq defer-loading-jde t)
;; to read:
;;
;; (setq defer-loading-jde nil)
;;
(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))
;; end
(put 'upcase-region 'disabled nil)
(custom-set-variables
;; custom-set-variables was added by Custom -- don't edit or cut/
paste it!
;; Your init file should contain only one such instance.
'(browse-url-browser-function (quote browse-url-generic))
'(browse-url-generic-program "mozilla")
'(browse-url-new-window-flag t)
'(docbook-menu-chm-viewer "xchm" nil (docbk-menu))
'(docbook-menu-chm-viewer-args "/home/steve/docs/Docbook/html/tdg/en/
tdg-en-2.0.7_expanded.chm" nil (docbk-menu))
'(docbook-menu-faq-base-uri "file:///home/steve/docs/Docbook/FAQ" nil
(docbk-menu))
'(docbook-menu-tdg-base-uri "file:///home/steve/docs/Docbook/html/
tdg/en/html" nil (docbk-menu))
'(docbook-menu-tdg-chm-file-exp "/home/steve/docs/Docbook/html/tdg/
entdg-en-2.0.7_expanded.chm" nil (docbk-menu))
'(docbook-menu-tdg-chm-file-unexp "/home/steve/docs/Docbook/html/tdg/
entdg-en-2.0.7_unexpanded.chm" nil (docbk-menu))
'(docbook-menu-wiki-base-uri "/home/steve/docs/Docbook/wiki/
www.docbook.org/wiki/moin.cgi" nil (docbk-menu))
'(docbook-menu-xsl-dir "/usr/share/xml/docbook/xsl-stylesheets" nil
(docbk-menu))
'(docbook-menu-xsl-docs-dir "/usr/share/xml/docbook/xsl-stylesheets"
nil (docbk-menu))
'(jde-complete-add-space-after-method t)
'(jde-imenu-enable t)
'(jde-java-font-lock-api-file nil)
'(jde-run-applet-viewer "appletviewer")
'(xslt-process-additional-classpath (quote ("/home/steve/bin:/home/
steve/bin/resolver.jar:/home/steve/bin/resolver-1.0.jar:/home/steve/
bin/xalan.jar:/home/steve/bin/xercesImpl.jar:/home/steve/bin/
xml-apis.jar:/home/steve/bin/bsf.jar:/home/steve/bin/
xsltcservlet.jar:/home/steve/bin/xsltcejb.jar:/home/steve/bin/
xsltcbrazil.jar:/home/steve/bin/xsltcapplet.jar:/home/steve/bin/
xalanservlet.war:/home/steve/bin/xalansamples.jar")))
'(xslt-process-docbook-install-dir "/usr/share/xml/docbook/
xsl-stylesheets")
'(xslt-process-registered-stylesheets (quote ("/usr/share/xml/
docbook/xsl-stylesheets/fo/docbook.xsl" "/usr/share/xml/docbook/
xsl-stylesheets/html/docbook.xsl" "/usr/share/xml/docbook/
xsl-stylesheets/htmlhelp/docbook.xsl" "/usr/share/xml/docbook/
xsl-stylesheets/javahelp/docbook.xsl" "/usr/share/xml/docbook/
xsl-stylesheets/xhtml/docbook.xsl"))))
(custom-set-faces
;; custom-set-faces was added by Custom -- don't edit or cut/paste
it!
;; Your init file should contain only one such instance.
'(cyan ((t (:stipple nil :background "gray90" :foreground
"red" :inverse-video nil :box nil :strike-through nil :overline
nil :underline nil :slant normal :weight bold :height 122 :width
normal :family "misc-fixed")))))
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
(setq sgml-catalog-files "/etc/sgml/catalog")
;; From the docbook-menu package
(add-to-list 'load-path "/usr/share/emacs/site-lisp/docbook-menu")
(require 'docbk-menu)
;; From the Speedbar package
(add-to-list 'load-path "/usr/share/emacs/site-lisp/speedbar")
(autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
(autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)
(define-key-after (lookup-key global-map [menu-bar tools])
[speedbar] '("Speedbar" . speedbar-frame-mode) [calendar])
;; Texinfo fancy chapter tags
(add-hook 'texinfo-mode-hook (lambda () (require 'sb-texinfo)))
;; For any verison of emacs on a linux RPM based system:
(autoload 'rpm "sb-rpm" "Rpm package listing in speedbar.")
;; w3 link listings
(autoload 'w3-speedbar-buttons "sb-w3" "s3 specific speedbar button
generator
.")
;; From the XSLT-process mode package
(require 'cl)
(mapc (lambda (x)
(pushnew (expand-file-name x) load-path))
(list "/usr/share/emacs/site-lisp/xslt-process-2.2/lisp"))
(autoload 'xslt-process-mode "xslt-process" "Emacs XSLT processing" t)
(autoload 'xslt-process-install-docbook "xslt-process"
"Register the DocBook package with XSLT-process" t)
(add-hook 'sgml-mode-hook 'xslt-process-mode)
(add-hook 'xml-mode-hook 'xslt-process-mode)
(add-hook 'xsl-mode-hook 'xslt-process-mode)
(defadvice xml-mode (after run-xml-mode-hooks act)
"Invoke `xml-mode-hook' hooks in the XML mode."
(run-hooks 'xml-mode-hook))
;; From the xslide package, start XSL mode xslide customization
(autoload 'xsl-mode "xslide" "Major mode for XSL stylesheets." t)
;; Uncomment if you want to use `xsl-grep' outside of XSL files.
(autoload 'xsl-grep "xslide" "Grep for PATTERN in files matching
FILESPEC." t)
;; Uncomment if you want to use `xslide-process' in `xml-mode'.
(autoload 'xsl-process "xslide-process" "Process an XSL stylesheet."
t)
(add-hook 'xml-mode-hook
(lambda ()
(define-key xml-mode-map [(control c) (meta control p)]
'xsl-process)))
;; Turn on font lock when in XSL mode
(add-hook 'xsl-mode-hook
'turn-on-font-lock)
(setq auto-mode-alist
(append
(list
'("\\.fo" . xsl-mode)
'("\\.xsl" . xsl-mode))
auto-mode-alist))
;; Uncomment if using abbreviations
(abbrev-mode t)
;; end XSL mode xslide customization
;;
;; From the psgmlx installation instructions
;;
(setq winkeys t)
(setq psgmlxpath "/usr/share/emacs/site-lisp/psgmlx-0.4")
(load (concat psgmlxpath "/init"))
;; A tip off the Internet to prevent the cursor from blinking.
(blink-cursor-mode -1)
*******************
Here's the entire .emacs file*******************
;;
;; .emacs
;;
;; Tom's GNU Emacs initialization file - v1.0 - 1/2/96.
;; Emacs init file for 101-key keyboards (and X Windows).
;; Linux 2.0.29, XF86Free X11R6, GNU Emacs 19.28.
;; Copy this file to your home directory, customize it, smile.
;;
;; Feel free to use any or all parts of this file - standard GNU
Public
;; License - restrictions none. Pass it on.
;;
;; Comments to: Tom Herman (Internet: [email protected])
;; ( Packet: N4OOJ @ WR4AGC.#DUR.NC.USA.NA)
;;
;; Last Changed:
;: 1/2/96 - TWH - New file.
;: 7/6/96 - TWH - Chged function key commands.
;; 3/21/97 - TWH - Many changes to colors, features, and template.
;;
;; Look in the following files for more info:
;; o lisp/loaddefs.el
;; o The emacs FAQ.
;; /usr/lib/emacs/19.28/etc/FAQ
;; or
;; anonymous ftp to ftp://rtfm.mit.edu/pub/usenet-by-group/
comp.emacs/
;; o xev (x events)
;; o xmodmap -pk and xmodmap -pm
;; o /usr/X11R6/include/X11/keysymdef.h
;;
;;(setq emacs-base-dir "/usr/lib/emacs/")
;;(setq emacs-dir (concat emacs-base-dir "19.28/"))
;; add to load path
;;(setq load-path (cons (concat emacs-dir "i486-slackware-linux/")
load-path))
;;
;; Uncomment this lisp form if you want to try using the packages
;; that are not distributed with the standard emacs distribution
;; They reside in the directory emacs-dir/i486-slackware-linux.
;;
;;(setq exec-directory (concat emacs-dir "lisp/")) ; for load-file
;;(setq load-path (cons (concat emacs-dir "i486-slackware-linux/")
load-path))
;;(setq exec-directory (concat emacs-dir "i486-slackware-linux/"))
;;
;; This causes the vt220 file to be loaded after all of the setup
files
;; have been run
;;
(setq term-setup-hook
'(lambda ()
;; (load "loaddefs")
;; (load "spell")
;; (load "term/vt220")
))
;;
;; Uncomment the following code to bind the keypad/function keys under
X11.
;; See the file lisp/loaddefs.el for further details.
;; Note: .emacs is case sensitive to kp-x. Compare to xmodmap -pk.
;;
;; Num Lock doesn't work. Neither does Prt Sc or Scroll Lock.
;; I wonder why?
;;
;; Keypad
;;
(global-set-key '[num_lock] 'unused) ; Num Lock (unused)
(global-set-key '[kp-divide] 'what-line) ; /
(global-set-key '[kp-multiply] 'goto-line) ; *
(global-set-key '[kp-subtract] 'beginning-of-line) ; - (BOL)
(global-set-key '[kp-7] 'beginning-of-buffer) ; KP7 (BOF)
(global-set-key '[kp-8] 'previous-line) ; KP8 (up-arrow)
(global-set-key '[kp-9] 'scroll-down) ; KP9 (pg-up)
(global-set-key '[kp-add] 'end-of-line) ; + (EOL)
(global-set-key '[kp-4] 'backward-char) ; KP4 (lf-arrow)
(global-set-key '[kp-5] 'recenter) ; KP5
(global-set-key '[kp-6] 'forward-char) ; KP6 (rt-arrow)
(global-set-key '[kp-1] 'end-of-buffer) ; KP1 (EOF)
(global-set-key '[kp-2] 'next-line) ; KP2 (dn-arrow)
(global-set-key '[kp-3] 'scroll-up) ; KP3 (pg-down)
(global-set-key '[kp-enter] 'query-replace-regexp) ; Enter
(global-set-key '[kp-0] 'overwrite-mode) ; KP0 (Over write)
(global-set-key '[kp-decimal] 'delete-char) ; .
;;
;; Function Keys
;;
(global-set-key '[f1] 'undo) ; F1
(global-set-key '[f2] 'dired) ; F2
(global-set-key '[f3] 'info) ; F3
(global-set-key '[f4] 'find-file) ; F4
(global-set-key '[f5] 'compile) ; F5
(global-set-key '[f6] 'unused) ; F6
(global-set-key '[f7] 'fundamental-mode) ; F7
(global-set-key '[f8] 'hexl-mode) ; F8
(global-set-key '[f9] 'unused) ; F9
(global-set-key '[f10] 'unused) ; F10
(global-set-key '[f11] 'hanoi) ; F11
(global-set-key '[f12] 'yow) ; F12
;; Other Function Key Bindings (kinda like WordPerfect 4.2)
;; (Use Control-h l (that's L) for key codes
(global-set-key '[C-f9] 'yow) ; Control-F9
(global-set-key '[M-f9] 'hanoi) ; Alt-F9
(global-set-key '[S-f19] 'dired) ; Shift-F9
(global-set-key '[C-S-f19] 'c-mode) ; Control-Shift-F9
(global-set-key '[M-S-f19] 'perl-mode) ; Alt-Shift-F9
;; Control-Alt-F9 not recommented unless you want to change virtual
consoles.
;; Use Control-Alt-F7 to get back to your current virtual console.
;; Use Alt_R as a Meta (escape) key (or type it in xterm).
(shell-command "xmodmap -e 'add mod1 = Mode_switch'")
;;
;; Miscellaneous keys
;;
(global-set-key '[delete] 'delete-backward-char) ; Delete
(global-set-key '[nosymbol] 'unused) ; Prt Sc
(global-set-key '[multi_key] 'unused) ; Scroll Lock
(global-set-key '[pause] 'unused) ; Pause
;;
;; Other tricks and goodies:
;; Meta is Esc or Alt keys, Ctrl is Control key.
;;
;; To view the X keymap:
;; xmodmap -pk -pm
;;
;; Ctrl-g to quit a command.
;; Ctrl-x K to kill a buffer.
;; Ctrl-z to iconize.
;; 'f' to read a file in dired.
;; ! to skip the yes-no question and do all on 'Query replacing'.
;; Ctrl-u 7 Ctrl-x hanoi to specify an argument
;;
;; To iconize to GNU icon, add the following line into .env:
;; alias emacs='emacs -i '
;; You may have to add the following line to .profile to run .env:
;; . $HOME/.env
;;
;; *.el files are Lisp source code files; *.elc are faster compiled
files.
;;
;;
;; My special stuff
;;
(setq default-tab-width 4) ; tabs to 4
(setq c-tab-always-indent nil)
(setq c-indent-level 4)
(setq c-continued-statement-offset 4)
(setq c-auto-newline 1)
(setq c-brace-offset -4)
(add-hook 'comint-output-filter-functions
'comint-watch-for-password-prompt)
(require 'paren) ; highlight matching parenthesis
;;
;; Mike's Stuff
;; Ctrl-N to split windows vertically
;; Shift-Ctrl-N to recombine vertical windows
;;
(defun grab-paste-and-pad (click)
(interactive "e")
(grab-and-paste click)
(insert " "))
(defun grab-and-paste (click)
(interactive "e")
(mouse-minibuffer-check click)
(let* ((orig-window (selected-window))
(orig-point (point)))
(unwind-protect
(progn
(mouse-set-point click)
(forward-sexp 1)
(let ((end (point)))
(forward-sexp -1)
(kill-new (buffer-substring (point) end) t)))
(select-window orig-window)
(goto-char orig-point)
(yank)
)))
(global-set-key [C-backspace] 'undo)
(global-set-key [S-mouse-2] 'split-window-vertically)
(global-set-key [S-mouse-3] 'split-window-vertically)
(global-set-key [C-S-mouse-2] 'mouse-delete-other-windows)
(global-set-key [C-S-mouse-3] 'mouse-delete-other-windows)
(global-set-key [A-mouse-2] 'grab-paste-and-pad)
(global-set-key [M-mouse-2] 'grab-and-paste)
(global-set-key [M-mouse-3] 'grab-paste-and-pad)
(global-set-key [A-mouse-3] 'grab-and-paste)
(global-set-key [A-M-mouse-3] 'isearch-yank-kill)
(global-set-key "\C-c." 'find-tag-other-window)
;;
;; Add color
;;
(add-hook 'font-lock-mode-hook
'(lambda ()
;; (set-face-foreground font-lock-comment-face "DarkSalmon")
;; (set-face-foreground font-lock-type-face "MintCream")
;; (set-face-foreground font-lock-string-face "grey40")
;; (set-face-foreground font-lock-keyword-face "MidnightBlue")))
(set-face-foreground font-lock-comment-face "Blue")
(set-face-foreground font-lock-type-face "Firebrick")
(set-face-foreground font-lock-string-face "grey40")
(set-face-foreground font-lock-keyword-face "MidnightBlue")))
;;(add-hook 'emacs-lisp-mode-hook '(lambda () (font-lock-mode 1)))
;;
;; Cool Colors for C Programs.
;; See /usr/share/emacs/19.30/lisp/hilit19.el
;;
(cond (window-system
(setq hilit-mode-enable-list '(not text-mode)
hilit-background-mode 'dark
hilit-inhibit-hooks nil
hilit-inhibit-rebinding t
hilit-quietly t
hilit-auto-highlight-maxout 100000)
(require 'hilit19)
))
;; Customize colors
(cond (window-system
(hilit-translate type 'black) ;; char, int
(hilit-translate comment 'black) ;; /* */
(hilit-translate decl 'blue) ;; struct
(hilit-translate defun 'red) ;; func()
(hilit-translate include 'RoyalBlue) ;; #include
(hilit-translate keyword 'DarkOliveGreen) ;; if, for, while
(hilit-translate keyword 'red) ;; if, for, while
(hilit-translate string 'blue) ;; strings
(hilit-translate dired-directory 'blue) ;; subdirectory
(hilit-translate dired-link 'firebrick) ;; link
(hilit-translate crossref 'black)
(hilit-translate define 'AntiqueWhite)
(hilit-translate formula 'seagreen1)
(hilit-translate label 'AntiqueWhite)
(hilit-translate type 'black)
(add-hook 'recenter-hook 'hilit-rehighlight-buffer)
(add-hook 'auto-save-hook 'hilit-rehighlight-buffer)
(global-set-key "\C-l" 'hilit-recenter)
))
;;
;; Miscellaneous
;;
(display-time)
(setq visible-bell t) ; turn bell off
(setq line-number-mode t) ; display the current line #
(setq column-number-mode t) ; see mode-line-format, %c for column in
v19.29
;; (global-set-key [menubar tools ange-ftp] 'internal-ange-ftp-mode)
;;
;; Ready to Roll
;;
;; uncomment the "(require 'tex-site)" line when activating AucTeX
;; From the AucTeX distribution (9.7)
(require 'tex-site)
;; for getnet nntp
(setq gnus-select-method '(nntp "news.getnet.net"))
;; From the Java Developer Environment package installation
instructions
(add-to-list 'load-path
(expand-file-name "/usr/share/emacs/site-lisp/jde/lisp"))
(add-to-list 'load-path
(expand-file-name "/usr/share/emacs/site-lisp/semantic"))
(add-to-list 'load-path
(expand-file-name "/usr/share/emacs/site-lisp/speedbar"))
(add-to-list 'load-path
(expand-file-name "/usr/share/emacs/site-lisp/elib"))
(add-to-list 'load-path
(expand-file-name "/usr/share/emacs/site-lisp/eieio"))
;; If you do not want Emacs to defer loading the JDE until you open a
;; Java file, edit the following line
(setq defer-loading-jde t)
;; to read:
;;
;; (setq defer-loading-jde nil)
;;
(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))
;; end
(put 'upcase-region 'disabled nil)
(custom-set-variables
;; custom-set-variables was added by Custom -- don't edit or cut/
paste it!
;; Your init file should contain only one such instance.
'(browse-url-browser-function (quote browse-url-generic))
'(browse-url-generic-program "mozilla")
'(browse-url-new-window-flag t)
'(docbook-menu-chm-viewer "xchm" nil (docbk-menu))
'(docbook-menu-chm-viewer-args "/home/steve/docs/Docbook/html/tdg/en/
tdg-en-2.0.7_expanded.chm" nil (docbk-menu))
'(docbook-menu-faq-base-uri "file:///home/steve/docs/Docbook/FAQ" nil
(docbk-menu))
'(docbook-menu-tdg-base-uri "file:///home/steve/docs/Docbook/html/
tdg/en/html" nil (docbk-menu))
'(docbook-menu-tdg-chm-file-exp "/home/steve/docs/Docbook/html/tdg/
entdg-en-2.0.7_expanded.chm" nil (docbk-menu))
'(docbook-menu-tdg-chm-file-unexp "/home/steve/docs/Docbook/html/tdg/
entdg-en-2.0.7_unexpanded.chm" nil (docbk-menu))
'(docbook-menu-wiki-base-uri "/home/steve/docs/Docbook/wiki/
www.docbook.org/wiki/moin.cgi" nil (docbk-menu))
'(docbook-menu-xsl-dir "/usr/share/xml/docbook/xsl-stylesheets" nil
(docbk-menu))
'(docbook-menu-xsl-docs-dir "/usr/share/xml/docbook/xsl-stylesheets"
nil (docbk-menu))
'(jde-complete-add-space-after-method t)
'(jde-imenu-enable t)
'(jde-java-font-lock-api-file nil)
'(jde-run-applet-viewer "appletviewer")
'(xslt-process-additional-classpath (quote ("/home/steve/bin:/home/
steve/bin/resolver.jar:/home/steve/bin/resolver-1.0.jar:/home/steve/
bin/xalan.jar:/home/steve/bin/xercesImpl.jar:/home/steve/bin/
xml-apis.jar:/home/steve/bin/bsf.jar:/home/steve/bin/
xsltcservlet.jar:/home/steve/bin/xsltcejb.jar:/home/steve/bin/
xsltcbrazil.jar:/home/steve/bin/xsltcapplet.jar:/home/steve/bin/
xalanservlet.war:/home/steve/bin/xalansamples.jar")))
'(xslt-process-docbook-install-dir "/usr/share/xml/docbook/
xsl-stylesheets")
'(xslt-process-registered-stylesheets (quote ("/usr/share/xml/
docbook/xsl-stylesheets/fo/docbook.xsl" "/usr/share/xml/docbook/
xsl-stylesheets/html/docbook.xsl" "/usr/share/xml/docbook/
xsl-stylesheets/htmlhelp/docbook.xsl" "/usr/share/xml/docbook/
xsl-stylesheets/javahelp/docbook.xsl" "/usr/share/xml/docbook/
xsl-stylesheets/xhtml/docbook.xsl"))))
(custom-set-faces
;; custom-set-faces was added by Custom -- don't edit or cut/paste
it!
;; Your init file should contain only one such instance.
'(cyan ((t (:stipple nil :background "gray90" :foreground
"red" :inverse-video nil :box nil :strike-through nil :overline
nil :underline nil :slant normal :weight bold :height 122 :width
normal :family "misc-fixed")))))
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
(setq sgml-catalog-files "/etc/sgml/catalog")
;; From the docbook-menu package
(add-to-list 'load-path "/usr/share/emacs/site-lisp/docbook-menu")
(require 'docbk-menu)
;; From the Speedbar package
(add-to-list 'load-path "/usr/share/emacs/site-lisp/speedbar")
(autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
(autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)
(define-key-after (lookup-key global-map [menu-bar tools])
[speedbar] '("Speedbar" . speedbar-frame-mode) [calendar])
;; Texinfo fancy chapter tags
(add-hook 'texinfo-mode-hook (lambda () (require 'sb-texinfo)))
;; For any verison of emacs on a linux RPM based system:
(autoload 'rpm "sb-rpm" "Rpm package listing in speedbar.")
;; w3 link listings
(autoload 'w3-speedbar-buttons "sb-w3" "s3 specific speedbar button
generator
.")
;; From the XSLT-process mode package
(require 'cl)
(mapc (lambda (x)
(pushnew (expand-file-name x) load-path))
(list "/usr/share/emacs/site-lisp/xslt-process-2.2/lisp"))
(autoload 'xslt-process-mode "xslt-process" "Emacs XSLT processing" t)
(autoload 'xslt-process-install-docbook "xslt-process"
"Register the DocBook package with XSLT-process" t)
(add-hook 'sgml-mode-hook 'xslt-process-mode)
(add-hook 'xml-mode-hook 'xslt-process-mode)
(add-hook 'xsl-mode-hook 'xslt-process-mode)
(defadvice xml-mode (after run-xml-mode-hooks act)
"Invoke `xml-mode-hook' hooks in the XML mode."
(run-hooks 'xml-mode-hook))
;; From the xslide package, start XSL mode xslide customization
(autoload 'xsl-mode "xslide" "Major mode for XSL stylesheets." t)
;; Uncomment if you want to use `xsl-grep' outside of XSL files.
(autoload 'xsl-grep "xslide" "Grep for PATTERN in files matching
FILESPEC." t)
;; Uncomment if you want to use `xslide-process' in `xml-mode'.
(autoload 'xsl-process "xslide-process" "Process an XSL stylesheet."
t)
(add-hook 'xml-mode-hook
(lambda ()
(define-key xml-mode-map [(control c) (meta control p)]
'xsl-process)))
;; Turn on font lock when in XSL mode
(add-hook 'xsl-mode-hook
'turn-on-font-lock)
(setq auto-mode-alist
(append
(list
'("\\.fo" . xsl-mode)
'("\\.xsl" . xsl-mode))
auto-mode-alist))
;; Uncomment if using abbreviations
(abbrev-mode t)
;; end XSL mode xslide customization
;;
;; From the psgmlx installation instructions
;;
(setq winkeys t)
(setq psgmlxpath "/usr/share/emacs/site-lisp/psgmlx-0.4")
(load (concat psgmlxpath "/init"))
;; A tip off the Internet to prevent the cursor from blinking.
(blink-cursor-mode -1)
*******************
-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn