- ('interactive (company-begin-backend 'company-ropemacs))
- ('prefix (and (derived-mode-p 'python-mode)
- (not (company-in-string-or-comment))
- (company-ropemacs--grab-symbol)))
- ('candidates (mapcar (lambda (element) (concat arg element))
- (rope-completions)))
- ('doc-buffer (company-ropemacs-doc-buffer arg))
- ('location (company-ropemacs-location arg))))
+ (init (when (and (derived-mode-p 'python-mode)
+ (not (fboundp 'rope-completions)))
+ (require 'pymacs)
+ (pymacs-load "ropemacs" "rope-")))
+ (interactive (company-begin-backend 'company-ropemacs))
+ (prefix (and (derived-mode-p 'python-mode)
+ (not (company-in-string-or-comment))
+ (company-ropemacs--grab-symbol)))
+ (candidates (mapcar (lambda (element) (concat arg element))
+ (rope-completions)))
+ (doc-buffer (company-ropemacs-doc-buffer arg))
+ (location (company-ropemacs-location arg))))