有关 Emacs 使用技巧的内容请在这个帖子讨论。

jerryfleming

1. 
   
2. ;; .emacs initialization file
   
3. ; -*- mode: emacs-lisp -*-
   
4. 
   
5. ;; Set up the keyboard so the delete key on both the regular keyboard
   
6. ;; and the keypad delete the character under the cursor and to the right
   
7. ;; under X, instead of the default, backspace behavior.
   
8. (global-set-key [delete] 'delete-char)
   
9. (global-set-key [kp-delete] 'delete-char)
   
10. 
    
11. ;; turn on font-lock mode
    
12. (global-font-lock-mode t)
    
13. ;; enable visual feedback on selections
    
14. (setq-default transient-mark-mode t)
    
15. 
    
16. ;; always end a file with a newline
    
17. (setq require-final-newline t)
    
18. 
    
19. ;; stop at the end of the file, not just add lines
    
20. (setq next-line-add-newlines nil)
    
21. 
    
22. (when window-system
    
23.   ;; enable wheelmouse support by default
    
24.   (mwheel-install)
    
25.   ;; use extended compound-text coding for X clipboard
    
26.   (set-selection-coding-system 'compound-text-with-extensions))
    
27. 
    
28. 
    
29. 
    
30. (defun recentf-open-files-compl ()
    
31.   (interactive)
    
32.   (let* ((all-files recentf-list)
    
33.          (tocpl (mapcar (function
    
34.                          (lambda (x) (cons (file-name-nondirectory x) x))) all-files))
    
35.          (prompt (append '("File name: ") tocpl))
    
36.          (fname (completing-read (car prompt) (cdr prompt) nil nil)))
    
37.     (find-file (cdr (assoc-ignore-representation fname tocpl)))))
    
38. 
    
39. (global-set-key [(control x)(control r)] 'recentf-open-files-compl)
    
40. 
    
41. 
    
42. ;; 让sentence-end可以识别全角的标点符号
    
43. (setq sentence-end "\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")
    
44. (setq sentence-end-double-space nil)
    
45. 
    
46. (load "desktop")
    
47. (desktop-load-default)
    
48. (desktop-read)
    
49. 
    
50. ;;打开文件和转换 buffer 的方便模式。
    
51. ;;在Win下这个东西不爽，不能切换盘符
    
52. (require 'ido)
    
53. (ido-mode t)
    
54. 
    
55. (require 'color-theme)
    
56. (color-theme-gnome2)
    
57. 
    
58. (autoload 'table-insert "table" "WYGIWYS table editor")
    
59. 
    
60. (require 'tabbar)
    
61. (tabbar-mode)
    
62. (global-set-key (kbd "") 'tabbar-backward-group)
    
63. (global-set-key (kbd "") 'tabbar-forward-group)
    
64. (global-set-key (kbd "") 'tabbar-backward)
    
65. (global-set-key (kbd "") 'tabbar-forward)
    
66. 
    
67. 
    
68. (require 'swbuff)
    
69. (global-set-key (kbd "") 'swbuff-switch-to-previous-buffer)
    
70. (global-set-key (kbd "") 'swbuff-switch-to-next-buffer)
    
71. (setq swbuff-exclude-buffer-regexps
    
72.      '("^ " "\\*.*\\*"))
    
73. 
    
74. (setq swbuff-status-window-layout 'scroll)
    
75. (setq swbuff-clear-delay 1)
    
76. (setq swbuff-separator "|")
    
77. (setq swbuff-window-min-text-height 1)
    
78. 
    
79. 
    
80. (require 'browse-kill-ring)
    
81. (global-set-key [(control c)(k)] 'browse-kill-ring)
    
82. (browse-kill-ring-default-keybindings)
    
83. 
    
84. 
    
85. (require 'ibuffer)
    
86. (global-set-key (kbd "C-x C-b") 'ibuffer)
    
87. 
    
88. ;; copy lines
    
89. (defun copy-lines(&optional arg)
    
90.   (interactive "p")
    
91.   (save-excursion
    
92.     (beginning-of-line)
    
93.     (set-mark (point))
    
94.     (if arg
    
95.         (next-line (- arg 1)))
    
96.     (end-of-line)
    
97.     (kill-ring-save (mark) (point))))
    
98. ;; set key
    
99. (global-set-key (kbd "C-c w") 'copy-lines)
    
100. 
     
101. 
     
102. 
     
103. ;; Load CEDET
     
104. (load-file "C:/emacs/cedet-1.0pre3/common/cedet.el")
     
105. 
     
106. (add-to-list 'load-path "C:/emacs/ecb-2.32/")
     
107. (require 'ecb-autoloads)
     
108. 
     
109. ;; Enabling various SEMANTIC minor modes.  See semantic/INSTALL for more ideas.
     
110. ;; Select one of the following
     
111. (semantic-load-enable-code-helpers)
     
112. ;; (semantic-load-enable-guady-code-helpers)
     
113. ;; (semantic-load-enable-excessive-code-helpers)
     
114. 
     
115. ;; Enable this if you develop in semantic, or develop grammars
     
116. ;; (semantic-load-enable-semantic-debugging-helpers)
     
117. (custom-set-variables
     
118.   ;; custom-set-variables was added by Custom.
     
119.   ;; If you edit it by hand, you could mess it up, so be careful.
     
120.   ;; Your init file should contain only one such instance.
     
121.   ;; If there is more than one, they won't work right.
     
122. '(column-number-mode t)
     
123. '(cua-mode nil)
     
124. '(ecb-auto-activate t)
     
125. '(ecb-gzip-setup (quote ("c:\\emacs\\bin\\gzip.exe" . windows)))
     
126. '(ecb-options-version "2.32")
     
127. '(ecb-other-window-behavior (quote all))
     
128. '(ecb-primary-secondary-mouse-buttons (quote mouse-1--mouse-2))
     
129. '(ecb-source-path (quote ("D:/")))
     
130. '(ecb-tar-setup (quote ("c:\\emacs\\bin\\tar.exe" . windows)))
     
131. '(ecb-wget-setup (quote ("c:\\emacs\\bin\\wget.exe" . windows)))
     
132. '(ecb-windows-width 0.2)
     
133. '(global-font-lock-mode t nil (font-core))
     
134. '(hscroll-margin 0)
     
135. '(show-paren-mode t nil (paren))
     
136. '(transient-mark-mode t))
     
137. (custom-set-faces
     
138.   ;; custom-set-faces was added by Custom.
     
139.   ;; If you edit it by hand, you could mess it up, so be careful.
     
140.   ;; Your init file should contain only one such instance.
     
141.   ;; If there is more than one, they won't work right.
     
142. )
     
143. 
     
144. (if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
     
145. ;(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
     
146. ;(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
     
147. ;;禁用启动信息
     
148. (setq inhibit-startup-message t)
     
149. 
     
150. ;;关闭烦人的出错时的提示声
     
151. (setq visible-bell t)
     
152. 
     
153. ;;把title设置为“文件名@LC's Emacs"
     
154. (setq frame-title-format
     
155.         '("GNU Emacs[ " (buffer-file-name "%f \]"
     
156.                 (dired-directory dired-directory "%b \]"))))
     
157. 
     
158. ;;光标靠近鼠标的时候，让鼠标自动让开，别挡住视线
     
159. (mouse-avoidance-mode 'animate)
     
160. 
     
161. ;;下面的这个设置可以让光标指到某个括号的时候显示与它匹配的括号
     
162. (show-paren-mode t)
     
163. (setq show-paren-style 'parentheses)
     
164. 
     
165. ;;设置缺省模式是text，而不是基本模式
     
166. ;(setq default-major-mode 'text-mode)
     
167. ;(add-hook 'text-mode-hook 'turn-on-auto-fill)
     
168. 
     
169. ;;打开文本的默认格式为gb2312-dos
     
170. ;(setq inhibit-eol-conversion 'gb2312-dos)
     
171. 
     
172. ;;设置tab为4个空格的宽度，而不是原来的2
     
173. ;(setq default-tab-width 4)
     
174. 
     
175. ;;防止页面滚动时跳动
     
176. (setq scroll-margin 3
     
177.       scroll-conservatively 10000)
     
178. 
     
179. ;; 所有的备份文件转移到~/backups目录下
     
180. (setq backup-directory-alist (quote (("." . "~/backups"))))
     
181. (setq version-control t)
     
182. (setq kept-old-versions 2)
     
183. (setq kept-new-versions 5)
     
184. (setq delete-old-versions t)
     
185. (setq backup-directory-alist '(("." . "~/backups")))
     
186. (setq backup-by-copying t)
     
187. ;; Emacs 中，改变文件时，默认都会产生备份文件(以 ~ 结尾的文件)。可以完全去掉
     
188. ;; (并不可取)，也可以制定备份的方式。这里采用的是，把所有的文件备份都放在一
     
189. ;; 个固定的地方("~/var/tmp")。对于每个备份文件，保留最原始的两个版本和最新的
     
190. ;; 五个版本。并且备份的时候，备份文件是复本，而不是原件。
     
191. 
     
192. ;;不产生备份文件
     
193. ;(setq make-backup-files nil)
     
194. 
     
195. ;;设置kill-ring-max(我不知道怎么翻译这个词：)为200，以防不测：）
     
196. (setq kill-ring-max 200)
     
197. 
     
198. ;; 当有两个文件名相同的缓冲时，使用前缀的目录名做 buffer 名字，不用原来的
     
199. ;; foobar<?> 形式。
     
200. (setq uniquify-buffer-name-style 'forward)
     
201. 
     
202. ;;显示日期
     
203. (setq display-time-day-and-date t)
     
204. (display-time)
     
205. 
     
206. ;;显示时间
     
207. (setq display-time-24hr-format t)
     
208. (setq display-time-day-and-date t)
     
209. (setq display-time-use-mail-icon t)
     
210. (setq display-time-interval 10)
     
211. 
     
212. ;; 设置时间戳，标识出最后一次保存文件的时间。
     
213. (setq time-stamp-active t)
     
214. (setq time-stamp-warn-inactive t)
     
215. (setq time-stamp-format "%:y-%02m-%02d %3a %02H:%02M:%02S K.T")
     
216. 
     
217. ;; 默认的日记文件
     
218. ;(setq diary-file "~/diary/rj")
     
219. 
     
220. ;; 设置所在地的经纬度和地名，calendar 可以根据这些信息告知你每天的日出和日落
     
221. ;; 的时间。
     
222. (setq calendar-latitude +45.75)
     
223. (setq calendar-longitude +126.63)
     
224. (setq calendar-location-name "Harbin")
     
225. 
     
226. ;;保存上次的操作记录到SESSION
     
227. (add-to-list 'load-path "~/tmp")
     
228. (require 'session)
     
229. (add-hook 'after-init-hook 'session-initialize)
     
230. 
     
231. (load "desktop")
     
232. (desktop-load-default)
     
233. (desktop-read)
     
234. 
     
235. ;;设置默认工作目录
     
236. (setq default-directory "D:/")
     
237. 
     
238. ;;显示列号
     
239. (setq column-number-mode t)
     
240. 
     
241. ;设置默认的列数是110
     
242. (setq default-fill-column 168)
     
243. 
     
244. ;;设置行号,开启命令:M-x setnu-mode
     
245. ;(require 'setnu)
     
246. 
     
247. ;;'y' for 'yes', 'n' for 'no'
     
248. (fset 'yes-or-no-p 'y-or-n-p)
     
249. 
     
250. ;; 代码折叠
     
251. (load-library "hideshow")
     
252. (add-hook 'java-mode-hook 'hs-minor-mode)
     
253. (add-hook 'perl-mode-hook 'hs-minor-mode)
     
254. (add-hook 'php-mode-hook 'hs-minor-mode)
     
255. (add-hook 'emacs-lisp-mode-hook 'hs-minor-mode)
     
256. 
     
257. ;;开启图片浏览
     
258. (require 'thumbs)
     
259. (auto-image-file-mode t)
     
260. 
     
261. ;; 如果设置为 t，光标在 TAB 字符上会显示为一个大方块 :)。
     
262. (setq x-stretch-cursor nil)
     
263. 
     
264. ;;语法高亮，除 shell-mode 和 text-mode 之外的模式中使用语法高亮
     
265. ;;可是打开后PHP不高亮了，-_-!
     
266. ;(setq font-lock-maximum-decoration t)
     
267. ;(setq font-lock-global-modes '(not shell-mode text-mode))
     
268. ;(setq font-lock-verbose t)
     
269. ;(setq font-lock-maximum-size
     
270. ;       '((t . 1048576) (vm-mode . 5250000)))
     
271. 
     
272. ;;打开压缩文件时自动解压缩。
     
273. ;(auto-compression-mode 1)                             
     
274. 
     
275. ;;光标不要闪烁。
     
276. ;(blink-cursor-mode -1)
     
277. 
     
278. ;;高亮显示匹配的括号。
     
279. (show-paren-mode 1)
     
280. 
     
281. ;;给出用 M-x foo-bar-COMMAND 输入命令的提示。
     
282. ;(icomplete-mode 1)
     
283. 
     
284. 
     
285. ;;SET KEY
     
286. (global-set-key "\C-xk" 'kill-this-buffer)
     
287. (global-set-key "\C-xr" 'replace-string)
     
288. (global-set-key "\C-xt" 'insert-now-time);把插入当前时间绑定到 C-x t
     
289. 
     
290. ;; 打开文件的时候过滤掉[^M] 键盘上输入为[C-q-m] 或者
     
291. ;; C-x <RET> r gb2312-dos 或者
     
292. ;; C-x <RET> r gb2312-unix 或者
     
293. ;; 运行下面的函数
     
294. (defun remove-trailing-ctrl-m ()
     
295.         (interactive)
     
296.         (goto-char (point-min))
     
297.         (while (search-forward-regexp "
     
298.         " nil t)
     
299.         (replace-match "" nil t)))
     
300. 
     
301. 
     
302. ;;导出成html高亮显示
     
303. ;(require 'htmlize)
     
304. 
     
305. (autoload 'php-mode "php-mode" "PHP editing mode" t)
     
306. (add-to-list 'auto-mode-alist '("\\.php\\'" . php-mode))
     
307. (autoload 'css-mode "css-mode" "CSS editing mode" t)
     
308. (add-to-list 'auto-mode-alist '("\\.css\\'" . css-mode))
     

复制代码

[ 本帖最后由 jerryfleming 于 2006-1-23 14:30 编辑 ]

unixer2i

1. 
   
2. (custom-set-variables
   
3.   ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
   
4.   ;; Your init file should contain only one such instance.
   
5. '(auto-insert-mode t nil (autoinsert))
   
6. '(auto-show-mode t t)
   
7. '(c++-mode-hook nil)
   
8. '(c-indent-comments-syntactically-p t)
   
9. '(c-tab-always-indent t)
   
10. '(case-fold-search t)
    
11. '(column-number-mode t)
    
12. '(cpp-known-writable t)
    
13. '(current-language-environment "Chinese-GB")
    
14. '(default-input-method "chinese-wbx-gb")
    
15. '(dired-recursive-copies t)
    
16. '(facemenu-add-face-function nil)
    
17. '(facemenu-keybindings (quote ((default . "d") (bold . "b") (italic . "i") (bold-italic . "l") (underline . "u") (Overline . "v") (Box . "x"))))
    
18. '(facemenu-new-faces-at-end t)
    
19. '(facemenu-unlisted-faces (quote (modeline region secondary-selection highlight scratch-face "^font-lock-" "^gnus-" "^message-" "^ediff-" "^term-" "^vc-" "^widget-" "^custom-" "^vm-")))
    
20. '(global-font-lock-mode t nil (font-lock))
    
21. '(global-hl-line-mode t nil (hl-line))
    
22. '(hl-line-face (quote highlight))
    
23. '(html-mode-hook (quote (html-autoview-mode)))
    
24. '(java-mode-hook nil)
    
25. '(mark-holidays-in-calendar t)
    
26. '(nxml-attribute-indent 8)
    
27. '(nxml-auto-insert-xml-declaration-flag t)
    
28. '(nxml-child-indent 4)
    
29. '(nxml-outline-child-indent 4)
    
30. '(nxml-prefer-utf-16-to-utf-8-flag nil)
    
31. '(nxml-sexp-element-flag t)
    
32. '(nxml-slash-auto-complete-flag t)
    
33. '(php-mode-force-pear t)
    
34. '(php-mode-speedbar-open nil)
    
35. '(php-speedbar-config nil)
    
36. '(sgml-mode-hook nil)
    
37. '(sgml-name-8bit-mode t)
    
38. '(sgml-slash-distance 2000)
    
39. '(show-paren-mode t nil (paren))
    
40. '(standard-indent 8)
    
41. '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
    
42. '(transient-mark-mode t))
    
43. (custom-set-faces
    
44.   ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
    
45.   ;; Your init file should contain only one such instance.
    
46. '(highlight ((((class color) (background light)) (:background "lightgreen" :foreground "black" :underline t))))
    
47. '(nxml-heading-face ((t (:background "lightgreen" :foreground "blue" :weight bold :height unspecified))))
    
48. '(rng-error-face ((t (:underline "red")))))
    
49. ;;the setnu.el used in the source code viewing the lines
    
50. (require 'setnu)
    
51. (setnu-mode t)
    
52. (setq appt-issue-message t)
    
53. (setq display-time-24hr-format t)
    
54. (setq display-time-day-and-date t)
    
55. (display-time)
    
56. 
    
57. ;;the xref tools can be use viewing and compile editing the java source code forlearning the source code
    
58. (setq exec-path (cons "d:/apptools/xref" exec-path))
    
59. (setq load-path (cons "d:/apptools/xref/emacs" load-path))
    
60. (load "xrefactory")
    
61. 
    
62. ;;erc-pcomlete mode
    
63. (add-hook 'erc-mode-hook
    
64.               '(lambda ()
    
65.                (require 'erc-pcomplete)
    
66.                   (pcomplete-erc-setup)
    
67.                  (erc-completion-mode 1)))
    
68. (put 'downcase-region 'disabled nil)
    
69. 
    
70. ;;php-mode use
    
71. (require 'php-mode)
    
72. (add-hook 'php-mode-user-hook 'turn-on-font-lock)
    
73. (add-hook 'php-mode-user-hook
    
74.           '(lambda () (define-abbrev php-mode-abbrev-table "ex" "extends")))
    
75. 
    
76. 
    
77. ;; emacs all.el use
    
78. (autoload 'all "all" nil t)
    
79. 
    
80. ;; emacs flyspell-1.7e.el use
    
81. (autoload 'flyspell-mode "flyspell" "On-the-fly spelling checking" t)
    
82. (autoload 'global-flyspell-mode "flyspell" "On-the-fly spelling" t)
    
83. 
    
84. ;; emacs template use
    
85. (setq load-path (cons (expand-file-name "d:/apptools/emacs-21.3/site-lisp")
    
86.                       load-path))
    
87. (require 'template)
    
88. (template-initialize)
    
89. 
    
90. ;; emacs wb-line-number.el use:
    
91. (set-scroll-bar-mode nil)   ; no scroll bar, even in x-window system
    
92. (require 'wb-line-number)
    
93. 
    
94. ;; emacs gnuserv.el usage:
    
95. (require 'gnuserv)
    
96. (gnuserv-start)
    
97. 
    
98. ;; emacs psgml setup
    
99. (setq load-path (append (list nil "d:/apptools/emacs-21.3/site-lisp/psgml-1.2.5") load-path))
    
100. ;; use PSGML for sgml and xml major modes.
     
101. (autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
     
102. (autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
     
103. 
     
104. ;; emacs nxml-mode use:
     
105. (load "d:/apptools/emacs-21.3/site-lisp/nxml-mode-20041004/rng-auto.el") ;; get things automatically loaded each time when starting emacs
     
106. ;; with an extension of xml, xsl, rng or xhtml in all nxml-mode files in automatically uses:
     
107. (setq auto-mode-alist
     
108.         (cons '("\\.\\(xml\\|xsl\\|rng\\|xhtml\\)\\'" . nxml-mode)
     
109.               auto-mode-alist))
     
110. 
     
111. ;; emacs html-helper-mode use:
     
112. (setq load-path (cons "d:/apptools/emacs-21.3/site-lisp/html-helper-mode.el " load-path))
     
113. (autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
     
114. (setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
     
115. (setq auto-mode-alist (cons '("\\.phtml$" . html-helper-mode) auto-mode-alist))
     
116. 
     
117. ;; emacs session use:
     
118. (require 'session)
     
119. (add-hook 'after-init-hook 'session-initialize)
     
120. 
     
121. ;; emacs ispell use:
     
122. (setq-default ispell-program-name "aspell")
     
123.     (setq-default ispell-local-dictionary "american")
     
124.     (global-set-key (kbd "") 'ispell-complete-word)
     
125. 
     
126. ;; emacs python-mode use:
     
127. (setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist))
     
128. (setq interpreter-mode-alist (cons '("python" . python-mode)
     
129.                                    interpreter-mode-alist))
     
130. (autoload 'python-mode "python-mode" "Python editing mode." t)
     
131. 
     
132. ;; emads pymacs used in Win32:
     
133. (autoload ' pymacs-load "pymacs" nil t)
     
134. (autoload ' pymacs-eval "pymacs" nil t)
     
135. (autoload ' pymacs-apply "pymacs")
     
136. ;;(autoload ' pymacs-call "pymacs")
     
137. (eval-after-load "pymacs"
     
138. ' (add-to-list ' pymacs-load-path "d:/apptools/emacs-21.3/site-lisp/Pymacs-0.22"))
     
139. 
     
140. ;; emacs generic mode use:
     
141. (require ' generic)
     
142. (require ' generic-x)
     
143. 
     
144. ;; emacs dired-signle mode use:
     
145. (require 'dired-single)
     

复制代码

jerryfleming

如题，谢谢

unixer2i

原帖由 jerryfleming 于 2006-2-5 10:43 发表
如题，谢谢

http://www.damtp.cam.ac.uk/user/sje30/emacs/ell.html#t

kunson

原帖由 dozec 于 2005-8-24 20:26 发表
问一个憋脚问题：Emacs英文怎么读，是读/i'meks/嘛？
呵呵，问这种问题有点丢人~~~

不丢人，大家都是有这个过程

1. 
   
2. /'i:m ae  ks/
   
3.        ---            
   
4.         ^
   
5.          |
   
6.       元音   单词“胖的”-fat, 那个字母a的发音

复制代码

[ 本帖最后由 kunson 于 2006-2-10 12:30 编辑 ]

satan212

我在xp下面下载了 Emacs for Windows 的版本

问：怎样在windows下编译hello world啊。

怎样gcc 怎样make啊

上火

satan212

我想在XP下学emacs，一点emacs知识都没有，有哪位好心人给我点资料，
给最白痴的看的那种，还点是中文的，谢谢
一下午了，连个hello world的编译都没调出来。

上火啊！

emacsnw

原帖由 satan212 于 2006-2-14 04:52 发表
我想在XP下学emacs，一点emacs知识都没有，有哪位好心人给我点资料，
给最白痴的看的那种，还点是中文的，谢谢
一下午了，连个hello world的编译都没调出来。

上火啊！

emacs是文本编辑器，不是编译器。我们能够在emacs里面方便的调用外部编译器，但是你装了吗？

herberteuler

不如改学 Lisp

unixer2i

RT。 我在我自己的NTEMACS中根据说明设置了一个emacs face，但在重新启动时，无法正常使用。有什么方法能让它正常使用呢？