diff options
| author | Michael Kifer <kifer@cs.stonybrook.edu> | 2008-04-03 21:04:18 +0000 |
|---|---|---|
| committer | Michael Kifer <kifer@cs.stonybrook.edu> | 2008-04-03 21:04:18 +0000 |
| commit | 2ee00512e35d3bb872f6c7be39e0c3bb286ca2fe (patch) | |
| tree | b663c7b9e33383c90f34b03d97b79b815ec49e72 /lisp/emulation/viper-ex.el | |
| parent | ece21937054981b66cfb0ead88ff463f172d8e77 (diff) | |
| download | emacs-2ee00512e35d3bb872f6c7be39e0c3bb286ca2fe.tar.gz | |
2008-04-03 Michael Kifer <kifer@cs.stonybrook.edu>
* viper-macs.el (viper-read-fast-keysequence): use viper-read-event
instead of viper-read-key.
* viper.el (viper-mode): move the check for fundamental mode.
* viper-utils.el (viper-get-saved-cursor-color-in-replace-mode)
viper-get-saved-cursor-color-in-insert-mode): get rid of redundant
let-statements.
* viper*.el: replaced load with require in eval-when-compile.
Diffstat (limited to 'lisp/emulation/viper-ex.el')
| -rw-r--r-- | lisp/emulation/viper-ex.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el index cd153bdaf91..af5780f0d72 100644 --- a/lisp/emulation/viper-ex.el +++ b/lisp/emulation/viper-ex.el @@ -46,10 +46,8 @@ ;; 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-cmd) - (load "viper-cmd.el" nil t 'nosuffix)) - ))) + (require 'viper-cmd) + )) ;; end pacifier (require 'viper-util) @@ -2077,7 +2075,8 @@ Please contact your system administrator. " ;; create temp buffer for the region (setq temp-buf (get-buffer-create " *ex-write*")) (set-buffer temp-buf) - (if (featurep 'xemacs) (set-visited-file-name ex-file) + (if (featurep 'xemacs) + (set-visited-file-name ex-file) (set-visited-file-name ex-file 'noquery)) (erase-buffer) (if (and file-exists ex-append) |