Mercurial > hg > xemacs-beta

diff lisp/modes/list-mode.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
line wrap: on
line diff
--- a/lisp/modes/list-mode.el	Mon Aug 13 08:45:53 2007 +0200
+++ b/lisp/modes/list-mode.el	Mon Aug 13 08:46:35 2007 +0200
@@ -157,10 +157,12 @@
 
 (defun list-mode-item-mouse-selected (event)
   (interactive "e")
-  (list-mode-item-selected-1 (extent-at (event-closest-point event)
-					(event-buffer event)
-					'list-mode-item nil 'at)
-			     event))
+  ;; #### sometimes event-closest-point returns nil.
+  (let ((point (event-closest-point event)))
+    (list-mode-item-selected-1 (extent-at point
+					  (event-buffer event)
+					  'list-mode-item nil 'at)
+			       event)))
 
 (defun add-list-mode-item (start end &optional buffer activate-callback
 				 user-data)