annotate oldXMenu/XDestAssoc.c @ 54770:e8824c4f5f7e

Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-196 Remove RCS keywords 2004-04-10 Miles Bader <miles@gnu.org> RCS keyword removal (only non-comment changes are enumerated here): * lisp/emacs-lisp/bytecomp.el (byte-compile-version): Variable removed. (byte-compile-insert-header): Don't use `byte-compile-version'. * lisp/url/url-vars.el (url-version): Use the constant string "Emacs" instead of calculating something from the RCS `State' keyword [the latter is almost entirely useless anyway]. * lisp/forms.el (forms-version): Variable removed. (forms-mode): Don't use `forms-version'. * lisp/recentf.el (recentf-version): Variable removed. * lisp/progmodes/delphi.el (delphi-version): Variable removed. * lisp/progmodes/ada-mode.el (ada-mode): RCS keyword removed from docstring.
author Miles Bader <miles@gnu.org>
date Sat, 10 Apr 2004 05:55:49 +0000
parents 695cf19ef79e
children 3861ff8f4bf1
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
Dave Love <fx@gnu.org>
parents:
diff changeset
3 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
4 Permission to use, copy, modify, distribute, and sell this software and its
Dave Love <fx@gnu.org>
parents:
diff changeset
5 documentation for any purpose is hereby granted without fee, provided that
Dave Love <fx@gnu.org>
parents:
diff changeset
6 the above copyright notice appear in all copies and that both that
Dave Love <fx@gnu.org>
parents:
diff changeset
7 copyright notice and this permission notice appear in supporting
Dave Love <fx@gnu.org>
parents:
diff changeset
8 documentation, and that the name of M.I.T. not be used in advertising or
Dave Love <fx@gnu.org>
parents:
diff changeset
9 publicity pertaining to distribution of the software without specific,
Dave Love <fx@gnu.org>
parents:
diff changeset
10 written prior permission. M.I.T. makes no representations about the
Dave Love <fx@gnu.org>
parents:
diff changeset
11 suitability of this software for any purpose. It is provided "as is"
Dave Love <fx@gnu.org>
parents:
diff changeset
12 without express or implied warranty.
Dave Love <fx@gnu.org>
parents:
diff changeset
13 */
Dave Love <fx@gnu.org>
parents:
diff changeset
14
Dave Love <fx@gnu.org>
parents:
diff changeset
15 #include <X11/Xlib.h>
Dave Love <fx@gnu.org>
parents:
diff changeset
16 #include "X10.h"
Dave Love <fx@gnu.org>
parents:
diff changeset
17
Dave Love <fx@gnu.org>
parents:
diff changeset
18 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
19 * XDestroyAssocTable - Destroy (free the memory associated with)
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 25858
diff changeset
20 * an XAssocTable.
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
21 */
Dave Love <fx@gnu.org>
parents:
diff changeset
22 XDestroyAssocTable(table)
Dave Love <fx@gnu.org>
parents:
diff changeset
23 register XAssocTable *table;
Dave Love <fx@gnu.org>
parents:
diff changeset
24 {
Dave Love <fx@gnu.org>
parents:
diff changeset
25 register int i;
Dave Love <fx@gnu.org>
parents:
diff changeset
26 register XAssoc *bucket;
Dave Love <fx@gnu.org>
parents:
diff changeset
27 register XAssoc *Entry, *entry_next;
Dave Love <fx@gnu.org>
parents:
diff changeset
28
Dave Love <fx@gnu.org>
parents:
diff changeset
29 /* Free the buckets. */
Dave Love <fx@gnu.org>
parents:
diff changeset
30 for (i = 0; i < table->size; i++) {
Dave Love <fx@gnu.org>
parents:
diff changeset
31 bucket = &table->buckets[i];
Dave Love <fx@gnu.org>
parents:
diff changeset
32 for (
Dave Love <fx@gnu.org>
parents:
diff changeset
33 Entry = bucket->next;
Dave Love <fx@gnu.org>
parents:
diff changeset
34 Entry != bucket;
Dave Love <fx@gnu.org>
parents:
diff changeset
35 Entry = entry_next
Dave Love <fx@gnu.org>
parents:
diff changeset
36 ) {
Dave Love <fx@gnu.org>
parents:
diff changeset
37 entry_next = Entry->next;
Dave Love <fx@gnu.org>
parents:
diff changeset
38 free((char *)Entry);
Dave Love <fx@gnu.org>
parents:
diff changeset
39 }
Dave Love <fx@gnu.org>
parents:
diff changeset
40 }
Dave Love <fx@gnu.org>
parents:
diff changeset
41
Dave Love <fx@gnu.org>
parents:
diff changeset
42 /* Free the bucket array. */
Dave Love <fx@gnu.org>
parents:
diff changeset
43 free((char *)table->buckets);
Dave Love <fx@gnu.org>
parents:
diff changeset
44
Dave Love <fx@gnu.org>
parents:
diff changeset
45 /* Free the table. */
Dave Love <fx@gnu.org>
parents:
diff changeset
46 free((char *)table);
Dave Love <fx@gnu.org>
parents:
diff changeset
47 }
Dave Love <fx@gnu.org>
parents:
diff changeset
48
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
49 /* arch-tag: a536bf02-8d63-45f2-8c1a-c7f9fd4da2cf
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
50 (do not change this comment) */