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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-keys): Bind C-c M-p to slime-repl-set-package.
(slime-easy-menu): Add entry for slime-repl-set-package.

Date: Fri Jan 23 09:17:58 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.196 slime/slime.el:1.197
--- slime/slime.el:1.196	Thu Jan 22 19:20:07 2004
+++ slime/slime.el	Fri Jan 23 09:17:57 2004
@@ -443,6 +443,7 @@
     ;; for "\C- ".
     ;; ("\C- " slime-next-location :prefixed t :inferior t)
     ("~" slime-sync-package-and-default-directory :prefixed t :inferior t)
+    ("\M-p" slime-repl-set-package :prefixed t :inferior t)
     ;; Cross reference
     ("\C-wc" slime-who-calls :prefixed t :inferior t :sldb t)
     ("\C-wr" slime-who-references :prefixed t :inferior t :sldb t)
@@ -500,7 +501,7 @@
        [ "Eval And Pretty-Print"   slime-pprint-eval-last-expression ,C ]
        [ "Eval Region"             slime-eval-region ,C ]
        [ "Interactive Eval"        slime-interactive-eval ,C ]
-       [ "Scratch Buffer"          slime-scratch-buffer ,C ])
+       [ "Scratch Buffer"          slime-scratch ,C ])
       ("Debugging"
        [ "Macroexpand Once..."     slime-macroexpand-1 ,C ]
        [ "Macroexpand All..."      slime-macroexpand-all ,C ]
@@ -534,6 +535,7 @@
       [ "Interrupt Command"        slime-interrupt ,C ]
       [ "Abort Async. Command"     slime-quit ,C ]
       [ "Sync Package & Directory" slime-sync-package-and-default-directory ,C]
+      [ "Set Package in REPL"      slime-repl-set-package ,C]
       )))
 
 (easy-menu-define menubar-slime slime-mode-map "SLIME" slime-easy-menu)