; schnere Farben fr die Statuszeile
; (Farbnamen siehe \emacs\19.29\lisp\term\pm-win.el)
(if window-system                                     
    (progn
      (set-face-background 'modeline "os2darkcyan")
      (set-face-foreground 'modeline "os2white")))

; Die AltGr-Taste soll im Emacs die Bedeutung Alt statt Meta haben.
(setq default-frame-alist (append '((altgr-modifier . alt))
                                  default-frame-alist))

; Jetzt lassen sich einige Tasten bequemer belegen.
(global-set-key [?\A-] "[")
(global-set-key [?\A-] "]")
(global-set-key [?\A-p] "{")
(global-set-key [?\A-] "}")
(global-set-key [?\A-#] "\\")

; Ein neuer Menpunkt ruft im C-Mode den Compiler auf
(define-key c-mode-map [menu-bar c compile]
  '("Compile" . compile))

; Backups werden durch Kopieren, nicht durch Umbenennen der 
; Originaldatei erzeugt. EAs des Originals bleiben dadurch erhalten.
(setq backup-by-copying t)

; Emacs soll Programme mit Leerzeichen einrcken, nicht mit Tabs
(set-default 'indent-tabs-mode nil)

; Damit Emacsclient funktioniert, mu der Serverproze laufen.
(server-start)

; Indexdateien fr emx-Dokumentation und Toolkit-Dokumentation.
(setq os2help '("i:/emx/book/emxbook.ndx" 
                "i:/toolkt30/book/epmkwhlp.ndx"))

; hilit19 sorgt fr Syntax-Highlighting in Programmen und anderswo
(cond (window-system
       (setq hilit-mode-enable-list  '(not text-mode)
             hilit-background-mode   'light
             hilit-inhibit-hooks     nil
             hilit-inhibit-rebinding nil)
       (require 'hilit19)
       ))
