* nsfns.m (x_set_cursor_type):

* w32fns.c (x_set_cursor_type):
* xfns.m (x_set_cursor_type): Do not set cursor_type_changed here...
* xdisp.c (set_frame_cursor_types): ...but in common code.

diff --git a/src/ChangeLog b/src/ChangeLog
index 6a3b7cf9ceec9f481a12df5416b130ff0ed7786d..c8735ab96ae4862bb6440f7983458b1c0e702036 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,6 +1,10 @@
 2013-08-13  Dmitry Antipov  <dmantipov@yandex.ru>
 
        * keyboard.c (Fdiscard_input): Do not increment update_mode_lines.
+       * nsfns.m (x_set_cursor_type):
+       * w32fns.c (x_set_cursor_type):
+       * xfns.m (x_set_cursor_type): Do not set cursor_type_changed here...
+       * xdisp.c (set_frame_cursor_types): ...but in common code.
 
 2013-08-13  Dmitry Antipov  <dmantipov@yandex.ru>
 

diff --git a/src/nsfns.m b/src/nsfns.m
index ba0dba8c7e7e81be3039e38cf9e05b58ed3d9c59..fc276c2b12d482b0e5b6d341a49ff2c2fb91f180 100644 (file)
--- a/src/nsfns.m
+++ b/src/nsfns.m
@@ -860,11 +860,7 @@ static void
 x_set_cursor_type (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
 {
   set_frame_cursor_types (f, arg);
-
-  /* Make sure the cursor gets redrawn.  */
-  cursor_type_changed = 1;
 }
-\f
 
 /* called to set mouse pointer color, but all other terms use it to
    initialize pointer types (and don't set the color ;) */

diff --git a/src/w32fns.c b/src/w32fns.c
index c43b7d4adf371e75315f59325ff02ac2a986fe37..b8c445a3a360f8eee02b9dad7a0517f4020da313 100644 (file)
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -1528,11 +1528,8 @@ void
 x_set_cursor_type (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
 {
   set_frame_cursor_types (f, arg);
-
-  /* Make sure the cursor gets redrawn.  */
-  cursor_type_changed = 1;
 }
-\f
+
 void
 x_set_icon_type (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
 {

diff --git a/src/xdisp.c b/src/xdisp.c
index 37f2c94b5f80f26e4316090943e0098008a72958..8ef46d5be1097d64b96b8476363bd2e0f86137fe 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -26003,6 +26003,9 @@ set_frame_cursor_types (struct frame *f, Lisp_Object arg)
     }
   else
     FRAME_BLINK_OFF_CURSOR (f) = DEFAULT_CURSOR;
+
+  /* Make sure the cursor gets redrawn.  */
+  cursor_type_changed = 1;
 }
 
 

diff --git a/src/xfns.c b/src/xfns.c
index 4f728ad59b0b51bd055375333b9b5a41818116e1..0c91e298ec8068fa188a5135a22256bf8eb35c09 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1053,11 +1053,8 @@ static void
 x_set_cursor_type (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
 {
   set_frame_cursor_types (f, arg);
-
-  /* Make sure the cursor gets redrawn.  */
-  cursor_type_changed = 1;
 }
-\f
+
 static void
 x_set_icon_type (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
 {