[Work] .emacs example

(global-set-key [(f6)] 'tmk)
(global-set-key [(f7)] 'compile)
(global-set-key [(f8)] 'make)
(global-set-key [delete] 'delete-char)   ; BackSpace <-> Del Problem
(global-set-key [end] 'end-of-line)      ; Sprung zum Zeilenende
(global-set-key [home] 'beginning-of-line)
(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.
 '(ad-default-compilation-action (quote maybe))
 '(case-fold-search t)
 '(compilation-ask-about-save nil t)
 '(compilation-read-command nil)
 '(compilation-scroll-output t)
 '(compilation-skip-to-next-location nil t)
 '(current-language-environment "English")
 '(global-font-lock-mode t nil (font-lock))
 '(line-number-mode t)
 '(make-backup-files nil)
 '(show-paren-mode t nil (paren))
 '(version-control (quote never)))
;; (require 'tex-site)
(setq TeX-parse-self t)

;; Syntax Highlight f"ur alle Modes an
(global-font-lock-mode t)

;; verhindert, dass durch Cursor-nach-unten neue Leerzeilen gebildet werden
(setq next-line-add-newlines nil)

;; show column number:
(setq column-number-mode t)

;; no initial message:
(setq inhibit-startup-message t)

;; (require 'jde)
; wheel from
;http://koala.ilog.fr/colas/mouse-wheel-scroll/#gnuemacs
(defun up-slightly () (interactive) (scroll-up 5))
(defun down-slightly () (interactive) (scroll-down 5))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)

(defun up-one () (interactive) (scroll-up 1))
(defun down-one () (interactive) (scroll-down 1))
(global-set-key [S-mouse-4] 'down-one)
(global-set-key [S-mouse-5] 'up-one)

(defun up-a-lot () (interactive) (scroll-up))
(defun down-a-lot () (interactive) (scroll-down))
(global-set-key [C-mouse-4] 'down-a-lot)
(global-set-key [C-mouse-5] 'up-a-lot)

(setq compile-command "tmk -max")
(defun make () (interactive) (shell-command "make&"))
(defun tmk () (interactive) (shell-command "tmk&"))
(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.
 '(font-latex-sedate-face ((((class color) (background light)) (:foreground "blue")))))

;; Example code for your .emacs file
(autoload 'pilrc-mode "/home/cfuchs/palm/pilrc-mode.el")

(setq auto-mode-alist
      (append '(
  ("\\.rcp$" . pilrc-mode)
  ) auto-mode-alist))