diff lisp/emulation/viper.el @ 35411:be20c22dc16d

2001-01-19 Michael Kifer <[e-mail]> * viper.el: call initial-major-mode on startup. * ediff.el (ediff-patch-file): use better defaults. * ediff-vers.el: fix for 8+3 DOS file systems 2001-01-19 Colin Walters <[e-mail]> * ediff-util.el (ediff-compare-custom-diffs-maybe): put diff in diff mode, if available. 2001-01-19 Vin Shelton <[e-mail]> * ediff-hook.el (ediff-xemacs-init-menus): fixed add-menu-button 2001-01-19 Steve Youngs <[e-mail]> * ediff-init.el (subst-char-in-string): Define and use it, unless it's already defined.

--- a/lisp/emulation/viper.el	Fri Jan 19 05:23:16 2001 +0000
+++ b/lisp/emulation/viper.el	Fri Jan 19 07:13:03 2001 +0000
@@ -8,7 +8,7 @@
 
 ;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000 Free Software Foundation, Inc.
 
-(defconst viper-version "3.09 of October 29, 2000"
+(defconst viper-version "3.09 of January 19, 2001"
   "The current version of Viper")
 
 ;; This file is part of GNU Emacs.
@@ -1248,8 +1248,8 @@
 	     (and (< viper-expert-level 5) (> viper-expert-level 0))))
     (viper-set-hooks))
     
-;; Let all minor modes take effect after loading
-;; this may not be enough, so we also set default minor-mode-alist.
+;; Let all minor modes take effect after loading.
+;; This may not be enough, so we also set default minor-mode-alist.
 ;; Without setting the default, new buffers that come up in emacs mode have
 ;; minor-mode-map-alist = nil, unless we call viper-change-state-*
 (if (and viper-mode (eq viper-current-state 'emacs-state))
@@ -1261,6 +1261,14 @@
 (if (and viper-mode (memq major-mode viper-vi-state-mode-list))
     (viper-mode))
 
+(if viper-mode
+    (setq initial-major-mode
+	  `(lambda ()
+	     (funcall (quote ,initial-major-mode))
+	     (set-viper-state-in-major-mode))
+	  ))
+
+
 
 (run-hooks 'viper-load-hook) ; the last chance to change something