2011-07-20 18:24:39 +08:00
|
|
|
(:name ppindent :type emacswiki
|
2011-09-02 20:36:11 +08:00
|
|
|
:description "Indents C preprocessor directives"
|
2011-07-20 18:24:39 +08:00
|
|
|
:features ppindent
|
2012-02-27 18:52:22 +08:00
|
|
|
:post-init (progn
|
2011-07-20 18:24:39 +08:00
|
|
|
(setq ppindent-increment 4)
|
|
|
|
|
(message (format "%s" (current-buffer)))
|
|
|
|
|
(add-hook
|
|
|
|
|
'c-mode-common-hook
|
|
|
|
|
(lambda()
|
|
|
|
|
(add-hook
|
|
|
|
|
'before-save-hook
|
|
|
|
|
(lambda()
|
|
|
|
|
(if (string-match-p "\\.[Hh][a-z]*$" buffer-file-name) (ppindent-h)
|
|
|
|
|
(when (string-match-p "\\.[Cc][a-z]*$" buffer-file-name) (ppindent-c)))))))))
|
