diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-02-10 07:39:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-02-10 07:39:09 +0000 |
| commit | 6f482eec7710df1a99f252f479cf11dd4cde889e (patch) | |
| tree | 680a45807575521e4d95e5fd8c72486236c0c7c1 | |
| parent | fee7a5a2e317058ca24dd629b2f7e3af76e10f49 (diff) | |
| download | emacs-6f482eec7710df1a99f252f479cf11dd4cde889e.tar.gz | |
(mouse-start-end): For double click with START on openparen,
start forward scan from START.
| -rw-r--r-- | lisp/mouse.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 137fd54d189..64f188928c8 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -290,7 +290,11 @@ If DIR is positive skip forward; if negative, skip backward." (= start end) (char-after start) (= (char-syntax (char-after start)) ?\()) - (list start (save-excursion (forward-sexp 1) (point)))) + (list start + (save-excursion + (goto-char start) + (forward-sexp 1) + (point)))) ((and (= mode 1) (= start end) (char-after start) |