Mercurial > emacs
comparison lisp/mouse.el @ 5869:91dcabd87088
(mouse-start-end): Check START rather than point for being at eob.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 09 Feb 1994 22:21:47 +0000 |
| parents | 13d7ce941848 |
| children | 66aadd6ba5e6 |
comparison
equal
deleted
inserted
replaced
| 5868:a7bd57a60cb8 | 5869:91dcabd87088 |
|---|---|
| 286 (setq mode (mod mode 3)) | 286 (setq mode (mod mode 3)) |
| 287 (cond ((= mode 0) | 287 (cond ((= mode 0) |
| 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)) |
| 300 (backward-sexp 1) | 300 (backward-sexp 1) |
| 301 (point)) | 301 (point)) |