[Emacs-diffs] /srv/bzr/emacs/trunk r108918: Fixes: debbugs:11870

[Andreas Schwab]

------------------------------------------------------------
revno: 108918
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Fri 2012-07-06 21:34:39 +0200
message:
  Fixes: debbugs:11870
  
  * w32fns.c (Fx_window_property): Accept the same arguments as the
  X Windows version.  Doc fix.
  * xfns.c (Fx_window_property): Doc fix.
modified:
  src/ChangeLog
  src/w32fns.c
  src/xfns.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-07-06 17:19:33 +0000
+++ b/src/ChangeLog     2012-07-06 19:34:39 +0000
@@ -1,3 +1,9 @@
+2012-07-06  Andreas Schwab  <address@hidden>
+
+       * w32fns.c (Fx_window_property): Accept the same arguments as the
+       X Windows version.  Doc fix.
+       * xfns.c (Fx_window_property): Doc fix.  (Bug#11870)
+
 2012-07-06  Juanma Barranquero <address@hidden>
            Eli Zaretskii  <address@hidden>
 

=== modified file 'src/w32fns.c'
--- a/src/w32fns.c      2012-07-05 06:32:41 +0000
+++ b/src/w32fns.c      2012-07-06 19:34:39 +0000
@@ -4944,23 +4944,24 @@
 
 
 DEFUN ("x-window-property", Fx_window_property, Sx_window_property,
-       1, 2, 0,
+       1, 6, 0,
        doc: /* Value is the value of window property PROP on FRAME.
 If FRAME is nil or omitted, use the selected frame.
 
-On MS Windows, this function only accepts the PROP and FRAME arguments.
-
 On X Windows, the following optional arguments are also accepted:
 If TYPE is nil or omitted, get the property as a string.
 Otherwise TYPE is the name of the atom that denotes the type expected.
 If SOURCE is non-nil, get the property on that window instead of from
 FRAME.  The number 0 denotes the root window.
-If DELETE_P is non-nil, delete the property after retrieving it.
-If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
+If DELETE-P is non-nil, delete the property after retrieving it.
+If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
+
+On MS Windows, this function accepts but ignores those optional arguments.
 
 Value is nil if FRAME hasn't a property with name PROP or if PROP has
 no value of TYPE (always string in the MS Windows case).  */)
-  (Lisp_Object prop, Lisp_Object frame)
+  (Lisp_Object prop, Lisp_Object frame, Lisp_Object type,
+   Lisp_Object source, Lisp_Object delete_p, Lisp_Object vector_ret_p)
 {
   struct frame *f = check_x_frame (frame);
   Atom prop_atom;

=== modified file 'src/xfns.c'
--- a/src/xfns.c        2012-07-05 18:35:48 +0000
+++ b/src/xfns.c        2012-07-06 19:34:39 +0000
@@ -4292,19 +4292,20 @@
        doc: /* Value is the value of window property PROP on FRAME.
 If FRAME is nil or omitted, use the selected frame.
 
-On MS Windows, this function only accepts the PROP and FRAME arguments.
-
 On X Windows, the following optional arguments are also accepted:
 If TYPE is nil or omitted, get the property as a string.
 Otherwise TYPE is the name of the atom that denotes the type expected.
 If SOURCE is non-nil, get the property on that window instead of from
 FRAME.  The number 0 denotes the root window.
-If DELETE_P is non-nil, delete the property after retrieving it.
-If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
+If DELETE-P is non-nil, delete the property after retrieving it.
+If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
+
+On MS Windows, this function accepts but ignores those optional arguments.
 
 Value is nil if FRAME hasn't a property with name PROP or if PROP has
 no value of TYPE (always string in the MS Windows case).  */)
-  (Lisp_Object prop, Lisp_Object frame, Lisp_Object type, Lisp_Object source, 
Lisp_Object delete_p, Lisp_Object vector_ret_p)
+  (Lisp_Object prop, Lisp_Object frame, Lisp_Object type,
+   Lisp_Object source, Lisp_Object delete_p, Lisp_Object vector_ret_p)
 {
   struct frame *f = check_x_frame (frame);
   Atom prop_atom;