Mercurial > emacs

changeset 13907:c4f965637f22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vip-startup-file): New variable. (vip-mode): Use `vip-startup-file' for the startup file name.
author Richard M. Stallman <rms@gnu.org>
date Mon, 01 Jan 1996 23:40:10 +0000
parents ab4917aacf37
children ce0d475e3e77
files lisp/emulation/vip.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/vip.el	Mon Jan 01 23:36:51 1996 +0000
+++ b/lisp/emulation/vip.el	Mon Jan 01 23:40:10 1996 +0000
@@ -121,6 +121,9 @@
 (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 @@
 	    (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 @@
 		(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