diff options
| author | Richard M. Stallman | 1996-12-26 20:48:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-12-26 20:48:46 +0000 |
| commit | f1017d552a2235bd6647531a60e6432bd8e611d2 (patch) | |
| tree | f17302a24ffa3307eb6d5e3cfa871e62d452d7bd | |
| parent | 14d9a6630e42176d48cf6c7264832aec9133271d (diff) | |
| download | emacs-f1017d552a2235bd6647531a60e6432bd8e611d2.tar.gz emacs-f1017d552a2235bd6647531a60e6432bd8e611d2.zip | |
(mouse-start-end): Put values in proper order,
in the doublequote case.
| -rw-r--r-- | lisp/mouse.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index d45c04cd9df..5613e73c3c1 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -685,14 +685,14 @@ If DIR is positive skip forward; if negative, skip backward." | |||
| 685 | (forward-sexp 1) | 685 | (forward-sexp 1) |
| 686 | (point)) | 686 | (point)) |
| 687 | (error end)))) | 687 | (error end)))) |
| 688 | (list (1+ start) | 688 | (list (save-excursion |
| 689 | (save-excursion | ||
| 690 | (condition-case nil | 689 | (condition-case nil |
| 691 | (progn | 690 | (progn |
| 692 | (goto-char (1+ start)) | 691 | (goto-char (1+ start)) |
| 693 | (backward-sexp 1) | 692 | (backward-sexp 1) |
| 694 | (point)) | 693 | (point)) |
| 695 | (error end))))))) | 694 | (error end))) |
| 695 | (1+ start))))) | ||
| 696 | ((= mode 1) | 696 | ((= mode 1) |
| 697 | (list (save-excursion | 697 | (list (save-excursion |
| 698 | (goto-char start) | 698 | (goto-char start) |