emacs init datei configuration

.emacs

(put 'erase-buffer 'disabled nil)

;;; Einstellen der iso-8859-1 keytable
(set-input-mode (car (current-input-mode))
		(nth 1 (current-input-mode))
		0)

(standard-display-european 1)


;;; Setzen des Suchfades fuer Librarys
;;; Pathes
;;;
(setq load-path
      (append   
       (list 
	(expand-file-name "/home/michel/lib")
	)
       load-path
       )
      )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Einstellungen für die Buffer;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;no komment
(setq minibuffer-max-depth nil)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Einstellungen für die Files ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun make-backup-file-name (file)
 (concat (expand-file-name "~/backups/") (file-name-nondirectory file) "~"))



;;;Anzeigen der Uhrzeit
(display-time )





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Einstellungen für die Makro-Nutzung;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




;;; ;;; DMACRO-Einrichtung
;;; (require 'dmacro)
;;; (dmacro-load "~/.dmacros")
;;; 
;;; ;;; Umdefinieren der Sequenze C-c d auf C-c j fuer html-mode
;;; ;;; weil dort C-c d bereits belegt ist.
;;; (global-set-key "\C-cj" 'insert-dmacro)
;;; ;(define-key html-mode-map "C-ub" (dmacro-command "br"))
;;; 
;;; 
;;; 
;;; ;Einstellen der Lautstärke vom Fehlerpiep
;;; (setq beep-volume '0)
;;; 
;;; 
;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ;;; Einstellungen der einzelnen Modies;
;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;        
;;; ;MAIL-MODE
;;; ;Einstellen der > fuer Reply Benutzung mit C-c C-y
;;; (setq mail-yank-prefix ">") 
;;; 
;;; ;LISP-MODE
;;; ;Einstellen des Lisp-interaction-mode in Lisp
;;; (add-hook 'emacs-lisp-mode-hook 'lisp-interaction-mode)
;;; ;(add-hook 'emacs-lisp-mode-hook 'font-lock-mode)
;;; 
;;; ;GNUS-MODE
;;; ;Newsgroupen Einstellungen
;;; (autoload 'gnus "gnus" "Read network news." t)
;;; (autoload 'gnus-post-news "gnuspost" "Post a new news." t)
;;; (setq gnus-nntp-server "irzr12")
;;; ;(setq ange-ftp-default-passwort "tm2@inf.tu-dresden.de")
;;; ;(setq ange-ftp-default-user "anonymous")
;;; 
;;; 
;;; ;W3-MODE
;;; ;WWW - aktivieren
;;; ;(autoload 'w3 "w3" "Read html Dokumente" t)
;;; 
;;; 
;;; 
;;; 
;;; ;HTML-MODE
;;; ;(add-hook 'emacs-html-mode-hook 'auto-fill-mode) 
;;; (autoload 'html-mode "html-mode" "HTML major mode." t)
;;; (or (assoc "\\.html$" auto-mode-alist)
;;;     (setq auto-mode-alist (cons '("\\.html$" . html-mode) 
;;;                               auto-mode-alist)))
;;; 
;;; 
;;; 
;;; (defun setze-color ()
;;;   (progn 
;;;     (require (quote font-lock)) 
;;;     (font-lock-use-default-colors) 
;;;     (font-lock-mode  )))
;;; 
;;; 
;;; 
;;; ;LATEX-MODE
;;; (add-hook 'latex-mode-hook  (function(lambda () (setze-color))))
;;; 
;;; ;LISP-MODE
;;; (add-hook 'lisp-interaction-mode-hook 
;;; 	  (function (lambda ()(setze-color))))
;;; 



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Autoload und starten von Applicationen sowie Modies;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;starten im RMAIL-MODE
;;(rmail)

;;; Einstellungen fuer das Testsystem HTS
(put 'erase-buffer 'disabled nil)