annotate src/textprop.c @ 23433:a53274056f20

Fix names of standard-translation-table-for-decode(encode).
author Richard M. Stallman <rms@gnu.org>
date Mon, 12 Oct 1998 17:27:23 +0000
parents 2ec50b4767ed
children cf1cbb0e5d5b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1 /* Interface code for dealing with text properties.
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
2 Copyright (C) 1993, 1994, 1995, 1997 Free Software Foundation, Inc.
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
3
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
4 This file is part of GNU Emacs.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
5
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
3698
e748df7e6e74 Refer to GPL version two.
Jim Blandy <jimb@redhat.com>
parents: 3641
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
9 any later version.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
10
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
14 GNU General Public License for more details.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
15
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14088
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14088
diff changeset
19 Boston, MA 02111-1307, USA. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
20
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 4649
diff changeset
21 #include <config.h>
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
22 #include "lisp.h"
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
23 #include "intervals.h"
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
24 #include "buffer.h"
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
25 #include "window.h"
8962
722763fed8ce (Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8907
diff changeset
26
722763fed8ce (Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8907
diff changeset
27 #ifndef NULL
722763fed8ce (Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8907
diff changeset
28 #define NULL (void *)0
722763fed8ce (Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8907
diff changeset
29 #endif
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
30
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
31 /* Test for membership, allowing for t (actually any non-cons) to mean the
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
32 universal set. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
33
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
34 #define TMEM(sym, set) (CONSP (set) ? ! NILP (Fmemq (sym, set)) : ! NILP (set))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
35
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
36
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
37 /* NOTES: previous- and next- property change will have to skip
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
38 zero-length intervals if they are implemented. This could be done
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
39 inside next_interval and previous_interval.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
40
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
41 set_properties needs to deal with the interval property cache.
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
42
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
43 It is assumed that for any interval plist, a property appears
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
44 only once on the list. Although some code i.e., remove_properties,
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
45 handles the more general case, the uniqueness of properties is
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3553
diff changeset
46 necessary for the system to remain consistent. This requirement
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
47 is enforced by the subrs installing properties onto the intervals. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
48
1302
538cc0cd6d83 * textprop.c: Conditionalize all functions on
Joseph Arceneaux <jla@gnu.org>
parents: 1283
diff changeset
49 /* The rest of the file is within this conditional */
538cc0cd6d83 * textprop.c: Conditionalize all functions on
Joseph Arceneaux <jla@gnu.org>
parents: 1283
diff changeset
50 #ifdef USE_TEXT_PROPERTIES
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
51
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
52 /* Types of hooks. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
53 Lisp_Object Qmouse_left;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
54 Lisp_Object Qmouse_entered;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
55 Lisp_Object Qpoint_left;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
56 Lisp_Object Qpoint_entered;
2058
a43d0bb1b7d8 (Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents: 2053
diff changeset
57 Lisp_Object Qcategory;
a43d0bb1b7d8 (Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents: 2053
diff changeset
58 Lisp_Object Qlocal_map;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
59
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
60 /* Visual properties text (including strings) may have. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
61 Lisp_Object Qforeground, Qbackground, Qfont, Qunderline, Qstipple;
6755
a2bccbc870e6 (syms_of_textprop): Initialize Qintangible.
Karl Heuer <kwzh@gnu.org>
parents: 6681
diff changeset
62 Lisp_Object Qinvisible, Qread_only, Qintangible;
4381
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
63
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
64 /* Sticky properties */
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
65 Lisp_Object Qfront_sticky, Qrear_nonsticky;
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
66
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
67 /* If o1 is a cons whose cdr is a cons, return non-zero and set o2 to
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
68 the o1's cdr. Otherwise, return zero. This is handy for
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
69 traversing plists. */
9945
9b2ecbd894e4 (PLIST_ELT_P): Avoid assignments in arguments to a type-test macro.
Karl Heuer <kwzh@gnu.org>
parents: 9541
diff changeset
70 #define PLIST_ELT_P(o1, o2) (CONSP (o1) && ((o2)=XCONS (o1)->cdr, CONSP (o2)))
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
71
4242
49007dbbec4c (syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents: 4214
diff changeset
72 Lisp_Object Vinhibit_point_motion_hooks;
11131
5db8a01b22cb (Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents: 11116
diff changeset
73 Lisp_Object Vdefault_text_properties;
4242
49007dbbec4c (syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents: 4214
diff changeset
74
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
75 /* verify_interval_modification saves insertion hooks here
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
76 to be run later by report_interval_modification. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
77 Lisp_Object interval_insert_behind_hooks;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
78 Lisp_Object interval_insert_in_front_hooks;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
79
1055
7eb43ab890e0 entered into RCS
Joseph Arceneaux <jla@gnu.org>
parents: 1029
diff changeset
80 /* Extract the interval at the position pointed to by BEGIN from
7eb43ab890e0 entered into RCS
Joseph Arceneaux <jla@gnu.org>
parents: 1029
diff changeset
81 OBJECT, a string or buffer. Additionally, check that the positions
7eb43ab890e0 entered into RCS
Joseph Arceneaux <jla@gnu.org>
parents: 1029
diff changeset
82 pointed to by BEGIN and END are within the bounds of OBJECT, and
7eb43ab890e0 entered into RCS
Joseph Arceneaux <jla@gnu.org>
parents: 1029
diff changeset
83 reverse them if *BEGIN is greater than *END. The objects pointed
7eb43ab890e0 entered into RCS
Joseph Arceneaux <jla@gnu.org>
parents: 1029
diff changeset
84 to by BEGIN and END may be integers or markers; if the latter, they
7eb43ab890e0 entered into RCS
Joseph Arceneaux <jla@gnu.org>
parents: 1029
diff changeset
85 are coerced to integers.
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
86
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
87 When OBJECT is a string, we increment *BEGIN and *END
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
88 to make them origin-one.
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
89
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
90 Note that buffer points don't correspond to interval indices.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
91 For example, point-max is 1 greater than the index of the last
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
92 character. This difference is handled in the caller, which uses
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
93 the validated points to determine a length, and operates on that.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
94 Exceptions are Ftext_properties_at, Fnext_property_change, and
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
95 Fprevious_property_change which call this function with BEGIN == END.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
96 Handle this case specially.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
97
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
98 If FORCE is soft (0), it's OK to return NULL_INTERVAL. Otherwise,
1055
7eb43ab890e0 entered into RCS
Joseph Arceneaux <jla@gnu.org>
parents: 1029
diff changeset
99 create an interval tree for OBJECT if one doesn't exist, provided
7eb43ab890e0 entered into RCS
Joseph Arceneaux <jla@gnu.org>
parents: 1029
diff changeset
100 the object actually contains text. In the current design, if there
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
101 is no text, there can be no text properties. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
102
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
103 #define soft 0
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
104 #define hard 1
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
105
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
106 static INTERVAL
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
107 validate_interval_range (object, begin, end, force)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
108 Lisp_Object object, *begin, *end;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
109 int force;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
110 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
111 register INTERVAL i;
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
112 int searchpos;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
113
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
114 CHECK_STRING_OR_BUFFER (object, 0);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
115 CHECK_NUMBER_COERCE_MARKER (*begin, 0);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
116 CHECK_NUMBER_COERCE_MARKER (*end, 0);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
117
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
118 /* If we are asked for a point, but from a subr which operates
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
119 on a range, then return nothing. */
8907
f7de8b4cb1b8 (validate_interval_range, property_value, Fget_char_property,
Karl Heuer <kwzh@gnu.org>
parents: 8856
diff changeset
120 if (EQ (*begin, *end) && begin != end)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
121 return NULL_INTERVAL;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
122
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
123 if (XINT (*begin) > XINT (*end))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
124 {
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
125 Lisp_Object n;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
126 n = *begin;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
127 *begin = *end;
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
128 *end = n;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
129 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
130
9109
6e44ddc40153 (validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents: 9071
diff changeset
131 if (BUFFERP (object))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
132 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
133 register struct buffer *b = XBUFFER (object);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
134
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
135 if (!(BUF_BEGV (b) <= XINT (*begin) && XINT (*begin) <= XINT (*end)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
136 && XINT (*end) <= BUF_ZV (b)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
137 args_out_of_range (*begin, *end);
10312
4bf079c613c6 (validate_interval_range): Use BUF_INTERVALS.
Richard M. Stallman <rms@gnu.org>
parents: 10159
diff changeset
138 i = BUF_INTERVALS (b);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
139
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
140 /* If there's no text, there are no properties. */
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
141 if (BUF_BEGV (b) == BUF_ZV (b))
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
142 return NULL_INTERVAL;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
143
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
144 searchpos = XINT (*begin);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
145 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
146 else
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
147 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
148 register struct Lisp_String *s = XSTRING (object);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
149
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
150 if (! (0 <= XINT (*begin) && XINT (*begin) <= XINT (*end)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
151 && XINT (*end) <= s->size))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
152 args_out_of_range (*begin, *end);
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
153 XSETFASTINT (*begin, XFASTINT (*begin));
3996
b9bdcf862c67 * textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents: 3960
diff changeset
154 if (begin != end)
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
155 XSETFASTINT (*end, XFASTINT (*end));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
156 i = s->intervals;
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
157
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
158 if (s->size == 0)
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
159 return NULL_INTERVAL;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
160
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
161 searchpos = XINT (*begin);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
162 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
163
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
164 if (NULL_INTERVAL_P (i))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
165 return (force ? create_root_interval (object) : i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
166
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
167 return find_interval (i, searchpos);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
168 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
169
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
170 /* Validate LIST as a property list. If LIST is not a list, then
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
171 make one consisting of (LIST nil). Otherwise, verify that LIST
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
172 is even numbered and thus suitable as a plist. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
173
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
174 static Lisp_Object
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
175 validate_plist (list)
4797
4dd43e41207a (validate_plist): Add argument declaration for `list'.
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
176 Lisp_Object list;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
177 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
178 if (NILP (list))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
179 return Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
180
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
181 if (CONSP (list))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
182 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
183 register int i;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
184 register Lisp_Object tail;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
185 for (i = 0, tail = list; !NILP (tail); i++)
3996
b9bdcf862c67 * textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents: 3960
diff changeset
186 {
b9bdcf862c67 * textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents: 3960
diff changeset
187 tail = Fcdr (tail);
b9bdcf862c67 * textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents: 3960
diff changeset
188 QUIT;
b9bdcf862c67 * textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents: 3960
diff changeset
189 }
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
190 if (i & 1)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
191 error ("Odd length text property list");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
192 return list;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
193 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
194
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
195 return Fcons (list, Fcons (Qnil, Qnil));
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
196 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
197
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
198 /* Return nonzero if interval I has all the properties,
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
199 with the same values, of list PLIST. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
200
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
201 static int
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
202 interval_has_all_properties (plist, i)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
203 Lisp_Object plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
204 INTERVAL i;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
205 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
206 register Lisp_Object tail1, tail2, sym1, sym2;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
207 register int found;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
208
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
209 /* Go through each element of PLIST. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
210 for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
211 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
212 sym1 = Fcar (tail1);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
213 found = 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
214
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
215 /* Go through I's plist, looking for sym1 */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
216 for (tail2 = i->plist; ! NILP (tail2); tail2 = Fcdr (Fcdr (tail2)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
217 if (EQ (sym1, Fcar (tail2)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
218 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
219 /* Found the same property on both lists. If the
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
220 values are unequal, return zero. */
3998
c0560357c84e Compare the values of text properties using EQ, not Fequal.
Jim Blandy <jimb@redhat.com>
parents: 3996
diff changeset
221 if (! EQ (Fcar (Fcdr (tail1)), Fcar (Fcdr (tail2))))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
222 return 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
223
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
224 /* Property has same value on both lists; go to next one. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
225 found = 1;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
226 break;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
227 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
228
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
229 if (! found)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
230 return 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
231 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
232
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
233 return 1;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
234 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
235
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
236 /* Return nonzero if the plist of interval I has any of the
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
237 properties of PLIST, regardless of their values. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
238
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
239 static INLINE int
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
240 interval_has_some_properties (plist, i)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
241 Lisp_Object plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
242 INTERVAL i;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
243 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
244 register Lisp_Object tail1, tail2, sym;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
245
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
246 /* Go through each element of PLIST. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
247 for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
248 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
249 sym = Fcar (tail1);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
250
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
251 /* Go through i's plist, looking for tail1 */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
252 for (tail2 = i->plist; ! NILP (tail2); tail2 = Fcdr (Fcdr (tail2)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
253 if (EQ (sym, Fcar (tail2)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
254 return 1;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
255 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
256
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
257 return 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
258 }
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
259
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
260 /* Changing the plists of individual intervals. */
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
261
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
262 /* Return the value of PROP in property-list PLIST, or Qunbound if it
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
263 has none. */
8907
f7de8b4cb1b8 (validate_interval_range, property_value, Fget_char_property,
Karl Heuer <kwzh@gnu.org>
parents: 8856
diff changeset
264 static Lisp_Object
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
265 property_value (plist, prop)
8856
7e9547af43e8 (property_value): Declare args plist, prop.
Richard M. Stallman <rms@gnu.org>
parents: 8762
diff changeset
266 Lisp_Object plist, prop;
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
267 {
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
268 Lisp_Object value;
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
269
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
270 while (PLIST_ELT_P (plist, value))
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
271 if (EQ (XCONS (plist)->car, prop))
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
272 return XCONS (value)->car;
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
273 else
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
274 plist = XCONS (value)->cdr;
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
275
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
276 return Qunbound;
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
277 }
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
278
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
279 /* Set the properties of INTERVAL to PROPERTIES,
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
280 and record undo info for the previous values.
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
281 OBJECT is the string or buffer that INTERVAL belongs to. */
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
282
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
283 static void
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
284 set_properties (properties, interval, object)
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
285 Lisp_Object properties, object;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
286 INTERVAL interval;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
287 {
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
288 Lisp_Object sym, value;
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
289
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
290 if (BUFFERP (object))
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
291 {
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
292 /* For each property in the old plist which is missing from PROPERTIES,
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
293 or has a different value in PROPERTIES, make an undo record. */
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
294 for (sym = interval->plist;
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
295 PLIST_ELT_P (sym, value);
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
296 sym = XCONS (value)->cdr)
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
297 if (! EQ (property_value (properties, XCONS (sym)->car),
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
298 XCONS (value)->car))
4076
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
299 {
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
300 record_property_change (interval->position, LENGTH (interval),
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
301 XCONS (sym)->car, XCONS (value)->car,
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
302 object);
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
303 }
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
304
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
305 /* For each new property that has no value at all in the old plist,
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
306 make an undo record binding it to nil, so it will be removed. */
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
307 for (sym = properties;
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
308 PLIST_ELT_P (sym, value);
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
309 sym = XCONS (value)->cdr)
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
310 if (EQ (property_value (interval->plist, XCONS (sym)->car), Qunbound))
4076
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
311 {
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
312 record_property_change (interval->position, LENGTH (interval),
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
313 XCONS (sym)->car, Qnil,
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
314 object);
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
315 }
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
316 }
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
317
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
318 /* Store new properties. */
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
319 interval->plist = Fcopy_sequence (properties);
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
320 }
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
321
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
322 /* Add the properties of PLIST to the interval I, or set
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
323 the value of I's property to the value of the property on PLIST
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
324 if they are different.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
325
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
326 OBJECT should be the string or buffer the interval is in.
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
327
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
328 Return nonzero if this changes I (i.e., if any members of PLIST
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
329 are actually added to I's plist) */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
330
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
331 static int
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
332 add_properties (plist, i, object)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
333 Lisp_Object plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
334 INTERVAL i;
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
335 Lisp_Object object;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
336 {
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
337 Lisp_Object tail1, tail2, sym1, val1;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
338 register int changed = 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
339 register int found;
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
340 struct gcpro gcpro1, gcpro2, gcpro3;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
341
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
342 tail1 = plist;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
343 sym1 = Qnil;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
344 val1 = Qnil;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
345 /* No need to protect OBJECT, because we can GC only in the case
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
346 where it is a buffer, and live buffers are always protected.
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
347 I and its plist are also protected, via OBJECT. */
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
348 GCPRO3 (tail1, sym1, val1);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
349
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
350 /* Go through each element of PLIST. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
351 for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
352 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
353 sym1 = Fcar (tail1);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
354 val1 = Fcar (Fcdr (tail1));
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
355 found = 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
356
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
357 /* Go through I's plist, looking for sym1 */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
358 for (tail2 = i->plist; ! NILP (tail2); tail2 = Fcdr (Fcdr (tail2)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
359 if (EQ (sym1, Fcar (tail2)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
360 {
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
361 /* No need to gcpro, because tail2 protects this
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
362 and it must be a cons cell (we get an error otherwise). */
6516
8278049ee7a7 (add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6064
diff changeset
363 register Lisp_Object this_cdr;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
364
6516
8278049ee7a7 (add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6064
diff changeset
365 this_cdr = Fcdr (tail2);
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
366 /* Found the property. Now check its value. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
367 found = 1;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
368
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
369 /* The properties have the same value on both lists.
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
370 Continue to the next property. */
3998
c0560357c84e Compare the values of text properties using EQ, not Fequal.
Jim Blandy <jimb@redhat.com>
parents: 3996
diff changeset
371 if (EQ (val1, Fcar (this_cdr)))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
372 break;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
373
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
374 /* Record this change in the buffer, for undo purposes. */
9109
6e44ddc40153 (validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents: 9071
diff changeset
375 if (BUFFERP (object))
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
376 {
4076
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
377 record_property_change (i->position, LENGTH (i),
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
378 sym1, Fcar (this_cdr), object);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
379 }
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
380
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
381 /* I's property has a different value -- change it */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
382 Fsetcar (this_cdr, val1);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
383 changed++;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
384 break;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
385 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
386
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
387 if (! found)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
388 {
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
389 /* Record this change in the buffer, for undo purposes. */
9109
6e44ddc40153 (validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents: 9071
diff changeset
390 if (BUFFERP (object))
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
391 {
4076
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
392 record_property_change (i->position, LENGTH (i),
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
393 sym1, Qnil, object);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
394 }
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
395 i->plist = Fcons (sym1, Fcons (val1, i->plist));
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
396 changed++;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
397 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
398 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
399
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
400 UNGCPRO;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
401
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
402 return changed;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
403 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
404
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
405 /* For any members of PLIST which are properties of I, remove them
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
406 from I's plist.
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
407 OBJECT is the string or buffer containing I. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
408
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
409 static int
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
410 remove_properties (plist, i, object)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
411 Lisp_Object plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
412 INTERVAL i;
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
413 Lisp_Object object;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
414 {
6516
8278049ee7a7 (add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6064
diff changeset
415 register Lisp_Object tail1, tail2, sym, current_plist;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
416 register int changed = 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
417
6516
8278049ee7a7 (add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6064
diff changeset
418 current_plist = i->plist;
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
419 /* Go through each element of plist. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
420 for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
421 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
422 sym = Fcar (tail1);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
423
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
424 /* First, remove the symbol if its at the head of the list */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
425 while (! NILP (current_plist) && EQ (sym, Fcar (current_plist)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
426 {
9109
6e44ddc40153 (validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents: 9071
diff changeset
427 if (BUFFERP (object))
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
428 {
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
429 record_property_change (i->position, LENGTH (i),
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
430 sym, Fcar (Fcdr (current_plist)),
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
431 object);
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
432 }
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
433
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
434 current_plist = Fcdr (Fcdr (current_plist));
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
435 changed++;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
436 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
437
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
438 /* Go through i's plist, looking for sym */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
439 tail2 = current_plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
440 while (! NILP (tail2))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
441 {
6516
8278049ee7a7 (add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6064
diff changeset
442 register Lisp_Object this;
8278049ee7a7 (add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6064
diff changeset
443 this = Fcdr (Fcdr (tail2));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
444 if (EQ (sym, Fcar (this)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
445 {
9109
6e44ddc40153 (validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents: 9071
diff changeset
446 if (BUFFERP (object))
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
447 {
4076
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
448 record_property_change (i->position, LENGTH (i),
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
449 sym, Fcar (Fcdr (this)), object);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
450 }
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
451
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
452 Fsetcdr (Fcdr (tail2), Fcdr (Fcdr (this)));
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
453 changed++;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
454 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
455 tail2 = this;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
456 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
457 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
458
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
459 if (changed)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
460 i->plist = current_plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
461 return changed;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
462 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
463
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
464 #if 0
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
465 /* Remove all properties from interval I. Return non-zero
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
466 if this changes the interval. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
467
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
468 static INLINE int
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
469 erase_properties (i)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
470 INTERVAL i;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
471 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
472 if (NILP (i->plist))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
473 return 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
474
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
475 i->plist = Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
476 return 1;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
477 }
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
478 #endif
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
479
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
480 /* Returns the interval of POSITION in OBJECT.
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
481 POSITION is BEG-based. */
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
482
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
483 INTERVAL
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
484 interval_of (position, object)
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
485 int position;
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
486 Lisp_Object object;
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
487 {
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
488 register INTERVAL i;
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
489 int beg, end;
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
490
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
491 if (NILP (object))
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
492 XSETBUFFER (object, current_buffer);
20955
0e9aa345d2f9 (interval_of): Handle Qt.
Karl Heuer <kwzh@gnu.org>
parents: 20522
diff changeset
493 else if (EQ (object, Qt))
0e9aa345d2f9 (interval_of): Handle Qt.
Karl Heuer <kwzh@gnu.org>
parents: 20522
diff changeset
494 return NULL_INTERVAL;
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
495
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
496 CHECK_STRING_OR_BUFFER (object, 0);
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
497
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
498 if (BUFFERP (object))
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
499 {
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
500 register struct buffer *b = XBUFFER (object);
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
501
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
502 beg = BUF_BEGV (b);
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
503 end = BUF_ZV (b);
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
504 i = BUF_INTERVALS (b);
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
505 }
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
506 else
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
507 {
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
508 register struct Lisp_String *s = XSTRING (object);
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
509
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
510 beg = 0;
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
511 end = s->size;
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
512 i = s->intervals;
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
513 }
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
514
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
515 if (!(beg <= position && position <= end))
18736
e5e6647d4883 (interval_of): Convert args_out_of_range arguments to Lisp_Integer.
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
516 args_out_of_range (make_number (position), make_number (position));
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
517 if (beg == end || NULL_INTERVAL_P (i))
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
518 return NULL_INTERVAL;
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
519
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
520 return find_interval (i, position);
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
521 }
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
522
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
523 DEFUN ("text-properties-at", Ftext_properties_at,
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
524 Stext_properties_at, 1, 2, 0,
20522
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
525 "Return the list of properties of the character at POSITION in OBJECT.\n\
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
526 OBJECT is the string or buffer to look for the properties in;\n\
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
527 nil means the current buffer.\n\
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
528 If POSITION is at the end of OBJECT, the value is nil.")
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
529 (position, object)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
530 Lisp_Object position, object;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
531 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
532 register INTERVAL i;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
533
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
534 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
535 XSETBUFFER (object, current_buffer);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
536
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
537 i = validate_interval_range (object, &position, &position, soft);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
538 if (NULL_INTERVAL_P (i))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
539 return Qnil;
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
540 /* If POSITION is at the end of the interval,
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
541 it means it's the end of OBJECT.
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
542 There are no properties at the very end,
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
543 since no character follows. */
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
544 if (XINT (position) == LENGTH (i) + i->position)
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
545 return Qnil;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
546
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
547 return i->plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
548 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
549
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
550 DEFUN ("get-text-property", Fget_text_property, Sget_text_property, 2, 3, 0,
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
551 "Return the value of POSITION's property PROP, in OBJECT.\n\
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
552 OBJECT is optional and defaults to the current buffer.\n\
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
553 If POSITION is at the end of OBJECT, the value is nil.")
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
554 (position, prop, object)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
555 Lisp_Object position, object;
8271
e8556db1b7f3 (Fget_text_property): Simplify using Ftext_properties_at.
Richard M. Stallman <rms@gnu.org>
parents: 7773
diff changeset
556 Lisp_Object prop;
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
557 {
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
558 return textget (Ftext_properties_at (position, object), prop);
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
559 }
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
560
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
561 DEFUN ("get-char-property", Fget_char_property, Sget_char_property, 2, 3, 0,
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
562 "Return the value of POSITION's property PROP, in OBJECT.\n\
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
563 OBJECT is optional and defaults to the current buffer.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
564 If POSITION is at the end of OBJECT, the value is nil.\n\
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
565 If OBJECT is a buffer, then overlay properties are considered as well as\n\
6064
bdfff039f6e3 (Fget_char_property): Fix docstring.
Karl Heuer <kwzh@gnu.org>
parents: 6063
diff changeset
566 text properties.\n\
bdfff039f6e3 (Fget_char_property): Fix docstring.
Karl Heuer <kwzh@gnu.org>
parents: 6063
diff changeset
567 If OBJECT is a window, then that window's buffer is used, but window-specific\n\
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
568 overlays are considered only if they are associated with OBJECT.")
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
569 (position, prop, object)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
570 Lisp_Object position, object;
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
571 register Lisp_Object prop;
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
572 {
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
573 struct window *w = 0;
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
574
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
575 CHECK_NUMBER_COERCE_MARKER (position, 0);
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
576
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
577 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
578 XSETBUFFER (object, current_buffer);
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
579
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
580 if (WINDOWP (object))
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
581 {
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
582 w = XWINDOW (object);
8907
f7de8b4cb1b8 (validate_interval_range, property_value, Fget_char_property,
Karl Heuer <kwzh@gnu.org>
parents: 8856
diff changeset
583 object = w->buffer;
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
584 }
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
585 if (BUFFERP (object))
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
586 {
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
587 int posn = XINT (position);
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
588 int noverlays;
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
589 Lisp_Object *overlay_vec, tem;
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
590 int next_overlay;
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
591 int len;
12641
aadec66110fd (Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents: 11131
diff changeset
592 struct buffer *obuf = current_buffer;
aadec66110fd (Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents: 11131
diff changeset
593
aadec66110fd (Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents: 11131
diff changeset
594 set_buffer_temp (XBUFFER (object));
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
595
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
596 /* First try with room for 40 overlays. */
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
597 len = 40;
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
598 overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
599
8962
722763fed8ce (Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8907
diff changeset
600 noverlays = overlays_at (posn, 0, &overlay_vec, &len,
722763fed8ce (Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8907
diff changeset
601 &next_overlay, NULL);
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
602
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
603 /* If there are more than 40,
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
604 make enough space for all, and try again. */
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
605 if (noverlays > len)
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
606 {
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
607 len = noverlays;
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
608 overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
8962
722763fed8ce (Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8907
diff changeset
609 noverlays = overlays_at (posn, 0, &overlay_vec, &len,
722763fed8ce (Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8907
diff changeset
610 &next_overlay, NULL);
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
611 }
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
612 noverlays = sort_overlays (overlay_vec, noverlays, w);
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
613
12641
aadec66110fd (Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents: 11131
diff changeset
614 set_buffer_temp (obuf);
aadec66110fd (Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents: 11131
diff changeset
615
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
616 /* Now check the overlays in order of decreasing priority. */
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
617 while (--noverlays >= 0)
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
618 {
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
619 tem = Foverlay_get (overlay_vec[noverlays], prop);
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
620 if (!NILP (tem))
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
621 return (tem);
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
622 }
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
623 }
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
624 /* Not a buffer, or no appropriate overlay, so fall through to the
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
625 simpler case. */
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
626 return (Fget_text_property (position, prop, object));
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
627 }
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
628
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
629 DEFUN ("next-char-property-change", Fnext_char_property_change,
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
630 Snext_char_property_change, 1, 2, 0,
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
631 "Return the position of next text property or overlay change.\n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
632 This scans characters forward from POSITION in OBJECT till it finds\n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
633 a change in some text property, or the beginning or end of an overlay,\n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
634 and returns the position of that.\n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
635 If none is found, the function returns (point-max).\n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
636 \n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
637 If the optional third argument LIMIT is non-nil, don't search\n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
638 past position LIMIT; return LIMIT if nothing is found before LIMIT.")
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
639 (position, limit)
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
640 Lisp_Object position, limit;
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
641 {
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
642 Lisp_Object temp;
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
643
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
644 temp = Fnext_overlay_change (position);
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
645 if (! NILP (limit))
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
646 {
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
647 CHECK_NUMBER (limit, 2);
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
648 if (XINT (limit) < XINT (temp))
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
649 temp = limit;
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
650 }
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
651 return Fnext_property_change (position, Qnil, temp);
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
652 }
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
653
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
654 DEFUN ("previous-char-property-change", Fprevious_char_property_change,
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
655 Sprevious_char_property_change, 1, 2, 0,
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
656 "Return the position of previous text property or overlay change.\n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
657 Scans characters backward from POSITION in OBJECT till it finds\n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
658 a change in some text property, or the beginning or end of an overlay,\n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
659 and returns the position of that.\n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
660 If none is found, the function returns (point-max).\n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
661 \n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
662 If the optional third argument LIMIT is non-nil, don't search\n\
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
663 past position LIMIT; return LIMIT if nothing is found before LIMIT.")
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
664 (position, limit)
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
665 Lisp_Object position, limit;
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
666 {
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
667 Lisp_Object temp;
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
668
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
669 temp = Fprevious_overlay_change (position);
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
670 if (! NILP (limit))
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
671 {
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
672 CHECK_NUMBER (limit, 2);
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
673 if (XINT (limit) > XINT (temp))
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
674 temp = limit;
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
675 }
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
676 return Fprevious_property_change (position, Qnil, temp);
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
677 }
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
678
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
679 DEFUN ("next-property-change", Fnext_property_change,
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
680 Snext_property_change, 1, 3, 0,
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
681 "Return the position of next property change.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
682 Scans characters forward from POSITION in OBJECT till it finds\n\
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
683 a change in some text property, then returns the position of the change.\n\
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
684 The optional second argument OBJECT is the string or buffer to scan.\n\
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
685 Return nil if the property is constant all the way to the end of OBJECT.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
686 If the value is non-nil, it is a position greater than POSITION, never equal.\n\n\
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
687 If the optional third argument LIMIT is non-nil, don't search\n\
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
688 past position LIMIT; return LIMIT if nothing is found before LIMIT.")
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
689 (position, object, limit)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
690 Lisp_Object position, object, limit;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
691 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
692 register INTERVAL i, next;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
693
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
694 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
695 XSETBUFFER (object, current_buffer);
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
696
10962
7f0bc7bcf1f3 (Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents: 10925
diff changeset
697 if (! NILP (limit) && ! EQ (limit, Qt))
7092
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
698 CHECK_NUMBER_COERCE_MARKER (limit, 0);
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
699
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
700 i = validate_interval_range (object, &position, &position, soft);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
701
10962
7f0bc7bcf1f3 (Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents: 10925
diff changeset
702 /* If LIMIT is t, return start of next interval--don't
7f0bc7bcf1f3 (Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents: 10925
diff changeset
703 bother checking further intervals. */
7f0bc7bcf1f3 (Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents: 10925
diff changeset
704 if (EQ (limit, Qt))
7f0bc7bcf1f3 (Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents: 10925
diff changeset
705 {
13265
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
706 if (NULL_INTERVAL_P (i))
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
707 next = i;
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
708 else
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
709 next = next_interval (i);
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
710
11116
73b51ad289e3 (Fnext_property_change): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 10962
diff changeset
711 if (NULL_INTERVAL_P (next))
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
712 XSETFASTINT (position, (STRINGP (object)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
713 ? XSTRING (object)->size
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
714 : BUF_ZV (XBUFFER (object))));
11116
73b51ad289e3 (Fnext_property_change): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 10962
diff changeset
715 else
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
716 XSETFASTINT (position, next->position);
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
717 return position;
10962
7f0bc7bcf1f3 (Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents: 10925
diff changeset
718 }
7f0bc7bcf1f3 (Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents: 10925
diff changeset
719
13265
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
720 if (NULL_INTERVAL_P (i))
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
721 return limit;
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
722
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
723 next = next_interval (i);
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
724
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
725 while (! NULL_INTERVAL_P (next) && intervals_equal (i, next)
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
726 && (NILP (limit) || next->position < XFASTINT (limit)))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
727 next = next_interval (next);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
728
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
729 if (NULL_INTERVAL_P (next))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
730 return limit;
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
731 if (! NILP (limit) && !(next->position < XFASTINT (limit)))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
732 return limit;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
733
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
734 XSETFASTINT (position, next->position);
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
735 return position;
4381
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
736 }
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
737
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
738 /* Return 1 if there's a change in some property between BEG and END. */
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
739
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
740 int
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
741 property_change_between_p (beg, end)
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
742 int beg, end;
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
743 {
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
744 register INTERVAL i, next;
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
745 Lisp_Object object, pos;
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
746
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
747 XSETBUFFER (object, current_buffer);
9321
e6759002383c (Fnext_property_change, property_change_between_p,
Karl Heuer <kwzh@gnu.org>
parents: 9280
diff changeset
748 XSETFASTINT (pos, beg);
4381
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
749
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
750 i = validate_interval_range (object, &pos, &pos, soft);
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
751 if (NULL_INTERVAL_P (i))
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
752 return 0;
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
753
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
754 next = next_interval (i);
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
755 while (! NULL_INTERVAL_P (next) && intervals_equal (i, next))
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
756 {
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
757 next = next_interval (next);
4614
2c5557903994 (property_change_between_p): Test NULL_INTERVAL_P
Richard M. Stallman <rms@gnu.org>
parents: 4381
diff changeset
758 if (NULL_INTERVAL_P (next))
2c5557903994 (property_change_between_p): Test NULL_INTERVAL_P
Richard M. Stallman <rms@gnu.org>
parents: 4381
diff changeset
759 return 0;
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
760 if (next->position >= end)
4381
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
761 return 0;
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
762 }
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
763
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
764 if (NULL_INTERVAL_P (next))
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
765 return 0;
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
766
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
767 return 1;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
768 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
769
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
770 DEFUN ("next-single-property-change", Fnext_single_property_change,
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
771 Snext_single_property_change, 2, 4, 0,
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
772 "Return the position of next property change for a specific property.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
773 Scans characters forward from POSITION till it finds\n\
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
774 a change in the PROP property, then returns the position of the change.\n\
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
775 The optional third argument OBJECT is the string or buffer to scan.\n\
5020
94de08fd8a7c (Fnext_single_property_change): Fix missing \n\.
Richard M. Stallman <rms@gnu.org>
parents: 4986
diff changeset
776 The property values are compared with `eq'.\n\
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
777 Return nil if the property is constant all the way to the end of OBJECT.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
778 If the value is non-nil, it is a position greater than POSITION, never equal.\n\n\
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
779 If the optional fourth argument LIMIT is non-nil, don't search\n\
5645
214263de8277 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 5644
diff changeset
780 past position LIMIT; return LIMIT if nothing is found before LIMIT.")
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
781 (position, prop, object, limit)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
782 Lisp_Object position, prop, object, limit;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
783 {
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
784 register INTERVAL i, next;
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
785 register Lisp_Object here_val;
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
786
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
787 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
788 XSETBUFFER (object, current_buffer);
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
789
7092
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
790 if (!NILP (limit))
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
791 CHECK_NUMBER_COERCE_MARKER (limit, 0);
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
792
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
793 i = validate_interval_range (object, &position, &position, soft);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
794 if (NULL_INTERVAL_P (i))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
795 return limit;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
796
2762
dd28ed1e1928 * textprop.c (Fnext_single_property_change,
Jim Blandy <jimb@redhat.com>
parents: 2124
diff changeset
797 here_val = textget (i->plist, prop);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
798 next = next_interval (i);
2762
dd28ed1e1928 * textprop.c (Fnext_single_property_change,
Jim Blandy <jimb@redhat.com>
parents: 2124
diff changeset
799 while (! NULL_INTERVAL_P (next)
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
800 && EQ (here_val, textget (next->plist, prop))
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
801 && (NILP (limit) || next->position < XFASTINT (limit)))
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
802 next = next_interval (next);
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
803
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
804 if (NULL_INTERVAL_P (next))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
805 return limit;
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
806 if (! NILP (limit) && !(next->position < XFASTINT (limit)))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
807 return limit;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
808
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
809 return make_number (next->position);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
810 }
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
811
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
812 DEFUN ("previous-property-change", Fprevious_property_change,
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
813 Sprevious_property_change, 1, 3, 0,
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
814 "Return the position of previous property change.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
815 Scans characters backwards from POSITION in OBJECT till it finds\n\
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
816 a change in some text property, then returns the position of the change.\n\
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
817 The optional second argument OBJECT is the string or buffer to scan.\n\
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
818 Return nil if the property is constant all the way to the start of OBJECT.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
819 If the value is non-nil, it is a position less than POSITION, never equal.\n\n\
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
820 If the optional third argument LIMIT is non-nil, don't search\n\
5645
214263de8277 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 5644
diff changeset
821 back past position LIMIT; return LIMIT if nothing is found until LIMIT.")
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
822 (position, object, limit)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
823 Lisp_Object position, object, limit;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
824 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
825 register INTERVAL i, previous;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
826
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
827 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
828 XSETBUFFER (object, current_buffer);
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
829
7092
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
830 if (!NILP (limit))
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
831 CHECK_NUMBER_COERCE_MARKER (limit, 0);
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
832
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
833 i = validate_interval_range (object, &position, &position, soft);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
834 if (NULL_INTERVAL_P (i))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
835 return limit;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
836
5644
2abe67658895 (Fprevious_property_change): Move back at least 1 char.
Richard M. Stallman <rms@gnu.org>
parents: 5114
diff changeset
837 /* Start with the interval containing the char before point. */
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
838 if (i->position == XFASTINT (position))
5644
2abe67658895 (Fprevious_property_change): Move back at least 1 char.
Richard M. Stallman <rms@gnu.org>
parents: 5114
diff changeset
839 i = previous_interval (i);
2abe67658895 (Fprevious_property_change): Move back at least 1 char.
Richard M. Stallman <rms@gnu.org>
parents: 5114
diff changeset
840
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
841 previous = previous_interval (i);
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
842 while (! NULL_INTERVAL_P (previous) && intervals_equal (previous, i)
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
843 && (NILP (limit)
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
844 || (previous->position + LENGTH (previous) > XFASTINT (limit))))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
845 previous = previous_interval (previous);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
846 if (NULL_INTERVAL_P (previous))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
847 return limit;
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
848 if (!NILP (limit)
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
849 && !(previous->position + LENGTH (previous) > XFASTINT (limit)))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
850 return limit;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
851
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
852 return make_number (previous->position + LENGTH (previous));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
853 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
854
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
855 DEFUN ("previous-single-property-change", Fprevious_single_property_change,
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
856 Sprevious_single_property_change, 2, 4, 0,
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
857 "Return the position of previous property change for a specific property.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
858 Scans characters backward from POSITION till it finds\n\
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
859 a change in the PROP property, then returns the position of the change.\n\
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
860 The optional third argument OBJECT is the string or buffer to scan.\n\
4986
31b1545319dc (Fprevious_single_property_change): Fix missing \n\.
Richard M. Stallman <rms@gnu.org>
parents: 4797
diff changeset
861 The property values are compared with `eq'.\n\
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
862 Return nil if the property is constant all the way to the start of OBJECT.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
863 If the value is non-nil, it is a position less than POSITION, never equal.\n\n\
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
864 If the optional fourth argument LIMIT is non-nil, don't search\n\
5645
214263de8277 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 5644
diff changeset
865 back past position LIMIT; return LIMIT if nothing is found until LIMIT.")
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
866 (position, prop, object, limit)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
867 Lisp_Object position, prop, object, limit;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
868 {
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
869 register INTERVAL i, previous;
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
870 register Lisp_Object here_val;
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
871
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
872 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
873 XSETBUFFER (object, current_buffer);
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
874
7092
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
875 if (!NILP (limit))
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
876 CHECK_NUMBER_COERCE_MARKER (limit, 0);
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
877
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
878 i = validate_interval_range (object, &position, &position, soft);
7773
2226c7efb3da (Fprevious_single_property_change): Check for null interval after correcting
Karl Heuer <kwzh@gnu.org>
parents: 7582
diff changeset
879
2226c7efb3da (Fprevious_single_property_change): Check for null interval after correcting
Karl Heuer <kwzh@gnu.org>
parents: 7582
diff changeset
880 /* Start with the interval containing the char before point. */
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
881 if (! NULL_INTERVAL_P (i) && i->position == XFASTINT (position))
7773
2226c7efb3da (Fprevious_single_property_change): Check for null interval after correcting
Karl Heuer <kwzh@gnu.org>
parents: 7582
diff changeset
882 i = previous_interval (i);
2226c7efb3da (Fprevious_single_property_change): Check for null interval after correcting
Karl Heuer <kwzh@gnu.org>
parents: 7582
diff changeset
883
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
884 if (NULL_INTERVAL_P (i))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
885 return limit;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
886
2762
dd28ed1e1928 * textprop.c (Fnext_single_property_change,
Jim Blandy <jimb@redhat.com>
parents: 2124
diff changeset
887 here_val = textget (i->plist, prop);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
888 previous = previous_interval (i);
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
889 while (! NULL_INTERVAL_P (previous)
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
890 && EQ (here_val, textget (previous->plist, prop))
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
891 && (NILP (limit)
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
892 || (previous->position + LENGTH (previous) > XFASTINT (limit))))
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
893 previous = previous_interval (previous);
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
894 if (NULL_INTERVAL_P (previous))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
895 return limit;
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
896 if (!NILP (limit)
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
897 && !(previous->position + LENGTH (previous) > XFASTINT (limit)))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
898 return limit;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
899
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
900 return make_number (previous->position + LENGTH (previous));
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
901 }
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
902
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
903 /* Callers note, this can GC when OBJECT is a buffer (or nil). */
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
904
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
905 DEFUN ("add-text-properties", Fadd_text_properties,
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
906 Sadd_text_properties, 3, 4, 0,
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
907 "Add properties to the text from START to END.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
908 The third argument PROPERTIES is a property list\n\
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
909 specifying the property values to add.\n\
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
910 The optional fourth argument, OBJECT,\n\
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
911 is the string or buffer containing the text.\n\
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
912 Return t if any property value actually changed, nil otherwise.")
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
913 (start, end, properties, object)
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
914 Lisp_Object start, end, properties, object;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
915 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
916 register INTERVAL i, unchanged;
2124
54179ef9ce35 * textprop.c (Fadd_text_properties): Initialize the modified flag.
Jim Blandy <jimb@redhat.com>
parents: 2058
diff changeset
917 register int s, len, modified = 0;
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
918 struct gcpro gcpro1;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
919
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
920 properties = validate_plist (properties);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
921 if (NILP (properties))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
922 return Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
923
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
924 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
925 XSETBUFFER (object, current_buffer);
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
926
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
927 i = validate_interval_range (object, &start, &end, hard);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
928 if (NULL_INTERVAL_P (i))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
929 return Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
930
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
931 s = XINT (start);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
932 len = XINT (end) - s;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
933
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
934 /* No need to protect OBJECT, because we GC only if it's a buffer,
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
935 and live buffers are always protected. */
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
936 GCPRO1 (properties);
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
937
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
938 /* If we're not starting on an interval boundary, we have to
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
939 split this interval. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
940 if (i->position != s)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
941 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
942 /* If this interval already has the properties, we can
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
943 skip it. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
944 if (interval_has_all_properties (properties, i))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
945 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
946 int got = (LENGTH (i) - (s - i->position));
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
947 if (got >= len)
14538
a17752d2b0c0 (Fadd_text_properties): Don't return without ungcpro.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
948 RETURN_UNGCPRO (Qnil);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
949 len -= got;
3858
e07d474bdba9 (Fremove_text_properties, Fadd_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 3698
diff changeset
950 i = next_interval (i);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
951 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
952 else
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
953 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
954 unchanged = i;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
955 i = split_interval_right (unchanged, s - unchanged->position);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
956 copy_properties (unchanged, i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
957 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
958 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
959
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
960 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
961 modify_region (XBUFFER (object), XINT (start), XINT (end));
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
962
3553
5f9688c0b704 (Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents: 2783
diff changeset
963 /* We are at the beginning of interval I, with LEN chars to scan. */
2124
54179ef9ce35 * textprop.c (Fadd_text_properties): Initialize the modified flag.
Jim Blandy <jimb@redhat.com>
parents: 2058
diff changeset
964 for (;;)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
965 {
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
966 if (i == 0)
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
967 abort ();
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
968
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
969 if (LENGTH (i) >= len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
970 {
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
971 /* We can UNGCPRO safely here, because there will be just
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
972 one more chance to gc, in the next call to add_properties,
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
973 and after that we will not need PROPERTIES or OBJECT again. */
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
974 UNGCPRO;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
975
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
976 if (interval_has_all_properties (properties, i))
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
977 {
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
978 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
979 signal_after_change (XINT (start), XINT (end) - XINT (start),
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
980 XINT (end) - XINT (start));
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
981
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
982 return modified ? Qt : Qnil;
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
983 }
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
984
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
985 if (LENGTH (i) == len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
986 {
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
987 add_properties (properties, i, object);
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
988 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
989 signal_after_change (XINT (start), XINT (end) - XINT (start),
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
990 XINT (end) - XINT (start));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
991 return Qt;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
992 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
993
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
994 /* i doesn't have the properties, and goes past the change limit */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
995 unchanged = i;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
996 i = split_interval_left (unchanged, len);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
997 copy_properties (unchanged, i);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
998 add_properties (properties, i, object);
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
999 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1000 signal_after_change (XINT (start), XINT (end) - XINT (start),
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1001 XINT (end) - XINT (start));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1002 return Qt;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1003 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1004
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1005 len -= LENGTH (i);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1006 modified += add_properties (properties, i, object);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1007 i = next_interval (i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1008 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1009 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1010
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1011 /* Callers note, this can GC when OBJECT is a buffer (or nil). */
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1012
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1013 DEFUN ("put-text-property", Fput_text_property,
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1014 Sput_text_property, 4, 5, 0,
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1015 "Set one property of the text from START to END.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1016 The third and fourth arguments PROPERTY and VALUE\n\
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1017 specify the property to add.\n\
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1018 The optional fifth argument, OBJECT,\n\
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1019 is the string or buffer containing the text.")
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1020 (start, end, property, value, object)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1021 Lisp_Object start, end, property, value, object;
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1022 {
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1023 Fadd_text_properties (start, end,
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1024 Fcons (property, Fcons (value, Qnil)),
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1025 object);
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1026 return Qnil;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1027 }
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1028
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1029 DEFUN ("set-text-properties", Fset_text_properties,
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1030 Sset_text_properties, 3, 4, 0,
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1031 "Completely replace properties of text from START to END.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1032 The third argument PROPERTIES is the new property list.\n\
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1033 The optional fourth argument, OBJECT,\n\
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1034 is the string or buffer containing the text.")
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1035 (start, end, properties, object)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1036 Lisp_Object start, end, properties, object;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1037 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1038 register INTERVAL i, unchanged;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1039 register INTERVAL prev_changed = NULL_INTERVAL;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1040 register int s, len;
9071
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1041 Lisp_Object ostart, oend;
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1042 int have_modified = 0;
9071
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1043
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1044 ostart = start;
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1045 oend = end;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1046
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1047 properties = validate_plist (properties);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1048
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1049 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1050 XSETBUFFER (object, current_buffer);
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1051
9541
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1052 /* If we want no properties for a whole string,
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1053 get rid of its intervals. */
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1054 if (NILP (properties) && STRINGP (object)
9541
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1055 && XFASTINT (start) == 0
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1056 && XFASTINT (end) == XSTRING (object)->size)
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1057 {
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1058 if (! XSTRING (object)->intervals)
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1059 return Qt;
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1060
9541
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1061 XSTRING (object)->intervals = 0;
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1062 return Qt;
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1063 }
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1064
8686
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1065 i = validate_interval_range (object, &start, &end, soft);
9541
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1066
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1067 if (NULL_INTERVAL_P (i))
8686
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1068 {
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1069 /* If buffer has no properties, and we want none, return now. */
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1070 if (NILP (properties))
8686
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1071 return Qnil;
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1072
9071
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1073 /* Restore the original START and END values
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1074 because validate_interval_range increments them for strings. */
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1075 start = ostart;
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1076 end = oend;
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1077
8686
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1078 i = validate_interval_range (object, &start, &end, hard);
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1079 /* This can return if start == end. */
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1080 if (NULL_INTERVAL_P (i))
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1081 return Qnil;
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1082 }
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1083
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1084 s = XINT (start);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1085 len = XINT (end) - s;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1086
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1087 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1088 modify_region (XBUFFER (object), XINT (start), XINT (end));
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1089
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1090 if (i->position != s)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1091 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1092 unchanged = i;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1093 i = split_interval_right (unchanged, s - unchanged->position);
1272
bfd04f61eb16 Mods to Ferase_text_properties
Joseph Arceneaux <jla@gnu.org>
parents: 1211
diff changeset
1094
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1095 if (LENGTH (i) > len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1096 {
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1097 copy_properties (unchanged, i);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1098 i = split_interval_left (i, len);
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1099 set_properties (properties, i, object);
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1100 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1101 signal_after_change (XINT (start), XINT (end) - XINT (start),
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1102 XINT (end) - XINT (start));
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1103
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1104 return Qt;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1105 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1106
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1107 set_properties (properties, i, object);
3553
5f9688c0b704 (Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents: 2783
diff changeset
1108
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1109 if (LENGTH (i) == len)
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1110 {
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1111 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1112 signal_after_change (XINT (start), XINT (end) - XINT (start),
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1113 XINT (end) - XINT (start));
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1114
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1115 return Qt;
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1116 }
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1117
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1118 prev_changed = i;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1119 len -= LENGTH (i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1120 i = next_interval (i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1121 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1122
1283
6f4cbcc62eba Minor optimizations of Fset_text_properties and Ferase_text_properties.
Joseph Arceneaux <jla@gnu.org>
parents: 1272
diff changeset
1123 /* We are starting at the beginning of an interval, I */
1272
bfd04f61eb16 Mods to Ferase_text_properties
Joseph Arceneaux <jla@gnu.org>
parents: 1211
diff changeset
1124 while (len > 0)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1125 {
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1126 if (i == 0)
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1127 abort ();
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1128
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1129 if (LENGTH (i) >= len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1130 {
1283
6f4cbcc62eba Minor optimizations of Fset_text_properties and Ferase_text_properties.
Joseph Arceneaux <jla@gnu.org>
parents: 1272
diff changeset
1131 if (LENGTH (i) > len)
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1132 i = split_interval_left (i, len);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1133
13585
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1134 /* We have to call set_properties even if we are going to
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1135 merge the intervals, so as to make the undo records
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1136 and cause redisplay to happen. */
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1137 set_properties (properties, i, object);
13585
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1138 if (!NULL_INTERVAL_P (prev_changed))
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1139 merge_interval_left (i);
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1140 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1141 signal_after_change (XINT (start), XINT (end) - XINT (start),
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1142 XINT (end) - XINT (start));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1143 return Qt;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1144 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1145
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1146 len -= LENGTH (i);
13585
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1147
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1148 /* We have to call set_properties even if we are going to
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1149 merge the intervals, so as to make the undo records
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1150 and cause redisplay to happen. */
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1151 set_properties (properties, i, object);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1152 if (NULL_INTERVAL_P (prev_changed))
13585
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1153 prev_changed = i;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1154 else
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1155 prev_changed = i = merge_interval_left (i);
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1156
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1157 i = next_interval (i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1158 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1159
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1160 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1161 signal_after_change (XINT (start), XINT (end) - XINT (start),
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1162 XINT (end) - XINT (start));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1163 return Qt;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1164 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1165
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1166 DEFUN ("remove-text-properties", Fremove_text_properties,
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1167 Sremove_text_properties, 3, 4, 0,
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1168 "Remove some properties from text from START to END.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1169 The third argument PROPERTIES is a property list\n\
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1170 whose property names specify the properties to remove.\n\
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1171 \(The values stored in PROPERTIES are ignored.)\n\
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1172 The optional fourth argument, OBJECT,\n\
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1173 is the string or buffer containing the text.\n\
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1174 Return t if any property was actually removed, nil otherwise.")
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1175 (start, end, properties, object)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1176 Lisp_Object start, end, properties, object;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1177 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1178 register INTERVAL i, unchanged;
2124
54179ef9ce35 * textprop.c (Fadd_text_properties): Initialize the modified flag.
Jim Blandy <jimb@redhat.com>
parents: 2058
diff changeset
1179 register int s, len, modified = 0;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1180
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1181 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1182 XSETBUFFER (object, current_buffer);
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1183
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1184 i = validate_interval_range (object, &start, &end, soft);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1185 if (NULL_INTERVAL_P (i))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1186 return Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1187
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1188 s = XINT (start);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1189 len = XINT (end) - s;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1190
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1191 if (i->position != s)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1192 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1193 /* No properties on this first interval -- return if
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
1194 it covers the entire region. */
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1195 if (! interval_has_some_properties (properties, i))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1196 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1197 int got = (LENGTH (i) - (s - i->position));
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1198 if (got >= len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1199 return Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1200 len -= got;
3858
e07d474bdba9 (Fremove_text_properties, Fadd_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 3698
diff changeset
1201 i = next_interval (i);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1202 }
3553
5f9688c0b704 (Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents: 2783
diff changeset
1203 /* Split away the beginning of this interval; what we don't
5f9688c0b704 (Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents: 2783
diff changeset
1204 want to modify. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1205 else
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1206 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1207 unchanged = i;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1208 i = split_interval_right (unchanged, s - unchanged->position);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1209 copy_properties (unchanged, i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1210 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1211 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1212
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1213 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1214 modify_region (XBUFFER (object), XINT (start), XINT (end));
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1215
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1216 /* We are at the beginning of an interval, with len to scan */
2124
54179ef9ce35 * textprop.c (Fadd_text_properties): Initialize the modified flag.
Jim Blandy <jimb@redhat.com>
parents: 2058
diff changeset
1217 for (;;)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1218 {
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1219 if (i == 0)
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1220 abort ();
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1221
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1222 if (LENGTH (i) >= len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1223 {
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1224 if (! interval_has_some_properties (properties, i))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1225 return modified ? Qt : Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1226
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1227 if (LENGTH (i) == len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1228 {
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1229 remove_properties (properties, i, object);
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1230 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1231 signal_after_change (XINT (start), XINT (end) - XINT (start),
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1232 XINT (end) - XINT (start));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1233 return Qt;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1234 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1235
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1236 /* i has the properties, and goes past the change limit */
3553
5f9688c0b704 (Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents: 2783
diff changeset
1237 unchanged = i;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1238 i = split_interval_left (i, len);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1239 copy_properties (unchanged, i);
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1240 remove_properties (properties, i, object);
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1241 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1242 signal_after_change (XINT (start), XINT (end) - XINT (start),
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1243 XINT (end) - XINT (start));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1244 return Qt;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1245 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1246
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1247 len -= LENGTH (i);
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1248 modified += remove_properties (properties, i, object);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1249 i = next_interval (i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1250 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1251 }
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
1252
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1253 DEFUN ("text-property-any", Ftext_property_any,
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1254 Stext_property_any, 4, 5, 0,
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1255 "Check text from START to END for property PROPERTY equalling VALUE.\n\
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1256 If so, return the position of the first character whose property PROPERTY\n\
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1257 is `eq' to VALUE. Otherwise return nil.\n\
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1258 The optional fifth argument, OBJECT, is the string or buffer\n\
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1259 containing the text.")
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1260 (start, end, property, value, object)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1261 Lisp_Object start, end, property, value, object;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1262 {
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1263 register INTERVAL i;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1264 register int e, pos;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1265
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1266 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1267 XSETBUFFER (object, current_buffer);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1268 i = validate_interval_range (object, &start, &end, soft);
10488
701e7acfe885 (Ftext_property_any): Handle the trivial case specially.
Karl Heuer <kwzh@gnu.org>
parents: 10312
diff changeset
1269 if (NULL_INTERVAL_P (i))
701e7acfe885 (Ftext_property_any): Handle the trivial case specially.
Karl Heuer <kwzh@gnu.org>
parents: 10312
diff changeset
1270 return (!NILP (value) || EQ (start, end) ? Qnil : start);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1271 e = XINT (end);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1272
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1273 while (! NULL_INTERVAL_P (i))
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1274 {
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1275 if (i->position >= e)
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1276 break;
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1277 if (EQ (textget (i->plist, property), value))
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1278 {
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1279 pos = i->position;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1280 if (pos < XINT (start))
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1281 pos = XINT (start);
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
1282 return make_number (pos);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1283 }
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1284 i = next_interval (i);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1285 }
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1286 return Qnil;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1287 }
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1288
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1289 DEFUN ("text-property-not-all", Ftext_property_not_all,
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1290 Stext_property_not_all, 4, 5, 0,
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1291 "Check text from START to END for property PROPERTY not equalling VALUE.\n\
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1292 If so, return the position of the first character whose property PROPERTY\n\
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1293 is not `eq' to VALUE. Otherwise, return nil.\n\
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1294 The optional fifth argument, OBJECT, is the string or buffer\n\
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1295 containing the text.")
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1296 (start, end, property, value, object)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1297 Lisp_Object start, end, property, value, object;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1298 {
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1299 register INTERVAL i;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1300 register int s, e;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1301
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1302 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1303 XSETBUFFER (object, current_buffer);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1304 i = validate_interval_range (object, &start, &end, soft);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1305 if (NULL_INTERVAL_P (i))
5114
b37f62d72049 (Ftext_property_not_all): For trivial yes, return start, not Qt.
Richard M. Stallman <rms@gnu.org>
parents: 5086
diff changeset
1306 return (NILP (value) || EQ (start, end)) ? Qnil : start;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1307 s = XINT (start);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1308 e = XINT (end);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1309
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1310 while (! NULL_INTERVAL_P (i))
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1311 {
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1312 if (i->position >= e)
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1313 break;
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1314 if (! EQ (textget (i->plist, property), value))
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1315 {
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1316 if (i->position > s)
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1317 s = i->position;
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
1318 return make_number (s);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1319 }
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1320 i = next_interval (i);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1321 }
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1322 return Qnil;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1323 }
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
1324
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1325 /* I don't think this is the right interface to export; how often do you
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1326 want to do something like this, other than when you're copying objects
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1327 around?
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1328
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1329 I think it would be better to have a pair of functions, one which
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1330 returns the text properties of a region as a list of ranges and
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1331 plists, and another which applies such a list to another object. */
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1332
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1333 /* Add properties from SRC to SRC of SRC, starting at POS in DEST.
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1334 SRC and DEST may each refer to strings or buffers.
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1335 Optional sixth argument PROP causes only that property to be copied.
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1336 Properties are copied to DEST as if by `add-text-properties'.
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1337 Return t if any property value actually changed, nil otherwise. */
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1338
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1339 /* Note this can GC when DEST is a buffer. */
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
1340
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1341 Lisp_Object
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1342 copy_text_properties (start, end, src, pos, dest, prop)
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1343 Lisp_Object start, end, src, pos, dest, prop;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1344 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1345 INTERVAL i;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1346 Lisp_Object res;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1347 Lisp_Object stuff;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1348 Lisp_Object plist;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1349 int s, e, e2, p, len, modified = 0;
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1350 struct gcpro gcpro1, gcpro2;
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1351
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1352 i = validate_interval_range (src, &start, &end, soft);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1353 if (NULL_INTERVAL_P (i))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1354 return Qnil;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1355
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1356 CHECK_NUMBER_COERCE_MARKER (pos, 0);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1357 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1358 Lisp_Object dest_start, dest_end;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1359
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1360 dest_start = pos;
9321
e6759002383c (Fnext_property_change, property_change_between_p,
Karl Heuer <kwzh@gnu.org>
parents: 9280
diff changeset
1361 XSETFASTINT (dest_end, XINT (dest_start) + (XINT (end) - XINT (start)));
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1362 /* Apply this to a copy of pos; it will try to increment its arguments,
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1363 which we don't want. */
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1364 validate_interval_range (dest, &dest_start, &dest_end, soft);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1365 }
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1366
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1367 s = XINT (start);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1368 e = XINT (end);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1369 p = XINT (pos);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1370
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1371 stuff = Qnil;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1372
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1373 while (s < e)
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1374 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1375 e2 = i->position + LENGTH (i);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1376 if (e2 > e)
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1377 e2 = e;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1378 len = e2 - s;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1379
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1380 plist = i->plist;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1381 if (! NILP (prop))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1382 while (! NILP (plist))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1383 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1384 if (EQ (Fcar (plist), prop))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1385 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1386 plist = Fcons (prop, Fcons (Fcar (Fcdr (plist)), Qnil));
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1387 break;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1388 }
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1389 plist = Fcdr (Fcdr (plist));
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1390 }
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1391 if (! NILP (plist))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1392 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1393 /* Must defer modifications to the interval tree in case src
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
1394 and dest refer to the same string or buffer. */
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1395 stuff = Fcons (Fcons (make_number (p),
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1396 Fcons (make_number (p + len),
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1397 Fcons (plist, Qnil))),
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1398 stuff);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1399 }
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1400
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1401 i = next_interval (i);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1402 if (NULL_INTERVAL_P (i))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1403 break;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1404
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1405 p += len;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1406 s = i->position;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1407 }
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1408
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1409 GCPRO2 (stuff, dest);
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1410
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1411 while (! NILP (stuff))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1412 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1413 res = Fcar (stuff);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1414 res = Fadd_text_properties (Fcar (res), Fcar (Fcdr (res)),
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1415 Fcar (Fcdr (Fcdr (res))), dest);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1416 if (! NILP (res))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1417 modified++;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1418 stuff = Fcdr (stuff);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1419 }
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1420
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1421 UNGCPRO;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1422
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1423 return modified ? Qt : Qnil;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1424 }
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1425
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1426 /* Call the modification hook functions in LIST, each with START and END. */
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1427
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1428 static void
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1429 call_mod_hooks (list, start, end)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1430 Lisp_Object list, start, end;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1431 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1432 struct gcpro gcpro1;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1433 GCPRO1 (list);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1434 while (!NILP (list))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1435 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1436 call2 (Fcar (list), start, end);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1437 list = Fcdr (list);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1438 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1439 UNGCPRO;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1440 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1441
20522
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
1442 /* Check for read-only intervals between character positions START ... END,
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
1443 in BUF, and signal an error if we find one.
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
1444
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
1445 Then check for any modification hooks in the range.
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
1446 Create a list of all these hooks in lexicographic order,
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
1447 eliminating consecutive extra copies of the same hook. Then call
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
1448 those hooks in order, with START and END - 1 as arguments. */
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1449
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1450 void
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1451 verify_interval_modification (buf, start, end)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1452 struct buffer *buf;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1453 int start, end;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1454 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1455 register INTERVAL intervals = BUF_INTERVALS (buf);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1456 register INTERVAL i, prev;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1457 Lisp_Object hooks;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1458 register Lisp_Object prev_mod_hooks;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1459 Lisp_Object mod_hooks;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1460 struct gcpro gcpro1;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1461
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1462 hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1463 prev_mod_hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1464 mod_hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1465
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1466 interval_insert_behind_hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1467 interval_insert_in_front_hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1468
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1469 if (NULL_INTERVAL_P (intervals))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1470 return;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1471
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1472 if (start > end)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1473 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1474 int temp = start;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1475 start = end;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1476 end = temp;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1477 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1478
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1479 /* For an insert operation, check the two chars around the position. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1480 if (start == end)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1481 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1482 INTERVAL prev;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1483 Lisp_Object before, after;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1484
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1485 /* Set I to the interval containing the char after START,
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1486 and PREV to the interval containing the char before START.
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1487 Either one may be null. They may be equal. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1488 i = find_interval (intervals, start);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1489
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1490 if (start == BUF_BEGV (buf))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1491 prev = 0;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1492 else if (i->position == start)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1493 prev = previous_interval (i);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1494 else if (i->position < start)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1495 prev = i;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1496 if (start == BUF_ZV (buf))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1497 i = 0;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1498
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1499 /* If Vinhibit_read_only is set and is not a list, we can
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1500 skip the read_only checks. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1501 if (NILP (Vinhibit_read_only) || CONSP (Vinhibit_read_only))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1502 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1503 /* If I and PREV differ we need to check for the read-only
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
1504 property together with its stickiness. If either I or
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1505 PREV are 0, this check is all we need.
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1506 We have to take special care, since read-only may be
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1507 indirectly defined via the category property. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1508 if (i != prev)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1509 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1510 if (! NULL_INTERVAL_P (i))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1511 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1512 after = textget (i->plist, Qread_only);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1513
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1514 /* If interval I is read-only and read-only is
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1515 front-sticky, inhibit insertion.
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1516 Check for read-only as well as category. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1517 if (! NILP (after)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1518 && NILP (Fmemq (after, Vinhibit_read_only)))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1519 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1520 Lisp_Object tem;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1521
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1522 tem = textget (i->plist, Qfront_sticky);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1523 if (TMEM (Qread_only, tem)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1524 || (NILP (Fplist_get (i->plist, Qread_only))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1525 && TMEM (Qcategory, tem)))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1526 error ("Attempt to insert within read-only text");
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1527 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1528 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1529
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1530 if (! NULL_INTERVAL_P (prev))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1531 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1532 before = textget (prev->plist, Qread_only);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1533
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1534 /* If interval PREV is read-only and read-only isn't
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1535 rear-nonsticky, inhibit insertion.
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1536 Check for read-only as well as category. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1537 if (! NILP (before)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1538 && NILP (Fmemq (before, Vinhibit_read_only)))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1539 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1540 Lisp_Object tem;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1541
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1542 tem = textget (prev->plist, Qrear_nonsticky);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1543 if (! TMEM (Qread_only, tem)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1544 && (! NILP (Fplist_get (prev->plist,Qread_only))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1545 || ! TMEM (Qcategory, tem)))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1546 error ("Attempt to insert within read-only text");
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1547 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1548 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1549 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1550 else if (! NULL_INTERVAL_P (i))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1551 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1552 after = textget (i->plist, Qread_only);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1553
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1554 /* If interval I is read-only and read-only is
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1555 front-sticky, inhibit insertion.
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1556 Check for read-only as well as category. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1557 if (! NILP (after) && NILP (Fmemq (after, Vinhibit_read_only)))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1558 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1559 Lisp_Object tem;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1560
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1561 tem = textget (i->plist, Qfront_sticky);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1562 if (TMEM (Qread_only, tem)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1563 || (NILP (Fplist_get (i->plist, Qread_only))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1564 && TMEM (Qcategory, tem)))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1565 error ("Attempt to insert within read-only text");
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1566
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1567 tem = textget (prev->plist, Qrear_nonsticky);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1568 if (! TMEM (Qread_only, tem)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1569 && (! NILP (Fplist_get (prev->plist, Qread_only))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1570 || ! TMEM (Qcategory, tem)))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1571 error ("Attempt to insert within read-only text");
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1572 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1573 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1574 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1575
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1576 /* Run both insert hooks (just once if they're the same). */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1577 if (!NULL_INTERVAL_P (prev))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1578 interval_insert_behind_hooks
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1579 = textget (prev->plist, Qinsert_behind_hooks);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1580 if (!NULL_INTERVAL_P (i))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1581 interval_insert_in_front_hooks
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1582 = textget (i->plist, Qinsert_in_front_hooks);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1583 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1584 else
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1585 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1586 /* Loop over intervals on or next to START...END,
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1587 collecting their hooks. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1588
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1589 i = find_interval (intervals, start);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1590 do
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1591 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1592 if (! INTERVAL_WRITABLE_P (i))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1593 error ("Attempt to modify read-only text");
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1594
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1595 mod_hooks = textget (i->plist, Qmodification_hooks);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1596 if (! NILP (mod_hooks) && ! EQ (mod_hooks, prev_mod_hooks))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1597 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1598 hooks = Fcons (mod_hooks, hooks);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1599 prev_mod_hooks = mod_hooks;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1600 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1601
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1602 i = next_interval (i);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1603 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1604 /* Keep going thru the interval containing the char before END. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1605 while (! NULL_INTERVAL_P (i) && i->position < end);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1606
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1607 GCPRO1 (hooks);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1608 hooks = Fnreverse (hooks);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1609 while (! EQ (hooks, Qnil))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1610 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1611 call_mod_hooks (Fcar (hooks), make_number (start),
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1612 make_number (end));
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1613 hooks = Fcdr (hooks);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1614 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1615 UNGCPRO;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1616 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1617 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1618
20522
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
1619 /* Run the interval hooks for an insertion on character range START ... END.
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1620 verify_interval_modification chose which hooks to run;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1621 this function is called after the insertion happens
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1622 so it can indicate the range of inserted text. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1623
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1624 void
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1625 report_interval_modification (start, end)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1626 Lisp_Object start, end;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1627 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1628 if (! NILP (interval_insert_behind_hooks))
18613
614b916ff5bf Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents: 17467
diff changeset
1629 call_mod_hooks (interval_insert_behind_hooks, start, end);
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1630 if (! NILP (interval_insert_in_front_hooks)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1631 && ! EQ (interval_insert_in_front_hooks,
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1632 interval_insert_behind_hooks))
18613
614b916ff5bf Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents: 17467
diff changeset
1633 call_mod_hooks (interval_insert_in_front_hooks, start, end);
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1634 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1635
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1636 void
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1637 syms_of_textprop ()
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1638 {
11131
5db8a01b22cb (Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents: 11116
diff changeset
1639 DEFVAR_LISP ("default-text-properties", &Vdefault_text_properties,
10925
0480d65be55d (Vdefault_properties): New vbl.
Boris Goldowsky <boris@gnu.org>
parents: 10488
diff changeset
1640 "Property-list used as default values.\n\
11131
5db8a01b22cb (Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents: 11116
diff changeset
1641 The value of a property in this list is seen as the value for every\n\
5db8a01b22cb (Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents: 11116
diff changeset
1642 character that does not have its own value for that property.");
5db8a01b22cb (Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents: 11116
diff changeset
1643 Vdefault_text_properties = Qnil;
10925
0480d65be55d (Vdefault_properties): New vbl.
Boris Goldowsky <boris@gnu.org>
parents: 10488
diff changeset
1644
4242
49007dbbec4c (syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents: 4214
diff changeset
1645 DEFVAR_LISP ("inhibit-point-motion-hooks", &Vinhibit_point_motion_hooks,
9071
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1646 "If non-nil, don't run `point-left' and `point-entered' text properties.\n\
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1647 This also inhibits the use of the `intangible' text property.");
4242
49007dbbec4c (syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents: 4214
diff changeset
1648 Vinhibit_point_motion_hooks = Qnil;
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1649
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1650 staticpro (&interval_insert_behind_hooks);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1651 staticpro (&interval_insert_in_front_hooks);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1652 interval_insert_behind_hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1653 interval_insert_in_front_hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
1654
4242
49007dbbec4c (syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents: 4214
diff changeset
1655
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1656 /* Common attributes one might give text */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1657
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1658 staticpro (&Qforeground);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1659 Qforeground = intern ("foreground");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1660 staticpro (&Qbackground);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1661 Qbackground = intern ("background");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1662 staticpro (&Qfont);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1663 Qfont = intern ("font");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1664 staticpro (&Qstipple);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1665 Qstipple = intern ("stipple");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1666 staticpro (&Qunderline);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1667 Qunderline = intern ("underline");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1668 staticpro (&Qread_only);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1669 Qread_only = intern ("read-only");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1670 staticpro (&Qinvisible);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1671 Qinvisible = intern ("invisible");
6755
a2bccbc870e6 (syms_of_textprop): Initialize Qintangible.
Karl Heuer <kwzh@gnu.org>
parents: 6681
diff changeset
1672 staticpro (&Qintangible);
a2bccbc870e6 (syms_of_textprop): Initialize Qintangible.
Karl Heuer <kwzh@gnu.org>
parents: 6681
diff changeset
1673 Qintangible = intern ("intangible");
2058
a43d0bb1b7d8 (Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents: 2053
diff changeset
1674 staticpro (&Qcategory);
a43d0bb1b7d8 (Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents: 2053
diff changeset
1675 Qcategory = intern ("category");
a43d0bb1b7d8 (Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents: 2053
diff changeset
1676 staticpro (&Qlocal_map);
a43d0bb1b7d8 (Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents: 2053
diff changeset
1677 Qlocal_map = intern ("local-map");
4381
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1678 staticpro (&Qfront_sticky);
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1679 Qfront_sticky = intern ("front-sticky");
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1680 staticpro (&Qrear_nonsticky);
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1681 Qrear_nonsticky = intern ("rear-nonsticky");
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1682
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1683 /* Properties that text might use to specify certain actions */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1684
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1685 staticpro (&Qmouse_left);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1686 Qmouse_left = intern ("mouse-left");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1687 staticpro (&Qmouse_entered);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1688 Qmouse_entered = intern ("mouse-entered");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1689 staticpro (&Qpoint_left);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1690 Qpoint_left = intern ("point-left");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1691 staticpro (&Qpoint_entered);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1692 Qpoint_entered = intern ("point-entered");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1693
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1694 defsubr (&Stext_properties_at);
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1695 defsubr (&Sget_text_property);
7582
454c279b6d18 (syms_of_textprop): Set up Lisp fn get-char-property.
Richard M. Stallman <rms@gnu.org>
parents: 7307
diff changeset
1696 defsubr (&Sget_char_property);
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
1697 defsubr (&Snext_char_property_change);
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
1698 defsubr (&Sprevious_char_property_change);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1699 defsubr (&Snext_property_change);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1700 defsubr (&Snext_single_property_change);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1701 defsubr (&Sprevious_property_change);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1702 defsubr (&Sprevious_single_property_change);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1703 defsubr (&Sadd_text_properties);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1704 defsubr (&Sput_text_property);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1705 defsubr (&Sset_text_properties);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1706 defsubr (&Sremove_text_properties);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1707 defsubr (&Stext_property_any);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1708 defsubr (&Stext_property_not_all);
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1709 /* defsubr (&Serase_text_properties); */
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1710 /* defsubr (&Scopy_text_properties); */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1711 }
1302
538cc0cd6d83 * textprop.c: Conditionalize all functions on
Joseph Arceneaux <jla@gnu.org>
parents: 1283
diff changeset
1712
538cc0cd6d83 * textprop.c: Conditionalize all functions on
Joseph Arceneaux <jla@gnu.org>
parents: 1283
diff changeset
1713 #else
538cc0cd6d83 * textprop.c: Conditionalize all functions on
Joseph Arceneaux <jla@gnu.org>
parents: 1283
diff changeset
1714
538cc0cd6d83 * textprop.c: Conditionalize all functions on
Joseph Arceneaux <jla@gnu.org>
parents: 1283
diff changeset
1715 lose -- this shouldn't be compiled if USE_TEXT_PROPERTIES isn't defined
538cc0cd6d83 * textprop.c: Conditionalize all functions on
Joseph Arceneaux <jla@gnu.org>
parents: 1283
diff changeset
1716
538cc0cd6d83 * textprop.c: Conditionalize all functions on
Joseph Arceneaux <jla@gnu.org>
parents: 1283
diff changeset
1717 #endif /* USE_TEXT_PROPERTIES */