Mercurial > emacs
view src/atimer.h @ 88886:300f83fb46e1
Include "coding.h".
(Qget_emacs_mule_file_char, Qload_force_doc_strings,
load_each_byte, unread_char): New variables.
(readchar_backlog): This variable deleted.
(readchar): Return a character unless load_each_byte is nonzero.
Handle the case that readcharfun is Qget_emacs_mule_file_char or a
cons. If unread_char is not -1, simply return it.
(unreadchar): Handle the case that readcharfun is
Qget_emacs_mule_file_char or a cons. Set unread_char if
necessary.
(read_multibyte): This function deleted.
(readbyte_for_lambda, readbyte_from_file, readbyte_from_string)
(read_emacs_mule_char): New functions.
(Fload): Even if the file doesn't have the extention ".elc", if
safe_to_load_p returns a positive version number, assume that the
file contains bytecompiled code. If the version is less than 22,
load the file while decoding multibyte sequences by emacs-mule.
(readevalloop): Don't use readchar_backlog.
(Fread): Likewise. Pay attention to the case that STREAM is a
cons.
(Fread_from_string): Pay attention to the case that STREAM is a
cons.
(read_escape): The arg BYTEREP deleted.
(read1): Set load_each_byte to 1 temporarily while handling
#@NUMBER. Don't call read_multibyte.
(read_vector): Call Fread with a cons. If readcharfun is
Qget_emacs_mule_file_char, decode the read string by emacs-mule.
(read_list): If doc_reference is 2, make the cdr part string as
unibyte.
(syms_of_lread): Intern and staticpro Qget_emacs_mule_file_char
and Qload_force_doc_strings.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 24 Jul 2002 10:51:15 +0000 |
parents | 7ca787d18982 |
children | 23a1cea22d13 |
line wrap: on
line source
/* Asynchronous timers. Copyright (C) 2000 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_ATIMER_H #define EMACS_ATIMER_H #include "systime.h" /* for EMACS_TIME */ /* Forward declaration. */ struct atimer; /* Types of timers. */ enum atimer_type { /* Timer is ripe at some absolute time. */ ATIMER_ABSOLUTE, /* Timer is ripe at now plus an offset. */ ATIMER_RELATIVE, /* Timer runs continously. */ ATIMER_CONTINUOUS }; /* Type of timer callback functions. */ typedef void (* atimer_callback) P_ ((struct atimer *timer)); /* Structure describing an asynchronous timer. */ struct atimer { /* The type of this timer. */ enum atimer_type type; /* Time when this timer is ripe. */ EMACS_TIME expiration; /* Interval of this timer. */ EMACS_TIME interval; /* Function to call when timer is ripe. Interrupt input is guaranteed to not be blocked when this function is called. */ atimer_callback fn; /* Additional user-specified data to pass to FN. */ void *client_data; /* Next in list of active or free atimers. */ struct atimer *next; }; /* Function prototypes. */ struct atimer *start_atimer P_ ((enum atimer_type, EMACS_TIME, atimer_callback, void *)); void cancel_atimer P_ ((struct atimer *)); void do_pending_atimers P_ ((void)); void init_atimer P_ ((void)); void turn_on_atimers P_ ((int)); void stop_other_atimers P_ ((struct atimer *)); void run_all_atimers P_ ((void)); Lisp_Object unwind_stop_other_atimers P_ ((Lisp_Object)); #endif /* EMACS_ATIMER_H */