Emacs中的tabbar问题

houdini · #1

最早用的是tabbar.el 1.2版本，发现打开文本文件.txt的时候正常，但打开代码文件是，tabbar上显示的不是文件名，而是文件的第一行。升级到2.0，问题依旧。

.txt tabbar显示正常

代码文件 tabbar显示异常

请问有没有朋友解决了这个问题？谢谢

我用的是GNU Emacs23 CVS，.emacs中tabbar.el相关设置如下：

代码：全选

(require 'tabbar)
(tabbar-mode) ;comment out this line to start without the tab on top
(global-set-key [(control shift h)] 'tabbar-mode)
(global-set-key [(control shift up)] 'tabbar-backward-group)
(global-set-key [(control shift down)] 'tabbar-forward-group)
(global-set-key [(control shift left)] 'tabbar-backward)
(global-set-key [(control shift right)] 'tabbar-forward)
(global-set-key [(control next)] 'tabbar-forward-tab)
(global-set-key [(control prior)] 'tabbar-backward-tab)

morningboat · #2

你使用了ecb包，当文件是源代码文件而且ecb启动时，他会覆盖tabbar的显示。

houdini · #3

morningboat 写了：你使用了ecb包，当文件是源代码文件而且ecb启动时，他会覆盖tabbar的显示。

请问有什么解决的办法没有？

我暂时转进到 ibuffer.el了

BigSnake.NET · #4

我的没有问题啊~..

houdini · #5

BigSnake.NET 写了：我的没有问题啊~..

你装了ECB吗？ GNU Emacs

BigSnake.NET · #6

houdini 写了：
BigSnake.NET 写了：我的沒有問題啊~..
你裝了ECB嗎？ GNU Emacs

跟你一樣

我的 .emacs.el

代码：全选

;;基本加載路徑
(add-to-list 'load-path "~/.emacs.d")
(load "~/.emacs.d/subdirs")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ecb-analyse-face ((((class color) (background dark)) (:inherit ecb-default-highlight-face :background "magenta3"))))
 '(ecb-method-non-semantic-face ((((class color) (background dark)) (:inherit ecb-methods-general-face :foreground "brown1"))))
 '(ecb-tag-header-face ((((class color) (background dark)) (:background "SeaGreen")))))

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ecb-options-version "2.32"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 界面設置

                                        ;字體設置
(create-fontset-from-fontset-spec
 "-adobe-courier-medium-r-normal-*-12-*-*-*-*-*-fontset-sans")
(set-fontset-font
 "fontset-default" nil
 "-*-simsun-*-*-*-*-12-*-*-*-*-*-iso10646-1" nil 'prepend)
(set-default-font "fontset-sans")
(setq default-frame-alist
      (append '((font . "fontset-sans")) default-frame-alist))
                                        ;關閉起動時的那個"開機畫面"
(setq inhibit-startup-message t)
                                        ;關掉工具欄和滾動條
(tool-bar-mode -1)
(scroll-bar-mode -1)
                                        ;顏色主題
(require 'color-theme)
(color-theme-initialize)
(if window-system (color-theme-dark-blue2))
                                        ;語法高亮 
(global-font-lock-mode t)
(require 'generic)
(require 'generic-x)
                                        ;在標題欄顯示buffer的名字
(setq frame-title-format "emacs - %f")
                                        ;當有兩個文件名相同的緩衝時使用前綴的目錄名做 buffer名字
(setq uniquify-buffer-name-style 'forward)
                                        ;顯示時間
(setq display-time-24hr-format t)
(setq display-time-interval 10)
(display-time)
                                        ;用yes/no代替y/n
(fset 'yes-or-no-p 'y-or-n-p)
                                        ;顯示行列號
(line-number-mode t)
(column-number-mode t)
(require 'display-line-number)
(setq display-line-number-format "%3d|")
(global-set-key (kbd "C-c n") 'display-line-number-mode)
                                        ;當行數超過一定數值不再顯示行號
(setq line-number-display-limit 1000000)
                                        ;開關自動折行(Warp)
(setq truncate-partial-width-windows nil)
(global-set-key (kbd "C-c w") 'toggle-truncate-lines)
                                        ;設置有用的個人信息
(setq user-full-name "貓の中秋")
(setq user-mail-address "bigsnake_net@hotmail.com")
                                        ;進入Shell
(global-set-key (kbd "C-c s") 'shell)
                                        ;當使用M-x COMMAND後過1秒鐘顯示該 COMMAND 綁定的鍵
(setq suggest-key-bindings 1)


;;設置備份

(setq make-backup-files t) 
(setq version-control t) 
(setq kept-new-versions 3)
(setq kept-old-versions 1)
(setq delete-old-versions t)
(setq dired-kept-versions 1)


;; 編輯設置

                                        ;防止光標來回跳
(show-paren-mode t)
(setq show-paren-style 'parentheses)
                                        ;當光標在行尾上下移動的時候，始終保持在行尾。
(setq track-eol t)
                                        ;防止頁面滾動時跳動
(setq scroll-margin 3
      scroll-conservatively 10000)
                                        ;光標靠近鼠標指針時讓鼠標指針自動讓開
(mouse-avoidance-mode 'animate)
                                        ;中鍵粘貼
(setq mouse-yank-at-point t)
                                        ;支持emacs和外部程序的粘貼 
(setq x-select-enable-clipboard t)
                                        ;可以直接打開和顯示圖片
(auto-image-file-mode t)
                                        ;縮進設置
(setq-default indent-tabs-mode nil) 
(setq default-tab-width 8)
                                        ;設置 sentence-end 可以識別中文標點
(setq sentence-end "\\([。！？]\\|……\\|[.?!][]"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")
(setq sentence-end-double-space nil)
                                        ;大多數情況下，回車後是要縮進的
(global-set-key "\C-m" 'newline-and-indent)
(global-set-key (kbd "C-<return>") 'newline)
                                        ;Vim 的 o
(local-set-key (kbd "M-<return>") 'vi-open-next-line)
(defun vi-open-next-line (arg)
  "Move to the next line (like vi) and then opens a line."
  (interactive "p")
  (end-of-line)
  (open-line arg)
  (next-line 1)
  (indent-according-to-mode))
                                        ;啟動進入text mode
(setq default-major-mode 'text-mode)
                                        ;redo
(require 'redo)
(global-set-key (kbd "C-+") 'redo)



;; mark 相關

                                        ;高亮顯示要拷貝的區域
(transient-mark-mode t)
                                        ;高亮矩形
(require 'rect-mark)
                                        ;mark 的鍵綁定
(global-set-key (kbd "s-SPC") 'set-mark-command)
(global-set-key (kbd "S-SPC") 'set-mark-command)
(global-set-key (kbd "C-x r s-SPC") 'rm-set-mark)
(global-set-key (kbd "C-x r S-SPC") 'rm-set-mark)
(global-set-key (kbd "C-x r C-x") 'rm-exchange-point-and-mark)


;; 高級的killing和yanking
                                        ;沒有選擇任何東西時復制/剪切整行
(defadvice kill-ring-save (before slickcopy activate compile)
  "When called interactively with no active region, copy a single line instead."
  (interactive
   (if mark-active (list (region-beginning) (region-end))
     (list (line-beginning-position)
           (line-beginning-position 2)))))
(defadvice kill-region (before slickcut activate compile)
  "When called interactively with no active region, kill a single line instead."
  (interactive
   (if mark-active (list (region-beginning) (region-end))
     (list (line-beginning-position)
           (line-beginning-position 2)))))

;; (global-set-key [(control w)] 'kill-syntax-backward)
;; (global-set-key [(control d)] 'kill-syntax-forward)
;; (defun kill-syntax-forward ()
;;   "Kill characters with syntax at point."
;;   (interactive)
;;   (kill-region (point)
;;                (progn (skip-syntax-forward (string (char-syntax (char-after))))
;;                       (point))))
;; (defun kill-syntax-backward ()
;;   "Kill characters with syntax at point."
;;   (interactive)
;;   (kill-region (point)
;;                (progn (skip-syntax-backward (string (char-syntax (char-before))))
;;                       (point))))


                                        ;移動整行的功能
                                        ;meta+箭頭移動行
(defun bsn-move-line (&optional n)
  "Move current line N (1) lines up/down leaving point in place."
  (interactive "p")
  (when (null n)
    (setq n 1))
  (let ((col (current-column)))
    (beginning-of-line)
    (next-line 1)
    (transpose-lines n)
    (previous-line 1)
    (forward-char col)))
(defun bsn-move-line-up (n)
  "Moves current line N (1) lines up leaving point in place."
  (interactive "p")
  (bsn-move-line (if (null n) -1 (- n)))) 
(defun bsn-move-line-down (n)
  "Moves current line N (1) lines down leaving point in place."
  (interactive "p")
  (bsn-move-line (if (null n) 1 n)))
(global-set-key (kbd "M-<down>") 'bsn-move-line-down) 
(global-set-key (kbd "M-<up>") 'bsn-move-line-up)
                                        ;設置刪除紀錄
(setq kill-ring-max 200)
(require 'browse-kill-ring+)
(global-set-key (kbd "C-c k") 'browse-kill-ring)


;; 更強的搜索

                                        ;Always end searches at the beginning of the matching expression.
(defun bsn-goto-match-beginning ()
  "Use with isearch hook to end search at first char of match."
  (when isearch-forward (goto-char isearch-other-end)))
(add-hook 'isearch-mode-end-hook 'bsn-goto-match-beginning)
                                        ;C-s和C-r改成漸進正則表達式搜索
(global-set-key [(control s)] 'isearch-forward-regexp)
(global-set-key [(control r)] 'isearch-backward-regexp)

;搜索光標下的東東
(defun isearch-forward-current-word-keep-offset ()
  "Mimic vi search foward at point feature."
  (interactive)
  (let ((re-curword) (curword) (offset (point)) 
        (old-case-fold-search case-fold-search) )
    (setq curword (thing-at-point 'symbol))
    (setq re-curword (concat "\\<" (thing-at-point 'symbol) "\\>") )
    (beginning-of-thing 'symbol)
    (setq offset (- offset (point))) ; offset from start of symbol/word
    (setq offset (- (length curword) offset)) ; offset from end
    (forward-char)
    (setq case-fold-search nil)
    (if (re-search-forward re-curword nil t)
        (backward-char offset)
      ;; else
      (progn (goto-char (point-min))
             (if (re-search-forward re-curword nil t)
                 (progn (message "Searching from top. %s" (what-line))
                        (backward-char offset))
               ;; else
               (message "Searching from top: Not found"))))
    (setq case-fold-search old-case-fold-search)))
(defun isearch-backward-current-word-keep-offset ()
  "Mimic vi search backwards at point feature."
  (interactive)
  (let ((re-curword) (curword) (offset (point)) 
        (old-case-fold-search case-fold-search) )
    (setq curword (thing-at-point 'symbol))
    (setq re-curword (concat "\\<" curword "\\>") )
    (beginning-of-thing 'symbol)
    (setq offset (- offset (point))) ; offset from start of symbol/word
    (forward-char)
    (setq case-fold-search nil)
    (if (re-search-backward re-curword nil t)
        (forward-char offset)
      ;; else
      (progn (goto-char (point-max))
             (if (re-search-backward re-curword nil t)
                 (progn (message "Searching from bottom. %s" (what-line))
                        (forward-char offset))
               ;; else
               (message "Searching from bottom: Not found"))))
    (setq case-fold-search old-case-fold-search)))
(global-set-key (kbd "C-M-s") 'isearch-forward-current-word-keep-offset)
(global-set-key (kbd "C-M-r") 'isearch-backward-current-word-keep-offset)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;buffer 管理
                                        ;ido 和 ibuffer
(require 'ibuffer)
(global-set-key (kbd "C-x C-b") 'ibuffer)
(require 'ido)
(ido-mode t)
(setq ido-enable-tramp-completion t)
(setq ido-save-directory-list-file nil)

                                        ;tab欄
(require 'tabbar)
(tabbar-mode t)
(global-set-key (kbd "s-<up>") 'tabbar-backward-group)
(global-set-key (kbd "s-<down>") 'tabbar-forward-group)
(global-set-key (kbd "s-<left>") 'tabbar-backward)
(global-set-key (kbd "s-<right>") 'tabbar-forward)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;dired

                                        ;讓dired 可以遞歸的拷貝和刪除目錄
(setq dired-recursive-copies 'top)
(setq dired-recursive-deletes 'top)
                                        ;這裡以後將會有一大堆東西..占位
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 編程設置

                                        ; C/C++
(defun bsn-linux-c-mode()
  (define-key c++-mode-map [return] 'newline-and-indent)
  (define-key c-mode-map [return] 'newline-and-indent)
  (interactive)
  (require 'cc-mode)
  (c-set-style "K&R")
  ;;  (setq c-basic-offset 8)
  (c-toggle-auto-newline t)
  (c-toggle-hungry-state t)
  (imenu-add-menubar-index)
  (setq c-basic-offset 8)
  )
(add-hook 'c-mode-hook 'bsn-linux-c-mode)
(add-hook 'c++-mode-hook 'bsn-linux-c-mode)

;自動補全
(setq hippie-expand-try-functions-list
      '(try-expand-line
        try-expand-dabbrev
        try-expand-line-all-buffers
        try-expand-list
        try-expand-list-all-buffers
        try-expand-dabbrev-visible
        try-expand-dabbrev-all-buffers
        try-expand-dabbrev-from-kill
        try-complete-file-name
        try-complete-file-name-partially
        try-complete-lisp-symbol
        try-complete-lisp-symbol-partially
        try-expand-whole-kill))
;;(global-set-key (kbd "M-;") 'hippie-expand)
(global-set-key (kbd "M-/") 'hippie-expand)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;一些插件

;;xcscope
(require 'xcscope)

;;cede
(require 'cogre)
(require 'ede)
(require 'speedbar)
(require 'semantic)
(require 'eieio)
(require 'cedet)


;;ecb代碼瀏覽器
(require 'ecb)
(setq ecb-tip-of-the-day nil)
(setq ecb-options-version "2.32")
;; (ecb-tree-truncate-line nil)
(setq ecb-truncate-long-names nil)
(setq ecb-windows-height 0.25)
(setq ecb-windows-width 0.25)


;;session和desktop插件,需要放在最後
(require 'session)
(add-hook 'after-init-hook 'session-initialize)
(require 'desktop)

houdini · #7

怪了，我看了你的.emacs，相关设置和我的没什么大区别，但在我这里就是不行。

Emacs 23 alpha

BigSnake.NET · #8

我的是一月份编的CVS

weigangme · #9

可能是semantic 的问题
按照这里的方法：
viewtopic.php?t=18274
弄好后会出现上面的问题。

代码：全选

(add-hook 'texinfo-mode-hook (lambda () (require 'sb-texinfo)))
     (load-file "/home/zhan/myEmacs/cedet-1.0beta3b/common/cedet.el")
     (semantic-load-enable-code-helpers)
     (autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
     (autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)
     (define-key-after (lookup-key global-map [menu-bar tools])
                                       [speedbar]
                                       '("Speedbar" .
                                       speedbar-frame-mode)
                                       [calendar])

把上面的

代码：全选

  (semantic-load-enable-code-helpers)

换成下面的第1 和第 4 个

代码：全选

 
           (semantic-load-enable-minimum-features)                                    
           (semantic-load-enable-code-helpers)                                       
           (semantic-load-enable-excessive-code-helpers)                             
           (semantic-load-enable-semantic-debugging-helpers)

就没有问题。而第2和3 个有问题。不过换成第1 和第 4 个的话，emacs的菜单中就没有了 TAGS 和 senator 选项，不知道怎么解决。

cnspy · #10

问题解决了吗？我的emacs 21不能把打开的文件放到同一个 bar上。

haoeng · #11

我把下面这句注释了就好了
(semantic-load-enable-guady-code-helpers)

houdini · #12

最近重新编译了CVS版本的GNU Emacs，安装了cedet-1.0pre4和ecb-2.32，这个问题又诡异地消失了

houdini · #13

cnspy 写了：问题解决了吗？我的emacs 21不能把打开的文件放到同一个 bar上。

这是分组的原因。如下解决（这样最多有两个group）：

代码：全选

;; ignore groups, max group=2
(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)))
)
)))

Emacs中的tabbar问题

Emacs中的tabbar问题

re

我的Emacs23也遇到过同样的问题

Re: re