;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File name: ` /usr/X11R6/lib/xemacs/site-lisp/site-start.el '
;;; System wide start file for xemacs.
;;; Copyright 1999  (c) SuSE GmbH Nuernberg, Germany. All rights reserved.
;;; Author: Werner Fink <werner@suse.de>, 1999
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;
;; Preload dynamic (i)Spell menu
;; --------------
(load "/usr/lib/ispell/ispell-emacs-menu.el" t t)

;;;;;;;;;;
;; the end
;;
;; Useful functions added by Kurt Garloff, garloff@suse.de, 1996--99
;; 
;; Modifications:
;; 
;; * line-number-mode enabled by default
;; * .h files are interpreted as C++ files
;; * Default papersize A4
;; * Blink Paren enabled
;; * Syntax highlighting on, maximum
;; * Use ISO-8859-1 font encoding
;; * Linux C-Mode with Linux style indenting (autodetected for /usr/src/linux*/*)
;; * Focus follows mouse
;; * Translation of X-Keysyms/ISO-8859-1 into LaTeX commands
;;    (automatically turned on for LaTeX mode). Use textcomp, marvosym (\EUR).
;; * Additionally load iso-cvt and make german open/close doublequotes in
;;    new german-latex-mode.

(setq line-number-mode 1)
;; Make h file c++ mode by default
(autoload 'cc-mode   "c++-mode" "C++ Editing Mode" t)
(setq auto-mode-alist
  (append '(("\\.C$"  . c++-mode)
            ("\\.h$"  . c++-mode)
           ) auto-mode-alist))
;; Fontify	   
(setq-default font-lock-auto-fontify t) 
(setq-default font-lock-maximum-decoration t) 
;; A4 paper
(setq-default ps-paper-type 'a4)
;; Paren blinking
(require 'paren)
  (paren-set-mode 'blink-paren)
;;
(setq text-mode-hook 'turn-on-auto-fill)
;;
;; enable diplay of ISO-Latin1
;;
(set-input-mode (car (current-input-mode))
                (nth 1 (current-input-mode))
		0)
(standard-display-european 1)
;;
;; Linux indenting style
(defun linux-c-mode ()
  "C mode with adjusted defaults for use with the Linux kernel."
  (interactive)
  (c-mode)
  (setq c-indent-level 8)
  (setq c-brace-imaginary-offset 0)
  (setq c-brace-offset -8)
  (setq c-argdecl-indent 8)
  (setq c-label-offset -8)
  (setq c-continued-statement-offset 8)
  (setq indent-tabs-mode nil)
  (setq tab-width 8))
(setq auto-mode-alist (cons '("/usr/src/linux.*/.*\\.[ch]$" . linux-c-mode)
  auto-mode-alist))
;;
(custom-set-variables
 '(focus-follows-mouse t)
 '(highlight-headers-max-message-size 20000))
(custom-set-faces)
;; German LaTeX translations
(defun german-latex-keys ()
  "ISO-8859-1(15) definitions for (German) LaTeX"
  ;;(interactive)
  (local-set-key '(ä) "\\"a")
  (local-set-key '(adiaeresis) "\"a")
  (local-set-key '(ö) "\"o")
  (local-set-key '(odiaeresis) "\"o")
  (local-set-key '(ü) "\"u")
  (local-set-key '(udiaeresis) "\"u")
  (local-set-key '(ë) "\"e")
  (local-set-key '(ediaeresis) "\"e")
  (local-set-key '(ï) "\"i")
  (local-set-key '(idiaeresis) "\"i")
  (local-set-key '(Ä) "\"A")
  (local-set-key '(Adiaeresis) "\"A")
  (local-set-key '(Ö) "\"O")
  (local-set-key '(Odiaeresis) "\"O")
  (local-set-key '(Ü) "\"U")
  (local-set-key '(Udiaeresis) "\"U")
  (local-set-key '(Ë) "\"E")
  (local-set-key '(Ediaeresis) "\"E")
  (local-set-key '(Ï) "\"I")
  (local-set-key '(Idiaeresis) "\"I")
  (local-set-key '(ß) "\"s")
  (local-set-key '(ssharp) "\"s")
  (local-set-key '(á) "\\'a")
  (local-set-key '(aacute) "\\'a")
  (local-set-key '(à) "\\`a")
  (local-set-key '(agrave) "\\`a")
  (local-set-key '(â) "\\^a")
  (local-set-key '(acircumflex) "\\^a")
  (local-set-key '(é) "\\'e")
  (local-set-key '(eacute) "\\'e")
  (local-set-key '(è) "\\`e")
  (local-set-key '(egrave) "\\`e")
  (local-set-key '(ê) "\\^e")
  (local-set-key '(ecircumflex) "\\^e")
  (local-set-key '(í) "\\'i")
  (local-set-key '(iacute) "\\'i")
  (local-set-key '(ì) "\\`i")
  (local-set-key '(igrave) "\\`i")
  (local-set-key '(î) "\\^i")
  (local-set-key '(icircumflex) "\\^i")
  (local-set-key '(ó) "\\'o")
  (local-set-key '(oacute) "\\'o")
  (local-set-key '(ò) "\\`o")
  (local-set-key '(ograve) "\\`o")
  (local-set-key '(ô) "\\^o")
  (local-set-key '(ocircumflex) "\\^o")
  (local-set-key '(ú) "\\'u")
  (local-set-key '(uacute) "\\'u")
  (local-set-key '(ù) "\\`u")
  (local-set-key '(ugrave) "\\`u")
  (local-set-key '(û) "\\^u")
  (local-set-key '(ucircumflex) "\\^u")
  (local-set-key '(Á) "\\'A")
  (local-set-key '(Aacute) "\\'A")
  (local-set-key '(Á) "\\`A")
  (local-set-key '(Agrave) "\\`A")
  (local-set-key '(Â) "\\^A")
  (local-set-key '(Acircumflex) "\\^A")
  (local-set-key '(É) "\\'E")
  (local-set-key '(Eacute) "\\'E")
  (local-set-key '(È) "\\`E")
  (local-set-key '(Egrave) "\\`E")
  (local-set-key '(Ê) "\\^E")
  (local-set-key '(Ecircumflex) "\\^E")
  (local-set-key '(Í) "\\'I")
  (local-set-key '(Iacute) "\\'I")
  (local-set-key '(Ì) "\\`I")
  (local-set-key '(Igrave) "\\`I")
  (local-set-key '(Î) "\\^I")
  (local-set-key '(Icircumflex) "\\^I")
  (local-set-key '(Ó) "\\'O")
  (local-set-key '(Oacute) "\\'O")
  (local-set-key '(Ò) "\\`O")
  (local-set-key '(Ograve) "\\`O")
  (local-set-key '(Ô) "\\^O")
  (local-set-key '(Ocircumflex) "\\^O")
  (local-set-key '(Ú) "\\'U")
  (local-set-key '(Uacute) "\\'U")
  (local-set-key '(Ù) "\\`U")
  (local-set-key '(Ugrave) "\\`U")
  (local-set-key '(Û) "\\^U")
  (local-set-key '(Ucircumflex) "\\^U")
  (local-set-key '(ç) "\\c{c}")
  (local-set-key '(ccedilla) "\\c{c}")
  (local-set-key '(Ç) "\\c{C}")
  (local-set-key '(Ccedilla) "\\c{C}")
  (local-set-key '(ñ) "\\~{n}")
  (local-set-key '(ntilde) "\\~{n}")
  (local-set-key '(õ) "\\~{o}")
  (local-set-key '(otilde) "\\~{o}")
  (local-set-key '(Ñ) "\\~{N}")
  (local-set-key '(Ntilde) "\\~{N}")
  (local-set-key '(Õ) "\\~{O}")
  (local-set-key '(Otilde) "\\~{O}")
  (local-set-key '(æ) "\\ae")
  (local-set-key '(ae) "\\ae")
  (local-set-key '(Æ) "\\AE")
  (local-set-key '(AE) "\\AE")
  (local-set-key '(å) "\\aa")
  (local-set-key '(aring) "\\aa")
  (local-set-key '(Å) "\\AA")
  (local-set-key '(Aring) "\\AA")
  (local-set-key '(½) "\\oe")
  (local-set-key '(oe) "\\oe")
  (local-set-key '(¼) "\\OE")
  (local-set-key '(OE) "\\OE")
  (local-set-key '(ø) "\\o")
  (local-set-key '(oslash) "\\o")
  (local-set-key '(Ø) "\\O")
  (local-set-key '(Oslash) "\\O")
  (local-set-key '(¨) "\\v{s}")
  (local-set-key '(scaron) "\\v{s}")
  (local-set-key '(¸) "\\v{z}")
  (local-set-key '(zcaron) "\\v{z}")
  (local-set-key '(ÿ) "\"y")
  (local-set-key '(ydiaeresis) "\"y")  
  (local-set-key '(§) "\{\\S\}")
  (local-set-key '(section) "{\\S}")
  (local-set-key '(µ) "\\mu")
  (local-set-key '(mu) "\\mu")
  (local-set-key '(²) "^2")
  (local-set-key '(twosuperior) "^2")
  (local-set-key '(¤) "\\EUR")		;;marvosym
  (local-set-key '(EuroSign) "\\EUR")	;;\texteuro in textcomp is VERY ugly
  (local-set-key '(¢) "\\textcent")	;;you need textcomp ...
  (local-set-key '(cent) "\\textcent")
  (local-set-key '(£) "\\pounds")
  (local-set-key '(sterling) "\\pounds")
  (local-set-key '(¥) "\\textyen")
  (local-set-key '(yen) "\textyen")
  (local-set-key '(©) "\\copyright")
  (local-set-key '(copyright) "\\copyright")
  (local-set-key '(®) "\\texttrademark")
  (local-set-key '(trademark) "\\texttrademark")  
  (local-set-key '(«) "\"<")
  (local-set-key '(guillemotleft) "\"<")
  (local-set-key '(») "\">")
  (local-set-key '(guillemotright) "\">")
  (local-set-key '(±) "\\pm")
  (local-set-key '(plusminus) "\\pm")
  (local-set-key '(×) "\\times")
  (local-set-key '(multiply) "\\times")
  (local-set-key '(÷) "\\textdiv")
  (local-set-key '(division) "\\textdiv")
  (local-set-key '(·) "\\cdot")
  (local-set-key '(periodcentered) "\\cdot")
  (local-set-key '(¡) "!`")
  (local-set-key '(exclamdown) "!`")
  (local-set-key '(¿) "?`")
  (local-set-key '(questiondown) "?`")
  ; start ispell in TeX mode
  (setq ispell-extra-args "-t -C -T latin1")
)

;; Load them
(add-hook 'latex-mode-hook
    '(lambda() 
      (german-latex-keys)
      ;;(load-library "iso-cvt")
      (setq font-lock-maximum-size 1000000)
     )
)

;; German Quotes
(defun german-latex-mode ()
  "LaTeX mode with Umlaut conversion."
  (interactive)
  (latex-mode)
  (load-library "iso-cvt")
  ;;(german-latex-keys)
  ;;(setq tex-open-quote ",,")
  ;;(setq tex-close-quote "``")
  (setq tex-open-quote "\"`")
  (setq tex-close-quote "\"'")
  (setq mode-name "GLaTeX")
  (setq font-lock-mode 1) 
)