emacs配置文件

我用的emacs配置文件，可以自动使用空格缩进，美中不足的是注释老是比代码多右移4个字符，一直改不出来。

.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)