diff options
| author | Glenn Morris | 2007-12-02 20:59:21 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-12-02 20:59:21 +0000 |
| commit | cdd489b0fb42b2c2328bfb00021e1cef817983c7 (patch) | |
| tree | 73da7f0cfe8424f21d855db7cc43bcf4fff27706 | |
| parent | fea7492a1bb03929a41dabcfd1b997cad08ced2e (diff) | |
| download | emacs-cdd489b0fb42b2c2328bfb00021e1cef817983c7.tar.gz emacs-cdd489b0fb42b2c2328bfb00021e1cef817983c7.zip | |
(top-level): Don't require ring.
Don't load viper-init, viper-cmd when compiling.
| -rw-r--r-- | lisp/emulation/viper.el | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el index 7c256bfb420..bb3e4eb583d 100644 --- a/lisp/emulation/viper.el +++ b/lisp/emulation/viper.el | |||
| @@ -297,28 +297,15 @@ | |||
| 297 | 297 | ||
| 298 | ;;; Code: | 298 | ;;; Code: |
| 299 | 299 | ||
| 300 | (require 'advice) | ||
| 301 | (require 'ring) | ||
| 302 | |||
| 303 | ;; compiler pacifier | 300 | ;; compiler pacifier |
| 304 | (defvar mark-even-if-inactive) | 301 | (defvar mark-even-if-inactive) |
| 305 | (defvar quail-mode) | 302 | (defvar quail-mode) |
| 306 | (defvar viper-expert-level) | 303 | (defvar viper-expert-level) |
| 307 | (defvar viper-mode-string) | 304 | (defvar viper-mode-string) |
| 308 | (defvar viper-major-mode-modifier-list) | 305 | (defvar viper-major-mode-modifier-list) |
| 309 | |||
| 310 | ;; loading happens only in non-interactive compilation | ||
| 311 | ;; in order to spare non-viperized emacs from being viperized | ||
| 312 | (if noninteractive | ||
| 313 | (eval-when-compile | ||
| 314 | (let ((load-path (cons (expand-file-name ".") load-path))) | ||
| 315 | (or (featurep 'viper-init) | ||
| 316 | (load "viper-init.el" nil t 'nosuffix)) | ||
| 317 | (or (featurep 'viper-cmd) | ||
| 318 | (load "viper-cmd.el" nil t 'nosuffix)) | ||
| 319 | ))) | ||
| 320 | ;; end pacifier | 306 | ;; end pacifier |
| 321 | 307 | ||
| 308 | (require 'advice) | ||
| 322 | (require 'viper-init) | 309 | (require 'viper-init) |
| 323 | (require 'viper-keym) | 310 | (require 'viper-keym) |
| 324 | 311 | ||