# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1125310356 0
# Node ID 7d1da711be4c01fcfdb95bd29cefa31f98b20689
# Parent  0d49dee04fb03f8d828da1676290b46b44d18066
(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.

diff -r 0d49dee04fb0 -r 7d1da711be4c lisp/obsolete/sun-fns.el
--- 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))