diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-02-09 22:21:47 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-02-09 22:21:47 +0000 |
| commit | 1ec715837b4881f7f4dbe320b0ed62557546c492 (patch) | |
| tree | d01d9a0c1c8e68a09862459e2ce0fbdc80b2a281 | |
| parent | 9149e743227187da58be5132fa5254fc9519f089 (diff) | |
| download | emacs-1ec715837b4881f7f4dbe320b0ed62557546c492.tar.gz | |
(mouse-start-end): Check START rather than point for being at eob.
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index a92cb74196c..137fd54d189 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -288,12 +288,12 @@ If DIR is positive skip forward; if negative, skip backward." (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)) |