(sml-proc-buffer): Save excursion when calling run-sml.

diff --git a/sml-proc.el b/sml-proc.el
index 538ed895951af6b636be120c3a1fad9b35bc1f22..58d4a1ccb654cbb3355d0b67fef646b7cdd6221b 100644 (file)
--- a/sml-proc.el
+++ b/sml-proc.el
@@ -280,7 +280,7 @@ buffer."
             ;; buffer-name returns nil if the buffer has been killed
             (and buf (buffer-name buf) buf)))
       ;; no buffer found, make a new one
-      (call-interactively 'run-sml)))
+      (save-excursion (call-interactively 'run-sml))))
 
 (defun sml-buffer (echo)
   "Make the current buffer the current `sml-buffer' if that is sensible.