annotate oldXMenu/XDestAssoc.c @ 110162:6ea012a6203d

* lisp/calc/calc-aent.el (calcAlg-blink-matching-check): New fun, to replace calcAlg-blink-matching-open. (calc-alg-ent-map, calc-alg-ent-esc-map): Initialize in the declaration. (calc-do-alg-entry): Only touch the part of the keymap that varies. Use the new blink-matching-check-function.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 03 Sep 2010 13:26:08 +0200
parents 5cc91198ffb2
children ef719132ddfa
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
1 /* Copyright Massachusetts Institute of Technology 1985 */
Dave Love <fx@gnu.org>
parents:
diff changeset
2
76133
995b45abe69d Remove license text in favour of including copyright.h, as was done in
Glenn Morris <rgm@gnu.org>
parents: 75348
diff changeset
3 #include "copyright.h"
995b45abe69d Remove license text in favour of including copyright.h, as was done in
Glenn Morris <rgm@gnu.org>
parents: 75348
diff changeset
4
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
5
Dave Love <fx@gnu.org>
parents:
diff changeset
6 #include <X11/Xlib.h>
Dave Love <fx@gnu.org>
parents:
diff changeset
7 #include "X10.h"
Dave Love <fx@gnu.org>
parents:
diff changeset
8
Dave Love <fx@gnu.org>
parents:
diff changeset
9 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
10 * XDestroyAssocTable - Destroy (free the memory associated with)
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
11 * an XAssocTable.
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
12 */
109124
5cc91198ffb2 Convert function definitions in oldXMenu to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 76174
diff changeset
13 XDestroyAssocTable(register XAssocTable *table)
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
14 {
Dave Love <fx@gnu.org>
parents:
diff changeset
15 register int i;
Dave Love <fx@gnu.org>
parents:
diff changeset
16 register XAssoc *bucket;
Dave Love <fx@gnu.org>
parents:
diff changeset
17 register XAssoc *Entry, *entry_next;
Dave Love <fx@gnu.org>
parents:
diff changeset
18
Dave Love <fx@gnu.org>
parents:
diff changeset
19 /* Free the buckets. */
Dave Love <fx@gnu.org>
parents:
diff changeset
20 for (i = 0; i < table->size; i++) {
Dave Love <fx@gnu.org>
parents:
diff changeset
21 bucket = &table->buckets[i];
Dave Love <fx@gnu.org>
parents:
diff changeset
22 for (
Dave Love <fx@gnu.org>
parents:
diff changeset
23 Entry = bucket->next;
Dave Love <fx@gnu.org>
parents:
diff changeset
24 Entry != bucket;
Dave Love <fx@gnu.org>
parents:
diff changeset
25 Entry = entry_next
Dave Love <fx@gnu.org>
parents:
diff changeset
26 ) {
Dave Love <fx@gnu.org>
parents:
diff changeset
27 entry_next = Entry->next;
Dave Love <fx@gnu.org>
parents:
diff changeset
28 free((char *)Entry);
Dave Love <fx@gnu.org>
parents:
diff changeset
29 }
Dave Love <fx@gnu.org>
parents:
diff changeset
30 }
Dave Love <fx@gnu.org>
parents:
diff changeset
31
Dave Love <fx@gnu.org>
parents:
diff changeset
32 /* Free the bucket array. */
Dave Love <fx@gnu.org>
parents:
diff changeset
33 free((char *)table->buckets);
Dave Love <fx@gnu.org>
parents:
diff changeset
34
Dave Love <fx@gnu.org>
parents:
diff changeset
35 /* Free the table. */
Dave Love <fx@gnu.org>
parents:
diff changeset
36 free((char *)table);
Dave Love <fx@gnu.org>
parents:
diff changeset
37 }
Dave Love <fx@gnu.org>
parents:
diff changeset
38
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
39 /* arch-tag: a536bf02-8d63-45f2-8c1a-c7f9fd4da2cf
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
40 (do not change this comment) */