--- sml/trunk/sml-mode/sml-defs.el	1999/08/06 08:41:25	393
+++ sml/trunk/sml-mode/sml-defs.el	1999/08/09 21:45:51	394
@@ -25,6 +25,10 @@
 ;;; Code
 ;;; 
 
+(defgroup sml ()
+  "Editing SML code."
+  :group 'languages)
+
 (defvar sml-outline-regexp "[ \t]*\\((\\*+\\|\\(let[ \t]+\\)?fun.\\)"
   "Regexp matching a major heading.")
 
@@ -48,7 +52,8 @@
     ;; Process commands added to sml-mode-map -- these should autoload
     ("\C-c\C-l"	. sml-load-file)
     ("\C-c`"	. sml-next-error))
-  "Generic bindings used in sml-mode and sml-inferior-mode.")
+  "Generic bindings used in sml-mode and sml-inferior-mode."
+  :group 'sml)
 
 (defmap sml-mode-map
   '(("\C-c\C-c" . sml-compile)
@@ -56,7 +61,8 @@
     ("\C-c\C-r" . sml-send-region)
     ("\C-c\C-b" . sml-send-buffer))
   "The keymap used in sml-mode."
-  :inherit sml-bindings)
+  :inherit sml-bindings
+  :group 'sml)
 
 (defsyntax sml-mode-syntax-table 
   '((?\*   . ". 23n")
@@ -108,7 +114,8 @@
     ["SML mode *info*"             sml-mode-info t]
     ["SML mode version"            sml-mode-version t]
     ["-----" nil nil]
-    ["Remove overlay"    (sml-error-overlay 'undo) :active (sml-overlay-active-p)]))
+    ["Remove overlay"    (sml-error-overlay 'undo) ;:active (sml-overlay-active-p)
+     ]))
 
 ;;; Make's sure they appear in the menu bar when sml-mode-map is active.
 ;; On the hook for XEmacs only -- see easy-menu-add in auc-menu.el.

<script type="text/javascript">//<![CDATA[
		function toggle_ffErrors() {
			var errorsblock = document.getElementById("ffErrorsBlock");
			var errorsgroup = document.getElementById("ffErrors");
			if (errorsblock.style.display == "none") {
				errorsblock.style.display = "block";
				errorsgroup.style.right = "10px";
			} else {
				errorsblock.style.display = "none";
				errorsgroup.style.right = "300px";
			}
		}
//]]></script>
<div id="ffErrors">
<a href="javascript:toggle_ffErrors();">Click to toggle</a>
<div id="ffErrorsBlock">
	<div class="error">does not end with &lt;/html&gt; tag</div>
	<div class="error">does not end with &lt;/body&gt; tag</div>
	<div class="info">The output has ended thus: ar when sml-mode-map is active.
 ;; On the hook for XEmacs only -- see easy-menu-add in auc-menu.el.</div>
</div></div>
</body></html>