Emacs 配置program

 ;;;for programming
1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;; c mode indentation 3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 4 (setq c-default-style '((c-mode . "k&r") (other . "gnu"))) 5 (setq c-basic-offset 4) 6 7 (setq-default c-electric-flag t) 8 ;;tab设置4个字符 9 (setq-default tab-width 4) 10 11 (defun c-lineup-arglist-tabs-only (ignored) 12 "Line up argument lists by tabs, not spaces" 13 (let* ((anchor (c-langelem-pos c-syntactic-element)) 14 (column (c-langelem-2nd-pos c-syntactic-element)) 15 (offset (- (1+ column) anchor)) 16 (steps (floor offset c-basic-offset))) 17 (* (max steps 1) 18 c-basic-offset))) 19 20 (add-hook 'c-mode-common-hook 21 (lambda () 22 ;; Add kernel style 23 (c-add-style 24 "linux-tabs-only" 25 '("linux" (c-offsets-alist 26 (arglist-cont-nonempty 27 c-lineup-gcc-asm-reg 28 c-lineup-arglist-tabs-only)))))) 29 30 ;;;(add-hook 'c-mode-hook 31 ;;; (lambda () 32 ;;; (let ((filename (buffer-file-name))) 33 ;;; ;; Enable kernel mode for the appropriate files 34 ;;; (when (and filename 35 ;;; (string-match (expand-file-name "~/src/linux-trees") 36 ;;; filename)) 37 ;;; (setq indent-tabs-mode t) 38 ;;; (c-set-style "linux-tabs-only"))))) 39 40 ;;;(require 'ctypes) 41 ;;;(setq ctypes-write-types-at-exit t) 42 ;;;(ctypes-read-file nil nil t t) 43 ;;;(ctypes-auto-parse-mode 1) 44 45 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 46 ;;;scheme 47 ;;(setq scheme-program-name "scm") 48 ;;(setq scheme-program-name "mit-scheme") 49 ;(setq scheme-program-name "guile") 50 51 ;;;(defun xscheme () 52 ;;; "Loads xscheme and runs a scheme process in the current buffer." 53 ;;; (interactive) 54 ;;; (load-library "xscheme") 55 ;;; (xscheme-start "scheme -emacs" 56 ;;; (buffer-name) 57 ;;; (buffer-name))) 58 ;;; 59 (global-set-key [f6] 'eval-region) 60 (global-set-key [(shift f6)] 'eval-buffer)
posted @ 2012-09-08 13:56  design0er  阅读(238)  评论(0编辑  收藏  举报

私信请邮件

destiny_1990@126.com