From e9207c969549773c0ebd84f8cc42f99505d4ab67 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 Feb 2000 04:23:08 +0000
Subject: [PATCH] Define OS/ABBREV-FILE-NAME.

---
 v7/src/edwin/dosfile.scm | 11 +++++------
 v7/src/edwin/unix.scm    |  5 ++++-
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index d97218f42..9f0cde69a 100644
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dosfile.scm,v 1.35 2000/02/03 22:24:52 cph Exp $
+;;; $Id: dosfile.scm,v 1.36 2000/02/28 04:23:08 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -443,11 +443,10 @@ Switches may be concatenated, e.g. `-lt' is equivalent to `-l -t'."
      ("y" . c))))
 
 (define (os/init-file-name)
-  (let ((name "edwin.ini"))
-    (let ((user-init-file (merge-pathnames name (user-homedir-pathname))))
-      (if (file-exists? user-init-file)
-	  user-init-file
-	  (merge-pathnames name (system-library-directory-pathname #f))))))
+  "~/edwin.ini")
+
+(define (os/abbrev-file-name)
+  "~/abbrevs.scm")
 
 (define (os/find-file-initialization-filename pathname)
   (or (and (equal? "scm" (pathname-type pathname))
diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index a8629147a..0217cf120 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: unix.scm,v 1.105 2000/01/16 13:24:11 cph Exp $
+;;; $Id: unix.scm,v 1.106 2000/02/28 04:23:05 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -327,6 +327,9 @@ Includes the new backup.  Must be > 0."
 (define (os/init-file-name)
   "~/.edwin")
 
+(define (os/abbrev-file-name)
+  "~/.abbrev_defs")
+
 (define (os/find-file-initialization-filename pathname)
   (or (and (equal? "scm" (pathname-type pathname))
 	   (let ((pathname (pathname-new-type pathname "ffi")))
-- 
2.25.1