From xemacs-m  Sat Apr 12 20:31:30 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id UAA26010
	for <xemacs-beta@xemacs.org>; Sat, 12 Apr 1997 20:31:30 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id SAA02818;
	Sat, 12 Apr 1997 18:44:24 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: click modeline to change buffers bugs
References: <199704130124.EAA09188@sauna.ton.tut.fi>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Markus Linnala's message of Sun, 13 Apr 1997 04:24:50 +0300
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: 12 Apr 1997 18:44:24 -0700
Message-ID: <m2208fu26f.fsf@altair.xemacs.org>
Lines: 38
X-Mailer: Gnus v5.4.45/XEmacs 20.1(beta15)

Sat Apr 12 05:27:56 1997  Steven L Baur  <steve@altair.xemacs.org>

	* modes/list-mode.el (list-mode-item-mouse-selected): Sometimes
	event-closest-point returns nil.

Index: lisp/modes/list-mode.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/modes/list-mode.el,v
retrieving revision 1.2
diff -u -r1.2 list-mode.el
--- list-mode.el	1997/03/08 23:26:26	1.2
+++ list-mode.el	1997/04/13 01:42:43
@@ -158,12 +158,15 @@
 
 (defun list-mode-item-mouse-selected (event)
   (interactive "e")
-  ;; #### sometimes event-closest-point returns nil.
+  ;; Sometimes event-closest-point returns nil.
+  ;; So beep instead of bombing.
   (let ((point (event-closest-point event)))
-    (list-mode-item-selected-1 (extent-at point
-					  (event-buffer event)
-					  'list-mode-item nil 'at)
-			       event)))
+    (if point
+	(list-mode-item-selected-1 (extent-at point
+					      (event-buffer event)
+					      'list-mode-item nil 'at)
+				   event)
+      (ding))))
 
 (defun add-list-mode-item (start end &optional buffer activate-callback
 				 user-data)


-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

