mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(mouse-start-end): For double click with START on openparen,

Browse Source 
start forward scan from START.
This commit is contained in:
Richard M. Stallman 1994-02-10 07:39:09 +00:00
parent fee7a5a2e3
commit 6f482eec77
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mouse.el
View File

@ -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)