[slime-cvs] CVS slime/contrib

[CVS User heller]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv13838/contrib

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* slime.el (slime-current-package): Move REPL stuff to contrib.
* slime-repl.el (slime-repl-find-buffer-package): New function.
(slime-repl-init): Initialize slime-find-buffer-package-function.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/10/14 17:29:15	1.255
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/10/15 16:40:38	1.256
@@ -1,3 +1,8 @@
+2009-10-15  Helmut Eller  <heller at common-lisp.net>
+
+	* slime-repl.el (slime-repl-find-buffer-package): New function.
+	(slime-repl-init): Initialize slime-find-buffer-package-function.
+
 2009-10-14  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime-sprof.el (slime-sprof-browser-mode-map): Make
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/10/11 22:16:19	1.28
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/10/15 16:40:38	1.29
@@ -1551,9 +1551,14 @@
      t)
     (t nil)))
 
+(defun slime-repl-find-buffer-package ()
+  (or (slime-search-buffer-package)
+      (slime-lisp-package)))
+
 (defun slime-repl-init ()
   (add-hook 'slime-event-hooks 'slime-repl-event-hook-function)
-  (add-hook 'slime-connected-hook 'slime-repl-connected-hook-function))
+  (add-hook 'slime-connected-hook 'slime-repl-connected-hook-function)
+  (setq slime-find-buffer-package-function 'slime-repl-find-buffer-package))
 
 (defun slime-repl-remove-hooks ()
   (remove-hook 'slime-event-hooks 'slime-repl-event-hook-function)