diff options
| author | Karl Heuer | 1994-02-09 22:21:47 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-02-09 22:21:47 +0000 |
| commit | 1ec715837b4881f7f4dbe320b0ed62557546c492 (patch) | |
| tree | d01d9a0c1c8e68a09862459e2ce0fbdc80b2a281 | |
| parent | 9149e743227187da58be5132fa5254fc9519f089 (diff) | |
| download | emacs-1ec715837b4881f7f4dbe320b0ed62557546c492.tar.gz emacs-1ec715837b4881f7f4dbe320b0ed62557546c492.zip | |
(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." | |||
| 288 | (list start end)) | 288 | (list start end)) |
| 289 | ((and (= mode 1) | 289 | ((and (= mode 1) |
| 290 | (= start end) | 290 | (= start end) |
| 291 | (not (eobp)) | 291 | (char-after start) |
| 292 | (= (char-syntax (char-after start)) ?\()) | 292 | (= (char-syntax (char-after start)) ?\()) |
| 293 | (list start (save-excursion (forward-sexp 1) (point)))) | 293 | (list start (save-excursion (forward-sexp 1) (point)))) |
| 294 | ((and (= mode 1) | 294 | ((and (= mode 1) |
| 295 | (= start end) | 295 | (= start end) |
| 296 | (not (eobp)) | 296 | (char-after start) |
| 297 | (= (char-syntax (char-after start)) ?\))) | 297 | (= (char-syntax (char-after start)) ?\))) |
| 298 | (list (save-excursion | 298 | (list (save-excursion |
| 299 | (goto-char (1+ start)) | 299 | (goto-char (1+ start)) |