From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 1 Jan 1996 23:40:10 +0000 (+0000)
Subject: (vip-startup-file): New variable.
X-Git-Tag: emacs-19.34~1953
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f719b45aaa7f63ee84eaad492d9e8c78e7b1ad2c;p=emacs.git

(vip-startup-file): New variable.
(vip-mode): Use `vip-startup-file' for the startup file name.
---

diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index c887d9123e0..12c7bd4945c 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -121,6 +121,9 @@ bound to delete-backward-char.")
 (defvar vip-tags-file-name "TAGS")
 
 (defvar vip-inhibit-startup-message nil)
+
+(defvar vip-startup-file (convert-standard-filename "~/.vip")
+  "filename used as strtup file for `vip-mode'.")
 
 ;; basic set up
 
@@ -243,7 +246,8 @@ Type `n' to quit this window for now.\n")
 	    (progn
 	      (save-excursion
 		(set-buffer
-		 (find-file-noselect (substitute-in-file-name "~/.vip")))
+		 (find-file-noselect
+		  (substitute-in-file-name vip-startup-file)))
 		(goto-char (point-max))
 		(insert "\n(setq vip-inhibit-startup-message t)\n")
 		(save-buffer)
@@ -3020,6 +3024,6 @@ vip-s-string"
 		(point-min)
 		(if (null ex-addresses) (point-max) (car ex-addresses))))))
 
-(if (file-exists-p "~/.vip") (load "~/.vip"))
+(if (file-exists-p vip-startup-file) (load vip-startup-file))
 
 ;;; vip.el ends here