From f719b45aaa7f63ee84eaad492d9e8c78e7b1ad2c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 1 Jan 1996 23:40:10 +0000 Subject: [PATCH] (vip-startup-file): New variable. (vip-mode): Use `vip-startup-file' for the startup file name. --- lisp/emulation/vip.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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 -- 2.39.2