Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-keym.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 4be1180a9e89
children 2d532a89d707
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
22 ;; Code 22 ;; Code
23 23
24 (provide 'viper-keym) 24 (provide 'viper-keym)
25 25
26 ;; compiler pacifier 26 ;; compiler pacifier
27 (defvar vip-always) 27 (defvar viper-always)
28 (defvar vip-current-state) 28 (defvar vip-current-state)
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
581 (princ (format "vip-emacs-state-modifier-minor-mode: %S\n" 584 (princ (format "vip-emacs-state-modifier-minor-mode: %S\n"
582 vip-emacs-state-modifier-minor-mode)) 585 vip-emacs-state-modifier-minor-mode))
583 586
584 (princ (format "\nvip-expert-level %S\n" vip-expert-level)) 587 (princ (format "\nvip-expert-level %S\n" vip-expert-level))
585 (princ (format "vip-no-multiple-ESC %S\n" vip-no-multiple-ESC)) 588 (princ (format "vip-no-multiple-ESC %S\n" vip-no-multiple-ESC))
586 (princ (format "vip-always %S\n" vip-always)) 589 (princ (format "viper-always %S\n" viper-always))
587 (princ (format "vip-ex-style-motion %S\n" 590 (princ (format "vip-ex-style-motion %S\n"
588 vip-ex-style-motion)) 591 vip-ex-style-motion))
589 (princ (format "vip-ex-style-editing-in-insert %S\n" 592 (princ (format "vip-ex-style-editing-in-insert %S\n"
590 vip-ex-style-editing-in-insert)) 593 vip-ex-style-editing-in-insert))
591 (princ (format "vip-want-emacs-keys-in-vi %S\n" 594 (princ (format "vip-want-emacs-keys-in-vi %S\n"