From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 10 Jun 1996 21:09:54 +0000 (+0000)
Subject: (Fset_mouse_position): Remove the DOS-specific
X-Git-Tag: emacs-19.34~469
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b71f5ebfe1c1c38a9c59cf3f62361e1998af7d5;p=emacs.git

(Fset_mouse_position): Remove the DOS-specific
definition (it's defined on `frame.c').
(syms_of_dosfns): Remove defsubr of `Fset_mouse_position'.
---

diff --git a/src/dosfns.c b/src/dosfns.c
index d66912f2363..9fc6f2ab4f9 100644
--- a/src/dosfns.c
+++ b/src/dosfns.c
@@ -165,17 +165,6 @@ Report whether a mouse is present.")
     return Qnil;
 }
 
-DEFUN ("set-mouse-position", Fset_mouse_position, Sset_mouse_position, 3, 3, 0,
-  "Move the mouse pointer to the center of character cell (X,Y) in FRAME.\n\
-WARNING:  If you use this under X windows,\n\
-you should call `unfocus-frame' afterwards.")
-  (frame, x, y)
-     Lisp_Object frame, x, y;
-{
-  mouse_moveto (XINT (x), XINT (y));
-  return Qnil;
-}
-
 /* Function to translate colour names to integers.  See lisp/term/pc-win.el
    for its definition.  */
 
@@ -333,8 +322,6 @@ syms_of_dosfns ()
   defsubr (&Smsdos_mouse_disable);
 #ifndef HAVE_X_WINDOWS
   defsubr (&Smsdos_mouse_p);
-  defsubr (&Sset_mouse_position);
-
   Qmsdos_color_translate = intern ("msdos-color-translate");
   staticpro (&Qmsdos_color_translate);
 #endif