Mercurial > emacs
changeset 65185:7d1da711be4c
(mouse-select-or-drag-move-point): Don't pass X and Y (they are ignored anyway).
(mouse-set-mark, mouse-select-window, mouse-delete-other-windows,
mouse-delete-window): Make arguments optional.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 29 Aug 2005 10:12:36 +0000 |
| parents | 0d49dee04fb0 |
| children | d40a2470e3dd |
| files | lisp/obsolete/sun-fns.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/obsolete/sun-fns.el Mon Aug 29 08:45:50 2005 +0000 +++ b/lisp/obsolete/sun-fns.el Mon Aug 29 10:12:36 2005 +0000 @@ -85,7 +85,7 @@ (setq this-command 'mouse-yank-move)) ) -(defun mouse-set-mark (window x y) +(defun mouse-set-mark (&optional window x y) "Set mark at mouse cursor." (eval-in-window window ;; use this to get the unwind protect (let ((point (point))) @@ -137,7 +137,7 @@ "Select window if not selected, otherwise do mouse-drag-move-point." (if (eq (selected-window) window) (mouse-drag-move-point window x y) - (mouse-select-window window x y))) + (mouse-select-window window))) ;;; ;;; esoterica: @@ -283,15 +283,15 @@ "Split the window vertically at the mouse cursor." (eval-in-window window (split-window-vertically (1+ y)))) -(defun mouse-select-window (window x y) +(defun mouse-select-window (&optional window x y) "Selects the window, restoring point." (select-window window)) -(defun mouse-delete-other-windows (window x y) +(defun mouse-delete-other-windows (&optional window x y) "Deletes all windows except the one mouse is in." (delete-other-windows window)) -(defun mouse-delete-window (window x y) +(defun mouse-delete-window (window &optional x y) "Deletes the window mouse is in." (delete-window window))