[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog slime-presentations.el 
Log Message:
* slime-presentations.el (slime-presentation-init-keymaps): Use
  slime-init-keymap.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/30 14:47:23	1.288
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/30 14:47:28	1.289
@@ -2,6 +2,7 @@
 
 	* slime-presentations.el (slime-presentation-init-keymaps):
 	Replace slime-define-both-key-bindings with slime-bind-keys.
+	(slime-presentation-init-keymaps): Use slime-init-keymap.
 
 2009-11-24  Tobias C. Rittweiler  <tcr at freebits.de>
 
--- /project/slime/cvsroot/slime/contrib/slime-presentations.el	2009/11/30 14:47:23	1.24
+++ /project/slime/cvsroot/slime/contrib/slime-presentations.el	2009/11/30 14:47:28	1.25
@@ -680,7 +680,7 @@
 
 ;;; Presentation-related key bindings, non-context menu
 
-(defvar slime-presentation-command-map (make-sparse-keymap)
+(defvar slime-presentation-command-map nil
   "Keymap for presentation-related commands. Bound to a prefix key.")
 
 (defvar slime-presentation-bindings
@@ -693,8 +693,8 @@
     (?\  slime-mark-presentation)))
 
 (defun slime-presentation-init-keymaps ()
-  (setq slime-presentation-command-map (make-sparse-keymap))
-  (slime-bind-keys slime-presentation-command-map t slime-presentation-bindings)
+  (slime-init-keymap 'slime-presentation-command-map nil 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))