Mercurial > emacs
annotate src/w32gui.h @ 21410:d68f866455c6
Use regexp-opt and eval-and-compile to
build font-lock patterns.
(fortran-mode): Define indent-region-function,
indent-line-function.
(fortran-tab-mode-string): Make buffer-local.
(fortran-comment-indent-style): Custom tweak.
(fortran-comment-region, fortran-electric-line-number,
fortran-analyze-depth, fortran-break-before-delimiters,
fortran-mode): Doc fix.
(fortran-startup-message, bug-fortran-mode): Variables
deleted.
(fortran-font-lock-keywords-1): Add "select", "case"; allow
double-quoted strings.
(fortran-mode-map): Add fill-paragraph menu item. Don't
define \t.
(fortran-mode): Make `fill-column' buffer-local; set
`fill-paragraph-function', `indent-region-function',
`indent-line-function'.
(calculate-fortran-indent): Renamed to:
(fortran-calculate-indent):
(fortran-split-line): Simplify.
(fortran-remove-continuation): New function.
(fortran-join-line): Use it.
(fortran-end-prog-re1, fortran-end-prog-re): New variables.
(beginning-of-fortran-subprogram, end-of-fortran-subprogram):
Use them.
(fortran-blink-matching-if, fortran-blink-matching-do,
fortran-indent-new-line): Bind case-fold-search.
(fortran-end-do, fortran-beginning-do, fortran-end-if,
fortran-beginning-if): Bind case-fold-search. Allow labelled
blocks. Use fortran-end-prog-re.
(fortran-if-start-re): New variable.
(fortran-calculate-indent): Allow labelled blocks. Simplify the
conds. Make select case indentation work.
(fortran-is-in-string-p): Ignore Emacs 18 bug kluge.
(fortran-fill): Allow double quotes in check for string.
(fortran-fill-paragraph): New function.
(fortran-fill-statement): New function.
author | Dave Love <fx@gnu.org> |
---|---|
date | Tue, 07 Apr 1998 18:59:44 +0000 |
parents | 303cda7d14cb |
children | 236627b268cc |
rev | line source |
---|---|
16886
c686d4f3728a
Change all uses of win95, winnt, and win32 into Windows 95, Windows
Geoff Voelker <voelker@cs.washington.edu>
parents:
14186
diff
changeset
|
1 /* Definitions and headers for communication on the Microsoft W32 API. |
13434 | 2 Copyright (C) 1995 Free Software Foundation, Inc. |
3 | |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 2, or (at your option) | |
9 any later version. | |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13434
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13434
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
13434 | 20 |
16890
303cda7d14cb
Update include conditionals to use new name.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16886
diff
changeset
|
21 #ifndef __W32GUI_H__ |
303cda7d14cb
Update include conditionals to use new name.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16886
diff
changeset
|
22 #define __W32GUI_H__ |
13434 | 23 |
24 #include <windows.h> | |
25 | |
26 typedef struct W32FontStruct { | |
27 TEXTMETRIC tm; | |
28 HFONT hfont; | |
29 } W32FontStruct; | |
30 | |
31 typedef HBITMAP Pixmap; | |
32 typedef HBITMAP Bitmap; | |
33 typedef struct W32FontStruct XFontStruct; | |
34 typedef HDC GC; | |
35 typedef COLORREF Color; | |
36 typedef DWORD Time; | |
37 typedef HWND Window; | |
38 typedef HCURSOR Cursor; | |
39 | |
40 #define FACE_DEFAULT (~0) | |
41 | |
42 extern HINSTANCE hinst; | |
43 extern HINSTANCE hprevinst; | |
44 extern LPSTR lpCmdLine; | |
45 extern int nCmdShow; | |
46 | |
47 /* Bit Gravity */ | |
48 | |
49 #define ForgetGravity 0 | |
50 #define NorthWestGravity 1 | |
51 #define NorthGravity 2 | |
52 #define NorthEastGravity 3 | |
53 #define WestGravity 4 | |
54 #define CenterGravity 5 | |
55 #define EastGravity 6 | |
56 #define SouthWestGravity 7 | |
57 #define SouthGravity 8 | |
58 #define SouthEastGravity 9 | |
59 #define StaticGravity 10 | |
60 | |
61 #define NoValue 0x0000 | |
62 #define XValue 0x0001 | |
63 #define YValue 0x0002 | |
64 #define WidthValue 0x0004 | |
65 #define HeightValue 0x0008 | |
66 #define AllValues 0x000F | |
67 #define XNegative 0x0010 | |
68 #define YNegative 0x0020 | |
69 | |
70 #define USPosition (1L << 0) /* user specified x, y */ | |
71 #define USSize (1L << 1) /* user specified width, height */ | |
72 | |
73 #define PPosition (1L << 2) /* program specified position */ | |
74 #define PSize (1L << 3) /* program specified size */ | |
75 #define PMinSize (1L << 4) /* program specified minimum size */ | |
76 #define PMaxSize (1L << 5) /* program specified maximum size */ | |
77 #define PResizeInc (1L << 6) /* program specified resize increments */ | |
78 #define PAspect (1L << 7) /* program specified min and max aspect ratios */ | |
79 #define PBaseSize (1L << 8) /* program specified base for incrementing */ | |
80 #define PWinGravity (1L << 9) /* program specified window gravity */ | |
81 | |
82 extern int XParseGeometry (); | |
83 | |
84 #endif |