b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang;;;;;;;;;;;;;;;;;;;;;;;;;;
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang;; $Haeder$
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang;; Copyright: (c) Heng Jiang, Uni Bremen 2007
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang;; License: LGPL, see LICENSE.txt or LIZENZ.txt
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang;; Contact: hets-users@informatik.uni-bremen.de
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang;;;;;;;;;;;;;;;;;;;;;;;;;;
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang(defun hpf-mode-directory-fn ()
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang "Used to find hpf-mode directory"
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang (let ((curdir
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang (or
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang (and load-in-progress (file-name-directory load-file-name))
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang (file-name-directory (buffer-file-name)))))
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang (file-name-directory curdir))
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang)
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang(setq hpf-mode-directory (hpf-mode-directory-fn))
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang(add-to-list 'load-path hpf-mode-directory)
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang;; Files whose extension is .hpf or .het will be edited in HPF mode
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang(setq auto-mode-alist
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang (append
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang '(("\\.hpf\\'" . hpf-mode))
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang auto-mode-alist))
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang(autoload 'hpf-mode "hpf-mode" "Entering HPF mode..." t)
b9b8f261fe6ee3907ec15372993cbfec33448c52Heng Jiang(message "hpf-mode setup complete")