;;;;;;;;;;;;;;;;
;; Set the ANSYS mode
;;

(load-file "c:/home/emacs-lisp/ansys-mod.el")
   (autoload 'ansys-mode "ansys-mod" nil t)
   (setq auto-mode-alist
         (cons '("\\.m$" . ansys-mode) auto-mode-alist))

(setq auto-mode-alist (mapcar 'purecopy
                                 '(("\\.ans\\'" . ansys-mode))))

(add-hook 'ansys-mode-hook
          (lambda ()
    (abbrev-mode 1)
            (auto-fill-mode 1)
            (if (eq window-system 'x)
                (font-lock-mode 1))))