[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv27105

Modified Files:
	slime.el 
Log Message:
(slime-start-and-load): New function.  Suggested by Lars Magne Ingebrigtsen.
Date: Sun May  2 15:08:23 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.290 slime/slime.el:1.291
--- slime/slime.el:1.290	Sun May  2 14:54:52 2004
+++ slime/slime.el	Sun May  2 15:08:23 2004
@@ -1042,6 +1042,22 @@
     (slime-maybe-start-lisp)
     (slime-read-port-and-connect)))
 
+(defun slime-start-and-load ()
+  "Start Slime, load the current file and set the package."
+  (interactive)
+  (let ((package (slime-find-buffer-package)))
+    (when (not package)
+      (error "No package to load"))
+    (lexical-let ((hook nil)
+                  (package package)
+                  (filename (expand-file-name (buffer-file-name))))
+      (setq hook (lambda ()
+                   (remove-hook 'slime-connected-hook hook)
+                   (slime-load-file filename)
+                   (slime-repl-set-package package)))
+      (add-hook 'slime-connected-hook hook)
+      (slime))))
+
 (defun slime-bytecode-stale-p ()
   "Return true if slime.elc is older than slime.el."
   (when-let (libfile (locate-library "slime"))