Changeset 4161 for trunk/lisp/emulation/viper.el

Timestamp:

09/09/06 16:30:10 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/emulation/viper.el (modified) (5 diffs)

trunk/lisp/emulation/viper.el

@@ -535 +535 @@
-  "Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Viper'."
-  (interactive)
-  (if (null viper-vi-state-cursor-color)
-      (modify-frame-parameters
-        (selected-frame)
-        (list (cons 'viper-vi-state-cursor-color (viper-get-cursor-color)))))
-  (if (not noninteractive)
-      (progn
@@ -619 +615 @@
-        (or (memq major-mode viper-emacs-state-mode-list) ; don't switch to Vi
-            (memq major-mode viper-insert-state-mode-list) ; don't switch
-
+
+
-
-
@@ -863 +860 @@
-  ;; So do it via the window-setup-hook
-  (add-hook 'window-setup-hook
-
-
+
+
+
+
+
-
-  ;; Tell vc-diff to put *vc* in Vi mode
@@ -904 +904 @@
-  (defadvice set-cursor-color (after viper-set-cursor-color-ad activate)
-    "Change cursor color in VI state."
-    ;;(setq viper-vi-state-cursor-color (ad-get-arg 0))
-    (modify-frame-parameters
-        (selected-frame)
@@ -1009 +1008 @@
-(defun viper-non-hook-settings ()
-
-
-
+;;
+;;
-
-  ;; setup emacs-supported vi-style feel