Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
18171:566b6cf773ed | 18172:e145ccc61a22 |
---|---|
29 (defvar vip-mode-string) | 29 (defvar vip-mode-string) |
30 (defvar vip-expert-level) | 30 (defvar vip-expert-level) |
31 (defvar vip-ex-style-editing-in-insert) | 31 (defvar vip-ex-style-editing-in-insert) |
32 (defvar vip-ex-style-motion) | 32 (defvar vip-ex-style-motion) |
33 | 33 |
34 (eval-when-compile | 34 ;; loading happens only in non-interactive compilation |
35 (let ((load-path (cons (expand-file-name ".") load-path))) | 35 ;; in order to spare non-viperized emacs from being viperized |
36 (or (featurep 'viper-util) | 36 (if noninteractive |
37 (load "viper-util.el" nil nil 'nosuffix)) | 37 (eval-when-compile |
38 )) | 38 (let ((load-path (cons (expand-file-name ".") load-path))) |
39 (or (featurep 'viper-util) | |
40 (load "viper-util.el" nil nil 'nosuffix)) | |
41 ))) | |
39 ;; end pacifier | 42 ;; end pacifier |
40 | 43 |
41 (require 'viper-util) | 44 (require 'viper-util) |
42 | 45 |
43 | 46 |