From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 16 Dec 2007 20:22:02 +0000 (+0000)
Subject: domtool-mode patch from the inimitable clinton
X-Git-Tag: release_2010-11-19~79
X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/03b14a21885d02b8077bad3d497762ec948a8451

domtool-mode patch from the inimitable clinton
---

diff --git a/elisp/domtool-mode-startup.el b/elisp/domtool-mode-startup.el
index fc63a0e..a909c3e 100644
--- a/elisp/domtool-mode-startup.el
+++ b/elisp/domtool-mode-startup.el
@@ -2,3 +2,5 @@
 Major Mode for editing Domtool files." t nil)
 
 (add-to-list (quote auto-mode-alist) (quote ("\\.\\(dtl\\|com\\|net\\|org\\|edu\\|mil\\|biz\\|info\\|name\\|be\\|ca\\|cc\\|de\\|fr\\|in\\|mu\\|se\\|uk\\|us\\|ws\\)$" . domtool-mode)))
+
+(provide 'domtool-mode-startup)
diff --git a/elisp/domtool-mode.el b/elisp/domtool-mode.el
index 9330e0b..cbd5175 100644
--- a/elisp/domtool-mode.el
+++ b/elisp/domtool-mode.el
@@ -40,7 +40,7 @@
 (defun domtool-syms-re (&rest syms)
   (concat "\\<" (regexp-opt syms t) "\\>"))
 
-(load-file "/usr/local/share/emacs/site-lisp/domtool-mode/domtool-tables.el")
+(require 'domtool-tables)
 
 (defvar domtool-font-lock-keywords
   `(,(concat
@@ -152,3 +152,5 @@
                    (incf depth)
                  (decf depth)))
              (+ (current-indentation) depth)))))
+
+(provide 'domtool-mode)
diff --git a/src/autodoc.sml b/src/autodoc.sml
index 640012c..c64180d 100644
--- a/src/autodoc.sml
+++ b/src/autodoc.sml
@@ -252,7 +252,8 @@ fun makeEmacsKeywords infiles =
 	printKind ("contexts", contexts);
 	printKind ("actions", actions);
 	printKind ("vals", vals);
-	printKind ("env-vars", StringSet.listItems evs)
+	printKind ("env-vars", StringSet.listItems evs);
+	print "(provide 'domtool-tables)\n"
     end
 
 end