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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-compiler-notes-show-details/mouse): New command.
(slime-compiler-notes-mode-map): Use it.

Date: Tue May  4 15:12:15 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.294 slime/slime.el:1.295
--- slime/slime.el:1.294	Tue May  4 05:33:56 2004
+++ slime/slime.el	Tue May  4 15:12:15 2004
@@ -2781,6 +2781,7 @@
       (make-local-variable 'slime-compiler-notes-saved-window-configuration)
       (setq slime-compiler-notes-saved-window-configuration
             (current-window-configuration))
+      (goto-char (point-min))
       (pop-to-buffer (current-buffer)))))
 
 (defun slime-alistify (list key test)
@@ -2844,6 +2845,7 @@
 
 (slime-define-keys slime-compiler-notes-mode-map
   ((kbd "RET") 'slime-compiler-notes-show-details)
+  ([mouse-2] 'slime-compiler-notes-show-details/mouse)
   ("q" 'slime-compiler-notes-quit))
 
 (defun slime-compiler-notes-quit ()
@@ -2861,6 +2863,12 @@
            (slime-tree-toggle tree))
           (t
            (slime-show-source-location (slime-note.location note))))))
+
+(defun slime-compiler-notes-show-details/mouse (event)
+  (interactive "e")
+  (destructuring-bind (mouse-2 (w pos &rest _) &rest __) event
+    (goto-char pos)
+    (slime-compiler-notes-show-details)))
           
 
 ;;;;;;; Tree Widget