Mercurial > emacs
annotate nt/envadd.bat @ 93076:be40d8a9bcc1
* w32fns.c (hourglass_timer, hourglass_hwnd): New variables.
(syms_of_w32fns): Initialize them.
(HOURGLASS_ID): New constant.
(x_window_to_frame): Don't check hourglass_window.
(w32_wnd_proc) <WM_TIMER>: Handle hourglass_timer.
(w32_wnd_proc) <WM_EXITMENULOOP>: Set pending hourglass cursor.
(w32_wnd_proc) <WM_SETCURSOR>: Set the hourglass or current cursor.
(w32_wnd_proc) <WM_EMACS_SETCURSOR>: Set frame's current_cursor.
Only change the cursor if hourglass is not active.
(Fx_create_frame): Initialize frame's current_cursor.
(hourglass_atimer): Remove.
(hourglass_started): New function.
(start_hourglass, cancel_hourglass, hide_hourglass): Adapt to w32.
(show_hourglass): Adapt to w32, changing argument to frame.
* w32term.h (struct w32_output): Remove hourglass_window.
Add current_cursor.
* eval.c (call_debugger, Fsignal):
* keyboard.c (recursive_edit_1, cmd_error, Ftop_level)
(command_loop_1, Fread_key_sequence, Fread_key_sequence_vector)
(Fexecute_extended_command, cancel_hourglass_unwind):
* minibuf.c (read_minibuf):
* fns.c (Fy_or_n_p): Enable hourglass when HAVE_WINDOW_SYSTEM.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Wed, 19 Mar 2008 17:04:18 +0000 |
parents | e27f17d9c8ed |
children | 188974bfdea0 |
rev | line source |
---|---|
52423 | 1 rem Hack to change/add environment variables in the makefiles for the |
2 rem Windows platform. | |
3 rem | |
79730 | 4 rem Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
52423 | 5 rem |
6 rem This file is part of GNU Emacs. | |
7 rem | |
8 rem GNU Emacs is free software; you can redistribute it and/or modify | |
9 rem it under the terms of the GNU General Public License as published by | |
78246
075eb71f218d
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75348
diff
changeset
|
10 rem the Free Software Foundation; either version 3, or (at your option) |
52423 | 11 rem any later version. |
12 rem | |
13 rem GNU Emacs is distributed in the hope that it will be useful, | |
14 rem but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 rem MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 rem GNU General Public License for more details. | |
17 rem | |
18 rem You should have received a copy of the GNU General Public License | |
19 rem along with GNU Emacs; see the file COPYING. If not, write to | |
64083 | 20 rem the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
21 rem Boston, MA 02110-1301, USA. | |
52423 | 22 rem |
23 rem | |
24 rem Usage: | |
25 rem envadd "ENV1=VAL1" "ENV2=VAL2" ... /C <command line> | |
26 rem | |
27 rem The "/C" switch marks the end of environment variables, and the | |
28 rem beginning of the command line. | |
29 rem | |
30 rem By Peter 'Luna' Runestig <peter@runestig.com> 2003 | |
31 | |
32 :Loop | |
33 if .%1% == ./C goto EndLoop | |
34 rem just to avoid an endless loop: | |
35 if .%1% == . goto EndLoop | |
36 set %1 | |
37 shift | |
38 goto Loop | |
39 :EndLoop | |
40 | |
41 rem Eat the "/C" | |
42 shift | |
43 rem Now, run the command line | |
44 %1 %2 %3 %4 %5 %6 %7 %8 %9 | |
52428 | 45 |
46 goto skipArchTag | |
47 arch-tag: 148c5181-dbce-43ae-bba6-1cc6e2a9ea75 | |
48 :skipArchTag |