Mercurial > emacs
diff lisp/emulation/viper-keym.el @ 18172:e145ccc61a22
new version
author | Michael Kifer <kifer@cs.stonybrook.edu> |
---|---|
date | Mon, 09 Jun 1997 04:00:50 +0000 |
parents | 1b06411ccc04 |
children | 3a43376db2be |
line wrap: on
line diff
--- a/lisp/emulation/viper-keym.el Sun Jun 08 21:45:16 1997 +0000 +++ b/lisp/emulation/viper-keym.el Mon Jun 09 04:00:50 1997 +0000 @@ -31,11 +31,14 @@ (defvar vip-ex-style-editing-in-insert) (defvar vip-ex-style-motion) -(eval-when-compile - (let ((load-path (cons (expand-file-name ".") load-path))) - (or (featurep 'viper-util) - (load "viper-util.el" nil nil 'nosuffix)) - )) +;; loading happens only in non-interactive compilation +;; in order to spare non-viperized emacs from being viperized +(if noninteractive + (eval-when-compile + (let ((load-path (cons (expand-file-name ".") load-path))) + (or (featurep 'viper-util) + (load "viper-util.el" nil nil 'nosuffix)) + ))) ;; end pacifier (require 'viper-util)