Merge sml-defs.el into sml-mode.el.

[gnu-emacs-elpa] / sml-proc.el

diff --git a/sml-proc.el b/sml-proc.el
index bdcd444b5cd4ad424c25327375cfdfc6ac1529d4..84e5e65670af58d938a9f5e780d8a1112479659d 100644 (file)
--- a/sml-proc.el
+++ b/sml-proc.el
@@ -96,23 +96,19 @@
   :group 'sml)
 
 (defcustom sml-program-name "sml"
-  "*Program to run as ML."
-  :group 'sml-proc
+  "Program to run as ML."
   :type '(string))
 
 (defcustom sml-default-arg ""
-  "*Default command line option to pass, if any."
-  :group 'sml-proc
+  "Default command line option to pass, if any."
   :type '(string))
 
 (defcustom sml-host-name ""
-  "*Host on which to run ML."
-  :group 'sml-proc
+  "Host on which to run ML."
   :type '(string))
 
 (defcustom sml-config-file "~/.smlproc.sml"
-  "*File that should be fed to the ML process when started."
-  :group 'sml-proc
+  "File that should be fed to the ML process when started."
   :type '(string))
 
 (defcustom sml-compile-command "CM.make()"
@@ -124,7 +120,7 @@ See also `sml-compile-commands-alist'.")
     ("CMB.make()" . "pathconfig")
     ("CM.make()" . "sources.cm")
     ("use \"load-all\"" . "load-all"))
-  "*Commands used by default by `sml-compile'.
+  "Commands used by default by `sml-compile'.
 Each command is associated with its \"main\" file.
 It is perfectly OK to associate several files with a command or several
 commands with the same file.")
@@ -198,8 +194,7 @@ The format specifier \"%s\" will be converted into the directory name
 specified when running the command \\[sml-cd].")
 
 (defcustom sml-prompt-regexp "^[-=>#] *"
-  "*Regexp used to recognise prompts in the inferior ML process."
-  :group 'sml-proc
+  "Regexp used to recognise prompts in the inferior ML process."
   :type '(regexp))
 
 (defvar sml-error-regexp-alist
@@ -776,13 +771,13 @@ the overlay should simply be removed: \\[universal-argument] \
   (when sml-error-overlay
     (unless (overlayp sml-error-overlay)
       (let ((ol sml-error-overlay))
-       (setq sml-error-overlay (make-overlay 0 0))
+       (setq sml-error-overlay (make-overlay (point) (point)))
        (overlay-put sml-error-overlay 'face (if (symbolp ol) ol 'region))))
-    (if undo (move-overlay sml-error-overlay 1 1 (current-buffer))
-      ;; if active regions, signals mark not active if no region set
-      (let ((beg (or beg (region-beginning)))
-           (end (or end (region-end))))
-       (move-overlay sml-error-overlay beg end (current-buffer))))))
+    (if undo (delete-overlay sml-error-overlay)
+      ;; If active regions, signals mark not active if no region set.
+      (move-overlay sml-error-overlay
+                    (or beg (region-beginning)) (or end (region-end))
+                    (current-buffer)))))
 
 (provide 'sml-proc)