(require 'cl) (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)) ; Turn on font lock (if running-xemacs (setq font-lock-auto-fontify t) (global-font-lock-mode)) ;; Set syntax coloring for PSGML (setq-default sgml-set-face t) (pushnew (expand-file-name "~/src/xslt-process/lisp") load-path) (pushnew (expand-file-name "~/emacs") load-path) (pushnew (expand-file-name "~/emacs/speedbar-0.14beta4") load-path) (pushnew (expand-file-name "~/emacs/elib-1.0") load-path) (add-hook 'sgml-mode-hook 'xslt-process-mode) (add-hook 'xml-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)) (require 'xslt-process) (setq auto-mode-alist (union '(("\\.html$" . html-mode) ("\\.shtml$" . html-mode) ("\\.xml$" . sgml-mode) ("\\.xsl$" . sgml-mode) ("\\.xmap$" . sgml-mode) ("\\.xconf$" . sgml-mode) ) auto-mode-alist))