;;
;; $Id: DFusion.el,v 1.14 1995/06/26 15:57:27 ejb Exp $
;; $Source: /home/ejb/elisp/q/RCS/DFusion.el,v $
;; $Author: ejb $
;;
;; DFusion-specific initialization
;;

(defun q-df-init ()
  "Perform DFusion-specific initialization."
  (make-local-variable 'obj-file-prefix)
  (setq obj-file-prefix (concat (command-output "archdir") "/"))
  )

(load (concat (getenv "STAGING") "/tools/elisp/DFusion-elisp"))
(setq DFusion::all-staging-in-df-mode nil)
(setq DFusion::extend-auto-mode-alist nil)
(add-hook 'DFusion-hooks 'q-df-init)
(DFusion-setup)