Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1991-02-20 08:29:50 +00:00
parent 353ea2e659
commit fe79ff6199
1 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/mouse.el
View file

@ -82,9 +82,28 @@ Display cursor at that position for a second."
(unwind-protect
(progn (mouse-set-point event)
(push-mark nil t)
(sleep-for 1))
(sit-for 1))
(goto-char point-save))))
(defun mouse-fill-paragraph (event)
"Fill the paragraph at the mouse position."
(interactive "@e")
(save-excursion
(mouse-set-point event)
(fill-paragraph)))
(defun mouse-fill-paragraph-with-prefix (event)
"Fill the paragraph at the mouse position with specified fill prefix.
Click at the end of the fill prefix that you want;
The text before the mouse position, on the same line, is used as the prefix."
(interactive "@e")
(save-excursion
(mouse-set-point event)
(let ((fill-prefix (buffer-substring (save-excursion (beginning-of-line)
(point))
(point))))
(fill-paragraph))))
(defun mouse-scroll (event)
"Scroll point to the mouse position."
(interactive "@e")