Mercurial > hg > xemacs-beta
diff lisp/mouse.el @ 424:11054d720c21 r21-2-20
Import from CVS: tag r21-2-20
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:26:11 +0200 |
parents | ebe98a74bd68 |
children |
line wrap: on
line diff
--- a/lisp/mouse.el Mon Aug 13 11:25:03 2007 +0200 +++ b/lisp/mouse.el Mon Aug 13 11:26:11 2007 +0200 @@ -84,8 +84,9 @@ "Function that is called upon by `mouse-yank' to actually insert text.") (defun mouse-consolidated-yank () - "Insert the current selection or, if there is none under X insert the X cutbuffer. -A mark is pushed, so that the inserted text lies between point and mark." + "Insert the current selection or, if there is none under X insert +the X cutbuffer. A mark is pushed, so that the inserted text lies +between point and mark." (interactive) (if (not (console-on-window-system-p)) (yank) @@ -225,9 +226,10 @@ (if (click-inside-extent-p event zmacs-region-extent) ;; okay, this is a drag (cond ((featurep 'offix) - (offix-start-drag-region event - (extent-start-position zmacs-region-extent) - (extent-end-position zmacs-region-extent))) + (offix-start-drag-region + event + (extent-start-position zmacs-region-extent) + (extent-end-position zmacs-region-extent))) ((featurep 'cde) ;; should also work with CDE (cde-start-drag-region event