Permalink
Browse files

* 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.
  • Loading branch information...
1 parent a2d731a commit 605f930a1810b71f72a6b549b444fc23a7b3cdce heller committed Oct 15, 2009
Showing with 18 additions and 7 deletions.
  1. +4 −0 ChangeLog
  2. +5 −0 contrib/ChangeLog
  3. +6 −1 contrib/slime-repl.el
  4. +3 −6 slime.el
View
@@ -1,3 +1,7 @@
+2009-10-15 Helmut Eller <heller@common-lisp.net>
+
+ * slime.el (slime-current-package): Move REPL stuff to contrib.
+
2009-10-15 Stas Boukarev <stassats@gmail.com>
* slime.el (slime-current-package): Return REPL's package,
View
@@ -1,3 +1,8 @@
+2009-10-15 Helmut Eller <heller@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@freebits.de>
* slime-sprof.el (slime-sprof-browser-mode-map): Make
View
@@ -1551,9 +1551,14 @@ expansion will be added to the REPL's history.)"
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)
View
@@ -43,9 +43,8 @@
;; Trapping compiler messages and creating annotations in the source
;; file on the appropriate forms.
;;
-;; SLIME is compatible with GNU Emacs 22, and 23; the maintainers do
-;; not use XEmacs, and hence do not cater for its support. Patches
-;; tend to be accepted, though.
+;; SLIME should work with Emacs 22 and 23. If it works on XEmacs,
+;; consider yourself lucky.
;;
;; In order to run SLIME, a supporting Lisp server called Swank is
;; required. Swank is distributed with slime.el and will automatically
@@ -2258,9 +2257,7 @@ search for and read an `in-package' form."
(or slime-buffer-package
(save-restriction
(widen)
- (slime-find-buffer-package))
- (when (fboundp 'slime-lisp-package)
- (slime-lisp-package))))
+ (slime-find-buffer-package))))
(defvar slime-find-buffer-package-function 'slime-search-buffer-package
"*Function to use for `slime-find-buffer-package'.

0 comments on commit 605f930

Please sign in to comment.