[slime-cvs] CVS slime/contrib

[mkoeppe]

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv11042

Modified Files:
	slime-presentations.el 
Log Message:
(slime-presentation-bindings, slime-presentation-init-keymaps): Don't
try to bind the control-key version of C-c C-v M-o.


--- /project/slime/cvsroot/slime/contrib/slime-presentations.el	2008/01/10 13:48:47	1.9
+++ /project/slime/cvsroot/slime/contrib/slime-presentations.el	2008/01/10 18:29:53	1.10
@@ -643,8 +643,7 @@
     (?r slime-copy-presentation-at-point-to-repl)
     (?p slime-previous-presentation)
     (?n slime-next-presentation)
-    (?  slime-mark-presentation)
-    (?\M-o slime-clear-presentations)))
+    (?  slime-mark-presentation)))
 
 (defun slime-presentation-init-keymaps ()
   (setq slime-presentation-command-map (make-sparse-keymap))
@@ -654,6 +653,7 @@
              (define-key slime-presentation-command-map (vector key) command)
              (let ((modified (slime-control-modified-char key)))
 	       (define-key slime-presentation-command-map (vector modified) command))))
+  (define-key slime-presentation-command-map "\M-o" 'slime-clear-presentations)
   ;; C-c C-v is the prefix for the presentation-command map.
   (slime-define-key "\C-v" slime-presentation-command-map :prefixed t :inferior t)
   (define-key slime-repl-mode-map "\C-c\C-v" slime-presentation-command-map)