[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog slime-presentations.el 
Log Message:
* slime-presentations.el (slime-presentation-init-keymaps):
Replace slime-define-both-key-bindings with slime-bind-keys.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/24 13:17:00	1.287
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/30 14:47:23	1.288
@@ -1,3 +1,8 @@
+2009-11-30  Helmut Eller  <heller at common-lisp.net>
+
+	* slime-presentations.el (slime-presentation-init-keymaps):
+	Replace slime-define-both-key-bindings with slime-bind-keys.
+
 2009-11-24  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	Fix a few edge cases in new arglist code.
--- /project/slime/cvsroot/slime/contrib/slime-presentations.el	2009/02/27 18:07:14	1.23
+++ /project/slime/cvsroot/slime/contrib/slime-presentations.el	2009/11/30 14:47:23	1.24
@@ -694,8 +694,7 @@
 
 (defun slime-presentation-init-keymaps ()
   (setq slime-presentation-command-map (make-sparse-keymap))
-  (slime-define-both-key-bindings slime-presentation-command-map 
-				  slime-presentation-bindings)
+  (slime-bind-keys slime-presentation-command-map t slime-presentation-bindings)
   (define-key slime-presentation-command-map "\M-o" 'slime-clear-presentations)
   ;; C-c C-v is the prefix for the presentation-command map.
   (define-key slime-prefix-map "\C-v" slime-presentation-command-map))