annotate lwlib/lwlib-Xm.h @ 83425:c82829d08b89

Fix semantics of let-binding `process-environment'. * lisp/env.el: Require cl for byte compilation. (For `block' and `return'.) (read-envvar-name): Update for rename. Include `process-environment' as well. (setenv): Update for rename also handle `process-environment'. Update doc. (getenv): Update doc. (environment): New function. (let-environment): New macro. * lisp/font-lock.el (lisp-font-lock-keywords-2): Add `let-environment'. * src/callproc.c (Vglobal_environment): New variable, taking over the previous role of `Vprocess_environment', which is now something else. (add_env): New function. (child_setup): Use it. (child_setup, getenv_internal): Rename Vprocess_environment to Vglobal_environment. Handle the new Vprocess_environment. (Fgetenv_internal, egetenv): Update doc. (set_process_environment): Rename to `set_global_environment'. Rename Vprocess_environment to Vglobal_environment. (syms_of_callproc): Rename process-environment to global-environment, add new process-environment, update docs. * src/emacs.c (main): Call set_global_environment instead of set_process_environment. * fileio.c (Fread_file_name): Update comment. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-465
author Karoly Lorentey <lorentey@elte.hu>
date Thu, 29 Dec 2005 01:28:33 +0000
parents 6358e3c6075c
children e8a3fb527b77 2d92f5c9d6ae
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
60666
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
1 /* The lwlib interface to Motif widgets.
64769
6358e3c6075c Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64083
diff changeset
2 Copyright (C) 1994, 2000, 2002, 2003, 2004,
6358e3c6075c Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64083
diff changeset
3 2005 Free Software Foundation, Inc.
60666
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
4 Copyright (C) 1992 Lucid, Inc.
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
5
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
6 This file is part of the Lucid Widget Library.
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
7
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
8 The Lucid Widget Library is free software; you can redistribute it and/or
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
9 modify it under the terms of the GNU General Public License as published by
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
10 the Free Software Foundation; either version 2, or (at your option)
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
11 any later version.
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
12
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
13 The Lucid Widget Library is distributed in the hope that it will be useful,
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
16 GNU General Public License for more details.
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
17
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
18 You should have received a copy of the GNU General Public License
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
19 along with GNU Emacs; see the file COPYING. If not, write to
64083
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 60666
diff changeset
20 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 60666
diff changeset
21 Boston, MA 02110-1301, USA. */
60666
5b0e15f7d88d Add missing copyright and license notice.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
22
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 #ifndef LWLIB_XM_H
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 #define LWLIB_XM_H
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
5627
7ff2d6076466 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 5626
diff changeset
26 #include "lwlib-int.h"
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 extern widget_creation_entry xm_creation_table [];
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 29466
diff changeset
30 Widget
29466
6ed38ee607e9 Enable prototypes.
Dave Love <fx@gnu.org>
parents: 15636
diff changeset
31 xm_create_dialog __P ((widget_instance* instance));
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 Boolean
29466
6ed38ee607e9 Enable prototypes.
Dave Love <fx@gnu.org>
parents: 15636
diff changeset
34 lw_motif_widget_p __P ((Widget widget));
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 void
29466
6ed38ee607e9 Enable prototypes.
Dave Love <fx@gnu.org>
parents: 15636
diff changeset
37 xm_update_one_widget __P ((widget_instance* instance, Widget widget,
6ed38ee607e9 Enable prototypes.
Dave Love <fx@gnu.org>
parents: 15636
diff changeset
38 widget_value* val, Boolean deep_p));
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 void
29466
6ed38ee607e9 Enable prototypes.
Dave Love <fx@gnu.org>
parents: 15636
diff changeset
41 xm_update_one_value __P ((widget_instance* instance, Widget widget,
6ed38ee607e9 Enable prototypes.
Dave Love <fx@gnu.org>
parents: 15636
diff changeset
42 widget_value* val));
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 void
29466
6ed38ee607e9 Enable prototypes.
Dave Love <fx@gnu.org>
parents: 15636
diff changeset
45 xm_destroy_instance __P ((widget_instance* instance));
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 void
29466
6ed38ee607e9 Enable prototypes.
Dave Love <fx@gnu.org>
parents: 15636
diff changeset
48 xm_set_keyboard_focus __P ((Widget parent, Widget w));
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 void
29466
6ed38ee607e9 Enable prototypes.
Dave Love <fx@gnu.org>
parents: 15636
diff changeset
51 xm_popup_menu __P ((Widget widget, XEvent *event));
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 void
29466
6ed38ee607e9 Enable prototypes.
Dave Love <fx@gnu.org>
parents: 15636
diff changeset
54 xm_pop_instance __P ((widget_instance* instance, Boolean up));
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55
9091
557a04cd151b entered into RCS
Paul Reilly <pmr@pajato.com>
parents: 5627
diff changeset
56 void
29466
6ed38ee607e9 Enable prototypes.
Dave Love <fx@gnu.org>
parents: 15636
diff changeset
57 xm_set_main_areas __P ((Widget parent, Widget menubar, Widget work_area));
9091
557a04cd151b entered into RCS
Paul Reilly <pmr@pajato.com>
parents: 5627
diff changeset
58
9225
9e28a8ef9cad Declare xm_set_main_areas() and xm_manage_resizing().
Paul Reilly <pmr@pajato.com>
parents: 9091
diff changeset
59 void
29466
6ed38ee607e9 Enable prototypes.
Dave Love <fx@gnu.org>
parents: 15636
diff changeset
60 xm_manage_resizing __P ((Widget w, Boolean flag));
9225
9e28a8ef9cad Declare xm_set_main_areas() and xm_manage_resizing().
Paul Reilly <pmr@pajato.com>
parents: 9091
diff changeset
61
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 #endif /* LWLIB_XM_H */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
63
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
64 /* arch-tag: 61561304-c146-437b-8ed3-dc33818703c6
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
65 (do not change this comment) */