[AC] Use `make-temp-file' instead of constant file name

I've pushed this one to the scheme package:

2014-05-25  Michael Sperber  <[email protected]>

	* cmuscheme48.el (scheme48-send-definition): Use `make-temp-file'
	instead of a constant file name.

-- 
Regards,
Mike

diff --git a/cmuscheme48.el b/cmuscheme48.el
--- a/cmuscheme48.el
+++ b/cmuscheme48.el
@@ -77,7 +77,7 @@
    (let ((end (point)))
      (beginning-of-defun)
      (if losep
-	 (let ((loser "/tmp/s48lose.tmp"))
+	 (let ((loser (make-temp-file "s48lose")))
 	   (write-region (point) end loser)
 	   (scheme48-load-file loser))
 	 (scheme48-send-region (point) end)))))

_______________________________________________
XEmacs-Patches mailing list
[email protected]
http://lists.xemacs.org/mailman/listinfo/xemacs-patches