(custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(TeX-PDF-mode t) '(TeX-output-view-style (quote (("^dvi$" ("^landscape$" "^pstricks$\\|^pst-\\|^psfrag$") "%(o?)dvips -t landscape %d -o && gv %f") ("^dvi$" "^pstricks$\\|^pst-\\|^psfrag$" "%(o?)dvips %d -o && gv %f") ("^dvi$" ("^a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4$" "^landscape$") "%(o?)xdvi %dS -paper a4r -s 0 %d") ("^dvi$" "^a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4$" "%(o?)xdvi %dS -paper a4 %d") ("^dvi$" ("^a5\\(?:comb\\|paper\\)$" "^landscape$") "%(o?)xdvi %dS -paper a5r -s 0 %d") ("^dvi$" "^a5\\(?:comb\\|paper\\)$" "%(o?)xdvi %dS -paper a5 %d") ("^dvi$" "^b5paper$" "%(o?)xdvi %dS -paper b5 %d") ("^dvi$" "^letterpaper$" "%(o?)xdvi %dS -paper us %d") ("^dvi$" "^legalpaper$" "%(o?)xdvi %dS -paper legal %d") ("^dvi$" "^executivepaper$" "%(o?)xdvi %dS -paper 7.25x10.5in %d") ("^dvi$" "." "%(o?)xdvi %dS %d") ("^pdf$" "." "evince %o %(outpage)") ("^html?$" "." "netscape %o")))) '(case-fold-search t) '(column-number-mode t) ;; '(current-language-environment "Latin-1") '(current-language-environment "UTF-8") '(default-input-method "latin-1-prefix") '(global-font-lock-mode t nil (font-lock)) '(line-number-mode t) '(mouse-wheel-mode t nil (mwheel)) '(save-place t nil (saveplace)) '(show-paren-mode t nil (paren)) '(transient-mark-mode t) '(vhdl-use-default-colors t t) '(vhdl-use-default-faces t t)) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(default ((t (:inherit nil :stipple nil :background "AntiqueWhite1" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 71 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))))) ;;(global-set-key [mouse-4] 'scroll-down) ;;(global-set-key [mouse-5] 'scroll-up) (set-default-font "-adobe-courier-medium-r-normal--12-120-75-75-m-70-iso8859-1") ;;Not found: install xfonts-100.dpi and xfonts-75dpi or set to Monospace Regular 8 by Options->Set default font (set-background-color "AntiqueWhite1") ;;(setq scroll-step 1) (icomplete-mode 1) ;; add tool to strip trailing white space. (require 'whitespace) ;;(set-language-environment 'german) ;;(set-language-environment 'english) (global-set-key "\C-x\C-f" 'find-file-at-point) (setq-default ispell-program-name "aspell") ;;(setq ispell-dictionary "german") ;; Shift+ArrowButton to switch between windows (windmove-default-keybindings) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; CUDA Highlighting style (add-to-list 'load-path "~/emacs_files/") (autoload 'cuda-mode "cuda-mode.el" "Cuda mode." t) ;;(setq auto-mode-alist (append '(("/*.\.cu$" . cuda-mode)) auto-mode-alist)) (setq auto-mode-alist (append '(("/*.\.cu$" . c++-mode)) auto-mode-alist)) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq c-default-style '((java-mode . "java") (other . "k&r"))) (setq inhibit-startup-message t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Word Counting (defun count-words (start end) "Print number of words in the region." (interactive "r") (save-excursion (save-restriction (narrow-to-region start end) (goto-char (point-min)) (count-matches "\\sw+")))) (defalias 'word-count 'count-words) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq default-tab-width 4) ;;(setq gdb-many-windows nil) (setq gdb-many-windows 1) (setq gdb-use-separate-io-buffer 1) ;;Load my configuration file of CEDET ;;(load-file "~/emacs_files/cedet_conf.el")