;;
;; $Id: dosinit.el,v 1.2 1996/01/26 05:25:25 qjb Exp $
;; $Source: /home/qjb/elisp/RCS/dosinit.el,v $
;; $Author: qjb $
;;
;; This is my dos emacs init file to be used instead of .emacs.
;; In addition to using this and my normal elisp directory,
;; backquote.el and advice.el must be available, and advice, bytecomp,
;; and byte-opt should be byte-compiled.  This is known to work with
;; the port of emacs 19.28 that can be found on the 5/1995 Simtel disc.
;; 

(let ((search (or (getenv "SEARCH") "C:/q")))
  (setenv "HOME" search)
  (setq abbreviated-home-dir (concat "^" search "\\(/\\|$\\)")))
(set-foreground-color "lightgray")
(set-background-color "black")
(set-face-foreground 'modeline "black")
(set-face-background 'modeline' "lightgray")
(setq visible-bell t)
(load-file (expand-file-name "~/elisp/startup.el"))
(qstartup)