;;;;;;;;;;;;;;;;;;;;;;;;;;
;; $Haeder$
;; Copyright: (c) Heng Jiang, Uni Bremen 2007
;; License: LGPL, see LICENSE.txt or LIZENZ.txt
;; Contact: hets-users@informatik.uni-bremen.de
;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun hpf-mode-directory-fn ()
  "Used to find hpf-mode directory"
  (let ((curdir 
	 (or
	  (and load-in-progress (file-name-directory load-file-name))
	  (file-name-directory (buffer-file-name)))))
    (file-name-directory curdir))  
)

(setq hpf-mode-directory (hpf-mode-directory-fn))

(add-to-list 'load-path hpf-mode-directory)
;; Files whose extension is .hpf or .het will be edited in HPF mode
(setq auto-mode-alist
      (append
       '(("\\.hpf\\'"  . hpf-mode))
       auto-mode-alist))
(autoload 'hpf-mode "hpf-mode" "Entering HPF mode..." t)
(message "hpf-mode setup complete")