annotate oldXMenu/XDestAssoc.c @ 55397:a828ab1b3079

Changes largely merged in from Dave Love's code. Doc fixes. (python-mode-map): Add python-complete-symbol. (python-comment-line-p, python-beginning-of-string): Use syntax-ppss. (python-comment-indent, python-complete-symbol) (python-symbol-completions, python-partial-symbol) (python-try-complete): New. (python-indent-line): Remove optional arg. Use python-block-end-p. (python-check): Bind compilation-error-regexp-alist. (inferior-python-mode): Use rx. Move keybindings to top level. Set comint-input-filter. (python-preoutput-filter): Use rx. (python-input-filter): Re-introduce. (python-proc): Start new process if necessary. Check python-buffer non-nil. (view-return-to-alist): Defvar. (python-send-receive): New. (python-eldoc-function): Use it. (python-mode-running): Don't defvar. (python-mode): Set comment-indent-function. Maybe update hippie-expand-try-functions-list. (python-indentation-levels): Initialize differently. (python-block-end-p): New. (python-indent-line): Use it. (python-compilation-regexp-alist): Augment. (run-python): Import `emacs' module to Python rather than loading code directly. Set python-buffer differently. (python-send-region): Use emacs.eexecfile. Fix orig-start calculation. Use python-proc. (python-send-command): Go to end of comint buffer. (python-load-file): Use python-proc, emacs.eimport. (python-describe-symbol): Simplify interactive form. Use emacs.help. Do use temp-buffer-show-hook. Call print-help-return-message. (hippie-exp): Require when compiling. (python-preoutput-continuation): Use rx.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 06 May 2004 20:22:32 +0000
parents e8824c4f5f7e
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) */