5

我使用Pymacs在我的.emacs文件中使用以下行加载ropemacs和rope ，如此处所述。

(autoload 'pymacs-load "pymacs" nil t)
(pymacs-load "ropemacs" "rope-")

然而，它会显着减慢 Emacs 的启动速度，因为加载Ropemacs需要一段时间。

我尝试了以下行，但每次打开 Python 文件时都会加载Ropemacs ：

(add-hook 'python-mode-hook (lambda () (pymacs-load "ropemacs" "rope-")))

有没有办法pymacs-load在打开 Python 文件时执行操作，但前提是尚未加载ropemacs和rope ？

4

3 回答 3

9

在我的.emacs中，我有：

(autoload 'python-mode "my-python-setup" "" t)

在一个单独的文件my-python-setup.el 中，我保留：

(require 'python)
(add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
;; Initialize Pymacs
(autoload 'pymacs-apply "pymacs")
(autoload 'pymacs-call "pymacs")
(autoload 'pymacs-eval "pymacs" nil t)
(autoload 'pymacs-exec "pymacs" nil t)
(autoload 'pymacs-load "pymacs" nil t)
;; Initialize Rope
(pymacs-load "ropemacs" "rope-")
(setq ropemacs-enable-autoimport t)

这样，Pymacs和ropemacs将只加载一次。当打开第一个.py文件时会发生这种情况。

于 2010-06-01T20:28:18.160 回答
2

这是eval-after-load为了什么。

(eval-after-load "python-mode"
  '(progn
     ;; Do whatever you need to do here. It will only get executed
     ;; after python-mode.el has loaded.
     (require 'pymacs)
     (pymacs-load "ropemacs" "rope-")))

如果您使用python.el而不是python-mode.el ，则需要编写“python”而不是“python-mode” 。

我实际上将我的ropemacs加载代码放在一个可以交互调用的单独函数中。这是因为ropemacs偶尔会为我崩溃，当它发生时我只是调用该函数来重新加载它。

于 2010-09-19T13:28:39.287 回答
1

这是我的解决方案：

(defun my-python-hook-mode ()
  (interactive)
  (require 'pymacs)
  (autoload 'pymacs-apply "pymacs")
  (autoload 'pymacs-call "pymacs")
  (autoload 'pymacs-eval "pymacs" nil t)
  (autoload 'pymacs-exec "pymacs" nil t)
  (autoload 'pymacs-load "pymacs" nil t)
  (ac-ropemacs-setup)
  (setq ropemacs-confirm-saving 'nil)
  (ropemacs-mode t)
  (define-key python-mode-map "\C-m" 'newline-and-indent)
 )
(add-hook 'python-mode-hook 'my-python-hook-mode)

其中ac-ropemacs-setup在自动完成模块中定义：

(defun ac-ropemacs-require ()
  (with-no-warnings
    (unless ac-ropemacs-loaded
      (pymacs-load "ropemacs" "rope-")
      (if (boundp 'ropemacs-enable-autoimport)
          (setq ropemacs-enable-autoimport t))
      (setq ac-ropemacs-loaded t))))

(defun ac-ropemacs-setup ()
  (ac-ropemacs-require)
  ;(setq ac-sources (append (list 'ac-source-ropemacs) ac-sources))
  (setq ac-omni-completion-sources '(("\\." ac-source-ropemacs))))

此解决方案假定您同时使用自动完成功能。

于 2011-03-08T14:30:09.583 回答