annotate src/w32inevt.h @ 112190:0bfc36865094

* lisp/progmodes/prolog.el: Fix up coding conventions and such. (prolog-indent-width): Use the same default as in previous prolog.el rather than tab-width which depends on which buffer is current when the file is loaded. (prolog-electric-newline-flag): Only enable if electric-indent-mode is not available. (prolog-emacs): Remove. Use (featurep 'xemacs) instead. (prolog-known-systems): Remove. (prolog-mode-syntax-table, prolog-inferior-mode-map): Move initialization into declaration. (prolog-mode-map): Move initialization into declaration. Remove system-specific mode-map vars, since they referred to the same keymap anyway. (prolog-mode-variables): Obey the user's preference w.r.t adaptive-fill-mode. Prefer symbol-value to `eval'. (prolog-mode-keybindings-edit): Add compatibility bindings. (prolog-mode): Use define-derived-mode. Don't handle mercury here. (mercury-mode-map): New var. (mercury-mode, prolog-inferior-mode): Use define-derived-mode. (prolog-ensure-process, prolog-process-insert-string) (prolog-consult-compile): Use with-current-buffer. (prolog-guess-fill-prefix): Simplify data flow. (prolog-replace-in-string): New function to use instead of replace-in-string. (prolog-enable-sicstus-sd): Don't abuse `eval'. (prolog-uncomment-region): Use `uncomment-region' when available. (prolog-electric-colon, prolog-electric-dash): Use `eolp'. (prolog-int-to-char, prolog-char-to-int): New functions to use instead of int-to-char and char-to-int. (prolog-mode-hook, prolog-inferior-mode-hook): Don't force font-lock.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 11 Jan 2011 00:07:32 -0500
parents 1d1d5d9bd884
children 376148b31b5e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16886
c686d4f3728a Change all uses of win95, winnt, and win32 into Windows 95, Windows
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
1 /* Input routines for GNU Emacs on the Microsoft W32 API.
75227
e90d04cd455a Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents: 68651
diff changeset
2 Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100951
diff changeset
3 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
11387
b2d5260a5da0 Fixed function prototypes.
Karl Heuer <kwzh@gnu.org>
parents: 11378
diff changeset
4
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11387
diff changeset
5 This file is part of GNU Emacs.
11387
b2d5260a5da0 Fixed function prototypes.
Karl Heuer <kwzh@gnu.org>
parents: 11378
diff changeset
6
94994
29adfc9354e7 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
7 GNU Emacs is free software: you can redistribute it and/or modify
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11387
diff changeset
8 it under the terms of the GNU General Public License as published by
94994
29adfc9354e7 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
29adfc9354e7 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
10 (at your option) any later version.
11387
b2d5260a5da0 Fixed function prototypes.
Karl Heuer <kwzh@gnu.org>
parents: 11378
diff changeset
11
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11387
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11387
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11387
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11387
diff changeset
15 GNU General Public License for more details.
11387
b2d5260a5da0 Fixed function prototypes.
Karl Heuer <kwzh@gnu.org>
parents: 11378
diff changeset
16
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 11387
diff changeset
17 You should have received a copy of the GNU General Public License
94994
29adfc9354e7 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
11387
b2d5260a5da0 Fixed function prototypes.
Karl Heuer <kwzh@gnu.org>
parents: 11378
diff changeset
19
29606
f16690808171 *** empty log message ***
Jason Rumney <jasonr@gnu.org>
parents: 21830
diff changeset
20 #ifndef EMACS_W32INEVT_H
f16690808171 *** empty log message ***
Jason Rumney <jasonr@gnu.org>
parents: 21830
diff changeset
21 #define EMACS_W32INEVT_H
11378
9020ac98e9d3 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22
83574
255803121dae (w32_console_read_socket): Make first arg a frame.
Jason Rumney <jasonr@gnu.org>
parents: 75227
diff changeset
23 extern int w32_console_read_socket (struct terminal *term, int numchars,
54170
9f3ff0d515be (w32_console_mouse_position): Fix prototype.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
24 struct input_event *hold_quit);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 29606
diff changeset
25 extern void w32_console_mouse_position (FRAME_PTR *f, int insist,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 29606
diff changeset
26 Lisp_Object *bar_window,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 29606
diff changeset
27 enum scroll_bar_part *part,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 29606
diff changeset
28 Lisp_Object *x, Lisp_Object *y,
21830
56104212fe5c (w32_console_mouse_position, w32_console_read_socket):
Geoff Voelker <voelker@cs.washington.edu>
parents: 16886
diff changeset
29 unsigned long *time);
11378
9020ac98e9d3 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30
29606
f16690808171 *** empty log message ***
Jason Rumney <jasonr@gnu.org>
parents: 21830
diff changeset
31 #endif /* EMACS_W32INEVT_H */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
32
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
33 /* arch-tag: 7641bd54-199f-4552-8e8a-6a2f5340ef13
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
34 (do not change this comment) */