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

[Alan Ruttenberg]

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

Modified Files:
	slime.el 
Log Message:

Date: Fri May 20 14:55:28 2005
Author: aruttenberg

Index: slime/slime.el
diff -u slime/slime.el:1.492 slime/slime.el:1.493
--- slime/slime.el:1.492	Thu May 19 19:06:13 2005
+++ slime/slime.el	Fri May 20 14:55:28 2005
@@ -2732,6 +2732,8 @@
 (put 'backward-delete-char-untabify 'action-type 'deletes-backward)
 (put 'slime-repl-newline-and-indent 'action-type 'inserts)
 
+(defvar slime-presentation-map (make-sparse-keymap))
+(define-key  slime-presentation-map [mouse-2] 'slime-copy-presentation-at-point)
 
 (defun slime-repl-insert-prompt (result &optional time)
   "Goto to point max, insert RESULT and the prompt.  Set
@@ -2745,7 +2747,7 @@
       (slime-propertize-region `(face slime-repl-result-face
                                  slime-repl-old-output ,slime-current-output-id
                                  mouse-face slime-repl-output-mouseover-face
-                                 keymap (keymap (mouse-2 . slime-copy-presentation-at-point)))
+                                 keymap ,slime-presentation-map)
         (insert result))
       (unless (bolp) (insert "\n"))
       (let ((inhibit-read-only t))