Lines Matching +defs:dol +defs:mode +defs:directory

9 (defun dol-mode-directory-fn ()
10   "Used to find dol-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 dol-mode-directory (dol-mode-directory-fn))
20 		     (concat dol-mode-directory "../.."))))
33 (add-to-list 'load-path dol-mode-directory)
34 ;; Files whose extension is .dol or .het will be edited in DOL mode
35 (setq auto-mode-alist
37        '(("\\.dol\\'" . dol-mode))
38        '(("\\.het\\'"  . dol-mode))
39        '(("\\.clif\\'"  . dol-mode))
40        '(("\\.casl\\'"  . dol-mode))
41        auto-mode-alist))
42 (autoload 'dol-mode "dol-mode" "Entering DOL mode..." t)
43 (add-hook 'dol-mode-hook 'turn-on-dol-indent)
44 (message "dol-mode setup complete")