devel版本的cedet无法卸载emacs

时间:2013-12-07 19:25:31

标签: emacs cedet

我正在使用emant 24.3的Gentoo版本

我已经从trunk中安装了CEDET ...克隆到了〜/ .emacs.d / site-lisp / cedet-bzr(感谢Alex Ott)加载整个事情的cedet.el开头于:

;; Do checkout of fresh CEDET, and use this config (don't forget to change path below)
(setq cedet-root-path
    (file-name-as-directory (expand-file-name
        ~/.emacs.d/site-lisp/cedet-bzr/")))
    (add-to-list 'Info-directory-list
         "~/.emacs.d/site-lisp/doc/info")

为了确保我的emacs配置中没有障碍,我移动了.emacs文件并尝试使用以下init.el运行emacs:      (add-to-list'load-path“〜/ .emacs.d / config”)      (加载“cedet.el”)      (add-to-list'load-path(expand-file-name           “〜/ .emacs.d /站点口齿不清/ ECB /”))

它给了我以下内容:

Debugger entered--Lisp error: (error "Cannot unload builtin CEDET since it is already loaded.")
  signal(error ("Cannot unload builtin CEDET since it is already loaded."))
  error("Cannot unload builtin CEDET since it is already loaded.")
  (progn (error "Cannot unload builtin CEDET since it is already loaded."))
  (if (featurep (quote cedet)) (progn (error "Cannot unload builtin CEDET since it is already loaded.")))
  cedet-remove-builtin()
  eval-buffer(#<buffer  *load*-732142> nil "/home/pasha/.emacs.d/site-lisp/cedet-bzr/cedet-remove-builtin.el" nil t)  ; Reading at buffer position 2476
  load-with-code-conversion("/home/pasha/.emacs.d/site-lisp/cedet-bzr/cedet-remove-builtin.el" "/home/pasha/.emacs.d/site-lisp/cedet-bzr/cedet-remove-builtin.el" nil nil)
  load("/home/pasha/.emacs.d/site-lisp/cedet-bzr/cedet-remove-builtin.el" nil nil t)
  load-file("/home/pasha/.emacs.d/site-lisp/cedet-bzr/cedet-remove-builtin.el")
  (if (boundp (quote cedet-bootstrap-in-progress)) nil (load-file (expand-file-name "cedet-remove-builtin.el" CEDETDIR)))
  (let ((CEDETDIR (file-name-directory (or load-file-name (buffer-file-name))))) (if (boundp (quote cedet-bootstrap-in-progress)) nil (load-file (expand-file-name "cedet-remove-builtin.el" CEDETDIR))) (add-to-list (quote load-path) CEDETDIR) (add-to-list (quote load-path) (expand-file-name "lisp/cedet" CEDETDIR)) (add-to-list (quote load-path) (expand-file-name "lisp/eieio" CEDETDIR)) (add-to-list (quote load-path) (expand-file-name "lisp/speedbar" CEDETDIR)) (require (quote eieio)) (require (quote ede)) (if (boundp (quote cedet-bootstrap-in-progress)) nil (message "Loading autoloads from CEDET development.") (load (expand-file-name "lisp/eieio/loaddefs.el" CEDETDIR) nil t t) (load (expand-file-name "lisp/speedbar/loaddefs.el" CEDETDIR) nil t t) (load (expand-file-name "lisp/cedet/loaddefs.el" CEDETDIR) nil t t) (load (expand-file-name "lisp/cedet/ede/loaddefs.el" CEDETDIR) nil t t) (load (expand-file-name "lisp/cedet/cogre/loaddefs.el" CEDETDIR) nil t t) (load (expand-file-name "lisp/cedet/srecode/loaddefs.el" CEDETDIR) nil t t) (load (expand-file-name "lisp/cedet/semantic/loaddefs.el" CEDETDIR) nil t t) (setq Info-directory-list (cons (expand-file-name "doc/info" CEDETDIR) Info-default-directory-list))) (require (quote cedet-compat)))
  eval-buffer(#<buffer  *load*-120873> nil "/home/pasha/.emacs.d/site-lisp/cedet-bzr/cedet-devel-load.el" nil t)  ; Reading at buffer position 2893
  load-with-code-conversion("/home/pasha/.emacs.d/site-lisp/cedet-bzr/cedet-devel-load.el" "/home/pasha/.emacs.d/site-lisp/cedet-bzr/cedet-devel-load.el" nil nil)
  load("/home/pasha/.emacs.d/site-lisp/cedet-bzr/cedet-devel-load.el" nil nil t)
  load-file("/home/pasha/.emacs.d/site-lisp/cedet-bzr/cedet-devel-load.el")
  eval-buffer(#<buffer  *load*-946311> nil "/home/pasha/.emacs.d/config/cedet.el" nil t)  ; Reading at buffer position 587
  load-with-code-conversion("/home/pasha/.emacs.d/config/cedet.el" "/home/pasha/.emacs.d/config/cedet.el" nil nil)
  load("cedet.el")`enter code here`
  eval-buffer(#<buffer  *load*> nil "/home/pasha/.emacs.d/init.el" nil t)  ; Reading at buffer position 63
  load-with-code-conversion("/home/pasha/.emacs.d/init.el" "/home/pasha/.emacs.d/init.el" t t)
  load("/home/pasha/.emacs.d/init" t t)
  #[0 "\205\262

我应该采取哪些进一步行动?

1 个答案:

答案 0 :(得分:1)

您可以尝试从load-path第一个

中删除附带emacs的CEDET
(setq load-path (remove-if (lambda (x) (string-match-p "cedet" x)) load-path))

init.el中,然后将新的CEDET添加到load-path