Emacs Tips

1、去掉Xemacs的图标。
M-x tool-bar-mode

2、一些设置
;;显示时间
(display-time)

;;显示当前的行号和列号
(column-number-mode t)

;;不显示工具条
(tool-bar-mode -1)

;;击键100次自动保存
(setq auto-save-interval 100)


;;语法高亮
(global-font-lock-mode t)

;;像Windows下编辑器那样, 高亮显示要拷贝的区域
(transient-mark-mode t)

;;显示匹配的括号
(show-paren-mode t)

;;不要生成临时文件
(setq-default make-backup-files nil)

3、;自动显示图片
(auto-image-file-mode)
(setq mm-inline-large-images t)
(add-to-list 'mm-attachment-override-types "image/*")

;;other set methord
(setq frame-title-format "emacs@%b") ;;display the buffer title
(auto-image-file-mode) ;;open and display image

4、关闭Emacs启动时提示信息
(setq inhibit-startup-message t)

关闭按TAB时发出的嘀嘀声
(setq visible-bell t)

不要生成临时文件
(setq-default make-backup-files nil)

用y/n代替yes/no
(fset 'yes-or-no-p 'y-or-n-p)

设置Emacs的默认字体

先用xlsfonts来查看你的机器上有些什么字体，然后在.emacs中加入:
(set-default-font "-bitstream-bitstream vera sans mono-medium-r-normal--16-0-0-0-m-0-iso8859-1")
 
5、在服务器上保留邮件
(fset 'yes-or-no-p 'y-or-n-p)

6、;自动显示图片
(auto-image-file-mode)
(setq mm-inline-large-images t)
(add-to-list 'mm-attachment-override-types "image/*")

7、解决gb18030乱码的设置(.gnus.el)
(setq gnus-newsgroup-ignored-charsets
'(unknown-8bit x-unknown gb18030))

8、;;设置浏览器显示HTML邮件(w3,w3m,links,lynx,html2text)
(setq mm-text-html-renderer 'w3m)

9、buffer group操作
a  建立一个新闻组；
k  删除一个新闻组；
O  设置一个新闻组为（open）
C  设置一个新闻组为（close）
J  a 设置一个新闻组为（agent）

10、;;set tabbar.el
(require 'tabbar)
(tabbar-mode)
(global-set-key (kbd "") 'tabbar-backward-group)
(global-set-key (kbd "") 'tabbar-forward-group)
(global-set-key (kbd "") 'tabbar-backward)
(global-set-key (kbd "") 'tabbar-forward

;;设置tabbar不分组显示
(setq tabbar-buffer-groups-function 'tabbar-buffer-ignore-groups)

(defun tabbar-buffer-ignore-groups (buffer)
"Return the list of group names BUFFER belongs to.
Return only one group for each buffer."
(with-current-buffer (get-buffer buffer)
(cond
((or (get-buffer-process (current-buffer))
(memq major-mode
'(comint-mode compilation-mode)))
'("Process")
)
((member (buffer-name)
'("*scratch*" "*Messages*"))
'("Common")
)
((eq major-mode 'dired-mode)
'("Dired")
)
((memq major-mode
'(help-mode apropos-mode Info-mode Man-mode))
'("Help")
)
((memq major-mode
'(rmail-mode
rmail-edit-mode vm-summary-mode vm-mode mail-mode
mh-letter-mode mh-show-mode mh-folder-mode
gnus-summary-mode message-mode gnus-group-mode
gnus-article-mode score-mode gnus-browse-killed-mode))
'("Mail")
)
(t
(list
"default" ;; no-grouping
(if (and (stringp mode-name) (string-match "[^ ]" mode-name))
mode-name
(symbol-name major-mode)))
)

)))

10、目前一个好用的w3m设置
(setq mm-text-html-renderer 'w3m)
(setq mm-inline-text-html-with-images t
      mm-w3m-safe-url-regexp nil)
(setq browse-url-browser-function 'w3m-browse-url) ；用w3m浏览网页

11、使用fortune签名
(defun mbli-fortune-signature ()
(concat "Your Name"
(shell-command-to-string "fortune")
)
)

(setq gnus-posting-styles
'((".*"
(name "Meatball")
(User-Agent "Emacs+gnus")
(signature mbli-fortune-signature) ;;使用随机签名
)
))

12、;;使用Win下的选择习惯
;;用shift+方向键进行选择
(pc-selection-mode)

13、；；解决因颜色问题带^m乱码问题（.emacs）
;;set anti-color
(autoload 'ansi-color-apply-on-region "ansi-color")
(defun article-treat-ansi-sequences ()
"Translate ANSI SGR control sequences into overlays or extents."
(interactive)
(save-excursion
(when (article-goto-body)
(let ((inhibit-read-only t))
(ansi-color-apply-on-region (point) (point-max))))))
(add-hook 'gnus-part-display-hook 'article-treat-ansi-sequences)

14、一个与mutt类似的线索树定义
;;set summery-line-format
(setq gnus-summary-line-format ":%U%R |%d%10&user-date; %-15,15f (%8k) |%B %s %-100= \n")

;;(setq gnus-summary-line-format ":%U%R%10&user-date; %I%(%[%4L: %-23,23f%]%) %s \n") ;;一个与系统默认相似的buffer line 但加上时间

15、一个较好的tabbar设置
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; tabbar
(require 'tabbar)
(tabbar-mode)

;; 热键设置
;; 用WIN键和j,k,n,p,鼠标来转换tab
;; WIN+j或WIN+鼠标左键: 左tab
;; WIN+k或WIN+鼠标右键: 右tab
;; WIN+p或WIN+鼠标滚轮上滚: 上一个组
;; WIN+n或WIN+鼠标滚轮下滚: 下一个组

;; move to previous group
(global-set-key (kbd "s-p") 'tabbar-backward-group)
(global-set-key [s-mouse-4] 'tabbar-backward-group)

;; move to next group
(global-set-key (kbd "s-n") 'tabbar-forward-group)
(global-set-key [s-mouse-5] 'tabbar-forward-group)

;; move to the left tab
(global-set-key (kbd "s-j") 'tabbar-backward)
(global-set-key [s-mouse-1] 'tabbar-backward)

;; move to the right tab
(global-set-key (kbd "s-k") 'tabbar-forward)
(global-set-key [s-mouse-3] 'tabbar-forward)

;; 组内循环滚动tab
(setq tabbar-cycling-scope (quote tabs))

;; 外观设置
;; tab内凹表明选定

(custom-set-faces
'(tabbar-default-face
((t (:inherit variable-pitch
:background "gray90"
:foreground "gray60"
:height 0.8))))
'(tabbar-selected-face
((t (:inherit tabbar-default-face
:foreground "darkred"
:box (:line-width 2 :color "white" :style pressed-button)))))
'(tabbar-unselected-face
((t (:inherit tabbar-default-face
:foreground "black"
:box (:line-width 2 :color "white" :style released-button))))))

16、几个方便的快捷键绑定（王春宇）
(defun display-buffer-name ()
(interactive)
(message (buffer-file-name (current-buffer))))
(global-set-key (kbd "M-4") 'yic-kill-current-buffer)
(global-set-key (kbd "M-1") 'delete-other-windows)
(global-set-key (kbd "M-0") 'other-window)
(global-set-key (kbd "M-5") 'display-buffer-name)
(global-set-key (kbd "C-x f") 'find-file-at-point)
M-1 相当于最大化一个 buffer , 默认的 key bind 是 C-x 1 。
M-4 相当于关闭一个 buffer , 默认的 key bind 是 C-x k 。
M-0 相当于跳转到两个 buffer 中的另一个，默认的 key bind 是 C-x 0 。
M-5 可以显示 buffer 的完整的文件名称。
M- 和一个数字的组合默认用来输入命令的参数，例如 M-5 i 表示输入 iiiii ，但是 C-u 5 i 可以完成同样的功能。于是我就利用它们做起他的事情了。
C-x f 原来的绑定是 set-fill-column ,不太常用, 于是绑定到 find-file-at-point 上. 这个功能很有用, 类似于 Vim 的 gf 功能, 可以打开光标处的文件. 他也有普通 find-file 的功能. 这个功能在 shell 模式下和 c-mode 下特别有用.

17、搜索列表;M-x occur

18、只要配置文件中出现错误，后面的代码将不被执行，切记。