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)

转载于:https://www.cnblogs.com/HeXHunter/archive/2012/09/08/2676604.html