Mercurial > emacs
view oldXMenu/XDelAssoc.c @ 111629:6c24c5598611
Move declarations from .c files to .h files.
* src/process.c (timers_run):
* src/minibuf.c (quit_char):
* src/lread.c (read_emacs_mule_char):
* src/keyboard.c (minibuf_level, message_enable_multibyte)
(pending_malloc_warning):
* src/insdel.c (Vselect_active_regions, Vsaved_region_selection)
(Qonly): Remove declarations.
* src/lisp.h (pending_malloc_warning, Vsaved_region_selection)
(Vselect_active_regions):
* src/keyboard.h (timers_run): Add declarations.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Thu, 18 Nov 2010 08:57:00 -0800 |
parents | 132f2dfd549f |
children | ef719132ddfa |
line wrap: on
line source
/* Copyright Massachusetts Institute of Technology 1985 */ #include "copyright.h" #include <X11/Xlib.h> #include "X10.h" struct qelem { struct qelem *q_forw; struct qelem *q_back; char q_data[1]; }; void emacs_remque(struct qelem*); /* * XDeleteAssoc - Delete an association in an XAssocTable keyed on * an XId. An association may be removed only once. Redundant * deletes are meaningless (but cause no problems). */ void XDeleteAssoc(register Display *dpy, register XAssocTable *table, register XID x_id) { int hash; register XAssoc *bucket; register XAssoc *Entry; /* Hash the XId to get the bucket number. */ hash = x_id & (table->size - 1); /* Look up the bucket to get the entries in that bucket. */ bucket = &table->buckets[hash]; /* Get the first entry in the bucket. */ Entry = bucket->next; /* Scan through the entries in the bucket for the right XId. */ for (; Entry != bucket; Entry = Entry->next) { if (Entry->x_id == x_id) { /* We have the right XId. */ if (Entry->display == dpy) { /* We have the right display. */ /* We have the right entry! */ /* Remove it from the queue and */ /* free the entry. */ emacs_remque((struct qelem *)Entry); free((char *)Entry); return; } /* Oops, identical XId's on different displays! */ continue; } if (Entry->x_id > x_id) { /* We have gone past where it should be. */ /* It is apparently not in the table. */ return; } } /* It is apparently not in the table. */ return; } /* arch-tag: 90981a7e-601c-487a-b364-cdf55d6c475b (do not change this comment) */