Mercurial > emacs
annotate src/=x11term.h @ 17419:c9f73399244c
(elp-functionp): New function.
(elp-instrument-package): Don't attempt to instrument autoload functions.
(elp-elapsed-time): New function to calculate the different between
two `current-time' lists. This no longer throws away the top 16 bits
of information.
(elp-wrapper): Use elp-elapsed-time instead of elp-get-time. Also,
call `current-time' as close to the function entrance and exit as
possible so more of the overhead is eliminated from the times.
(elp-get-time): Obsolete, deleted.
(elp-restore-function):
When restoring, do not check assq elp-wrapper
if the symbol-function is a compiled lisp function (i.e. byte coded).
If it is byte-coded, it could not have been instrumented.
Don't do the symbol-function restoration if
the symbol has no function definition.
(elp-instrument-function): Always `restore' the funsym before instrumenting.
Fail if function is an autoload symbol.
(elp-instrument-list): Remove unnecessary condition-case.
(elp-results):
Noninteractive as a function is non-portable, use the
variable instead. buffer-substring with 3 arguments is non-portable.
(elp-instrument-function, elp-instrument-list):
Handle function symbols that have already been instrumented. Do
not instrument them twice.
(elp-recycle-buffers-p): New variable.
(elp-report-limit, elp-sort-by-function): New default values.
(elp-use-standard-output): New variable.
(elp-results): Optionally dump results to standard-output.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 12 Apr 1997 19:14:18 +0000 |
| parents | ce011f7cd03f |
| children |
| rev | line source |
|---|---|
| 486 | 1 #include <X11/Xlib.h> |
| 2 #include <X11/Xatom.h> | |
| 3 #include <X11/keysym.h> | |
| 4 #include <X11/cursorfont.h> | |
| 5 #include <X11/Xutil.h> | |
| 6 #include <X11/X10.h> | |
| 7 | |
| 8 #define XMOUSEBUFSIZE 64 | |
| 9 | |
| 10 #ifndef sigmask | |
| 11 #define sigmask(no) (1L << ((no) - 1)) | |
| 12 #endif | |
| 13 | |
| 14 #define BLOCK_INPUT_DECLARE() int BLOCK_INPUT_mask | |
| 15 #ifdef SIGIO | |
| 625 | 16 #define BLOCK_INPUT() EMACS_SIGBLOCKX (SIGIO, BLOCK_INPUT_mask) |
| 17 #define UNBLOCK_INPUT() \ | |
| 18 do { int _dummy; EMACS_SIGSETMASK (BLOCK_INPUT_mask, _dummy); } while (0) | |
| 486 | 19 #else /* not SIGIO */ |
| 20 #define BLOCK_INPUT() | |
| 21 #define UNBLOCK_INPUT() | |
| 22 #endif /* SIGIO */ | |
| 23 | |
| 625 | 24 #define CLASS "Emacs" /* class id for GNU Emacs, used in .Xdefaults, etc. */ |