# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 760832507 0
# Node ID 91dcabd87088cda478fa2a997e591dc33c57372a
# Parent  a7bd57a60cb83b0720295f21369de4fc6dc6d191
(mouse-start-end): Check START rather than point for being at eob.

diff -r a7bd57a60cb8 -r 91dcabd87088 lisp/mouse.el
--- a/lisp/mouse.el	Wed Feb 09 22:04:55 1994 +0000
+++ b/lisp/mouse.el	Wed Feb 09 22:21:47 1994 +0000
@@ -288,12 +288,12 @@
 	 (list start end))
         ((and (= mode 1)
               (= start end)
-	      (not (eobp))
+	      (char-after start)
               (= (char-syntax (char-after start)) ?\())
 	 (list start (save-excursion (forward-sexp 1) (point))))
         ((and (= mode 1)
               (= start end)
-	      (not (eobp))
+	      (char-after start)
               (= (char-syntax (char-after start)) ?\)))
 	 (list (save-excursion 
 		 (goto-char (1+ start))