Mercurial > emacs
comparison lisp/emulation/viper-mous.el @ 93615:34417c118a39
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.
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Thu, 03 Apr 2008 21:04:18 +0000 |
| parents | 7a6035a7126b |
| children | 1e3a407766b9 |
comparison
equal
deleted
inserted
replaced
| 93614:ee3b56d7c857 | 93615:34417c118a39 |
|---|---|
| 39 | 39 |
| 40 ;; loading happens only in non-interactive compilation | 40 ;; loading happens only in non-interactive compilation |
| 41 ;; in order to spare non-viperized emacs from being viperized | 41 ;; in order to spare non-viperized emacs from being viperized |
| 42 (if noninteractive | 42 (if noninteractive |
| 43 (eval-when-compile | 43 (eval-when-compile |
| 44 (let ((load-path (cons (expand-file-name ".") load-path))) | 44 (require 'viper-cmd) |
| 45 (or (featurep 'viper-cmd) | 45 )) |
| 46 (load "viper-cmd.el" nil t 'nosuffix)) | |
| 47 ))) | |
| 48 ;; end pacifier | 46 ;; end pacifier |
| 49 | 47 |
| 50 (require 'viper-util) | 48 (require 'viper-util) |
| 51 | 49 |
| 52 | 50 |