成功编译Emacs23,贴一下配置文件

kemean

终于在BSD中成功编译Emacs23了，是6月24号CVS的版本，好像最新的编译不过。
一定要用gmake编译，bsd make会出问题。

编译命令:

1. 
   
2. ./configure --enable-font-backend --with-xft --with-freetype --with-gtk
   
3. gmake bootstrap
   
4. gmake info
   
5. gmake install
   

复制代码

下面给出我的Emacs配置，支持XFT字体:

1. ~/.Xresources文件

1. 
   
2. Emacs.FontBackend: xft
   
3. Emacs.Font: YaHeiConsolas-13
   
4. Emacs.Geometry: 100x25+4+4
   
5. 
   
6. 
   
7. Xft.antialias: 1
   
8. Xft.hinting: 1
   
9. Xft.autohint: 0
   
10. Xft.hintstyle: hintfull
    
11. Xft.rgba: rgb
    
12. Xft.dpi: 96
    
13. 
    

复制代码

之后

1. 
   
2. xrdb -merge .Xresources
   

复制代码

2. ~/.emacs文件

1. 
   
2. ;插件路径
   
3. (add-to-list 'load-path "/home/share/myemacs")
   
4. (add-to-list 'load-path "/home/share/myemacs/ecb")
   
5. (add-to-list 'load-path "/home/share/myemacs/xcscope")
   
6. (add-to-list 'load-path "/home/share/myemacs/cedet/common")
   
7. 
   
8. 
   
9. ;字体设置
   
10. (set-default-font "YaHeiConsolas-13")
    
11. (set-fontset-font "fontset-default"
    
12.                   'unicode '("YaHeiConsolas-13" . "unicode-bmp"))
    
13. (setq default-frame-alist
    
14.       (append '((font . "YaHeiConsolas-13")) default-frame-alist))
    
15. 
    
16. 
    
17. ;解决emacs shell 乱码
    
18. (setq ansi-color-for-comint-mode t)
    
19. (customize-group 'ansi-colors)
    
20. (kill-this-buffer);关闭customize窗口
    
21. 
    
22. 
    
23. ;自定义按键
    
24. (global-set-key [f1] 'shell);F1进入Shell
    
25. (global-set-key [f5] 'gdb);F5调试程序
    
26. (setq compile-command "make -f Makefile")
    
27. (global-set-key [f7] 'do-compile);F7编译文件
    
28. (global-set-key [f8] 'other-window);F8窗口间跳转
    
29. (global-set-key [C-return] 'kill-this-buffer);C-return关闭当前buffer
    
30. (global-set-key [f10] 'split-window-vertically);F10分割窗口
    
31. (global-set-key [f11] 'delete-other-windows);F11 关闭其它窗口
    
32. (global-set-key [f12] 'my-fullscreen);F12 全屏
    
33. (global-set-key (kbd "C-,") 'backward-page);文件首
    
34. (global-set-key (kbd "C-.") 'forward-page);文件尾
    
35. 
    
36. 
    
37. ;普通设置
    
38. (setq inhibit-startup-message t);关闭起动时闪屏
    
39. (setq visible-bell t);关闭出错时的提示声
    
40. (setq make-backup-files nil);不产生备份文件
    
41. (setq default-major-mode 'text-mode);一打开就起用 text 模式
    
42. (global-font-lock-mode t);语法高亮
    
43. (auto-image-file-mode t);打开图片显示功能
    
44. (fset 'yes-or-no-p 'y-or-n-p);以 y/n代表 yes/no
    
45. (column-number-mode t);显示列号
    
46. (show-paren-mode t);显示括号匹配
    
47. (display-time-mode 1);显示时间，格式如下
    
48. (setq display-time-24hr-format t)
    
49. (setq display-time-day-and-date t)
    
50. (tool-bar-mode nil);去掉那个大大的工具栏
    
51. (scroll-bar-mode nil);去掉滚动条
    
52. ;(mouse-avoidance-mode 'animate);光标靠近鼠标指针时，让鼠标指针自动让开
    
53. (setq mouse-yank-at-point t);支持中键粘贴
    
54. (transient-mark-mode t);允许临时设置标记
    
55. (setq x-select-enable-clipboard t);支持emacs和外部程序的粘贴
    
56. (setq frame-title-format '("" buffer-file-name "@emacs" ));在标题栏显示buffer名称
    
57. (setq default-fill-column 80);默认显示 80列就换行
    
58. 
    
59. 
    
60. ;鼠标滚轮，默认的滚动太快，这里改为3行
    
61. (defun up-slightly () (interactive) (scroll-up 3))
    
62. (defun down-slightly () (interactive) (scroll-down 3))
    
63. (global-set-key [mouse-4] 'down-slightly)
    
64. (global-set-key [mouse-5] 'up-slightly)
    
65. 
    
66. 
    
67. ;非交互式编译
    
68. (defun do-compile ()
    
69.   "Save buffers and start compile"
    
70.   (interactive)
    
71.   (save-some-buffers t)
    
72.   (setq compilation-read-command nil)
    
73.   (compile compile-command)
    
74.   (setq compilation-read-command t))
    
75. 
    
76. 
    
77. ;shell,gdb退出后，自动关闭该buffer
    
78. (add-hook 'shell-mode-hook 'mode-hook-func)
    
79. (add-hook 'gdb-mode-hook 'mode-hook-func)
    
80. (defun mode-hook-func  ()
    
81.   (set-process-sentinel (get-buffer-process (current-buffer))
    
82.                         #'kill-buffer-on-exit))
    
83. (defun kill-buffer-on-exit (process state)
    
84.   (message "%s" state)
    
85.   (if (or
    
86.        (string-match "exited abnormally with code.*" state)
    
87.        (string-match "finished" state))
    
88.       (kill-buffer (current-buffer))))
    
89. 
    
90. 
    
91. ;全屏
    
92. (defun my-fullscreen ()
    
93.   (interactive)
    
94.   (x-send-client-message
    
95.    nil 0 nil "_NET_WM_STATE" 32
    
96.    '(2 "_NET_WM_STATE_FULLSCREEN" 0)))
    
97. 
    
98. ;最大化
    
99. (defun my-maximized-horz ()
    
100.   (interactive)
     
101.   (x-send-client-message
     
102.    nil 0 nil "_NET_WM_STATE" 32
     
103.    '(1 "_NET_WM_STATE_MAXIMIZED_HORZ" 0)))
     
104. (defun my-maximized-vert ()
     
105.   (interactive)
     
106.   (x-send-client-message
     
107.    nil 0 nil "_NET_WM_STATE" 32
     
108.    '(1 "_NET_WM_STATE_MAXIMIZED_VERT" 0)))
     
109. (defun my-maximized ()
     
110.   (interactive)
     
111.   (x-send-client-message
     
112.    nil 0 nil "_NET_WM_STATE" 32
     
113.    '(1 "_NET_WM_STATE_MAXIMIZED_HORZ" 0))
     
114.   (interactive)
     
115.   (x-send-client-message
     
116.    nil 0 nil "_NET_WM_STATE" 32
     
117.    '(1 "_NET_WM_STATE_MAXIMIZED_VERT" 0)))
     
118. (my-maximized)
     
119. 
     
120. 
     
121. ;加入会话功能
     
122. (require 'session)
     
123. (add-hook 'after-init-hook 'session-initialize)
     
124. (load "desktop")
     
125. (desktop-save-mode)
     
126. 
     
127. 
     
128. ;加入标签功能
     
129. (require 'tabbar)
     
130. (tabbar-mode)
     
131. ;(global-set-key (kbd "") 'tabbar-backward-group)
     
132. ;(global-set-key (kbd "") 'tabbar-forward-group)
     
133. (global-set-key (kbd "C-`") 'tabbar-backward)
     
134. (global-set-key (kbd "C-<tab>") 'tabbar-forward)
     
135. ;设置tabbar字体
     
136. (set-face-attribute 'tabbar-default-face
     
137.                     nil :family "Tahoma")
     
138. 
     
139. 
     
140. ;加入color-theme插件
     
141. (require 'color-theme)
     
142. (color-theme-classic)
     
143. 
     
144. 
     
145. ;启动最大化
     
146. ;(require 'maxframe)
     
147. ;(setq mf-max-width 1018)
     
148. ;(setq mf-max-height 730)
     
149. ;(add-hook 'window-setup-hook 'maximize-frame t)
     
150. 
     
151. 
     
152. ;加入xcscope插件
     
153. (require 'xcscope)
     
154. 
     
155. 
     
156. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;C/C++设定;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
157. ;;;;缩进策略
     
158. (defun my-indent-or-complete ()
     
159.   (interactive)
     
160.   (if (looking-at "\\>")
     
161.       (hippie-expand nil)
     
162.     (indent-for-tab-command)))
     
163. ;补全优先级
     
164. (autoload 'senator-try-expand-semantic "senator")
     
165. (setq hippie-expand-try-functions-list
     
166.       '(
     
167.         senator-try-expand-sematic
     
168.         try-expand-dabbrev
     
169.         try-expand-dabbrev-visible
     
170.         try-expand-dabbrev-all-buffers
     
171.         try-expand-dabbrev-from-kill
     
172.         try-complete-file-name-partially
     
173.         try-complete-file-name
     
174.         try-expand-all-abbrevs
     
175.         try-expand-list
     
176.         try-expand-line
     
177.         try-complete-lisp-symbol-partially
     
178.         try-complete-lisp-symbol))
     
179. ;;;; CC-mode配置  [url]http://cc-mode.sourceforge.net/[/url]
     
180. (require 'cc-mode)
     
181. (c-set-offset 'inline-open 0)
     
182. (c-set-offset 'friend '-)
     
183. (c-set-offset 'substatement-open 0)
     
184. ;;;;根据后缀判断所用的mode
     
185. ;;;;注意：我在这里把.h关联到了c++-mode
     
186. (setq auto-mode-alist
     
187.       (append '(("\\.h$" . c++-mode)) auto-mode-alist))
     
188. ;;;;我的C语言编辑策略
     
189. (defun my-c-mode-common-hook()
     
190.   (setq default-tab-width 4 indent-tabs-mode nil)
     
191.   (setq tab-width 4 indent-tabs-mode nil)
     
192.   (setq c-basic-offset 4)
     
193.   ;;; hungry-delete and auto-newline
     
194.   (c-toggle-auto-hungry-state 1)
     
195.   ;;按键定义
     
196.   ;(define-key c-mode-base-map [(control \`)] 'hs-toggle-hiding)
     
197.   (define-key c-mode-base-map [(return)] 'newline-and-indent)
     
198.   (define-key c-mode-base-map [(f7)] 'do-compile)
     
199.   ;(define-key c-mode-base-map [(f8)] 'ff-get-other-file)
     
200.   (define-key c-mode-base-map [(meta \`)] 'c-indent-command)
     
201. 
     
202.   ;(define-key c-mode-base-map [(tab)] 'hippie-expand)
     
203.   (define-key c-mode-base-map [(tab)] 'my-indent-or-complete)
     
204.   (define-key c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu)
     
205.   ;;预处理设置
     
206.   (setq c-macro-shrink-window-flag t)
     
207.   (setq c-macro-preprocessor "cpp")
     
208.   (setq c-macro-cppflags " ")
     
209.   (setq c-macro-prompt-flag t)
     
210.   (setq hs-minor-mode t)
     
211.   (setq abbrev-mode t))
     
212. (add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
     
213. ;;;;我的C++语言编辑策略
     
214. (defun my-c++-mode-hook()
     
215.   (setq default-tab-width 4 indent-tabs-mode nil)
     
216.   (setq tab-width 4 indent-tabs-mode nil)
     
217.   (setq c-basic-offset 4)
     
218.   ;;(define-key c++-mode-map [f3] 'replace-regexp)
     
219.   (c-set-style "stroustrup"))
     
220. (add-hook 'c++-mode-hook 'my-c++-mode-hook)
     
221. 
     
222. 
     
223. ;加入cedet插件
     
224. (add-hook 'texinfo-mode-hook (lambda () (require 'sb-texinfo)))
     
225. (require 'cedet)
     
226. (semantic-load-enable-code-helpers)
     
227. (autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
     
228. (autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)
     
229. (define-key-after (lookup-key global-map [menu-bar tools])
     
230.   [speedbar]
     
231.   '("Speedbar" .
     
232.     speedbar-frame-mode)
     
233.   [calendar])
     
234. (global-set-key [f4] 'speedbar);F4打开/关闭speedbar
     
235. ;;;;semantic /usr/include      
     
236. (setq semanticdb-search-system-databases t)
     
237. (add-hook 'c-mode-common-hook
     
238.           (lambda ()
     
239.             (setq semanticdb-project-system-databases
     
240.                   (list (semanticdb-create-database
     
241.                          semanticdb-new-database-class
     
242.                          "/usr/include")))))
     
243. ;project root path
     
244. (setq semanticdb-project-roots
     
245.       (list
     
246.        (expand-file-name "~/devel")))
     
247. 
     
248. 
     
249. ;加入ecb插件
     
250. (require 'ecb)
     
251. ;ecb设置
     
252. (require 'ecb-autoloads)
     
253. (setq ecb-auto-activate t
     
254.       ecb-tip-of-the-day nil
     
255.       inhibit-startup-message t
     
256.       ecb-auto-compatibility-check nil
     
257.       ecb-version-check nil)
     
258. 
     
259. 
     
260. 
     
261. (custom-set-variables
     
262.   ;; custom-set-variables was added by Custom.
     
263.   ;; If you edit it by hand, you could mess it up, so be careful.
     
264.   ;; Your init file should contain only one such instance.
     
265.   ;; If there is more than one, they won't work right.
     
266. '(ecb-layout-window-sizes (quote (("left8" (0.20967741935483872 . 0.27586206896551724) (0.20967741935483872 . 0.2413793103448276) (0.20967741935483872 . 0.27586206896551724) (0.20967741935483872 . 0.1724137931034483)))))
     
267. '(ecb-primary-secondary-mouse-buttons (quote mouse-1--C-mouse-1)))
     
268. (custom-set-faces
     
269.   ;; custom-set-faces was added by Custom.
     
270.   ;; If you edit it by hand, you could mess it up, so be careful.
     
271.   ;; Your init file should contain only one such instance.
     
272.   ;; If there is more than one, they won't work right.
     
273. )
     
274. 
     
275. 
     
276. ;scroll other window
     
277. (global-set-key (kbd "C-c C-v") 'scroll-other-window)
     
278. (global-set-key (kbd "C-c C-b") 'scroll-other-window-down)
     
279. 
     

复制代码

kemean

贴一下效果图:

zonyonq

很不错呀，支持！！