求助，关于我的emacs设置

[ldy2534]

我的TAB键是4个空格，我想用一个制表符代替，不想要空格。怎么办啊？
这是我的配置文件。 .eamcs
#####################################
(setq-default transient-mark-mode t)
(setq visible-bell t)
(setq vc-initial-comment t)
(setq visible-bell t)
(setq-default indent-tabs-mode t)
(setq-default nuke-trailing-whitespace-p t)
(global-unset-key "\e\e")
(global-unset-key "\C-x\C-u")
(define-key global-map (quote [home]) 'beginning-of-line)
(define-key global-map (quote [end]) 'end-of-line)
(define-key global-map (quote [prior]) 'scroll-down)
(define-key global-map (quote [next]) 'scroll-up)
(global-set-key (quote [insertchar]) (quote overwrite-mode))
(global-set-key (quote [kp-f2]) (quote tags-search))
(global-set-key (quote [kp-f3]) (quote tags-query-replace))
(global-set-key (quote [kp-f4]) (quote tags-loop-continue))
(global-set-key (quote [kp-f5]) (quote compile))
(global-set-key (quote [kp-f6]) (quote other-window))
(global-set-key (quote [f2]) (quote tags-search))
(global-set-key (quote [f3]) (quote tags-query-replace))
(global-set-key (quote [f4]) (quote tags-loop-continue))
(global-set-key (quote [f5]) (quote compile))
(global-set-key (quote [f6]) (quote other-window))
(display-time)
(setq viper-mode t)
(require 'viper)
(add-hook 'c-mode-hook
#'(lambda () (c-set-style "stroustrup")))
(add-hook 'cc-mode-hook
#'(lambda () (c-set-style "stroustrup")))
(add-hook 'c++-mode-hook
#'(lambda () (c-set-style "stroustrup")))
(custom-set-variables
;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
'(case-fold-search t)
'(current-language-environment "Chinese-BIG5")
'(default-input-method "chinese-py-punct-b5")
'(global-font-lock-mode t nil (font-lock))
'(transient-mark-mode t))
(custom-set-faces
;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
)