Mercurial > emacs
annotate src/w32inevt.h @ 55827:c5c73c8c2b3e
Don't include cl. Don't bother with old Emacs versions.
(thumbs-subst-char-in-string): Deleted.
(thumbs-thumbname): Use subst-char-in-string.
(thumbs-resize-image): Use condition-case, not ignore-errors.
(thumbs-kill-buffer): Likewise.
(thumbs-mode): Make buffer read-only.
(thumbs-make-thumb): Unconditionally accept an existing file.
(thumbs-insert-thumb): Add thumb-image-file property to the image.
(thumbs-do-thumbs-insertion): Be smarter about where to put newlines.
(thumbs-show-thumbs-list): Error if images not supported.
(thumbs-save-current-image): Improve prompt string.
(thumbs-mode-map): Define u, R, x.
(thumbs-unmark): New command.
(thumbs-emboss-image): Minor cleanup.
(thumbs-forward-char, thumbs-backward-char): Skip chars with no image.
(thumbs-rename-images): New command.
(thumbs-show-image-num): Rewrite. Don't rename the buffer.
(thumbs-current-image): New function.
(thumbs-file-list, thumbs-file-alist): New functions.
(thumbs-find-image): Delete arg L.
Don't set up thumbs-fileL as buffer-local global var.
(thumbs-find-image-at-point): Use thumbs-current-image.
(thumbs-set-image-at-point-to-root-window): Likewise.
(thumbs-delete-images): Use thumbs-current-image, thumbs-file-alist.
Record and warn about errors. Update thumbs-markedL for deletions.
(thumbs-next-image, thumbs-previous-image): Use thumbs-file-alist.
(thumbs-redraw-buffer): Use thumbs-file-list.
(thumbs-mark): Use thumbs-current-image.
(thumbs-show-name): Use thumbs-current-image.
(thumbs-show-name): Do nothing if no image at point.
(thumbs-mouse-find-image): New command.
(thumbs-mode-map): Bind it to mouse-2.
(thumbs-mode): Make mode-class special.
(thumbs-view-image-mode): Likewise.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 29 May 2004 15:22:55 +0000 |
parents | 9f3ff0d515be |
children | a8fa7c632ee4 |
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. |
11387 | 2 Copyright (C) 1995 Free Software Foundation, Inc. |
3 | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
4 This file is part of GNU Emacs. |
11387 | 5 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
6 GNU Emacs is free software; you can redistribute it and/or modify |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
7 it under the terms of the GNU General Public License as published by |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
8 the Free Software Foundation; either version 2, or (at your option) |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
9 any later version. |
11387 | 10 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
11 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
|
12 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
|
13 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
|
14 GNU General Public License for more details. |
11387 | 15 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
16 You should have received a copy of the GNU General Public License |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
diff
changeset
|
17 along with GNU Emacs; see the file COPYING. If not, write to |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11387
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:
11387
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
11387 | 20 |
29606 | 21 #ifndef EMACS_W32INEVT_H |
22 #define EMACS_W32INEVT_H | |
11378 | 23 |
54170
9f3ff0d515be
(w32_console_mouse_position): Fix prototype.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
24 extern int w32_console_read_socket (int sd, int numchars, |
9f3ff0d515be
(w32_console_mouse_position): Fix prototype.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
25 struct input_event *hold_quit); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
29606
diff
changeset
|
26 extern void w32_console_mouse_position (FRAME_PTR *f, int insist, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
29606
diff
changeset
|
27 Lisp_Object *bar_window, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
29606
diff
changeset
|
28 enum scroll_bar_part *part, |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
29606
diff
changeset
|
29 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
|
30 unsigned long *time); |
11378 | 31 |
29606 | 32 #endif /* EMACS_W32INEVT_H */ |
52401 | 33 |
34 /* arch-tag: 7641bd54-199f-4552-8e8a-6a2f5340ef13 | |
35 (do not change this comment) */ |