Mercurial > emacs
view 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 |
line wrap: on
line source
/* Input routines for GNU Emacs on the Microsoft W32 API. Copyright (C) 1995 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef EMACS_W32INEVT_H #define EMACS_W32INEVT_H extern int w32_console_read_socket (int sd, int numchars, struct input_event *hold_quit); extern void w32_console_mouse_position (FRAME_PTR *f, int insist, Lisp_Object *bar_window, enum scroll_bar_part *part, Lisp_Object *x, Lisp_Object *y, unsigned long *time); #endif /* EMACS_W32INEVT_H */ /* arch-tag: 7641bd54-199f-4552-8e8a-6a2f5340ef13 (do not change this comment) */