mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

(mouse-start-end): Put values in proper order,

Browse Source 
in the doublequote case.
This commit is contained in:
Richard M. Stallman 1996-12-26 20:48:46 +00:00
parent 14d9a6630e
commit f1017d552a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mouse.el
View File

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