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

Timestamp:

07/01/06 08:27:06 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/emulation/viper.el (modified) (2 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
@@ -546 +550 @@
-            (progn           ; and expert-level msgs when viper-mode recurses
-              (setq viper-first-time nil)
-              (setq viper-vi-state-cursor-color
-                    (viper-get-cursor-color))
-              (if (not viper-inhibit-startup-message)
-                  (save-window-excursion