annotate oldXMenu/X10.h @ 26058:c11f0832a7c5

(Fconstrain_to_field): Make sure we don't violate the argument preconditions of find_before_next_newline in the case where both ONLY_IN_LINE and ESCAPE_FROM_EDGE are set and OLD_POS was indeed at the edge. (text_property_eq, text_property_stickiness): Don't use initializers for auto variables of type Lisp_Object. (find_field): Likewise. Use braces around nested ifs. (Fline_end_position): Store the raw eol in a variable, so that the final expression doesn't look so ugly. (Fconstrain_to_field): Doc fix. (preceding_pos): Renamed from `preceeding_pos'. (text_property_stickiness, find_field): Call preceding_pos, not preceeding_pos. (Ffield_string_no_properties): New function. (text_property_stickiness, preceeding_pos): New functions. (Ffield_string): Remove PROPS parameter. (find_field): Add MERGE_AT_BOUNDARY parameter. Rewrite to use stickiness of `field' property to resolve ambiguous cases. (Ffield_beginning, Ffield_end): Add ESCAPE_FROM_EDGE parameter. (Fconstrain_to_field): Likewise. (syms_of_editfns): Init Sfield_string_no_properties. (Ffield_string, Ferase_field, Ffield_end): Supply new MERGE_AT_BOUNDARY argument to find_field. (Fline_beginning_position, Fline_end_position): Supply new ESCAPE_FROM_EDGE parameter to Fconstrain_to_field. Pass a value of Qt for the ONLY_IN_LINE argument to Fconstrain_to_field (only matters if N != 1). (Fconstrain_to_field): Add get/set-current-point behavior when NEW_POS is nil. (find_field): Use XSETFASTINT instead of make_number. (Qfield): New variable. (find_field, Ferase_field, Ffield_string, Ffield_beginning, Ffield_end, Fconstrain_to_field): New functions. (Fline_beginning_position, Fline_end_position): Constrain to any field. (make_buffer_string_both): Remove minibuffer-prompt hack. (syms_of_editfns): Initialize Qfield, and subr entries for field functions above.
author Gerd Moellmann <gerd@gnu.org>
date Sun, 17 Oct 1999 12:55:00 +0000
parents bbce331da1be
children 23a1cea22d13
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25858
Dave Love <fx@gnu.org>
parents:
diff changeset
1 /* $Header: /u/src/emacs/19.0/oldXMenu/RCS/X10.h,v 1.1 1992/04/11 22:10:21 jimb Exp $ */
Dave Love <fx@gnu.org>
parents:
diff changeset
2 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
3 * Copyright 1985, 1986, 1987 by the Massachusetts Institute of Technology
Dave Love <fx@gnu.org>
parents:
diff changeset
4 *
Dave Love <fx@gnu.org>
parents:
diff changeset
5 * Permission to use, copy, modify, and distribute this software and its
Dave Love <fx@gnu.org>
parents:
diff changeset
6 * documentation for any purpose and without fee is hereby granted, provided
Dave Love <fx@gnu.org>
parents:
diff changeset
7 * that the above copyright notice appear in all copies and that both that
Dave Love <fx@gnu.org>
parents:
diff changeset
8 * copyright notice and this permission notice appear in supporting
Dave Love <fx@gnu.org>
parents:
diff changeset
9 * documentation, and that the name of M.I.T. not be used in advertising
Dave Love <fx@gnu.org>
parents:
diff changeset
10 * or publicity pertaining to distribution of the software without specific,
Dave Love <fx@gnu.org>
parents:
diff changeset
11 * written prior permission. M.I.T. makes no representations about the
Dave Love <fx@gnu.org>
parents:
diff changeset
12 * suitability of this software for any purpose. It is provided "as is"
Dave Love <fx@gnu.org>
parents:
diff changeset
13 * without express or implied warranty.
Dave Love <fx@gnu.org>
parents:
diff changeset
14 *
Dave Love <fx@gnu.org>
parents:
diff changeset
15 * The X Window System is a Trademark of MIT.
Dave Love <fx@gnu.org>
parents:
diff changeset
16 *
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
Dave Love <fx@gnu.org>
parents:
diff changeset
20 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
21 * X10.h - Header definition and support file for the C subroutine
Dave Love <fx@gnu.org>
parents:
diff changeset
22 * interface library for V10 support routines.
Dave Love <fx@gnu.org>
parents:
diff changeset
23 */
Dave Love <fx@gnu.org>
parents:
diff changeset
24 #ifndef _X10_H_
Dave Love <fx@gnu.org>
parents:
diff changeset
25 #define _X10_H_
Dave Love <fx@gnu.org>
parents:
diff changeset
26
Dave Love <fx@gnu.org>
parents:
diff changeset
27 /* Used in XDraw and XDrawFilled */
Dave Love <fx@gnu.org>
parents:
diff changeset
28
Dave Love <fx@gnu.org>
parents:
diff changeset
29 typedef struct {
Dave Love <fx@gnu.org>
parents:
diff changeset
30 short x, y;
Dave Love <fx@gnu.org>
parents:
diff changeset
31 unsigned short flags;
Dave Love <fx@gnu.org>
parents:
diff changeset
32 } Vertex;
Dave Love <fx@gnu.org>
parents:
diff changeset
33
Dave Love <fx@gnu.org>
parents:
diff changeset
34 /* The meanings of the flag bits. If the bit is 1 the predicate is true */
Dave Love <fx@gnu.org>
parents:
diff changeset
35
Dave Love <fx@gnu.org>
parents:
diff changeset
36 #define VertexRelative 0x0001 /* else absolute */
Dave Love <fx@gnu.org>
parents:
diff changeset
37 #define VertexDontDraw 0x0002 /* else draw */
Dave Love <fx@gnu.org>
parents:
diff changeset
38 #define VertexCurved 0x0004 /* else straight */
Dave Love <fx@gnu.org>
parents:
diff changeset
39 #define VertexStartClosed 0x0008 /* else not */
Dave Love <fx@gnu.org>
parents:
diff changeset
40 #define VertexEndClosed 0x0010 /* else not */
Dave Love <fx@gnu.org>
parents:
diff changeset
41 /*#define VertexDrawLastPoint 0x0020 */ /* else don't */
Dave Love <fx@gnu.org>
parents:
diff changeset
42
Dave Love <fx@gnu.org>
parents:
diff changeset
43 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
44 The VertexDrawLastPoint option has not been implemented in XDraw and
Dave Love <fx@gnu.org>
parents:
diff changeset
45 XDrawFilled so it shouldn't be defined.
Dave Love <fx@gnu.org>
parents:
diff changeset
46 */
Dave Love <fx@gnu.org>
parents:
diff changeset
47
Dave Love <fx@gnu.org>
parents:
diff changeset
48 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
49 * XAssoc - Associations used in the XAssocTable data structure. The
Dave Love <fx@gnu.org>
parents:
diff changeset
50 * associations are used as circular queue entries in the association table
Dave Love <fx@gnu.org>
parents:
diff changeset
51 * which is contains an array of circular queues (buckets).
Dave Love <fx@gnu.org>
parents:
diff changeset
52 */
Dave Love <fx@gnu.org>
parents:
diff changeset
53 typedef struct _XAssoc {
Dave Love <fx@gnu.org>
parents:
diff changeset
54 struct _XAssoc *next; /* Next object in this bucket. */
Dave Love <fx@gnu.org>
parents:
diff changeset
55 struct _XAssoc *prev; /* Previous obejct in this bucket. */
Dave Love <fx@gnu.org>
parents:
diff changeset
56 Display *display; /* Display which owns the id. */
Dave Love <fx@gnu.org>
parents:
diff changeset
57 XID x_id; /* X Window System id. */
Dave Love <fx@gnu.org>
parents:
diff changeset
58 char *data; /* Pointer to untyped memory. */
Dave Love <fx@gnu.org>
parents:
diff changeset
59 } XAssoc;
Dave Love <fx@gnu.org>
parents:
diff changeset
60
Dave Love <fx@gnu.org>
parents:
diff changeset
61 /*
Dave Love <fx@gnu.org>
parents:
diff changeset
62 * XAssocTable - X Window System id to data structure pointer association
Dave Love <fx@gnu.org>
parents:
diff changeset
63 * table. An XAssocTable is a hash table whose buckets are circular
Dave Love <fx@gnu.org>
parents:
diff changeset
64 * queues of XAssoc's. The XAssocTable is constructed from an array of
Dave Love <fx@gnu.org>
parents:
diff changeset
65 * XAssoc's which are the circular queue headers (bucket headers).
Dave Love <fx@gnu.org>
parents:
diff changeset
66 * An XAssocTable consists an XAssoc pointer that points to the first
Dave Love <fx@gnu.org>
parents:
diff changeset
67 * bucket in the bucket array and an integer that indicates the number
Dave Love <fx@gnu.org>
parents:
diff changeset
68 * of buckets in the array.
Dave Love <fx@gnu.org>
parents:
diff changeset
69 */
Dave Love <fx@gnu.org>
parents:
diff changeset
70 typedef struct {
Dave Love <fx@gnu.org>
parents:
diff changeset
71 XAssoc *buckets; /* Pointer to first bucket in bucket array.*/
Dave Love <fx@gnu.org>
parents:
diff changeset
72 int size; /* Table size (number of buckets). */
Dave Love <fx@gnu.org>
parents:
diff changeset
73 } XAssocTable;
Dave Love <fx@gnu.org>
parents:
diff changeset
74
Dave Love <fx@gnu.org>
parents:
diff changeset
75 XAssocTable *XCreateAssocTable();
Dave Love <fx@gnu.org>
parents:
diff changeset
76 char *XLookUpAssoc();
Dave Love <fx@gnu.org>
parents:
diff changeset
77
Dave Love <fx@gnu.org>
parents:
diff changeset
78 #endif /* _X10_H_ */