/[emacs]/emacs/lisp/emulation/viper-cmd.el
ViewVC logotype

Diff of /emacs/lisp/emulation/viper-cmd.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50 by rfrancoise, Sat Sep 24 13:43:59 2005 UTC revision 1.51 by kifer, Thu Oct 6 00:09:47 2005 UTC
# Line 494  Line 494 
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    
# Line 509  Line 516 
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)
# Line 4781  sensitive for VI-style look-and-feel." Line 4788  sensitive for VI-style look-and-feel."
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.
# Line 5000  Mail anyway (y or n)? ") Line 5007  Mail anyway (y or n)? ")
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

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26