Emacs基本配置 1 [转载]

转载：http://club.topsage.com/thread-2252500-1-1.html

该配置中使用了tabbar.el和color-theme.el两个emacs扩展，文件见附件

1. 
   
2. ;; 设置 load path
   
3. (setq load-path (cons "~/.emacs.d/elisp" load-path)) 
   
4. 
   
5. ;; 在标题栏显示buffer的名字
   
6. (setq frame-title-format "emacs@%b")
   
7. 
   
8. ;; 设置有用个人信息
   
9. (setq user-full-name "HuZhifei")
   
10. (setq user-mail-address "[e-mail]")
    
11. 
    
12. ;; 打开tabbar
    
13. (require 'tabbar)
    
14. (tabbar-mode)
    
15. 
    
16. ;; 配色方案
    
17. (require 'color-theme)
    
18. (color-theme-robin-hood)
    
19. 
    
20. ;; 关闭提示音
    
21. (setq visible-bell t)
    
22. 
    
23. ;; 简化工具条
    
24. (tool-bar-mode -1)
    
25. 
    
26. ;; 显示时间
    
27. (display-time)
    
28. 
    
29. ;; 显示行号
    
30. (setq column-number-mode t)
    
31. 
    
32. ;; 显示匹配的括号
    
33. (show-paren-mode t)
    
34. 
    
35. ;; 加大kill ring，防止出错后无法回滚文档
    
36. (setq kill-ring-max 100)
    
37. 
    
38. ;; 把fill-column设为60
    
39. (setq default-fill-column 60)
    
40. 
    
41. ;; 不使用tab缩进
    
42. (setq-default indent-tabs-mode nil)
    
43. (setq default-tab-width 4)
    
44. 
    
45. ;; 询问时的 yes or no 改为 y/n，减少输入量
    
46. (fset 'yes-or-no-p 'y-or-n-p)
    
47. 
    
48. ;; 设置sentence-end可以识别中文标点
    
49. (setq sentence-end "\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")
    
50. (setq sentence-end-double-space nil)
    
51. 
    
52. ;; 可以递归使用minibuffer
    
53. (setq enable-recursive-minibuffers t)
    
54. 
    
55. ;; 防止页面滚动时跳动，scroll-margin 3
    
56. (setq scroll-margin 3
    
57.       scroll-conservatively 10000)
    
58. 
    
59. ;; 把默认的major mode设置为 text-mode
    
60. (setq default-major-mode 'text-mode)
    
61. 
    
62. ;; 括号匹配时显示另外一边的括号，而不是跳到另一个括号
    
63. (show-paren-mode t)
    
64. (setq show-paren-style 'parentheses)
    
65. 
    
66. ;; 光标靠近鼠标指针时，让鼠标指针自动让开，别挡住视线
    
67. (mouse-avoidance-mode 'animate)
    
68. 
    
69. ;; 让emacs可以直接打开和显示图片
    
70. (auto-image-file-mode)
    
71. 
    
72. ;; 语法加亮
    
73. (global-font-lock-mode t)
    
74. 
    
75. ;; 高亮显示要拷贝的区域
    
76. (transient-mark-mode t)
    
77. 
    
78. ;; 把一些默认禁用的功能打开
    
79. (put 'set-goal-column 'disabled nil)
    
80. (put 'narrow-to-region 'disabled nil)
    
81. (put 'upcase-region 'disabled nil)
    
82. (put 'downcase-region 'disabled nil)
    
83. (put 'LaTeX-hide-environment 'disabled nil)
    
84. 
    
85. ;; 设置备份时的版本控制
    
86. (setq version-control t)
    
87. (setq kept-new-versions 3)
    
88. (setq delete-old-versions t)
    
89. (setq kept-old-versions 2)
    
90. (setq dired-kept-versions 1)
    
91. ;; 如果不想自动备份文件，可以把上面的配置注释
    
92. ;; 打开下面的配置：
    
93. ;;
    
94. ;; 不自动生成备份文件
    
95. ;; (setq-default make-backup-files nil)
    
96. 
    
97. ;; 让 dired 可以递归地拷贝和删除目录
    
98. (setq dired-recursive-copies 'top)
    
99. (setq dired-recursive-deletes 'top)
    
100. 
     
101. ;; 中文配置
     
102. (set-language-environment 'Chinese-GB)
     
103. (set-keyboard-coding-system 'euc-cn)
     
104. (set-clipboard-coding-system 'euc-cn)
     
105. (set-terminal-coding-system 'euc-cn)
     
106. (set-buffer-file-coding-system 'euc-cn)
     
107. (set-selection-coding-system 'euc-cn)
     
108. (modify-coding-system-alist 'process "*" 'euc-cn)
     
109. (setq default-process-coding-system 
     
110.             '(euc-cn . euc-cn))
     
111. (setq-default pathname-coding-system 'euc-cn)

复制代码

对于颜色主题color-theme.el使用

(add-to-list `load-path "~/.emacs.d/")
(require `color-theme)
(color-theme-initialize)
(color-theme-xxxxxx)

M-x color-theme-select

一般来说，你从M-x color-theme-select 中选择的主题名称中间有空格

你只要 1、把空格改成英文的连字符就可以了 2、都用小写字母 就可以了