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

herberteuler

呵呵~
你是怎么设置的？
把你添加的内容贴一下。

unixer2i

原帖由 herberteuler 于 2006-2-22 22:41 发表
你追求的还挺多，呵呵。

1. 在你的 ~/.emacs 里写上

(defface boxed
  '((t (:box t)))
  "boxed")

2. 用 M-x customize-variable RET facemenu-keybindings RET  ...

太可怕了， 我根据你的设置，结果得到的是这个效果。
我弄成全局显示了。
见下图：
如何恢复呀？
在线急！！

herberteuler

我知道你的 Emacs 现在快没法看了，把你修改的代码贴一下吧。

unixer2i

原帖由 herberteuler 于 2006-2-23 20:51 发表
我知道你的 Emacs 现在快没法看了，把你修改的代码贴一下吧。

这是你给我的修改配置：

1. 
   
2. 1. 在你的 ~/.emacs 里写上
   
3. 
   
4. (defface boxed
   
5.   '((t (:box t)))
   
6.   "boxed")
   
7. 
   
8. 2. 用 M-x customize-variable RET facemenu-keybindings RET 来定义 facemenu-keybindings 的值。
   
9. 
   
10. 3. 无论是用 M-o o 还是你定义的 facemenu-... ，应该都可以设置加边框的属性了。如果不能，执行 M-x facemenu-update 试试。你可以将 (facemenu-update) 写到 ~/.emacs 中。
    

复制代码

我的修改后的。emacs文件：

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

复制代码

然后执行M-x customize-variable RET facemenu-keybindings定义的，结果就变成现在这样子了。怎么恢复呀？

herberteuler

谁叫你乱改的，改坏了吧（开个玩笑啦~ ）

图中有个 default 的 list，它保存着你的 Emacs 中要使用的 face 的信息。这里的信息可能并不都是你想要的，例如，:box 就不是你想要的（图中已经加注）。你只要将不需要的去掉就可以了。

再说，我也没看到你设置 facemenu-keybindings 来包含 boxed 这个 face 呀。

unixer2i

原帖由 herberteuler 于 2006-2-23 21:40 发表
谁叫你乱改的，改坏了吧（开个玩笑啦~ ）

图中有个 default 的 list，它保存着你的 Emacs 中要使用的 face 的信息。这里的信息可能并不都是你想要的，例如，:box 就不是你想要的（图中已经加注）。你只要将不 ...

herberteuler兄， 请问一下，如何定义一个好的face，能让它在该用的地方使用。能举例说明一下吗？我好做个参考。

herberteuler

你可以看一下 C-h i melisp mfaces 中的内容来了解如何定义一个 Face。定义好 Face 以后，选择一个文本区域，就可以为这个区域定义它的 Face。

unixer2i

原帖由 herberteuler 于 2006-2-24 20:22 发表
你可以看一下 C-h i melisp mfaces 中的内容来了解如何定义一个 Face。定义好 Face 以后，选择一个文本区域，就可以为这个区域定义它的 Face。

herberteuler兄，我的NTEMACS中没有这个命令：C-h i melisp mfaces，倒是有C-h i memacs mfaces。内容是一样的吧？ 那我看你给我解决boxed问题时为什么会在。emacs文件中加入那段代码，再去定义faces呢？这样做岂不是和你刚才给我的回复互相矛盾吗？我对此感到疑惑，请你解释一下。

herberteuler

defface 只是定义了一个 Face 并不是使用它。我说的“定义 facemenu”是指定义 facemenu-keybindings。

bleem1998

请问如何更改字符集呢
比如有时我想用GB2312显示
有时又想用UTF8显示
用命令可以做到吗