emacs配置文件

.emacs代码

;;etq load-path (cons "~/.emacs.d" load-path))
;;(require 'color-theme)
;;(color-theme-initialize)
;;(color-theme-dark-blue)

;;(require 'cc-mode)
;;(c-set-offset 'inline-open 0)
;;(c-set-offset 'friend '-)
;;(c-set-offset 'substatement-open 0)

;;(defun my-c-mode-common-hook()
;;  (setq tab-width 4 indent-tabs-mode nil)
;;; hungry-delete and auto-newline
;;  (c-toggle-auto-hungry-state 1)

;;(global-set-key [(ctrl g)] 'goto-line)
(global-set-key "\C-g" 'goto-line)

(setq indent-tabs-mode nil)
(setq default-tab-width 4)
(setq tab-width 4)
(setq tab-stop-list ())
(setq x 40)
(while (> x 0)
(setq tab-stop-list (cons (* x 4) tab-stop-list))
(setq x (1- x)))
;;(loop for x downfrom 40 to 1 step 1 do
;;  (setq tab-stop-list (cons (* x 4) tab-stop-list)))

(defconst my-c-style
'((c-tab-always-indent        . t)
(c-comment-only-line-offset . 4)
(c-hanging-braces-alist     . ((substatement-open after)
(brace-list-open)))
(c-hanging-colons-alist     . ((member-init-intro before)
(inher-intro)
(case-label after)
(label after)
(access-label after)))
(c-cleanup-list             . (scope-operator
empty-defun-braces
defun-close-semi))
(c-offsets-alist            . ((arglist-close . c-lineup-arglist)
(substatement-open . 0)
(case-label        . 4)
(block-open        . 0)
(knr-argdecl-intro . -)))
(c-echo-syntactic-information-p . t)
)
"My C Programming Style")

;; offset customizations not in my-c-style
(setq c-offsets-alist '((member-init-intro . ++)))

;; Customizations for all modes in CC Mode.
(defun my-c-mode-common-hook ()
;; add my personal style and set it for the current buffer
(c-add-style "PERSONAL" my-c-style t)
;; other customizations
(setq tab-width 4
;; this will make sure spaces are used instead of tabs
indent-tabs-mode nil)
;; key bindings for all supported languages.  We can put these in
;; c-mode-base-map because c-mode-map, c++-mode-map, objc-mode-map,
;; java-mode-map, idl-mode-map, and pike-mode-map inherit from it.
(define-key c-mode-base-map "\C-m" 'c-context-line-break)
)

(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)