~/.xemacs/init.el

file_462334.txt (text/plain), 4.24 KB, created by Juergen Rose on 2013-03-19 16:36:05 UTC

;;     01-Aug-07

(require 'mwheel)
(mwheel-install)

(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))

(cond ((not running-xemacs)
        (set-default-coding-systems 'utf-8)
        ;; highlight selected regions
        (transient-mark-mode t)
))

(set-terminal-coding-system 'utf-8)

;;; Try to initialize AUC-TeX mode
(cond ((not (eq (locate-library "tex-site") nil))
        ;; Tackle the problem that AUC TeX will produce error-messages if the
    ;;   function `set-text-properties' is defined
           (fset 'set-text-properties (symbol-function 'ignore))
           (require 'tex-site)
           )
)

(autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t)
(setq auto-mode-alist
    (append '(("\\.cs$" . csharp-mode)) auto-mode-alist))


(setq jka-compr-compression-info-list
          '(["\\.Z\\(~\\|\\.~[0-9]+~\\)?\\'"
                 "compressing"    "compress"     ("-c")
                 "uncompressing"  "uncompress"   ("-c")
                 nil t]
                ["\\.tgz\\'"
                 "zipping"        "gzip"         ("-c" "-q")
                 "unzipping"      "gzip"         ("-c" "-q" "-d")
                 t nil]
                ["\\.gz\\(~\\|\\.~[0-9]+~\\)?\\'"
                 "zipping"        "gzip"         ("-c" "-q")
                 "unzipping"      "gzip"         ("-c" "-q" "-d")
                 t t]
                ["\\.tbz\\'"
                 "bzipping"      "bzip2"        ()
                 "bunzipping"    "bzip2"        ("-d")
                 nil t]
                ["\\.bz2\\(~\\|\\.~[0-9]+~\\)?\\'"
                 "bzipping"      "bzip2"        ()
                 "bunzipping"    "bzip2"        ("-d")
                 nil t]
                )
          )

(require 'ediff-hook)
;; Needed by ediff - exists in `efs'
(or (boundp 'allow-remote-paths) (setq allow-remote-paths nil))

(require 'cc-mode)

(require 'jka-compr)
(auto-compression-mode 1)

(fset `perl-mode `cperl-mode)
(autoload 'cperl-mode "cperl-mode")
(setq cperl-hairy t)
(autoload 'python-mode "python-mode" "Python editing mode." t)
(autoload 'octave-mode "octave" "Enter Octave-mode." t)
(setq auto-mode-alist (cons '("\\.m$" . octave-mode) auto-mode-alist))
(setq octave-mode-hook '(lambda () (setq fill-column 74)))
(autoload 'maxima-mode "maxima" "Maxima editing mode" t)
(autoload 'maxima "maxima" "Running Maxima interactively" t)
(autoload 'imaxima "imaxima" "Image support for Maxima." t)

(setq auto-mode-alist
          (append (list (cons "\\.p[lm]$\\'" 'cperl-mode)
                                        ) auto-mode-alist))

(setq auto-mode-alist
      (cons '("\\.py$" . python-mode) auto-mode-alist))
(setq interpreter-mode-alist
      (cons '("python" . python-mode)
            interpreter-mode-alist))

(setq auto-mode-alist
   (append '(
                         ("\\.C$"     . c++-mode)
             ("\\.cc$"    . c++-mode)
             ("\\.hh$"    . c++-mode)
             ("\\.H$"     . c++-mode)
             ("\\.cxx$"   . c++-mode)
             ("\\.c$"     . c-mode)   ; to edit C code
             ("\\.h$"     . c-mode)   ; to edit C code
             ("\\.java$"  . java-mode)
             ("\\.pov$"   . c-mode)
             ("\\.bib$"   . bibtex-mode)
             ("\\.tex$"   . TeX-mode)
             ("\\.eepic$" . TeX-mode)
             ("\\.txi$"   . Texinfo-mode)
             ("\\.texi$"  . Texinfo-mode)
             ("\\.el$"    . emacs-lisp-mode)
                         ("\\.tgz$"   . tar-mode)
                         ("\\.tzr$"   . tar-mode)
                         ("\\.fvwmrc$". fvwm-mode)
                         ("\\.steprc$". fvwm-mode)
                         ("\\.fvwm2rc$". fvwm-mode)
                         ("\\.fvwm2rc95$". fvwm-mode)
                         ) auto-mode-alist )
   )

(setq default-tab-width 2)

;;    Anzeige der Zeilennummer in der Statuszeile
(line-number-mode 1)

;; turn on Syntax Highlighting
(if (fboundp 'global-font-lock-mode)
    (global-font-lock-mode 1)           ; GNU Emacs
  (setq font-lock-auto-fontify t))      ; XEmacs

;; we like pretty colours for syntax highlighting
(setq font-lock-support-mode 'jit-lock-mode)
(setq font-lock-maximum-decoration t)