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

projoy

呵呵，想问一个事情，就是如何把一个组合键绑到另一个组合键上?
因为c-k只能删去从光标开始以后的文字，而要删除整行则需用Ctrl-u 0 Ctrl-k，因为我更需要删除整行，所以每次按这个太麻烦，想把Ctrl-u 0 Ctrl-k绑到C-k上，这样就可以按c-k删除整行了，请问能办到吗？

lgfang

原帖由 projoy 于 2008-4-27 17:23 发表
呵呵，想问一个事情，就是如何把一个组合键绑到另一个组合键上?
因为c-k只能删去从光标开始以后的文字，而要删除整行则需用Ctrl-u 0 Ctrl-k，因为我更需要删除整行，所以每次按这个太麻烦，想把Ctrl-u 0 Ctrl- ...

1， Emacs 很强，功能很多。要用好、用爽，必须善于学习、总结。你问的问题可以在手册里查到，也可以在本帖中找到例子
2， 不用 C-u 0 C-k； C-a C-k 就行了。
3， 你是不是用操作vi的思路来操作emacs？ 我在emacs中的做法是把要删除的部分mark上，然后 C-w
4， 建议你不要修改emacs默认的快捷键，否则A，你到别人机器上会不适应；B，大部分快捷键实际上都被占了，所以一改动就影响好几个快捷键。

projoy

呵呵，知道了，不好意思啊，我会认真学习的。呵呵，谢谢指点

molisiye

现在我的emacs里显示的switch-case格式是：

switch (ch) { case '1':     ....;     break; case '2':     ....;     break; }

我想把它改成：

switch (ch) {     case '1':         ....;         break;     case '2':         ....;         break; }

请问：我应该怎么设置才能让它按我想要的格式显示呢？
我试了设置c-style，但是都是第一种格式。
希望您看到后能帮我一下。谢谢！

projoy

我在UBUNTU下CVS了一个EMACS，打开后却出现如下warning
Warning (initialization): Building Emacs overflowed pure space.  (See the node Pure Storage in the Lisp manual for details.)
请问这是怎么回事？虽然不影响使用，可是每次都出来，每次都得关掉，蛮不爽的。

lgfang

原帖由 molisiye 于 2008-4-29 21:58 发表
现在我的emacs里显示的switch-case格式是：
switch (ch) {
case '1':
    ....;
    break;
case '2':
    ....;
    break;
}


我想把它改成：
switch (ch) {
    case '1':
        ....;
   ...

设置一下c style 然后重启emacs就行了。关键是case-label要往里缩进。例如

1. 
   
2. ;; C/C++ indentation style
   
3. (defconst lgfang-c-style
   
4.   '((c-tab-always-indent        . t)
   
5.     (c-basic-offset . 4)
   
6.     (c-ignore-auto-fill . nil)
   
7.     (c-comment-only-line-offset . (0 . 0))
   
8.     (c-hanging-braces-alist     . (
   
9.                                    (substatement-open after before)
   
10.                                    (brace-list-open)
    
11.                                    ))
    
12.     (c-hanging-colons-alist     . ((member-init-intro before)
    
13.                                    (inher-intro)
    
14.                                    (case-label after)
    
15.                                    (label after)
    
16.                                    (access-label after)))
    
17.     (c-cleanup-list             . (scope-operator
    
18.                                    empty-defun-braces
    
19.                                    defun-close-semi))
    
20.     (c-offsets-alist . (
    
21.                         (knr-argdecl-intro . 5)
    
22.                         (arglist-intro . +)
    
23.                         (arglist-close . c-lineup-close-paren)
    
24.                         (inclass . +)
    
25.                         (member-init-intro . +)
    
26.                         (statement-block-intro . +)
    
27.                         (defun-block-intro . +)
    
28.                         (substatement-open . 0)
    
29.                         (label . 0)
    
30.                         (statement-case-open . +)
    
31.                         (statement-case-intro . +)
    
32.                         (case-label . +)
    
33.                         (statement-cont . c-lineup-math)
    
34.                         (inline-open . 0)
    
35.                         (brace-list-open . +)
    
36.                         (topmost-intro-cont . 0)
    
37.                         ))
    
38.     (c-special-indent-hook . c-gnu-impose-minimum)
    
39.     (c-block-comment-prefix . "")
    
40.     (c-echo-syntactic-information-p . t)
    
41.     )
    
42.   "lgfang's C Programming Style")
    
43. (c-add-style "lgfang" lgfang-c-style nil)
    
44. 
    

复制代码

2gua

可以看看O'Reilly那本关于Emacs的书。

projoy

呵呵真是搞不懂，为什么我的这个C程序会是这样的格式？我编好后用C+M+\，代码就没变，还是这个样子，请问如何才能设置成正常的样子？就是11，17，31到40行，明显就是没有缩进好嘛，可是我连手工调整都不行，呵呵水平太有限了这是我的.emacs，请大家看看是设置有问题吗？

1. ;插件路径
   
2. (add-to-list 'load-path "/cygdrive/e/HOME/smouse/emacscool")
   
3. (add-to-list 'load-path "/cygdrive/e/HOME/smouse/emacscool/ecb-2.32")
   
4. (add-to-list 'load-path "/cygdrive/e/HOME/smouse/emacscool/cedet-1.0pre4/common")
   
5. (add-to-list 'load-path "/cygdrive/e/HOME/smouse/emacscool/emms-3.0")
   
6. 
   
7. 
   
8. 
   
9. 
   
10. 
    
11. 
    
12. 
    
13. ;;放歌听嘿嘿
    
14. (defun emms ()
    
15.   (interactive)
    
16.   (require 'emms-init))
    
17. (global-set-key [f9] 'emms)
    
18. 
    
19. (setq gdb-many-windows t)
    
20. (load-library "multi-gud.el")
    
21. (load-library "multi-gdb-ui.el")
    
22. 
    
23. ;自定义按键
    
24. (global-set-key [f4] 'shell);F1进入Shell
    
25. (global-set-key [f5] 'gdb);F5调试程序
    
26. (global-set-key [f1] 'compile);F1编译文件
    
27. (setq compile-command "make ")
    
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 (kbd "C-,") 'backward-page);文件首
    
33. (global-set-key (kbd "C-.") 'forward-page);文件尾
    
34. 
    
35. ;普通设置
    
36. (setq inhibit-startup-message t);关闭起动时闪屏
    
37. (setq visible-bell t);关闭出错时的提示声
    
38. (setq make-backup-files nil);不产生备份文件
    
39. (setq default-major-mode 'text-mode);一打开就起用 text 模式
    
40. (add-hook 'text-mode-hook 'turn-on-auto-fill);打开text后是自动换行自动换行
    
41. (global-font-lock-mode t);语法高亮
    
42. (auto-image-file-mode t);打开图片显示功能
    
43. (fset 'yes-or-no-p 'y-or-n-p);以 y/n代表 yes/no
    
44. (column-number-mode t);显示列号
    
45. (show-paren-mode t);显示括号匹配
    
46. (display-time-mode 1);显示时间，格式如下
    
47. (setq display-time-24hr-format t)
    
48. (setq display-time-day-and-date t)
    
49. (tool-bar-mode nil);去掉那个大大的工具栏
    
50. (scroll-bar-mode nil);去掉滚动条
    
51. ;(mouse-avoidance-mode 'animate);光标靠近鼠标指针时，让鼠标指针自动让开
    
52. (setq mouse-yank-at-point t);支持中键粘贴
    
53. (transient-mark-mode t);允许临时设置标记
    
54. (setq x-select-enable-clipboard t);支持emacs和外部程序的粘贴
    
55. (setq frame-title-format '("" buffer-file-name "@emacs" ));在标题栏显示buffer名称
    
56. (setq default-fill-column 80);默认显示 80列就换行
    
57. 
    
58. ;鼠标滚轮，默认的滚动太快，这里改为3行
    
59. (defun up-slightly () (interactive) (scroll-up 3))
    
60. (defun down-slightly () (interactive) (scroll-down 3))
    
61. (global-set-key [mouse-4] 'down-slightly)
    
62. (global-set-key [mouse-5] 'up-slightly)
    
63. 
    
64. ;shell,gdb退出后，自动关闭该buffer
    
65. (add-hook 'shell-mode-hook 'mode-hook-func)
    
66. (add-hook 'gdb-mode-hook 'mode-hook-func)
    
67. (defun mode-hook-func  ()
    
68.   (set-process-sentinel (get-buffer-process (current-buffer))
    
69.                         #'kill-buffer-on-exit))
    
70. (defun kill-buffer-on-exit (process state)
    
71.   (message "%s" state)
    
72.   (if (or
    
73.        (string-match "exited abnormally with code.*" state)
    
74.        (string-match "finished" state))
    
75.       (kill-buffer (current-buffer))))
    
76. 
    
77. 
    
78. ;加入color-theme插件
    
79. (require 'color-theme)
    
80. (color-theme-blue-mood)
    
81. 
    
82. (setq initial-frame-alist '((top . 30) (left . 0) (width . 139) (height . 44)))
    
83. 
    
84. 
    
85. 
    
86. (add-hook 'window-setup-hook 'maximize-frame t)
    
87. 
    
88. (setq make-backup-files nil)
    
89. ;; 设定不产生备份文件
    
90. 
    
91. (setq auto-save-mode nil)
    
92. ;;自动保存模式文件
    
93. 
    
94. 
    
95. ;;;C的风格
    
96. ;我的C设置：
    
97. ;C语言编辑
    
98. (add-hook 'c-mode-hook 'linux-c-mode)
    
99. (add-hook 'c++-mode-hook 'linux-cpp-mode)
    
100. ;; 设置imenu的排序方式为按名称排序
     
101. (setq imenu-sort-function 'imenu--sort-by-name)
     
102. (defun linux-c-mode()
     
103. ;; 将回车代替C-j的功能，换行的同时对齐
     
104.   (define-key c-mode-map [return] 'newline-and-indent)
     
105.   (interactive)
     
106. ;; 设置C程序的对齐风格
     
107.   (c-set-style "K&R")
     
108. ;; 自动模式，在此种模式下当你键入{时，会自动根据你设置的对齐风格对齐
     
109. ; (c-toggle-auto-state)
     
110. ;; 此模式下，当按Backspace时会删除最多的空格
     
111.   (c-toggle-hungry-state)
     
112. ;; TAB键的宽度设置为4
     
113.   (setq c-basic-offset 4)
     
114. ;; 在菜单中加入当前Buffer的函数索引
     
115.   (imenu-add-menubar-index)
     
116. ;; 在状态条上显示当前光标在哪个函数体内部
     
117.   (which-function-mode)
     
118. )
     
119. (defun linux-cpp-mode()
     
120.   (define-key c++-mode-map [return] 'newline-and-indent)
     
121.   (define-key c++-mode-map [(control c) (c)] 'compile)
     
122.   (interactive)
     
123.   (c-set-style "K&R")
     
124.   ;(c-toggle-auto-state)
     
125.   (c-toggle-hungry-state)
     
126.   ;(setq c-basic-offset 8)
     
127.   (imenu-add-menubar-index)
     
128.   (which-function-mode)
     
129.   )
     
130. 
     
131. 
     
132. 
     
133. ;;字体
     
134. ;; create a fontsets
     
135. (create-fontset-from-fontset-spec
     
136. "-adobe-courier-medium-r-*-*-14-*-*-*-*-*-fontset-adobe,
     
137.   latin-iso8859-1:-adobe-courier-medium-r-*-*-14-*-*-*-*-*-*-1,
     
138.   latin-iso8859-2:-adobe-courier-medium-r-*-*-14-*-*-*-*-*-*-2,
     
139.   cyrillic-iso8859-5:-adobe-courier-medium-r-*-*-14-*-*-*-*-*-*-5,
     
140.   chinese-gb2312:*-song-medium-r-normal-*-14-*")
     
141. (create-fontset-from-fontset-spec
     
142. "-adobe-courier-medium-o-*-*-14-*-*-*-*-*-fontset-adobe,
     
143.   latin-iso8859-1:-adobe-courier-medium-o-*-*-14-*-*-*-*-*-*-1,
     
144.   latin-iso8859-2:-adobe-courier-medium-o-*-*-14-*-*-*-*-*-*-2,
     
145.   cyrillic-iso8859-5:-adobe-courier-medium-o-*-*-14-*-*-*-*-*-*-5,
     
146.   chinese-gb2312:*-song-medium-r-normal-*-14-*")
     
147. (create-fontset-from-fontset-spec
     
148. "-adobe-courier-bold-o-*-*-14-*-*-*-*-*-fontset-adobe,
     
149.   latin-iso8859-1:-adobe-courier-bold-o-*-*-14-*-*-*-*-*-*-1,
     
150.   latin-iso8859-2:-adobe-courier-bold-o-*-*-14-*-*-*-*-*-*-2,
     
151.   cyrillic-iso8859-5:-adobe-courier-bold-o-*-*-14-*-*-*-*-*-*-5,
     
152.   chinese-gb2312:*-song-medium-r-normal-*-14-*")
     
153. (create-fontset-from-fontset-spec
     
154. "-adobe-courier-bold-r-*-*-14-*-*-*-*-*-fontset-adobe,
     
155.   latin-iso8859-1:-adobe-courier-bold-r-*-*-14-*-*-*-*-*-*-1,
     
156.   latin-iso8859-2:-adobe-courier-bold-r-*-*-14-*-*-*-*-*-*-2,
     
157.   cyrillic-iso8859-5:-adobe-courier-bold-r-*-*-14-*-*-*-*-*-*-5,
     
158.   chinese-gb2312:*-song-medium-r-normal-*-14-*")
     
159. (set-default-font "fontset-adobe")
     
160. (setq default-frame-alist (append '((font . "fontset-adobe")
     
161.                                     (width . 78) (height . 45))))
     
162. ;;行号
     
163. ;; 加载显示行号模块
     
164. (require 'display-line-number)
     
165. ;; 如果想所有打开的文件都显示行的话就打开下面的注释
     
166. (global-display-line-number-mode 1)
     
167. ;; 设置显示格式
     
168. (setq display-line-number-format "%4d|")
     
169. 
     
170. ;; 仅对某种 mode 启动显示行号的模式
     
171. (add-hook 'c-mode-hook 'display-line-number-mode)
     
172. 
     
173. 
     
174. 
     
175. 
     
176. 
     
177. ;;ctrl-o换行哈哈我太高兴了
     
178. (define-key global-map (kbd "C-o") 'vi-open-next-line)
     
179. 
     
180. (defun vi-open-next-line (arg)
     
181. "Move to the next line (like vi) and then opens a line."
     
182. (interactive "p")
     
183. (end-of-line)
     
184. (open-line arg)
     
185. (next-line 1)
     
186. (indent-according-to-mode))
     
187. 
     
188. 
     
189. ;; tabbar
     
190. (require 'tabbar)
     
191. (tabbar-mode t)
     
192. (global-set-key (kbd "M--") 'tabbar-backward-group)
     
193. (global-set-key (kbd "M-=") 'tabbar-forward-group)
     
194. (global-set-key (kbd "M-1") 'tabbar-backward)
     
195. (global-set-key (kbd "M-2") 'tabbar-forward)
     
196. ;;现在，我们就可以按alt加上1或者2什么的来在不同的tab间切换了。当然了，你也可以用鼠标。
     
197. 
     
198. 
     
199. 
     
200. ;;原来的 tabbar 强行对你的 buffer 进行分组，但是如果你想在你编辑的buffer间切换而不论它们是什么组，那么似乎没有一个好办法。但是 tabbar 本来提供了一个机制，让你可以自己确定 tab 属于哪组，只要修改 tabbar-buffer-groups-function 就行了。
     
201. 
     
202. ;这样，我可以把每个 buffer 同时加入它所在的 major mode 的组和一个叫做 "default" 的组，这样我在 default 组里就可以方便的浏览到所有的 buffer 了。而切换到其它组就可以分组浏览。你还可以自行把某些 buffer 分到一组，比如我可以把 scheme-mode 的 buffer 和 inferer-scheme-mode 的 buffer 分到同一个组。
     
203. 
     
204. 
     
205. (setq tabbar-buffer-groups-function 'tabbar-buffer-ignore-groups)
     
206. 
     
207. (defun tabbar-buffer-ignore-groups (buffer)
     
208.   "Return the list of group names BUFFER belongs to.
     
209. Return only one group for each buffer."
     
210.   (with-current-buffer (get-buffer buffer)
     
211.     (cond
     
212.      ((or (get-buffer-process (current-buffer))
     
213.           (memq major-mode
     
214.                 '(comint-mode compilation-mode)))
     
215.       '("Process")
     
216.       )
     
217.      ((member (buffer-name)
     
218.               '("*scratch*" "*Messages*"))
     
219.       '("Common")
     
220.       )
     
221.      ((eq major-mode 'dired-mode)
     
222.       '("Dired")
     
223.       )
     
224.      ((memq major-mode
     
225.             '(help-mode apropos-mode Info-mode Man-mode))
     
226.       '("Help")
     
227.       )
     
228.      ((memq major-mode
     
229.             '(rmail-mode
     
230.               rmail-edit-mode vm-summary-mode vm-mode mail-mode
     
231.               mh-letter-mode mh-show-mode mh-folder-mode
     
232.               gnus-summary-mode message-mode gnus-group-mode
     
233.               gnus-article-mode score-mode gnus-browse-killed-mode))
     
234.       '("Mail")
     
235.       )
     
236.      (t
     
237.       (list
     
238.        "default"  ;; no-grouping
     
239.        (if (and (stringp mode-name) (string-match "[^ ]" mode-name))
     
240.            mode-name
     
241.          (symbol-name major-mode)))
     
242.       )
     
243.      
     
244.      )))
     
245. 
     
246. 
     
247. 
     
248. 
     
249. ;; set fly-on-spell
     
250. (autoload 'flyspell-mode "flyspell" "On-the-fly spelling checker." t)
     
251. (autoload 'flyspell-delay-command "flyspell" "Delay on command." t)
     
252. (autoload 'tex-mode-flyspell-verify "flyspell" "" t)
     
253. ;(global-flyspell-mode)
     
254. 
     
255. 
     
256. 
     
257. 
     
258. ;;使用c-j来代替goto-line，指定移动到某行
     
259. (define-key global-map (kbd "C-j") 'goto-line)
     
260. 
     
261. 
     
262. 
     
263. 
     

复制代码

lgfang

你是不是用了linum.el?
你把前面的行号去掉看看。我遇到过一次，实际上对齐是正确的，但linum的bug导致显示起来好像没对齐。turn off linum-mode就行了。

projoy

linum.el?我也用了显示行号的东西，是display-line-number.el难道是这个的问题？我晕，这就是说显示行号和缩进只能显示一个？呵呵emacs不会这么不讲理吧？