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 (file)
--- 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 (file)
--- 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 (file)
--- 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