[Emacs-diffs] /srv/bzr/emacs/trunk r104035: src/w32fns.c: #if-0 some functions entirely, not just the bodies.

[Juanma Barranquero]

------------------------------------------------------------
revno: 104035
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2011-04-28 04:01:33 +0200
message:
  src/w32fns.c: #if-0 some functions entirely, not just the bodies.
modified:
  src/ChangeLog
  src/w32fns.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-04-27 23:48:43 +0000
+++ b/src/ChangeLog     2011-04-28 02:01:33 +0000
@@ -1,3 +1,8 @@
+2011-04-28  Juanma Barranquero  <address@hidden>
+
+       * w32fns.c (Fx_change_window_property, Fx_delete_window_property)
+       (Fx_window_property): #if-0 the whole functions, not just the bodies.
+
 2011-04-27  Paul Eggert  <address@hidden>
 
        * doprnt.c (doprnt): Support "ll" length modifier, for long long.

=== modified file 'src/w32fns.c'
--- a/src/w32fns.c      2011-03-25 15:39:59 +0000
+++ b/src/w32fns.c      2011-04-28 02:01:33 +0000
@@ -4865,6 +4865,8 @@
                            Window properties
  ***********************************************************************/
 
+#if 0 /* TODO : port window properties to W32 */
+
 DEFUN ("x-change-window-property", Fx_change_window_property,
        Sx_change_window_property, 2, 6, 0,
        doc: /* Change window property PROP to VALUE on the X window of FRAME.
@@ -4884,7 +4886,6 @@
 FRAME.  Default is to change on the edit X window.  */)
   (Lisp_Object prop, Lisp_Object value, Lisp_Object frame, Lisp_Object type, 
Lisp_Object format, Lisp_Object outer_p)
 {
-#if 0 /* TODO : port window properties to W32 */
   struct frame *f = check_x_frame (frame);
   Atom prop_atom;
 
@@ -4901,8 +4902,6 @@
   XFlush (FRAME_W32_DISPLAY (f));
   UNBLOCK_INPUT;
 
-#endif /* TODO */
-
   return value;
 }
 
@@ -4913,8 +4912,6 @@
 FRAME nil or omitted means use the selected frame.  Value is PROP.  */)
   (Lisp_Object prop, Lisp_Object frame)
 {
-#if 0 /* TODO : port window properties to W32 */
-
   struct frame *f = check_x_frame (frame);
   Atom prop_atom;
 
@@ -4926,7 +4923,6 @@
   /* Make sure the property is removed when we return.  */
   XFlush (FRAME_W32_DISPLAY (f));
   UNBLOCK_INPUT;
-#endif  /* TODO */
 
   return prop;
 }
@@ -4951,8 +4947,6 @@
 no value of TYPE (always string in the MS Windows case).  */)
   (Lisp_Object prop, Lisp_Object frame)
 {
-#if 0 /* TODO : port window properties to W32 */
-
   struct frame *f = check_x_frame (frame);
   Atom prop_atom;
   int rc;
@@ -4992,10 +4986,10 @@
 
   return prop_value;
 
-#endif /* TODO */
   return Qnil;
 }
 
+#endif /* TODO */
 
 
 /***********************************************************************