emacs 有一个不方便的地方,不知道怎么设置?
emacs 安装了tabbar插件,可以在emacs显示标签(像浏览器上面的标签).
但是有一个问题, 启动emacs的时候,这些标签是全部显示的. 主要点击了一个文件,
这些标签就不见了. 需要用M-left 等快捷键找出来.....
没木有办法,可以让这些标签一直显示阿?
emacs怎么让所有标签都显示出来阿?
-
- 帖子: 237
- 注册时间: 2011-10-11 10:16
-
- 帖子: 237
- 注册时间: 2011-10-11 10:16
Re: emacs怎么让所有标签都显示出来阿?
经过几天,终于解决了...,适应它,是慢慢解决一个一个问题的过程...
-
- 帖子: 8
- 注册时间: 2008-10-24 16:07
Re: emacs怎么让所有标签都显示出来阿?
ctrl+鼠标左键或者用ibuffer.觉得不爽就要改变它,而不是迁就.
-
- 帖子: 750
- 注册时间: 2006-03-19 11:39
Re: emacs怎么让所有标签都显示出来阿?
为什么要用这种怪兽级的扩展呢?它们提供的功能(基本可以用其它方式解决)和所造成的开销相比,几乎可以忽略……
如果不用类似tabbar color-theme 之流的扩展,vim 相对 emacs 也并没有多么明显的速度优势
相对来说,你的问题还是很好解决的
[lisp]
(setq tabbar-buffer-groups-function
(lambda ()
(list "All")))
[/lisp]
上面这段是我随便找的,应该没有问题。如果不计较开销,想用的舒服一点,可以自己定义规则
[lisp]
;(defun substring-buffer-name (m n &optional x)
; (substring (concat
; (if x
; (buffer-file-name)
; (buffer-name))
; (make-string n ?*))
; m n))
(defun tabbar-buffer-groups ()
(list
(cond
((member (buffer-name)
'("*shell*" "*sdcv*" "*scratch*"))
"User Buffer")
((string-equal "*eshell*" (substring-buffer-name 0 8))
"User Buffer")
((string-equal "*" (substring-buffer-name 0 1))
"Emacs Buffer")
((or (string-equal "emacs" (substring-buffer-name 1 6))
(string-equal init-dir (substring-buffer-name 0 (length init-dir) t)))
"Configuration")
(t
"User Buffer")
)))
(setq tabbar-buffer-groups-function 'tabbar-buffer-groups)
[/lisp]
如果不用类似tabbar color-theme 之流的扩展,vim 相对 emacs 也并没有多么明显的速度优势
相对来说,你的问题还是很好解决的
[lisp]
(setq tabbar-buffer-groups-function
(lambda ()
(list "All")))
[/lisp]
上面这段是我随便找的,应该没有问题。如果不计较开销,想用的舒服一点,可以自己定义规则
[lisp]
;(defun substring-buffer-name (m n &optional x)
; (substring (concat
; (if x
; (buffer-file-name)
; (buffer-name))
; (make-string n ?*))
; m n))
(defun tabbar-buffer-groups ()
(list
(cond
((member (buffer-name)
'("*shell*" "*sdcv*" "*scratch*"))
"User Buffer")
((string-equal "*eshell*" (substring-buffer-name 0 8))
"User Buffer")
((string-equal "*" (substring-buffer-name 0 1))
"Emacs Buffer")
((or (string-equal "emacs" (substring-buffer-name 1 6))
(string-equal init-dir (substring-buffer-name 0 (length init-dir) t)))
"Configuration")
(t
"User Buffer")
)))
(setq tabbar-buffer-groups-function 'tabbar-buffer-groups)
[/lisp]