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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-mode-map): Portability fix for definition of the REPL
command character.

(slime-maybe-rearrange-inferior-lisp): Bugfix for running multiple
inferior lisps.

Date: Wed Apr 14 12:42:58 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.260 slime/slime.el:1.261
--- slime/slime.el:1.260	Tue Apr 13 06:04:38 2004
+++ slime/slime.el	Wed Apr 14 12:42:58 2004
@@ -1046,7 +1046,7 @@
   "Offer to rename *inferior-lisp* so that another can be started."
   (when (y-or-n-p "Create an additional *inferior-lisp*? ")
     (with-current-buffer "*inferior-lisp*"
-      (rename-buffer bufname t))))
+      (rename-buffer (buffer-name) t))))
 
 (defun slime-maybe-start-lisp ()
   "Start an inferior lisp unless one is already running."
@@ -2389,8 +2389,10 @@
   ("\C-c\C-p" 'slime-repl-previous-prompt)
   ("\M-\C-a" 'slime-repl-beginning-of-defun)
   ("\M-\C-e" 'slime-repl-end-of-defun)
-  ((string slime-repl-shortcut-dispatch-char) 'slime-handle-repl-shortcut)
   )
+
+(define-key slime-repl-mode-map
+  (string slime-repl-shortcut-dispatch-char) 'slime-handle-repl-shortcut)
 
 (define-minor-mode slime-repl-read-mode 
   "Mode the read input from Emacs