Lines Matching +defs:casl +defs:mode +defs:directory

9 (defun casl-mode-directory-fn ()
10   "Used to find casl-mode directory"
13 	  (and load-in-progress (file-name-directory load-file-name))
14 	  (file-name-directory (buffer-file-name)))))
15     (file-name-directory curdir))  
18 (setq casl-mode-directory (casl-mode-directory-fn))
20 		     (concat casl-mode-directory "../.."))))
33 (add-to-list 'load-path casl-mode-directory)
34 ;; Files whose extension is .casl or .het will be edited in CASL mode
35 (setq auto-mode-alist
37        '(("\\.casl\\'" . casl-mode))
38        '(("\\.het\\'"  . casl-mode))
39        '(("\\.dol\\'"  . casl-mode))
40        auto-mode-alist))
41 (autoload 'casl-mode "casl-mode" "Entering CASL mode..." t)
42 (add-hook 'casl-mode-hook 'turn-on-casl-indent)
43 (message "casl-mode setup complete")