494 |
viper-empty-keymap)) |
viper-empty-keymap)) |
495 |
)) |
)) |
496 |
|
|
497 |
;; in emacs with emulation-mode-map-alists, nothing needs to be done |
;; This var is not local in Emacs, so we make it local. It must be local |
498 |
|
;; because although the stack of minor modes can be the same for all buffers, |
499 |
|
;; the associated *keymaps* can be different. In Viper, |
500 |
|
;; viper-vi-local-user-map, viper-insert-local-user-map, and others can have |
501 |
|
;; different keymaps for different buffers. Also, the keymaps associated |
502 |
|
;; with viper-vi/insert-state-modifier-minor-mode can be different. |
503 |
|
;; ***This is needed only in case emulation-mode-map-alists is not defined. |
504 |
|
;; In emacs with emulation-mode-map-alists, nothing needs to be done |
505 |
(unless |
(unless |
506 |
(and (fboundp 'add-to-ordered-list) (boundp 'emulation-mode-map-alists)) |
(and (fboundp 'add-to-ordered-list) (boundp 'emulation-mode-map-alists)) |
507 |
(setq minor-mode-map-alist |
(set (make-local-variable 'minor-mode-map-alist) |
508 |
(viper-append-filter-alist |
(viper-append-filter-alist |
509 |
(append viper--intercept-key-maps viper--key-maps) |
(append viper--intercept-key-maps viper--key-maps) |
510 |
minor-mode-map-alist))) |
minor-mode-map-alist))) |
511 |
) |
) |
512 |
|
|
513 |
|
|
516 |
|
|
517 |
;; Modifies mode-line-buffer-identification. |
;; Modifies mode-line-buffer-identification. |
518 |
(defun viper-refresh-mode-line () |
(defun viper-refresh-mode-line () |
519 |
(setq viper-mode-string |
(set (make-local-variable 'viper-mode-string) |
520 |
(cond ((eq viper-current-state 'emacs-state) viper-emacs-state-id) |
(cond ((eq viper-current-state 'emacs-state) viper-emacs-state-id) |
521 |
((eq viper-current-state 'vi-state) viper-vi-state-id) |
((eq viper-current-state 'vi-state) viper-vi-state-id) |
522 |
((eq viper-current-state 'replace-state) viper-replace-state-id) |
((eq viper-current-state 'replace-state) viper-replace-state-id) |
4788 |
level-changed t) |
level-changed t) |
4789 |
(insert " |
(insert " |
4790 |
Please specify your level of familiarity with the venomous VI PERil |
Please specify your level of familiarity with the venomous VI PERil |
4791 |
(and the VI Plan for Emacs Rescue). |
\(and the VI Plan for Emacs Rescue). |
4792 |
You can change it at any time by typing `M-x viper-set-expert-level RET' |
You can change it at any time by typing `M-x viper-set-expert-level RET' |
4793 |
|
|
4794 |
1 -- BEGINNER: Almost all Emacs features are suppressed. |
1 -- BEGINNER: Almost all Emacs features are suppressed. |
5007 |
|
|
5008 |
|
|
5009 |
|
|
5010 |
;;; arch-tag: 739a6450-5fda-44d0-88b0-325053d888c2 |
;; arch-tag: 739a6450-5fda-44d0-88b0-325053d888c2 |
5011 |
;;; viper-cmd.el ends here |
;;; viper-cmd.el ends here |