[slime-devel] mouse-2 in *compiler-notes*.

[Alan Shutko]

Quick fix to let mouse-2 do the right thing in the compiler notes
buffer.

2004-05-03  Alan Shutko  <ats at acm.org>

	* slime.el (slime-compiler-notes-show-details/mouse): New command.
	(slime-compiler-notes-mode-map): Use it.

--- slime.el	03 May 2004 13:37:48 -0500	1.291
+++ slime.el	03 May 2004 13:51:44 -0500	
@@ -2843,6 +2843,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 ()
@@ -2860,6 +2861,13 @@
            (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-1 (w pos &rest _)) event
+    (save-excursion
+      (goto-char pos)
+      (slime-compiler-notes-show-details))))
           
 
 ;;;;;;; Tree Widget

-- 
Alan Shutko <ats at acm.org> - I am the rocks.
Yesturday I kudknot spel engeneere now I r one.