diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-26 20:48:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-26 20:48:46 +0000 |
| commit | 488ca03fd3c994deb7abdf1d5266d2808f145ec8 (patch) | |
| tree | c356c068c6dcdf58d45e68ba83f042f89eb5b201 | |
| parent | fd34557e8683dd59f4d1545d3efd2194cfefee52 (diff) | |
| download | emacs-488ca03fd3c994deb7abdf1d5266d2808f145ec8.tar.gz | |
(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." (forward-sexp 1) (point)) (error end)))) - (list (1+ start) - (save-excursion + (list (save-excursion (condition-case nil (progn (goto-char (1+ start)) (backward-sexp 1) (point)) - (error end))))))) + (error end))) + (1+ start))))) ((= mode 1) (list (save-excursion (goto-char start) |