aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog7
-rw-r--r--src/w32fns.c62
-rw-r--r--src/xfns.c51
3 files changed, 81 insertions, 39 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 98ae8a2ad04..a0aa4a21ff1 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
12010-10-24 Glenn Morris <rgm@gnu.org>
2
3 * w32fns.c (Fx_synchronize, Fx_change_window_property)
4 (Fx_window_property, Fx_file_dialog):
5 * xfns.c (Fx_synchronize, Fx_change_window_property)
6 (Fx_window_property, Fx_file_dialog): Sync docs between w32 and X.
7
12010-10-24 Chong Yidong <cyd@stupidchicken.com> 82010-10-24 Chong Yidong <cyd@stupidchicken.com>
2 9
3 * xterm.c (x_connection_closed): Kill Emacs unconditionally. 10 * xterm.c (x_connection_closed): Kill Emacs unconditionally.
diff --git a/src/w32fns.c b/src/w32fns.c
index 808503547f1..1612182c660 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -1,7 +1,8 @@
1/* Graphical user interface functions for the Microsoft W32 API. 1/* Graphical user interface functions for the Microsoft W32 API.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 3Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
4 Free Software Foundation, Inc. 4 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
5 Free Software Foundation, Inc.
5 6
6This file is part of GNU Emacs. 7This file is part of GNU Emacs.
7 8
@@ -4974,7 +4975,17 @@ DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,
4974} 4975}
4975 4976
4976DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0, 4977DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0,
4977 doc: /* This is a noop on W32 systems. */) 4978 doc: /* If ON is non-nil, report X errors as soon as the erring request is made.
4979This function only has an effect on X Windows. With MS Windows, it is
4980defined but does nothing.
4981
4982If ON is nil, allow buffering of requests.
4983Turning on synchronization prohibits the Xlib routines from buffering
4984requests and seriously degrades performance, but makes debugging much
4985easier.
4986The optional second argument TERMINAL specifies which display to act on.
4987TERMINAL should be a terminal object, a frame or a display name (a string).
4988If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4978 (Lisp_Object on, Lisp_Object display) 4989 (Lisp_Object on, Lisp_Object display)
4979{ 4990{
4980 return Qnil; 4991 return Qnil;
@@ -4989,11 +5000,12 @@ DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0,
4989DEFUN ("x-change-window-property", Fx_change_window_property, 5000DEFUN ("x-change-window-property", Fx_change_window_property,
4990 Sx_change_window_property, 2, 6, 0, 5001 Sx_change_window_property, 2, 6, 0,
4991 doc: /* Change window property PROP to VALUE on the X window of FRAME. 5002 doc: /* Change window property PROP to VALUE on the X window of FRAME.
4992VALUE may be a string or a list of conses, numbers and/or strings. 5003PROP must be a string. VALUE may be a string or a list of conses,
4993If an element in the list is a string, it is converted to 5004numbers and/or strings. If an element in the list is a string, it is
4994an Atom and the value of the Atom is used. If an element is a cons, 5005converted to an atom and the value of the Atom is used. If an element
4995it is converted to a 32 bit number where the car is the 16 top bits and the 5006is a cons, it is converted to a 32 bit number where the car is the 16
4996cdr is the lower 16 bits. 5007top bits and the cdr is the lower 16 bits.
5008
4997FRAME nil or omitted means use the selected frame. 5009FRAME nil or omitted means use the selected frame.
4998If TYPE is given and non-nil, it is the name of the type of VALUE. 5010If TYPE is given and non-nil, it is the name of the type of VALUE.
4999If TYPE is not given or nil, the type is STRING. 5011If TYPE is not given or nil, the type is STRING.
@@ -5001,9 +5013,7 @@ FORMAT gives the size in bits of each element if VALUE is a list.
5001It must be one of 8, 16 or 32. 5013It must be one of 8, 16 or 32.
5002If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8. 5014If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
5003If OUTER_P is non-nil, the property is changed for the outer X window of 5015If OUTER_P is non-nil, the property is changed for the outer X window of
5004FRAME. Default is to change on the edit X window. 5016FRAME. Default is to change on the edit X window. */)
5005
5006Value is VALUE. */)
5007 (Lisp_Object prop, Lisp_Object value, Lisp_Object frame, Lisp_Object type, Lisp_Object format, Lisp_Object outer_p) 5017 (Lisp_Object prop, Lisp_Object value, Lisp_Object frame, Lisp_Object type, Lisp_Object format, Lisp_Object outer_p)
5008{ 5018{
5009#if 0 /* TODO : port window properties to W32 */ 5019#if 0 /* TODO : port window properties to W32 */
@@ -5057,9 +5067,20 @@ FRAME nil or omitted means use the selected frame. Value is PROP. */)
5057DEFUN ("x-window-property", Fx_window_property, Sx_window_property, 5067DEFUN ("x-window-property", Fx_window_property, Sx_window_property,
5058 1, 2, 0, 5068 1, 2, 0,
5059 doc: /* Value is the value of window property PROP on FRAME. 5069 doc: /* Value is the value of window property PROP on FRAME.
5060If FRAME is nil or omitted, use the selected frame. Value is nil 5070If FRAME is nil or omitted, use the selected frame.
5061if FRAME hasn't a property with name PROP or if PROP has no string 5071
5062value. */) 5072On MS Windows, this function only accepts the PROP and FRAME arguments.
5073
5074On X Windows, the following optional arguments are also accepted:
5075If TYPE is nil or omitted, get the property as a string.
5076Otherwise TYPE is the name of the atom that denotes the type expected.
5077If SOURCE is non-nil, get the property on that window instead of from
5078FRAME. The number 0 denotes the root window.
5079If DELETE_P is non-nil, delete the property after retreiving it.
5080If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
5081
5082Value is nil if FRAME hasn't a property with name PROP or if PROP has
5083no value of TYPE (always string in the MS Windows case). */)
5063 (Lisp_Object prop, Lisp_Object frame) 5084 (Lisp_Object prop, Lisp_Object frame)
5064{ 5085{
5065#if 0 /* TODO : port window properties to W32 */ 5086#if 0 /* TODO : port window properties to W32 */
@@ -5948,10 +5969,13 @@ typedef struct
5948 5969
5949DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0, 5970DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
5950 doc: /* Read file name, prompting with PROMPT in directory DIR. 5971 doc: /* Read file name, prompting with PROMPT in directory DIR.
5951Use a file selection dialog. 5972Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5952Select DEFAULT-FILENAME in the dialog's file selection box, if 5973selection box, if specified. If MUSTMATCH is non-nil, the returned file
5953specified. Ensure that file exists if MUSTMATCH is non-nil. 5974or directory must exist.
5954If ONLY-DIR-P is non-nil, the user can only select directories. */) 5975
5976This function is only defined on MS Windows, and X Windows with the
5977Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5978Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5955 (Lisp_Object prompt, Lisp_Object dir, Lisp_Object default_filename, Lisp_Object mustmatch, Lisp_Object only_dir_p) 5979 (Lisp_Object prompt, Lisp_Object dir, Lisp_Object default_filename, Lisp_Object mustmatch, Lisp_Object only_dir_p)
5956{ 5980{
5957 struct frame *f = SELECTED_FRAME (); 5981 struct frame *f = SELECTED_FRAME ();
diff --git a/src/xfns.c b/src/xfns.c
index b2f8222c6ec..9958e6607e5 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1,7 +1,8 @@
1/* Functions for the X window system. 1/* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 3Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4 Free Software Foundation, Inc. 4 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
5 Free Software Foundation, Inc.
5 6
6This file is part of GNU Emacs. 7This file is part of GNU Emacs.
7 8
@@ -4181,6 +4182,9 @@ DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,
4181 4182
4182DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0, 4183DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0,
4183 doc: /* If ON is non-nil, report X errors as soon as the erring request is made. 4184 doc: /* If ON is non-nil, report X errors as soon as the erring request is made.
4185This function only has an effect on X Windows. With MS Windows, it is
4186defined but does nothing.
4187
4184If ON is nil, allow buffering of requests. 4188If ON is nil, allow buffering of requests.
4185Turning on synchronization prohibits the Xlib routines from buffering 4189Turning on synchronization prohibits the Xlib routines from buffering
4186requests and seriously degrades performance, but makes debugging much 4190requests and seriously degrades performance, but makes debugging much
@@ -4215,12 +4219,12 @@ x_sync (FRAME_PTR f)
4215DEFUN ("x-change-window-property", Fx_change_window_property, 4219DEFUN ("x-change-window-property", Fx_change_window_property,
4216 Sx_change_window_property, 2, 6, 0, 4220 Sx_change_window_property, 2, 6, 0,
4217 doc: /* Change window property PROP to VALUE on the X window of FRAME. 4221 doc: /* Change window property PROP to VALUE on the X window of FRAME.
4218PROP must be a string. 4222PROP must be a string. VALUE may be a string or a list of conses,
4219VALUE may be a string or a list of conses, numbers and/or strings. 4223numbers and/or strings. If an element in the list is a string, it is
4220If an element in the list is a string, it is converted to 4224converted to an atom and the value of the atom is used. If an element
4221an Atom and the value of the Atom is used. If an element is a cons, 4225is a cons, it is converted to a 32 bit number where the car is the 16
4222it is converted to a 32 bit number where the car is the 16 top bits and the 4226top bits and the cdr is the lower 16 bits.
4223cdr is the lower 16 bits. 4227
4224FRAME nil or omitted means use the selected frame. 4228FRAME nil or omitted means use the selected frame.
4225If TYPE is given and non-nil, it is the name of the type of VALUE. 4229If TYPE is given and non-nil, it is the name of the type of VALUE.
4226If TYPE is not given or nil, the type is STRING. 4230If TYPE is not given or nil, the type is STRING.
@@ -4228,9 +4232,7 @@ FORMAT gives the size in bits of each element if VALUE is a list.
4228It must be one of 8, 16 or 32. 4232It must be one of 8, 16 or 32.
4229If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8. 4233If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4230If OUTER_P is non-nil, the property is changed for the outer X window of 4234If OUTER_P is non-nil, the property is changed for the outer X window of
4231FRAME. Default is to change on the edit X window. 4235FRAME. Default is to change on the edit X window. */)
4232
4233Value is VALUE. */)
4234 (Lisp_Object prop, Lisp_Object value, Lisp_Object frame, Lisp_Object type, Lisp_Object format, Lisp_Object outer_p) 4236 (Lisp_Object prop, Lisp_Object value, Lisp_Object frame, Lisp_Object type, Lisp_Object format, Lisp_Object outer_p)
4235{ 4237{
4236 struct frame *f = check_x_frame (frame); 4238 struct frame *f = check_x_frame (frame);
@@ -4331,15 +4333,19 @@ DEFUN ("x-window-property", Fx_window_property, Sx_window_property,
4331 1, 6, 0, 4333 1, 6, 0,
4332 doc: /* Value is the value of window property PROP on FRAME. 4334 doc: /* Value is the value of window property PROP on FRAME.
4333If FRAME is nil or omitted, use the selected frame. 4335If FRAME is nil or omitted, use the selected frame.
4334If TYPE is nil or omitted, get the property as a string. Otherwise TYPE 4336
4335is the name of the Atom that denotes the type expected. 4337On MS Windows, this function only accepts the PROP and FRAME arguments.
4338
4339On X Windows, the following optional arguments are also accepted:
4340If TYPE is nil or omitted, get the property as a string.
4341Otherwise TYPE is the name of the atom that denotes the type expected.
4336If SOURCE is non-nil, get the property on that window instead of from 4342If SOURCE is non-nil, get the property on that window instead of from
4337FRAME. The number 0 denotes the root window. 4343FRAME. The number 0 denotes the root window.
4338If DELETE_P is non-nil, delete the property after retreiving it. 4344If DELETE_P is non-nil, delete the property after retreiving it.
4339If VECTOR_RET_P is non-nil, don't return a string but a vector of values. 4345If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4340 4346
4341Value is nil if FRAME hasn't a property with name PROP or if PROP has 4347Value is nil if FRAME hasn't a property with name PROP or if PROP has
4342no value of TYPE. */) 4348no value of TYPE (always string in the MS Windows case). */)
4343 (Lisp_Object prop, Lisp_Object frame, Lisp_Object type, Lisp_Object source, Lisp_Object delete_p, Lisp_Object vector_ret_p) 4349 (Lisp_Object prop, Lisp_Object frame, Lisp_Object type, Lisp_Object source, Lisp_Object delete_p, Lisp_Object vector_ret_p)
4344{ 4350{
4345 struct frame *f = check_x_frame (frame); 4351 struct frame *f = check_x_frame (frame);
@@ -5342,7 +5348,11 @@ DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
5342 doc: /* Read file name, prompting with PROMPT in directory DIR. 5348 doc: /* Read file name, prompting with PROMPT in directory DIR.
5343Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file 5349Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5344selection box, if specified. If MUSTMATCH is non-nil, the returned file 5350selection box, if specified. If MUSTMATCH is non-nil, the returned file
5345or directory must exist. ONLY-DIR-P is ignored." */) 5351or directory must exist.
5352
5353This function is only defined on MS Windows, and X Windows with the
5354Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5355Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5346 (Lisp_Object prompt, Lisp_Object dir, Lisp_Object default_filename, Lisp_Object mustmatch, Lisp_Object only_dir_p) 5356 (Lisp_Object prompt, Lisp_Object dir, Lisp_Object default_filename, Lisp_Object mustmatch, Lisp_Object only_dir_p)
5347{ 5357{
5348 int result; 5358 int result;
@@ -5511,8 +5521,11 @@ DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
5511 doc: /* Read file name, prompting with PROMPT in directory DIR. 5521 doc: /* Read file name, prompting with PROMPT in directory DIR.
5512Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file 5522Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5513selection box, if specified. If MUSTMATCH is non-nil, the returned file 5523selection box, if specified. If MUSTMATCH is non-nil, the returned file
5514or directory must exist. If ONLY-DIR-P is non-nil, the user can only select 5524or directory must exist.
5515directories. */) 5525
5526This function is only defined on MS Windows, and X Windows with the
5527Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5528Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5516 (Lisp_Object prompt, Lisp_Object dir, Lisp_Object default_filename, Lisp_Object mustmatch, Lisp_Object only_dir_p) 5529 (Lisp_Object prompt, Lisp_Object dir, Lisp_Object default_filename, Lisp_Object mustmatch, Lisp_Object only_dir_p)
5517{ 5530{
5518 FRAME_PTR f = SELECTED_FRAME (); 5531 FRAME_PTR f = SELECTED_FRAME ();
@@ -6016,5 +6029,3 @@ When using Gtk+ tooltips, the tooltip face is not used. */);
6016 6029
6017#endif /* HAVE_X_WINDOWS */ 6030#endif /* HAVE_X_WINDOWS */
6018 6031
6019/* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6020 (do not change this comment) */