;; ****************************************************************************
;; *                                                                          *
;; *   Claus' .emacs                                                          *
;; *                                                                          *
;; ****************************************************************************

;; mein site-lisp-Verzeichnis zu load-path hinzufuegen
(setq load-path
      (append (list (expand-file-name "~/site-lisp"))
	      load-path))


;; *****************
;; * weite Dateien *
;; *****************

;; Konvertierungsfkt. (nocr, noum & chum)
(load "convert")

;; Hilit
(load "hilight")


;; cc-mode
(load "cmode")


;; **********************
;; * Tastaturbelegungen *
;; **********************

;; man auf F1 legen
(global-set-key [f1]    'man)

(global-set-key [home]  'beginning-of-line)
(global-set-key [end]   'end-of-line)

;; Macros
(global-set-key [f6]	'start-kbd-macro)
(global-set-key [f7]	'end-kbd-macro)
(global-set-key [f8]    'call-last-kbd-macro)

;; (define-key global-map [delete] 'delete-char)


;; *****************
;; * Verschiedenes *
;; *****************

;; Beim Markieren Invertieren
(transient-mark-mode 1)

;; aktuelle Spalte/Zeile anzeigen
(line-number-mode 1)

;; Anderes YES AND NO
(defalias 'yes-or-no-p 'y-or-n-p)

;; Backups nach ~/.backup mit Suffix .bak
(defun make-backup-file-name (file)
  "Create the non-numeric backup file name for FILE."
  (expand-file-name
   (concat "~/.backup/" (file-name-nondirectory file) ".bak")))


;; *****************************************
;; *        ---    M O D E S    ---        *
;; *****************************************

;; **********
;; * PASCAL *
;; **********

(setq pascal-case-indent        3
      pascal-auto-lineup        '(declaration)
      pascal-start-keywords     '("begin" "end" "function" "procedure"
				  "repeat" "until" "while" "read" "readln"
				  "reset" "rewrite" "write" "writeln"
				  "module"))

;; HTLM

(setq html-helper-mode-hook
      '(lambda ()
	 (local-set-key [f9]  'compile)
	 (progn (make-local-variable 'compile-command)
		(setq compile-command
		      (concat "netscape -remote 'openFile("
			      (buffer-file-name)
			      ")'")))
	 ))

;; ******************************
;; * nur ums nicht zu vergessen *
;; ******************************

;; text-mode ist default-major-mode
;;(setq-default default-major-mode 'text-mode)

;; hilit-Prozess nicht anzeigen
;; (setq hilit-quietly 1)

;; (setq scroll-step 4)


