From 1ef4946740abd96a3391de180ac0eb5ec131b5a5 Mon Sep 17 00:00:00 2001
From: monnier <>
Date: Thu, 19 Jul 2001 19:24:21 +0000
Subject: [PATCH] (sml-proc-buffer): Save excursion when calling run-sml.

---
 sml-proc.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sml-proc.el b/sml-proc.el
index 538ed8959..58d4a1ccb 100644
--- 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.
-- 
2.39.2