annotate src/textprop.c @ 100688:8233f3e2beb4

* textprop.c (Qminibuffer_prompt): New variable. (syms_of_textprop): Initialize it. * callint.c (Fcall_interactively): For `c', `k', and `K' prompt in minibuffer-prompt face. (Bug#1662)
author Martin Rudalics <rudalics@gmx.at>
date Fri, 26 Dec 2008 09:39:49 +0000
parents 00ce595f8afc
children e038c1a8307c
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.
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64576
diff changeset
2 Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2001, 2002, 2003,
79759
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 79334
diff changeset
3 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
4
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
5 This file is part of GNU Emacs.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
6
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
7 GNU Emacs is free software: you can redistribute it and/or modify
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
10 (at your option) any later version.
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
11
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
15 GNU General Public License for more details.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
16
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
19
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 4649
diff changeset
20 #include <config.h>
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
21 #include "lisp.h"
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
22 #include "intervals.h"
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
23 #include "buffer.h"
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
24 #include "window.h"
8962
722763fed8ce (Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8907
diff changeset
25
722763fed8ce (Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8907
diff changeset
26 #ifndef NULL
722763fed8ce (Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8907
diff changeset
27 #define NULL (void *)0
722763fed8ce (Fget_char_property): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8907
diff changeset
28 #endif
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
29
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
30 /* 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
31 universal set. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
32
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
33 #define TMEM(sym, set) (CONSP (set) ? ! NILP (Fmemq (sym, set)) : ! NILP (set))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
34
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
35
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
36 /* NOTES: previous- and next- property change will have to skip
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
37 zero-length intervals if they are implemented. This could be done
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
38 inside next_interval and previous_interval.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
39
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
40 set_properties needs to deal with the interval property cache.
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
41
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
42 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
43 only once on the list. Although some code i.e., remove_properties,
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
44 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
45 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
46 is enforced by the subrs installing properties onto the intervals. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
47
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
48
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
49 /* Types of hooks. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
50 Lisp_Object Qmouse_left;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
51 Lisp_Object Qmouse_entered;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
52 Lisp_Object Qpoint_left;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
53 Lisp_Object Qpoint_entered;
2058
a43d0bb1b7d8 (Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents: 2053
diff changeset
54 Lisp_Object Qcategory;
a43d0bb1b7d8 (Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents: 2053
diff changeset
55 Lisp_Object Qlocal_map;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
56
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
57 /* Visual properties text (including strings) may have. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
58 Lisp_Object Qforeground, Qbackground, Qfont, Qunderline, Qstipple;
23729
cf1cbb0e5d5b (Qmouse_face): Variable definition moved here.
Richard M. Stallman <rms@gnu.org>
parents: 22344
diff changeset
59 Lisp_Object Qinvisible, Qread_only, Qintangible, Qmouse_face;
100688
8233f3e2beb4 * textprop.c (Qminibuffer_prompt): New variable.
Martin Rudalics <rudalics@gmx.at>
parents: 99343
diff changeset
60 Lisp_Object Qminibuffer_prompt;
4381
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
61
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
62 /* Sticky properties */
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
63 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
64
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
65 /* 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
66 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
67 traversing plists. */
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25000
diff changeset
68 #define PLIST_ELT_P(o1, o2) (CONSP (o1) && ((o2)=XCDR (o1), CONSP (o2)))
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
69
4242
49007dbbec4c (syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents: 4214
diff changeset
70 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
71 Lisp_Object Vdefault_text_properties;
45680
c9e70e34b426 (Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents: 44976
diff changeset
72 Lisp_Object Vchar_property_alias_alist;
26872
ea588757e607 (Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents: 26605
diff changeset
73 Lisp_Object Vtext_property_default_nonsticky;
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;
33952
ca22422634ac (text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32849
diff changeset
79
72005
da0099bc0ba4 * ebrowse.c (usage, version): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 71989
diff changeset
80 static void text_read_only P_ ((Lisp_Object)) NO_RETURN;
da0099bc0ba4 * ebrowse.c (usage, version): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 71989
diff changeset
81
33952
ca22422634ac (text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32849
diff changeset
82
ca22422634ac (text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32849
diff changeset
83 /* Signal a `text-read-only' error. This function makes it easier
ca22422634ac (text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32849
diff changeset
84 to capture that error in GDB by putting a breakpoint on it. */
ca22422634ac (text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32849
diff changeset
85
ca22422634ac (text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32849
diff changeset
86 static void
48840
b6981c46191d (text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46448
diff changeset
87 text_read_only (propval)
b6981c46191d (text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46448
diff changeset
88 Lisp_Object propval;
33952
ca22422634ac (text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32849
diff changeset
89 {
71989
3a19c23d7c59 (text_read_only): Use xsignal0, xsignal1.
Kim F. Storm <storm@cua.dk>
parents: 71575
diff changeset
90 if (STRINGP (propval))
3a19c23d7c59 (text_read_only): Use xsignal0, xsignal1.
Kim F. Storm <storm@cua.dk>
parents: 71575
diff changeset
91 xsignal1 (Qtext_read_only, propval);
3a19c23d7c59 (text_read_only): Use xsignal0, xsignal1.
Kim F. Storm <storm@cua.dk>
parents: 71575
diff changeset
92
3a19c23d7c59 (text_read_only): Use xsignal0, xsignal1.
Kim F. Storm <storm@cua.dk>
parents: 71575
diff changeset
93 xsignal0 (Qtext_read_only);
33952
ca22422634ac (text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32849
diff changeset
94 }
ca22422634ac (text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32849
diff changeset
95
ca22422634ac (text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32849
diff changeset
96
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
97
1055
7eb43ab890e0 entered into RCS
Joseph Arceneaux <jla@gnu.org>
parents: 1029
diff changeset
98 /* Extract the interval at the position pointed to by BEGIN from
7eb43ab890e0 entered into RCS
Joseph Arceneaux <jla@gnu.org>
parents: 1029
diff changeset
99 OBJECT, a string or buffer. Additionally, check that the positions
7eb43ab890e0 entered into RCS
Joseph Arceneaux <jla@gnu.org>
parents: 1029
diff changeset
100 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
101 reverse them if *BEGIN is greater than *END. The objects pointed
7eb43ab890e0 entered into RCS
Joseph Arceneaux <jla@gnu.org>
parents: 1029
diff changeset
102 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
103 are coerced to integers.
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
104
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
105 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
106 to make them origin-one.
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
107
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
108 Note that buffer points don't correspond to interval indices.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
109 For example, point-max is 1 greater than the index of the last
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
110 character. This difference is handled in the caller, which uses
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
111 the validated points to determine a length, and operates on that.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
112 Exceptions are Ftext_properties_at, Fnext_property_change, and
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
113 Fprevious_property_change which call this function with BEGIN == END.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
114 Handle this case specially.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
115
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
116 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
117 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
118 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
119 is no text, there can be no text properties. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
120
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
121 #define soft 0
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
122 #define hard 1
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
123
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
124 INTERVAL
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
125 validate_interval_range (object, begin, end, force)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
126 Lisp_Object object, *begin, *end;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
127 int force;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
128 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
129 register INTERVAL i;
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
130 int searchpos;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
131
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
132 CHECK_STRING_OR_BUFFER (object);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
133 CHECK_NUMBER_COERCE_MARKER (*begin);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
134 CHECK_NUMBER_COERCE_MARKER (*end);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
135
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
136 /* 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
137 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
138 if (EQ (*begin, *end) && begin != end)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
139 return NULL_INTERVAL;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
140
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
141 if (XINT (*begin) > XINT (*end))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
142 {
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
143 Lisp_Object n;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
144 n = *begin;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
145 *begin = *end;
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
146 *end = n;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
147 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
148
9109
6e44ddc40153 (validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents: 9071
diff changeset
149 if (BUFFERP (object))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
150 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
151 register struct buffer *b = XBUFFER (object);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
152
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
153 if (!(BUF_BEGV (b) <= XINT (*begin) && XINT (*begin) <= XINT (*end)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
154 && XINT (*end) <= BUF_ZV (b)))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
155 args_out_of_range (*begin, *end);
10312
4bf079c613c6 (validate_interval_range): Use BUF_INTERVALS.
Richard M. Stallman <rms@gnu.org>
parents: 10159
diff changeset
156 i = BUF_INTERVALS (b);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
157
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
158 /* 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
159 if (BUF_BEGV (b) == BUF_ZV (b))
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
160 return NULL_INTERVAL;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
161
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
162 searchpos = XINT (*begin);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
163 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
164 else
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
165 {
46448
218b99308569 (validate_interval_range, interval_of): Use string macros instead of
Ken Raeburn <raeburn@raeburn.org>
parents: 46381
diff changeset
166 int len = SCHARS (object);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
167
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
168 if (! (0 <= XINT (*begin) && XINT (*begin) <= XINT (*end)
46448
218b99308569 (validate_interval_range, interval_of): Use string macros instead of
Ken Raeburn <raeburn@raeburn.org>
parents: 46381
diff changeset
169 && XINT (*end) <= len))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
170 args_out_of_range (*begin, *end);
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
171 XSETFASTINT (*begin, XFASTINT (*begin));
3996
b9bdcf862c67 * textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents: 3960
diff changeset
172 if (begin != end)
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
173 XSETFASTINT (*end, XFASTINT (*end));
46448
218b99308569 (validate_interval_range, interval_of): Use string macros instead of
Ken Raeburn <raeburn@raeburn.org>
parents: 46381
diff changeset
174 i = STRING_INTERVALS (object);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
175
46448
218b99308569 (validate_interval_range, interval_of): Use string macros instead of
Ken Raeburn <raeburn@raeburn.org>
parents: 46381
diff changeset
176 if (len == 0)
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
177 return NULL_INTERVAL;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
178
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
179 searchpos = XINT (*begin);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
180 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
181
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
182 if (NULL_INTERVAL_P (i))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
183 return (force ? create_root_interval (object) : i);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
184
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
185 return find_interval (i, searchpos);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
186 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
187
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
188 /* Validate LIST as a property list. If LIST is not a list, then
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
189 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
190 is even numbered and thus suitable as a plist. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
191
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
192 static Lisp_Object
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
193 validate_plist (list)
4797
4dd43e41207a (validate_plist): Add argument declaration for `list'.
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
194 Lisp_Object list;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
195 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
196 if (NILP (list))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
197 return Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
198
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
199 if (CONSP (list))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
200 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
201 register int i;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
202 register Lisp_Object tail;
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
203 for (i = 0, tail = list; CONSP (tail); i++)
3996
b9bdcf862c67 * textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents: 3960
diff changeset
204 {
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
205 tail = XCDR (tail);
3996
b9bdcf862c67 * textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents: 3960
diff changeset
206 QUIT;
b9bdcf862c67 * textprop.c (validate_interval_range): Don't increment both
Jim Blandy <jimb@redhat.com>
parents: 3960
diff changeset
207 }
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
208 if (i & 1)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
209 error ("Odd length text property list");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
210 return list;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
211 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
212
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
213 return Fcons (list, Fcons (Qnil, Qnil));
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
214 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
215
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
216 /* 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
217 with the same values, of list PLIST. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
218
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
219 static int
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
220 interval_has_all_properties (plist, i)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
221 Lisp_Object plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
222 INTERVAL i;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
223 {
25772
1902e7e63fa7 (Fset_text_properties): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25645
diff changeset
224 register Lisp_Object tail1, tail2, sym1;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
225 register int found;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
226
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
227 /* Go through each element of PLIST. */
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
228 for (tail1 = plist; CONSP (tail1); tail1 = Fcdr (XCDR (tail1)))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
229 {
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
230 sym1 = XCAR (tail1);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
231 found = 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
232
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
233 /* Go through I's plist, looking for sym1 */
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
234 for (tail2 = i->plist; CONSP (tail2); tail2 = Fcdr (XCDR (tail2)))
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
235 if (EQ (sym1, XCAR (tail2)))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
236 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
237 /* 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
238 values are unequal, return zero. */
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
239 if (! EQ (Fcar (XCDR (tail1)), Fcar (XCDR (tail2))))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
240 return 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
241
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
242 /* Property has same value on both lists; go to next one. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
243 found = 1;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
244 break;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
245 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
246
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
247 if (! found)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
248 return 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
249 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
250
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
251 return 1;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
252 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
253
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
254 /* 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
255 properties of PLIST, regardless of their values. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
256
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
257 static INLINE int
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
258 interval_has_some_properties (plist, i)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
259 Lisp_Object plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
260 INTERVAL i;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
261 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
262 register Lisp_Object tail1, tail2, sym;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
263
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
264 /* Go through each element of PLIST. */
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
265 for (tail1 = plist; CONSP (tail1); tail1 = Fcdr (XCDR (tail1)))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
266 {
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
267 sym = XCAR (tail1);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
268
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
269 /* Go through i's plist, looking for tail1 */
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
270 for (tail2 = i->plist; CONSP (tail2); tail2 = Fcdr (XCDR (tail2)))
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
271 if (EQ (sym, XCAR (tail2)))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
272 return 1;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
273 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
274
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
275 return 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
276 }
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
277
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
278 /* Return nonzero if the plist of interval I has any of the
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
279 property names in LIST, regardless of their values. */
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
280
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
281 static INLINE int
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
282 interval_has_some_properties_list (list, i)
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
283 Lisp_Object list;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
284 INTERVAL i;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
285 {
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
286 register Lisp_Object tail1, tail2, sym;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
287
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
288 /* Go through each element of LIST. */
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
289 for (tail1 = list; CONSP (tail1); tail1 = XCDR (tail1))
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
290 {
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
291 sym = Fcar (tail1);
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
292
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
293 /* Go through i's plist, looking for tail1 */
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
294 for (tail2 = i->plist; CONSP (tail2); tail2 = XCDR (XCDR (tail2)))
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
295 if (EQ (sym, XCAR (tail2)))
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
296 return 1;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
297 }
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
298
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
299 return 0;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
300 }
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
301
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
302 /* 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
303
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
304 /* 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
305 has none. */
8907
f7de8b4cb1b8 (validate_interval_range, property_value, Fget_char_property,
Karl Heuer <kwzh@gnu.org>
parents: 8856
diff changeset
306 static Lisp_Object
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
307 property_value (plist, prop)
8856
7e9547af43e8 (property_value): Declare args plist, prop.
Richard M. Stallman <rms@gnu.org>
parents: 8762
diff changeset
308 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
309 {
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
310 Lisp_Object value;
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
311
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
312 while (PLIST_ELT_P (plist, value))
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25000
diff changeset
313 if (EQ (XCAR (plist), prop))
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25000
diff changeset
314 return XCAR (value);
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
315 else
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25000
diff changeset
316 plist = XCDR (value);
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
317
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
318 return Qunbound;
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
319 }
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
320
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
321 /* Set the properties of INTERVAL to PROPERTIES,
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
322 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
323 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
324
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
325 static void
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
326 set_properties (properties, interval, object)
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
327 Lisp_Object properties, object;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
328 INTERVAL interval;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
329 {
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
330 Lisp_Object sym, value;
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
331
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
332 if (BUFFERP (object))
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
333 {
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
334 /* 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
335 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
336 for (sym = interval->plist;
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
337 PLIST_ELT_P (sym, value);
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25000
diff changeset
338 sym = XCDR (value))
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25000
diff changeset
339 if (! EQ (property_value (properties, XCAR (sym)),
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25000
diff changeset
340 XCAR (value)))
4076
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
341 {
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
342 record_property_change (interval->position, LENGTH (interval),
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25000
diff changeset
343 XCAR (sym), XCAR (value),
4076
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
344 object);
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
345 }
3960
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
346
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
347 /* 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
348 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
349 for (sym = properties;
7be89f84a882 * textprop.c (set_properties): Add undo records to remove entirely
Jim Blandy <jimb@redhat.com>
parents: 3858
diff changeset
350 PLIST_ELT_P (sym, value);
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25000
diff changeset
351 sym = XCDR (value))
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25000
diff changeset
352 if (EQ (property_value (interval->plist, XCAR (sym)), Qunbound))
4076
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
353 {
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
354 record_property_change (interval->position, LENGTH (interval),
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25000
diff changeset
355 XCAR (sym), Qnil,
4076
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
356 object);
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
357 }
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
358 }
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
359
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
360 /* Store new properties. */
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
361 interval->plist = Fcopy_sequence (properties);
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
362 }
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
363
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
364 /* Add the properties of PLIST to the interval I, or set
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
365 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
366 if they are different.
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
367
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
368 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
369
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
370 Return nonzero if this changes I (i.e., if any members of PLIST
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
371 are actually added to I's plist) */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
372
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
373 static int
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
374 add_properties (plist, i, object)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
375 Lisp_Object plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
376 INTERVAL i;
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
377 Lisp_Object object;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
378 {
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
379 Lisp_Object tail1, tail2, sym1, val1;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
380 register int changed = 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
381 register int found;
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
382 struct gcpro gcpro1, gcpro2, gcpro3;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
383
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
384 tail1 = plist;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
385 sym1 = Qnil;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
386 val1 = Qnil;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
387 /* 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
388 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
389 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
390 GCPRO3 (tail1, sym1, val1);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
391
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
392 /* Go through each element of PLIST. */
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
393 for (tail1 = plist; CONSP (tail1); tail1 = Fcdr (XCDR (tail1)))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
394 {
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
395 sym1 = XCAR (tail1);
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
396 val1 = Fcar (XCDR (tail1));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
397 found = 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
398
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
399 /* Go through I's plist, looking for sym1 */
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
400 for (tail2 = i->plist; CONSP (tail2); tail2 = Fcdr (XCDR (tail2)))
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
401 if (EQ (sym1, XCAR (tail2)))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
402 {
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
403 /* No need to gcpro, because tail2 protects this
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
404 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
405 register Lisp_Object this_cdr;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
406
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
407 this_cdr = XCDR (tail2);
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
408 /* Found the property. Now check its value. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
409 found = 1;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
410
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
411 /* 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
412 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
413 if (EQ (val1, Fcar (this_cdr)))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
414 break;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
415
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
416 /* 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
417 if (BUFFERP (object))
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
418 {
4076
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
419 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
420 sym1, Fcar (this_cdr), object);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
421 }
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
422
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
423 /* I's property has a different value -- change it */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
424 Fsetcar (this_cdr, val1);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
425 changed++;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
426 break;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
427 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
428
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
429 if (! found)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
430 {
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
431 /* 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
432 if (BUFFERP (object))
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
433 {
4076
9fd5ecacfbbb (Qinsert_in_front_hooks, Qinsert_behind_hooks): New vars.
Richard M. Stallman <rms@gnu.org>
parents: 4007
diff changeset
434 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
435 sym1, Qnil, object);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
436 }
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
437 i->plist = Fcons (sym1, Fcons (val1, i->plist));
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
438 changed++;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
439 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
440 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
441
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
442 UNGCPRO;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
443
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
444 return changed;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
445 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
446
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
447 /* For any members of PLIST, or LIST,
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
448 which are properties of I, remove them from I's plist.
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
449 (If PLIST is non-nil, use that, otherwise use LIST.)
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
450 OBJECT is the string or buffer containing I. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
451
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
452 static int
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
453 remove_properties (plist, list, i, object)
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
454 Lisp_Object plist, list;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
455 INTERVAL i;
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
456 Lisp_Object object;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
457 {
6516
8278049ee7a7 (add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6064
diff changeset
458 register Lisp_Object tail1, tail2, sym, current_plist;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
459 register int changed = 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
460
44748
e137c1849517 (remove_properties): Fixed trap for malformed plist.
Kim F. Storm <storm@cua.dk>
parents: 44673
diff changeset
461 /* Nonzero means tail1 is a plist, otherwise it is a list. */
e137c1849517 (remove_properties): Fixed trap for malformed plist.
Kim F. Storm <storm@cua.dk>
parents: 44673
diff changeset
462 int use_plist;
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
463
6516
8278049ee7a7 (add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6064
diff changeset
464 current_plist = i->plist;
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
465
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
466 if (! NILP (plist))
44748
e137c1849517 (remove_properties): Fixed trap for malformed plist.
Kim F. Storm <storm@cua.dk>
parents: 44673
diff changeset
467 tail1 = plist, use_plist = 1;
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
468 else
44748
e137c1849517 (remove_properties): Fixed trap for malformed plist.
Kim F. Storm <storm@cua.dk>
parents: 44673
diff changeset
469 tail1 = list, use_plist = 0;
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
470
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
471 /* Go through each element of LIST or PLIST. */
44976
b8a7a7d6e18a (remove_properties): Don't use XCAR without CONSP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44748
diff changeset
472 while (CONSP (tail1))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
473 {
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
474 sym = XCAR (tail1);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
475
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
476 /* First, remove the symbol if it's at the head of the list */
44976
b8a7a7d6e18a (remove_properties): Don't use XCAR without CONSP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44748
diff changeset
477 while (CONSP (current_plist) && EQ (sym, XCAR (current_plist)))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
478 {
9109
6e44ddc40153 (validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents: 9071
diff changeset
479 if (BUFFERP (object))
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
480 record_property_change (i->position, LENGTH (i),
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
481 sym, XCAR (XCDR (current_plist)),
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
482 object);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
483
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
484 current_plist = XCDR (XCDR (current_plist));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
485 changed++;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
486 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
487
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
488 /* Go through I's plist, looking for SYM. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
489 tail2 = current_plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
490 while (! NILP (tail2))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
491 {
6516
8278049ee7a7 (add_properties, remove_properties): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6064
diff changeset
492 register Lisp_Object this;
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
493 this = XCDR (XCDR (tail2));
44976
b8a7a7d6e18a (remove_properties): Don't use XCAR without CONSP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44748
diff changeset
494 if (CONSP (this) && EQ (sym, XCAR (this)))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
495 {
9109
6e44ddc40153 (validate_interval_range, add_properties, remove_properties,
Karl Heuer <kwzh@gnu.org>
parents: 9071
diff changeset
496 if (BUFFERP (object))
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
497 record_property_change (i->position, LENGTH (i),
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
498 sym, XCAR (XCDR (this)), object);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
499
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
500 Fsetcdr (XCDR (tail2), XCDR (XCDR (this)));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
501 changed++;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
502 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
503 tail2 = this;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
504 }
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
505
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
506 /* Advance thru TAIL1 one way or the other. */
44748
e137c1849517 (remove_properties): Fixed trap for malformed plist.
Kim F. Storm <storm@cua.dk>
parents: 44673
diff changeset
507 tail1 = XCDR (tail1);
e137c1849517 (remove_properties): Fixed trap for malformed plist.
Kim F. Storm <storm@cua.dk>
parents: 44673
diff changeset
508 if (use_plist && CONSP (tail1))
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
509 tail1 = XCDR (tail1);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
510 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
511
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
512 if (changed)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
513 i->plist = current_plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
514 return changed;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
515 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
516
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
517 #if 0
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
518 /* 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
519 if this changes the interval. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
520
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
521 static INLINE int
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
522 erase_properties (i)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
523 INTERVAL i;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
524 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
525 if (NILP (i->plist))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
526 return 0;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
527
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
528 i->plist = Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
529 return 1;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
530 }
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
531 #endif
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
532
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
533 /* Returns the interval of POSITION in OBJECT.
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
534 POSITION is BEG-based. */
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
535
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
536 INTERVAL
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
537 interval_of (position, object)
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
538 int position;
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
539 Lisp_Object object;
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
540 {
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
541 register INTERVAL i;
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
542 int beg, end;
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
543
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
544 if (NILP (object))
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
545 XSETBUFFER (object, current_buffer);
20955
0e9aa345d2f9 (interval_of): Handle Qt.
Karl Heuer <kwzh@gnu.org>
parents: 20522
diff changeset
546 else if (EQ (object, Qt))
0e9aa345d2f9 (interval_of): Handle Qt.
Karl Heuer <kwzh@gnu.org>
parents: 20522
diff changeset
547 return NULL_INTERVAL;
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
548
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
549 CHECK_STRING_OR_BUFFER (object);
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
550
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
551 if (BUFFERP (object))
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
552 {
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
553 register struct buffer *b = XBUFFER (object);
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
554
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
555 beg = BUF_BEGV (b);
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
556 end = BUF_ZV (b);
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
557 i = BUF_INTERVALS (b);
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
558 }
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
559 else
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
560 {
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
561 beg = 0;
46448
218b99308569 (validate_interval_range, interval_of): Use string macros instead of
Ken Raeburn <raeburn@raeburn.org>
parents: 46381
diff changeset
562 end = SCHARS (object);
218b99308569 (validate_interval_range, interval_of): Use string macros instead of
Ken Raeburn <raeburn@raeburn.org>
parents: 46381
diff changeset
563 i = STRING_INTERVALS (object);
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
564 }
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
565
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
566 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
567 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
568 if (beg == end || NULL_INTERVAL_P (i))
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
569 return NULL_INTERVAL;
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
570
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
571 return find_interval (i, position);
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
572 }
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
573
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
574 DEFUN ("text-properties-at", Ftext_properties_at,
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
575 Stext_properties_at, 1, 2, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
576 doc: /* Return the list of properties of the character at POSITION in OBJECT.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
577 If the optional second argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
578 the current buffer), POSITION is a buffer position (integer or marker).
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
579 If OBJECT is a string, POSITION is a 0-based index into it.
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
580 If POSITION is at the end of OBJECT, the value is nil. */)
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
581 (position, object)
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
582 Lisp_Object position, object;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
583 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
584 register INTERVAL i;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
585
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
586 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
587 XSETBUFFER (object, current_buffer);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
588
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
589 i = validate_interval_range (object, &position, &position, soft);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
590 if (NULL_INTERVAL_P (i))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
591 return Qnil;
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
592 /* 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
593 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
594 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
595 since no character follows. */
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
596 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
597 return Qnil;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
598
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
599 return i->plist;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
600 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
601
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
602 DEFUN ("get-text-property", Fget_text_property, Sget_text_property, 2, 3, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
603 doc: /* Return the value of POSITION's property PROP, in OBJECT.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
604 OBJECT is optional and defaults to the current buffer.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
605 If POSITION is at the end of OBJECT, the value is nil. */)
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
606 (position, prop, object)
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
607 Lisp_Object position, object;
8271
e8556db1b7f3 (Fget_text_property): Simplify using Ftext_properties_at.
Richard M. Stallman <rms@gnu.org>
parents: 7773
diff changeset
608 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
609 {
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
610 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
611 }
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
612
48840
b6981c46191d (text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46448
diff changeset
613 /* Return the value of char's property PROP, in OBJECT at POSITION.
32849
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
614 OBJECT is optional and defaults to the current buffer.
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
615 If OVERLAY is non-0, then in the case that the returned property is from
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
616 an overlay, the overlay found is returned in *OVERLAY, otherwise nil is
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
617 returned in *OVERLAY.
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
618 If POSITION is at the end of OBJECT, the value is nil.
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
619 If OBJECT is a buffer, then overlay properties are considered as well as
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
620 text properties.
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
621 If OBJECT is a window, then that window's buffer is used, but
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
622 window-specific overlays are considered only if they are associated
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
623 with OBJECT. */
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
624 Lisp_Object
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
625 get_char_property_and_overlay (position, prop, object, overlay)
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
626 Lisp_Object position, object;
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
627 register Lisp_Object prop;
32849
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
628 Lisp_Object *overlay;
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
629 {
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
630 struct window *w = 0;
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
631
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
632 CHECK_NUMBER_COERCE_MARKER (position);
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
633
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
634 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
635 XSETBUFFER (object, current_buffer);
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
636
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
637 if (WINDOWP (object))
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
638 {
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
639 w = XWINDOW (object);
8907
f7de8b4cb1b8 (validate_interval_range, property_value, Fget_char_property,
Karl Heuer <kwzh@gnu.org>
parents: 8856
diff changeset
640 object = w->buffer;
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
641 }
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
642 if (BUFFERP (object))
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
643 {
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
644 int noverlays;
55652
2e649bd1c696 (get_char_property_and_overlay): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents: 53201
diff changeset
645 Lisp_Object *overlay_vec;
12641
aadec66110fd (Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents: 11131
diff changeset
646 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
647
87488
f53d1d3c813f (get_char_property_and_overlay):
Richard M. Stallman <rms@gnu.org>
parents: 85973
diff changeset
648 if (XINT (position) < BUF_BEGV (XBUFFER (object))
f53d1d3c813f (get_char_property_and_overlay):
Richard M. Stallman <rms@gnu.org>
parents: 85973
diff changeset
649 || XINT (position) > BUF_ZV (XBUFFER (object)))
f53d1d3c813f (get_char_property_and_overlay):
Richard M. Stallman <rms@gnu.org>
parents: 85973
diff changeset
650 xsignal1 (Qargs_out_of_range, position);
f53d1d3c813f (get_char_property_and_overlay):
Richard M. Stallman <rms@gnu.org>
parents: 85973
diff changeset
651
12641
aadec66110fd (Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents: 11131
diff changeset
652 set_buffer_temp (XBUFFER (object));
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
653
55652
2e649bd1c696 (get_char_property_and_overlay): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents: 53201
diff changeset
654 GET_OVERLAYS_AT (XINT (position), overlay_vec, noverlays, NULL, 0);
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
655 noverlays = sort_overlays (overlay_vec, noverlays, w);
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
656
12641
aadec66110fd (Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents: 11131
diff changeset
657 set_buffer_temp (obuf);
aadec66110fd (Fget_char_property): If OBJECT is non-current buffer,
Richard M. Stallman <rms@gnu.org>
parents: 11131
diff changeset
658
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
659 /* Now check the overlays in order of decreasing priority. */
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
660 while (--noverlays >= 0)
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
661 {
55652
2e649bd1c696 (get_char_property_and_overlay): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents: 53201
diff changeset
662 Lisp_Object tem = Foverlay_get (overlay_vec[noverlays], prop);
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
663 if (!NILP (tem))
32849
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
664 {
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
665 if (overlay)
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
666 /* Return the overlay we got the property from. */
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
667 *overlay = overlay_vec[noverlays];
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
668 return tem;
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
669 }
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
670 }
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
671 }
32849
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
672
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
673 if (overlay)
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
674 /* Indicate that the return value is not from an overlay. */
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
675 *overlay = Qnil;
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
676
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
677 /* 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
678 simpler case. */
32849
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
679 return Fget_text_property (position, prop, object);
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
680 }
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
681
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
682 DEFUN ("get-char-property", Fget_char_property, Sget_char_property, 2, 3, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
683 doc: /* Return the value of POSITION's property PROP, in OBJECT.
40647
e673a8c97e47 (Fget_char_property): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 40123
diff changeset
684 Both overlay properties and text properties are checked.
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
685 OBJECT is optional and defaults to the current buffer.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
686 If POSITION is at the end of OBJECT, the value is nil.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
687 If OBJECT is a buffer, then overlay properties are considered as well as
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
688 text properties.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
689 If OBJECT is a window, then that window's buffer is used, but window-specific
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
690 overlays are considered only if they are associated with OBJECT. */)
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
691 (position, prop, object)
32849
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
692 Lisp_Object position, object;
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
693 register Lisp_Object prop;
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
694 {
e1dec7e5a57c (get_char_property_and_overlay): New function.
Miles Bader <miles@gnu.org>
parents: 30699
diff changeset
695 return get_char_property_and_overlay (position, prop, object, 0);
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
696 }
53201
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
697
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
698 DEFUN ("get-char-property-and-overlay", Fget_char_property_and_overlay,
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
699 Sget_char_property_and_overlay, 2, 3, 0,
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
700 doc: /* Like `get-char-property', but with extra overlay information.
71575
37f7b9440897 (Fget_char_property_and_overlay): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 71499
diff changeset
701 The value is a cons cell. Its car is the return value of `get-char-property'
37f7b9440897 (Fget_char_property_and_overlay): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 71499
diff changeset
702 with the same arguments--that is, the value of POSITION's property
37f7b9440897 (Fget_char_property_and_overlay): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 71499
diff changeset
703 PROP in OBJECT. Its cdr is the overlay in which the property was
53201
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
704 found, or nil, if it was found as a text property or not found at all.
71575
37f7b9440897 (Fget_char_property_and_overlay): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 71499
diff changeset
705
53201
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
706 OBJECT is optional and defaults to the current buffer. OBJECT may be
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
707 a string, a buffer or a window. For strings, the cdr of the return
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
708 value is always nil, since strings do not have overlays. If OBJECT is
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
709 a window, then that window's buffer is used, but window-specific
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
710 overlays are considered only if they are associated with OBJECT. If
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
711 POSITION is at the end of OBJECT, both car and cdr are nil. */)
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
712 (position, prop, object)
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
713 Lisp_Object position, object;
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
714 register Lisp_Object prop;
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
715 {
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
716 Lisp_Object overlay;
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
717 Lisp_Object val
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
718 = get_char_property_and_overlay (position, prop, object, &overlay);
79334
242947301003 Whitespace change.
Richard M. Stallman <rms@gnu.org>
parents: 78501
diff changeset
719 return Fcons (val, overlay);
53201
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
720 }
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
721
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
722
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
723 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
724 Snext_char_property_change, 1, 2, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
725 doc: /* Return the position of next text property or overlay change.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
726 This scans characters forward in the current buffer from POSITION till
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
727 it finds a change in some text property, or the beginning or end of an
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
728 overlay, and returns the position of that.
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
729 If none is found up to (point-max), the function returns (point-max).
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
730
64576
7a1c6e86c825 (Fnext_char_property_change, Fprevious_char_property_change): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
731 If the optional second argument LIMIT is non-nil, don't search
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
732 past position LIMIT; return LIMIT if nothing is found before LIMIT.
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
733 LIMIT is a no-op if it is greater than (point-max). */)
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
734 (position, limit)
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
735 Lisp_Object position, limit;
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
736 {
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
737 Lisp_Object temp;
6063
233fffcfb6c8 (Fget_char_property): New function.
Karl Heuer <kwzh@gnu.org>
parents: 5646
diff changeset
738
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
739 temp = Fnext_overlay_change (position);
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
740 if (! NILP (limit))
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
741 {
60815
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
742 CHECK_NUMBER_COERCE_MARKER (limit);
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
743 if (XINT (limit) < XINT (temp))
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
744 temp = limit;
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
745 }
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
746 return Fnext_property_change (position, Qnil, temp);
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
747 }
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
748
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
749 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
750 Sprevious_char_property_change, 1, 2, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
751 doc: /* Return the position of previous text property or overlay change.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
752 Scans characters backward in the current buffer from POSITION till it
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
753 finds a change in some text property, or the beginning or end of an
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
754 overlay, and returns the position of that.
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
755 If none is found since (point-min), the function returns (point-min).
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
756
64576
7a1c6e86c825 (Fnext_char_property_change, Fprevious_char_property_change): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
757 If the optional second argument LIMIT is non-nil, don't search
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
758 past position LIMIT; return LIMIT if nothing is found before LIMIT.
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
759 LIMIT is a no-op if it is less than (point-min). */)
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
760 (position, limit)
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
761 Lisp_Object position, limit;
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
762 {
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
763 Lisp_Object temp;
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
764
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
765 temp = Fprevious_overlay_change (position);
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
766 if (! NILP (limit))
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
767 {
60815
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
768 CHECK_NUMBER_COERCE_MARKER (limit);
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
769 if (XINT (limit) > XINT (temp))
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
770 temp = limit;
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
771 }
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
772 return Fprevious_property_change (position, Qnil, temp);
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
773 }
25819
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
774
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
775
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
776 DEFUN ("next-single-char-property-change", Fnext_single_char_property_change,
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
777 Snext_single_char_property_change, 2, 4, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
778 doc: /* Return the position of next text property or overlay change for a specific property.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
779 Scans characters forward from POSITION till it finds
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
780 a change in the PROP property, then returns the position of the change.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
781 If the optional third argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
782 the current buffer), POSITION is a buffer position (integer or marker).
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
783 If OBJECT is a string, POSITION is a 0-based index into it.
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
784
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
785 In a string, scan runs to the end of the string.
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
786 In a buffer, it runs to (point-max), and the value cannot exceed that.
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
787
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
788 The property values are compared with `eq'.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
789 If the property is constant all the way to the end of OBJECT, return the
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
790 last valid position in OBJECT.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
791 If the optional fourth argument LIMIT is non-nil, don't search
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
792 past position LIMIT; return LIMIT if nothing is found before LIMIT. */)
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
793 (position, prop, object, limit)
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
794 Lisp_Object prop, position, object, limit;
25819
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
795 {
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
796 if (STRINGP (object))
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
797 {
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
798 position = Fnext_single_property_change (position, prop, object, limit);
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
799 if (NILP (position))
25819
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
800 {
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
801 if (NILP (limit))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
802 position = make_number (SCHARS (object));
25819
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
803 else
60815
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
804 {
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
805 CHECK_NUMBER (limit);
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
806 position = limit;
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
807 }
25819
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
808 }
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
809 }
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
810 else
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
811 {
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
812 Lisp_Object initial_value, value;
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45680
diff changeset
813 int count = SPECPDL_INDEX ();
25819
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
814
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
815 if (! NILP (object))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
816 CHECK_BUFFER (object);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
817
25819
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
818 if (BUFFERP (object) && current_buffer != XBUFFER (object))
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
819 {
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
820 record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
821 Fset_buffer (object);
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
822 }
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
823
60815
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
824 CHECK_NUMBER_COERCE_MARKER (position);
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
825
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
826 initial_value = Fget_char_property (position, prop, object);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
827
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
828 if (NILP (limit))
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
829 XSETFASTINT (limit, ZV);
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
830 else
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
831 CHECK_NUMBER_COERCE_MARKER (limit);
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
832
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
833 if (XFASTINT (position) >= XFASTINT (limit))
25819
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
834 {
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
835 position = limit;
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
836 if (XFASTINT (position) > ZV)
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
837 XSETFASTINT (position, ZV);
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
838 }
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
839 else
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
840 while (1)
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
841 {
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
842 position = Fnext_char_property_change (position, limit);
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
843 if (XFASTINT (position) >= XFASTINT (limit))
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
844 {
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
845 position = limit;
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
846 break;
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
847 }
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
848
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
849 value = Fget_char_property (position, prop, object);
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
850 if (!EQ (value, initial_value))
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
851 break;
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
852 }
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
853
25819
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
854 unbind_to (count, Qnil);
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
855 }
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
856
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
857 return position;
25819
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
858 }
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
859
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
860 DEFUN ("previous-single-char-property-change",
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
861 Fprevious_single_char_property_change,
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
862 Sprevious_single_char_property_change, 2, 4, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
863 doc: /* Return the position of previous text property or overlay change for a specific property.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
864 Scans characters backward from POSITION till it finds
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
865 a change in the PROP property, then returns the position of the change.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
866 If the optional third argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
867 the current buffer), POSITION is a buffer position (integer or marker).
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
868 If OBJECT is a string, POSITION is a 0-based index into it.
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
869
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
870 In a string, scan runs to the start of the string.
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
871 In a buffer, it runs to (point-min), and the value cannot be less than that.
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
872
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
873 The property values are compared with `eq'.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
874 If the property is constant all the way to the start of OBJECT, return the
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
875 first valid position in OBJECT.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
876 If the optional fourth argument LIMIT is non-nil, don't search
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
877 back past position LIMIT; return LIMIT if nothing is found before LIMIT. */)
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
878 (position, prop, object, limit)
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
879 Lisp_Object prop, position, object, limit;
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
880 {
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
881 if (STRINGP (object))
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
882 {
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
883 position = Fprevious_single_property_change (position, prop, object, limit);
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
884 if (NILP (position))
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
885 {
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
886 if (NILP (limit))
99343
00ce595f8afc (Fprevious_single_char_property_change): Return 0
Martin Rudalics <rudalics@gmx.at>
parents: 95453
diff changeset
887 position = make_number (0);
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
888 else
60815
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
889 {
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
890 CHECK_NUMBER (limit);
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
891 position = limit;
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
892 }
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
893 }
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
894 }
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
895 else
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
896 {
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45680
diff changeset
897 int count = SPECPDL_INDEX ();
25819
c2163b0bac24 (next_single_char_property_change): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25772
diff changeset
898
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
899 if (! NILP (object))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
900 CHECK_BUFFER (object);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
901
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
902 if (BUFFERP (object) && current_buffer != XBUFFER (object))
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
903 {
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
904 record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
905 Fset_buffer (object);
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
906 }
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
907
60815
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
908 CHECK_NUMBER_COERCE_MARKER (position);
21c196c81d60 (Fnext_char_property_change)
David Kastrup <dak@gnu.org>
parents: 57477
diff changeset
909
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
910 if (NILP (limit))
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
911 XSETFASTINT (limit, BEGV);
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
912 else
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
913 CHECK_NUMBER_COERCE_MARKER (limit);
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
914
30379
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
915 if (XFASTINT (position) <= XFASTINT (limit))
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
916 {
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
917 position = limit;
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
918 if (XFASTINT (position) < BEGV)
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
919 XSETFASTINT (position, BEGV);
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
920 }
30379
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
921 else
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
922 {
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
923 Lisp_Object initial_value
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
924 = Fget_char_property (make_number (XFASTINT (position) - 1),
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
925 prop, object);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
926
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
927 while (1)
30379
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
928 {
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
929 position = Fprevious_char_property_change (position, limit);
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
930
30379
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
931 if (XFASTINT (position) <= XFASTINT (limit))
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
932 {
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
933 position = limit;
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
934 break;
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
935 }
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
936 else
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
937 {
70656
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
938 Lisp_Object value
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
939 = Fget_char_property (make_number (XFASTINT (position) - 1),
182680a57573 (Fnext_single_char_property_change)
Richard M. Stallman <rms@gnu.org>
parents: 70129
diff changeset
940 prop, object);
30379
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
941
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
942 if (!EQ (value, initial_value))
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
943 break;
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
944 }
836d2e058c70 (Fprevious_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 30242
diff changeset
945 }
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
946 }
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
947
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
948 unbind_to (count, Qnil);
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
949 }
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
950
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
951 return position;
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
952 }
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
953
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
954 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
955 Snext_property_change, 1, 3, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
956 doc: /* Return the position of next property change.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
957 Scans characters forward from POSITION in OBJECT till it finds
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
958 a change in some text property, then returns the position of the change.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
959 If the optional second argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
960 the current buffer), POSITION is a buffer position (integer or marker).
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
961 If OBJECT is a string, POSITION is a 0-based index into it.
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
962 Return nil if the property is constant all the way to the end of OBJECT.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
963 If the value is non-nil, it is a position greater than POSITION, never equal.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
964
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
965 If the optional third argument LIMIT is non-nil, don't search
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
966 past position LIMIT; return LIMIT if nothing is found before LIMIT. */)
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
967 (position, object, limit)
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
968 Lisp_Object position, object, limit;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
969 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
970 register INTERVAL i, next;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
971
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
972 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
973 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
974
42967
51ac72369873 (Fnext_property_change, Fnext_single_property_change)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41589
diff changeset
975 if (!NILP (limit) && !EQ (limit, Qt))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
976 CHECK_NUMBER_COERCE_MARKER (limit);
7092
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
977
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
978 i = validate_interval_range (object, &position, &position, soft);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
979
10962
7f0bc7bcf1f3 (Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents: 10925
diff changeset
980 /* 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
981 bother checking further intervals. */
7f0bc7bcf1f3 (Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents: 10925
diff changeset
982 if (EQ (limit, Qt))
7f0bc7bcf1f3 (Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents: 10925
diff changeset
983 {
13265
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
984 if (NULL_INTERVAL_P (i))
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
985 next = i;
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
986 else
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
987 next = next_interval (i);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
988
11116
73b51ad289e3 (Fnext_property_change): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 10962
diff changeset
989 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
990 XSETFASTINT (position, (STRINGP (object)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
991 ? SCHARS (object)
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
992 : BUF_ZV (XBUFFER (object))));
11116
73b51ad289e3 (Fnext_property_change): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 10962
diff changeset
993 else
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
994 XSETFASTINT (position, next->position);
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
995 return position;
10962
7f0bc7bcf1f3 (Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents: 10925
diff changeset
996 }
7f0bc7bcf1f3 (Fnext_property_change): Handle LIMIT = t.
Richard M. Stallman <rms@gnu.org>
parents: 10925
diff changeset
997
13265
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
998 if (NULL_INTERVAL_P (i))
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
999 return limit;
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
1000
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
1001 next = next_interval (i);
dbc038e66ea6 (Fnext_single_property_change): Rearrange handling of
Richard M. Stallman <rms@gnu.org>
parents: 13027
diff changeset
1002
42967
51ac72369873 (Fnext_property_change, Fnext_single_property_change)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41589
diff changeset
1003 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
1004 && (NILP (limit) || next->position < XFASTINT (limit)))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1005 next = next_interval (next);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1006
72834
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1007 if (NULL_INTERVAL_P (next)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1008 || (next->position
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1009 >= (INTEGERP (limit)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1010 ? XFASTINT (limit)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1011 : (STRINGP (object)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1012 ? SCHARS (object)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1013 : BUF_ZV (XBUFFER (object))))))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
1014 return limit;
72834
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1015 else
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1016 return make_number (next->position);
4381
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1017 }
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1018
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1019 /* 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
1020
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1021 int
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1022 property_change_between_p (beg, end)
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1023 int beg, end;
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1024 {
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1025 register INTERVAL i, next;
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1026 Lisp_Object object, pos;
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1027
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1028 XSETBUFFER (object, current_buffer);
9321
e6759002383c (Fnext_property_change, property_change_between_p,
Karl Heuer <kwzh@gnu.org>
parents: 9280
diff changeset
1029 XSETFASTINT (pos, beg);
4381
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1030
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1031 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
1032 if (NULL_INTERVAL_P (i))
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1033 return 0;
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1034
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1035 next = next_interval (i);
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1036 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
1037 {
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1038 next = next_interval (next);
4614
2c5557903994 (property_change_between_p): Test NULL_INTERVAL_P
Richard M. Stallman <rms@gnu.org>
parents: 4381
diff changeset
1039 if (NULL_INTERVAL_P (next))
2c5557903994 (property_change_between_p): Test NULL_INTERVAL_P
Richard M. Stallman <rms@gnu.org>
parents: 4381
diff changeset
1040 return 0;
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
1041 if (next->position >= end)
4381
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1042 return 0;
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1043 }
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1044
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1045 if (NULL_INTERVAL_P (next))
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1046 return 0;
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1047
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
1048 return 1;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1049 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1050
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1051 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
1052 Snext_single_property_change, 2, 4, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1053 doc: /* Return the position of next property change for a specific property.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1054 Scans characters forward from POSITION till it finds
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1055 a change in the PROP property, then returns the position of the change.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1056 If the optional third argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1057 the current buffer), POSITION is a buffer position (integer or marker).
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1058 If OBJECT is a string, POSITION is a 0-based index into it.
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1059 The property values are compared with `eq'.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1060 Return nil if the property is constant all the way to the end of OBJECT.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1061 If the value is non-nil, it is a position greater than POSITION, never equal.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1062
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1063 If the optional fourth argument LIMIT is non-nil, don't search
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1064 past position LIMIT; return LIMIT if nothing is found before LIMIT. */)
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1065 (position, prop, object, limit)
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1066 Lisp_Object position, prop, object, limit;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1067 {
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1068 register INTERVAL i, next;
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1069 register Lisp_Object here_val;
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1070
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1071 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1072 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
1073
7092
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
1074 if (!NILP (limit))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
1075 CHECK_NUMBER_COERCE_MARKER (limit);
7092
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
1076
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1077 i = validate_interval_range (object, &position, &position, soft);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1078 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
1079 return limit;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1080
2762
dd28ed1e1928 * textprop.c (Fnext_single_property_change,
Jim Blandy <jimb@redhat.com>
parents: 2124
diff changeset
1081 here_val = textget (i->plist, prop);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1082 next = next_interval (i);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1083 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
1084 && 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
1085 && (NILP (limit) || next->position < XFASTINT (limit)))
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1086 next = next_interval (next);
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1087
72834
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1088 if (NULL_INTERVAL_P (next)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1089 || (next->position
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1090 >= (INTEGERP (limit)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1091 ? XFASTINT (limit)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1092 : (STRINGP (object)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1093 ? SCHARS (object)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1094 : BUF_ZV (XBUFFER (object))))))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
1095 return limit;
72834
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1096 else
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1097 return make_number (next->position);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1098 }
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1099
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1100 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
1101 Sprevious_property_change, 1, 3, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1102 doc: /* Return the position of previous property change.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1103 Scans characters backwards from POSITION in OBJECT till it finds
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1104 a change in some text property, then returns the position of the change.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1105 If the optional second argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1106 the current buffer), POSITION is a buffer position (integer or marker).
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1107 If OBJECT is a string, POSITION is a 0-based index into it.
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1108 Return nil if the property is constant all the way to the start of OBJECT.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1109 If the value is non-nil, it is a position less than POSITION, never equal.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1110
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1111 If the optional third argument LIMIT is non-nil, don't search
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1112 back past position LIMIT; return LIMIT if nothing is found until LIMIT. */)
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1113 (position, object, limit)
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1114 Lisp_Object position, object, limit;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1115 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1116 register INTERVAL i, previous;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1117
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1118 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1119 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
1120
7092
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
1121 if (!NILP (limit))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
1122 CHECK_NUMBER_COERCE_MARKER (limit);
7092
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
1123
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1124 i = validate_interval_range (object, &position, &position, soft);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1125 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
1126 return limit;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1127
5644
2abe67658895 (Fprevious_property_change): Move back at least 1 char.
Richard M. Stallman <rms@gnu.org>
parents: 5114
diff changeset
1128 /* 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
1129 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
1130 i = previous_interval (i);
2abe67658895 (Fprevious_property_change): Move back at least 1 char.
Richard M. Stallman <rms@gnu.org>
parents: 5114
diff changeset
1131
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1132 previous = previous_interval (i);
42967
51ac72369873 (Fnext_property_change, Fnext_single_property_change)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41589
diff changeset
1133 while (!NULL_INTERVAL_P (previous) && intervals_equal (previous, i)
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
1134 && (NILP (limit)
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
1135 || (previous->position + LENGTH (previous) > XFASTINT (limit))))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1136 previous = previous_interval (previous);
72834
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1137
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1138 if (NULL_INTERVAL_P (previous)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1139 || (previous->position + LENGTH (previous)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1140 <= (INTEGERP (limit)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1141 ? XFASTINT (limit)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1142 : (STRINGP (object) ? 0 : BUF_BEGV (XBUFFER (object))))))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
1143 return limit;
72834
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1144 else
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1145 return make_number (previous->position + LENGTH (previous));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1146 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1147
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1148 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
1149 Sprevious_single_property_change, 2, 4, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1150 doc: /* Return the position of previous property change for a specific property.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1151 Scans characters backward from POSITION till it finds
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1152 a change in the PROP property, then returns the position of the change.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1153 If the optional third argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1154 the current buffer), POSITION is a buffer position (integer or marker).
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1155 If OBJECT is a string, POSITION is a 0-based index into it.
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1156 The property values are compared with `eq'.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1157 Return nil if the property is constant all the way to the start of OBJECT.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1158 If the value is non-nil, it is a position less than POSITION, never equal.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1159
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1160 If the optional fourth argument LIMIT is non-nil, don't search
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1161 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
1162 (position, prop, object, limit)
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1163 Lisp_Object position, prop, object, limit;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1164 {
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1165 register INTERVAL i, previous;
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1166 register Lisp_Object here_val;
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1167
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1168 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1169 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
1170
7092
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
1171 if (!NILP (limit))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
1172 CHECK_NUMBER_COERCE_MARKER (limit);
7092
b6b93953cc83 (F*_property_change): Typecheck limit argument.
Karl Heuer <kwzh@gnu.org>
parents: 6755
diff changeset
1173
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1174 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
1175
2226c7efb3da (Fprevious_single_property_change): Check for null interval after correcting
Karl Heuer <kwzh@gnu.org>
parents: 7582
diff changeset
1176 /* Start with the interval containing the char before point. */
42967
51ac72369873 (Fnext_property_change, Fnext_single_property_change)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41589
diff changeset
1177 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
1178 i = previous_interval (i);
2226c7efb3da (Fprevious_single_property_change): Check for null interval after correcting
Karl Heuer <kwzh@gnu.org>
parents: 7582
diff changeset
1179
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1180 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
1181 return limit;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1182
2762
dd28ed1e1928 * textprop.c (Fnext_single_property_change,
Jim Blandy <jimb@redhat.com>
parents: 2124
diff changeset
1183 here_val = textget (i->plist, prop);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1184 previous = previous_interval (i);
42967
51ac72369873 (Fnext_property_change, Fnext_single_property_change)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41589
diff changeset
1185 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
1186 && 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
1187 && (NILP (limit)
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
1188 || (previous->position + LENGTH (previous) > XFASTINT (limit))))
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1189 previous = previous_interval (previous);
72834
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1190
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1191 if (NULL_INTERVAL_P (previous)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1192 || (previous->position + LENGTH (previous)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1193 <= (INTEGERP (limit)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1194 ? XFASTINT (limit)
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1195 : (STRINGP (object) ? 0 : BUF_BEGV (XBUFFER (object))))))
5086
6e9634463e93 (Ftext_property_not_all): Swap t and nil values in
Richard M. Stallman <rms@gnu.org>
parents: 5020
diff changeset
1196 return limit;
72834
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1197 else
84ff2640fb2a * textprop.c (Fnext_property_change, Fnext_single_property_change)
Chong Yidong <cyd@stupidchicken.com>
parents: 72592
diff changeset
1198 return make_number (previous->position + LENGTH (previous));
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1199 }
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
1200
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1201 /* 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
1202
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1203 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
1204 Sadd_text_properties, 3, 4, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1205 doc: /* Add properties to the text from START to END.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1206 The third argument PROPERTIES is a property list
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1207 specifying the property values to add. If the optional fourth argument
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1208 OBJECT is a buffer (or nil, which means the current buffer),
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1209 START and END are buffer positions (integers or markers).
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1210 If OBJECT is a string, START and END are 0-based indices into it.
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1211 Return t if any property value actually changed, nil otherwise. */)
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1212 (start, end, properties, object)
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1213 Lisp_Object start, end, properties, object;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1214 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1215 register INTERVAL i, unchanged;
2124
54179ef9ce35 * textprop.c (Fadd_text_properties): Initialize the modified flag.
Jim Blandy <jimb@redhat.com>
parents: 2058
diff changeset
1216 register int s, len, modified = 0;
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1217 struct gcpro gcpro1;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1218
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1219 properties = validate_plist (properties);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1220 if (NILP (properties))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1221 return Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1222
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1223 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1224 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
1225
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1226 i = validate_interval_range (object, &start, &end, hard);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1227 if (NULL_INTERVAL_P (i))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1228 return Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1229
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1230 s = XINT (start);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1231 len = XINT (end) - s;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1232
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1233 /* 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
1234 and live buffers are always protected. */
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1235 GCPRO1 (properties);
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1236
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1237 /* 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
1238 split this interval. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1239 if (i->position != s)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1240 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1241 /* 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
1242 skip it. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1243 if (interval_has_all_properties (properties, i))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1244 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1245 int got = (LENGTH (i) - (s - i->position));
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1246 if (got >= len)
14538
a17752d2b0c0 (Fadd_text_properties): Don't return without ungcpro.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1247 RETURN_UNGCPRO (Qnil);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1248 len -= got;
3858
e07d474bdba9 (Fremove_text_properties, Fadd_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 3698
diff changeset
1249 i = next_interval (i);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1250 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1251 else
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1252 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1253 unchanged = i;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1254 i = split_interval_right (unchanged, s - unchanged->position);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1255 copy_properties (unchanged, i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1256 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1257 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1258
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1259 if (BUFFERP (object))
72592
f6de516bbb4b * buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents: 72005
diff changeset
1260 modify_region (XBUFFER (object), XINT (start), XINT (end), 1);
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1261
3553
5f9688c0b704 (Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents: 2783
diff changeset
1262 /* 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
1263 for (;;)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1264 {
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1265 if (i == 0)
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1266 abort ();
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1267
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1268 if (LENGTH (i) >= len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1269 {
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1270 /* 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
1271 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
1272 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
1273 UNGCPRO;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1274
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1275 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
1276 {
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1277 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1278 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
1279 XINT (end) - XINT (start));
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1280
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1281 return modified ? Qt : Qnil;
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1282 }
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1283
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1284 if (LENGTH (i) == len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1285 {
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1286 add_properties (properties, i, object);
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1287 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1288 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
1289 XINT (end) - XINT (start));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1290 return Qt;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1291 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1292
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1293 /* i doesn't have the properties, and goes past the change limit */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1294 unchanged = i;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1295 i = split_interval_left (unchanged, len);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1296 copy_properties (unchanged, i);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1297 add_properties (properties, i, object);
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1298 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1299 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
1300 XINT (end) - XINT (start));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1301 return Qt;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1302 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1303
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1304 len -= LENGTH (i);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1305 modified += add_properties (properties, i, object);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1306 i = next_interval (i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1307 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1308 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1309
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1310 /* 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
1311
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1312 DEFUN ("put-text-property", Fput_text_property,
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1313 Sput_text_property, 4, 5, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1314 doc: /* Set one property of the text from START to END.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1315 The third and fourth arguments PROPERTY and VALUE
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1316 specify the property to add.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1317 If the optional fifth argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1318 the current buffer), START and END are buffer positions (integers or
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1319 markers). If OBJECT is a string, START and END are 0-based indices into it. */)
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1320 (start, end, property, value, object)
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1321 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
1322 {
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1323 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
1324 Fcons (property, Fcons (value, Qnil)),
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1325 object);
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1326 return Qnil;
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1327 }
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1328
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1329 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
1330 Sset_text_properties, 3, 4, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1331 doc: /* Completely replace properties of text from START to END.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1332 The third argument PROPERTIES is the new property list.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1333 If the optional fourth argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1334 the current buffer), START and END are buffer positions (integers or
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1335 markers). If OBJECT is a string, START and END are 0-based indices into it.
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1336 If PROPERTIES is nil, the effect is to remove all properties from
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1337 the designated part of OBJECT. */)
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1338 (start, end, properties, object)
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1339 Lisp_Object start, end, properties, object;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1340 {
26605
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1341 return set_text_properties (start, end, properties, object, Qt);
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1342 }
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1343
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1344
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1345 /* Replace properties of text from START to END with new list of
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1346 properties PROPERTIES. OBJECT is the buffer or string containing
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1347 the text. OBJECT nil means use the current buffer.
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1348 SIGNAL_AFTER_CHANGE_P nil means don't signal after changes. Value
67947
7538cafcf9f7 (set_text_properties): Reword description of return value.
Luc Teirlinck <teirllm@auburn.edu>
parents: 64770
diff changeset
1349 is nil if the function _detected_ that it did not replace any
7538cafcf9f7 (set_text_properties): Reword description of return value.
Luc Teirlinck <teirllm@auburn.edu>
parents: 64770
diff changeset
1350 properties, non-nil otherwise. */
26605
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1351
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1352 Lisp_Object
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1353 set_text_properties (start, end, properties, object, signal_after_change_p)
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1354 Lisp_Object start, end, properties, object, signal_after_change_p;
46168cb41ba0 (set_text_properties): New function. Like
Gerd Moellmann <gerd@gnu.org>
parents: 26404
diff changeset
1355 {
41391
44d3d642d0c4 (Fset_text_properties): Remove unused variables `unchanged',
Pavel Janík <Pavel@Janik.cz>
parents: 40921
diff changeset
1356 register INTERVAL i;
9071
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1357 Lisp_Object ostart, oend;
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1358
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1359 ostart = start;
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1360 oend = end;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1361
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1362 properties = validate_plist (properties);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1363
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1364 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1365 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
1366
9541
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1367 /* 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
1368 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
1369 if (NILP (properties) && STRINGP (object)
9541
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1370 && XFASTINT (start) == 0
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
1371 && XFASTINT (end) == SCHARS (object))
9541
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1372 {
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
1373 if (! STRING_INTERVALS (object))
67947
7538cafcf9f7 (set_text_properties): Reword description of return value.
Luc Teirlinck <teirllm@auburn.edu>
parents: 64770
diff changeset
1374 return Qnil;
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1375
46381
ab2bd718aad6 * textprop.c (set_text_properties): Use STRING_SET_INTERVALS.
Ken Raeburn <raeburn@raeburn.org>
parents: 46370
diff changeset
1376 STRING_SET_INTERVALS (object, NULL_INTERVAL);
9541
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1377 return Qt;
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1378 }
449e024f13be (Fset_text_properties): Special case for getting
Richard M. Stallman <rms@gnu.org>
parents: 9331
diff changeset
1379
8686
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1380 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
1381
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1382 if (NULL_INTERVAL_P (i))
8686
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1383 {
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1384 /* 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
1385 if (NILP (properties))
8686
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1386 return Qnil;
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1387
9071
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1388 /* Restore the original START and END values
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1389 because validate_interval_range increments them for strings. */
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1390 start = ostart;
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1391 end = oend;
2d4d0f6e7be0 (syms_of_textprop): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8962
diff changeset
1392
8686
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1393 i = validate_interval_range (object, &start, &end, hard);
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1394 /* This can return if start == end. */
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1395 if (NULL_INTERVAL_P (i))
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1396 return Qnil;
c468db944aa2 (Fset_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 8271
diff changeset
1397 }
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1398
40921
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1399 if (BUFFERP (object))
72592
f6de516bbb4b * buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents: 72005
diff changeset
1400 modify_region (XBUFFER (object), XINT (start), XINT (end), 1);
40921
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1401
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1402 set_text_properties_1 (start, end, properties, object, i);
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1403
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1404 if (BUFFERP (object) && !NILP (signal_after_change_p))
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1405 signal_after_change (XINT (start), XINT (end) - XINT (start),
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1406 XINT (end) - XINT (start));
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1407 return Qt;
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1408 }
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1409
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1410 /* Replace properties of text from START to END with new list of
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1411 properties PROPERTIES. BUFFER is the buffer containing
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1412 the text. This does not obey any hooks.
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1413 You can provide the interval that START is located in as I,
41532
afe70a164d3b (set_text_properties_1): Clearly mark that the interval should not be empty.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41391
diff changeset
1414 or pass NULL for I and this function will find it.
41589
67d2bb283076 (set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents: 41532
diff changeset
1415 START and END can be in any order. */
40921
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1416
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1417 void
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1418 set_text_properties_1 (start, end, properties, buffer, i)
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1419 Lisp_Object start, end, properties, buffer;
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1420 INTERVAL i;
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1421 {
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1422 register INTERVAL prev_changed = NULL_INTERVAL;
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1423 register int s, len;
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1424 INTERVAL unchanged;
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1425
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1426 s = XINT (start);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1427 len = XINT (end) - s;
41589
67d2bb283076 (set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents: 41532
diff changeset
1428 if (len == 0)
67d2bb283076 (set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents: 41532
diff changeset
1429 return;
67d2bb283076 (set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents: 41532
diff changeset
1430 if (len < 0)
67d2bb283076 (set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents: 41532
diff changeset
1431 {
67d2bb283076 (set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents: 41532
diff changeset
1432 s = s + len;
67d2bb283076 (set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents: 41532
diff changeset
1433 len = - len;
67d2bb283076 (set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents: 41532
diff changeset
1434 }
67d2bb283076 (set_text_properties_1): Allow args in either order.
Richard M. Stallman <rms@gnu.org>
parents: 41532
diff changeset
1435
40921
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1436 if (i == 0)
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1437 i = find_interval (BUF_INTERVALS (XBUFFER (buffer)), s);
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1438
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1439 if (i->position != s)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1440 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1441 unchanged = i;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1442 i = split_interval_right (unchanged, s - unchanged->position);
1272
bfd04f61eb16 Mods to Ferase_text_properties
Joseph Arceneaux <jla@gnu.org>
parents: 1211
diff changeset
1443
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1444 if (LENGTH (i) > len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1445 {
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1446 copy_properties (unchanged, i);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1447 i = split_interval_left (i, len);
40921
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1448 set_properties (properties, i, buffer);
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1449 return;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1450 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1451
40921
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1452 set_properties (properties, i, buffer);
3553
5f9688c0b704 (Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents: 2783
diff changeset
1453
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1454 if (LENGTH (i) == len)
40921
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1455 return;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1456
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1457 prev_changed = i;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1458 len -= LENGTH (i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1459 i = next_interval (i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1460 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1461
1283
6f4cbcc62eba Minor optimizations of Fset_text_properties and Ferase_text_properties.
Joseph Arceneaux <jla@gnu.org>
parents: 1272
diff changeset
1462 /* 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
1463 while (len > 0)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1464 {
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1465 if (i == 0)
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1466 abort ();
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1467
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1468 if (LENGTH (i) >= len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1469 {
1283
6f4cbcc62eba Minor optimizations of Fset_text_properties and Ferase_text_properties.
Joseph Arceneaux <jla@gnu.org>
parents: 1272
diff changeset
1470 if (LENGTH (i) > len)
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1471 i = split_interval_left (i, len);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1472
13585
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1473 /* 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
1474 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
1475 and cause redisplay to happen. */
40921
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1476 set_properties (properties, i, buffer);
13585
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1477 if (!NULL_INTERVAL_P (prev_changed))
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1478 merge_interval_left (i);
40921
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1479 return;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1480 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1481
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1482 len -= LENGTH (i);
13585
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1483
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1484 /* 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
1485 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
1486 and cause redisplay to happen. */
40921
95756d215716 (set_text_properties_1): New subroutine, broken out of set_text_properties.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
1487 set_properties (properties, i, buffer);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1488 if (NULL_INTERVAL_P (prev_changed))
13585
dc00b7be6593 (Fset_text_properties): Call set_properties
Richard M. Stallman <rms@gnu.org>
parents: 13265
diff changeset
1489 prev_changed = i;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1490 else
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1491 prev_changed = i = merge_interval_left (i);
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1492
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1493 i = next_interval (i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1494 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1495 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1496
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1497 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
1498 Sremove_text_properties, 3, 4, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1499 doc: /* Remove some properties from text from START to END.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1500 The third argument PROPERTIES is a property list
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1501 whose property names specify the properties to remove.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1502 \(The values stored in PROPERTIES are ignored.)
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1503 If the optional fourth argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1504 the current buffer), START and END are buffer positions (integers or
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1505 markers). If OBJECT is a string, START and END are 0-based indices into it.
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1506 Return t if any property was actually removed, nil otherwise.
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1507
95453
ca950c418cdd (syms_of_textprop) <text-property-default-nonsticky>:
Juanma Barranquero <lekktu@gmail.com>
parents: 94963
diff changeset
1508 Use `set-text-properties' if you want to remove all text properties. */)
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1509 (start, end, properties, object)
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1510 Lisp_Object start, end, properties, object;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1511 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1512 register INTERVAL i, unchanged;
2124
54179ef9ce35 * textprop.c (Fadd_text_properties): Initialize the modified flag.
Jim Blandy <jimb@redhat.com>
parents: 2058
diff changeset
1513 register int s, len, modified = 0;
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1514
1857
9d65dfc7bdb7 (Fadd_text_properties): Put OBJECT arg last. Make it optional.
Richard M. Stallman <rms@gnu.org>
parents: 1715
diff changeset
1515 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1516 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
1517
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1518 i = validate_interval_range (object, &start, &end, soft);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1519 if (NULL_INTERVAL_P (i))
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1520 return Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1521
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1522 s = XINT (start);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1523 len = XINT (end) - s;
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
1524
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1525 if (i->position != s)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1526 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1527 /* No properties on this first interval -- return if
17467
98c47e7857f3 Style of comments corrected.
Richard M. Stallman <rms@gnu.org>
parents: 16679
diff changeset
1528 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
1529 if (! interval_has_some_properties (properties, i))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1530 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1531 int got = (LENGTH (i) - (s - i->position));
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1532 if (got >= len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1533 return Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1534 len -= got;
3858
e07d474bdba9 (Fremove_text_properties, Fadd_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 3698
diff changeset
1535 i = next_interval (i);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1536 }
3553
5f9688c0b704 (Fadd_text_properties): Don't treat the initial
Richard M. Stallman <rms@gnu.org>
parents: 2783
diff changeset
1537 /* 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
1538 want to modify. */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1539 else
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1540 {
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1541 unchanged = i;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1542 i = split_interval_right (unchanged, s - unchanged->position);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1543 copy_properties (unchanged, i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1544 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1545 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1546
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1547 if (BUFFERP (object))
72592
f6de516bbb4b * buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents: 72005
diff changeset
1548 modify_region (XBUFFER (object), XINT (start), XINT (end), 1);
16331
32a51f7ba384 (set_properties, add_properties, remove_properties):
Richard M. Stallman <rms@gnu.org>
parents: 16103
diff changeset
1549
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1550 /* 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
1551 for (;;)
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1552 {
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1553 if (i == 0)
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1554 abort ();
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
1555
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1556 if (LENGTH (i) >= len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1557 {
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1558 if (! interval_has_some_properties (properties, i))
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1559 return modified ? Qt : Qnil;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1560
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1561 if (LENGTH (i) == len)
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1562 {
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1563 remove_properties (properties, Qnil, i, object);
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1564 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1565 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
1566 XINT (end) - XINT (start));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1567 return Qt;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1568 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1569
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1570 /* 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
1571 unchanged = i;
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1572 i = split_interval_left (i, len);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1573 copy_properties (unchanged, i);
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1574 remove_properties (properties, Qnil, i, object);
16339
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1575 if (BUFFERP (object))
abcd50093b4e (Fset_text_properties, Fadd_text_properties)
Richard M. Stallman <rms@gnu.org>
parents: 16331
diff changeset
1576 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
1577 XINT (end) - XINT (start));
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1578 return Qt;
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1579 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1580
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1581 len -= LENGTH (i);
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1582 modified += remove_properties (properties, Qnil, i, object);
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1583 i = next_interval (i);
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1584 }
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1585 }
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1586
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1587 DEFUN ("remove-list-of-text-properties", Fremove_list_of_text_properties,
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1588 Sremove_list_of_text_properties, 3, 4, 0,
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1589 doc: /* Remove some properties from text from START to END.
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1590 The third argument LIST-OF-PROPERTIES is a list of property names to remove.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1591 If the optional fourth argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1592 the current buffer), START and END are buffer positions (integers or
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1593 markers). If OBJECT is a string, START and END are 0-based indices into it.
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1594 Return t if any property was actually removed, nil otherwise. */)
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1595 (start, end, list_of_properties, object)
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1596 Lisp_Object start, end, list_of_properties, object;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1597 {
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1598 register INTERVAL i, unchanged;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1599 register int s, len, modified = 0;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1600 Lisp_Object properties;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1601 properties = list_of_properties;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1602
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1603 if (NILP (object))
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1604 XSETBUFFER (object, current_buffer);
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1605
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1606 i = validate_interval_range (object, &start, &end, soft);
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1607 if (NULL_INTERVAL_P (i))
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1608 return Qnil;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1609
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1610 s = XINT (start);
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1611 len = XINT (end) - s;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1612
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1613 if (i->position != s)
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1614 {
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1615 /* No properties on this first interval -- return if
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1616 it covers the entire region. */
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1617 if (! interval_has_some_properties_list (properties, i))
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1618 {
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1619 int got = (LENGTH (i) - (s - i->position));
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1620 if (got >= len)
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1621 return Qnil;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1622 len -= got;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1623 i = next_interval (i);
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1624 }
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1625 /* Split away the beginning of this interval; what we don't
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1626 want to modify. */
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1627 else
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1628 {
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1629 unchanged = i;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1630 i = split_interval_right (unchanged, s - unchanged->position);
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1631 copy_properties (unchanged, i);
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1632 }
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1633 }
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1634
70129
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1635 /* We are at the beginning of an interval, with len to scan.
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1636 The flag `modified' records if changes have been made.
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1637 When object is a buffer, we must call modify_region before changes are
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1638 made and signal_after_change when we are done.
78501
1677cf1c2509 Replace `iff' in comments.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
1639 We call modify_region before calling remove_properties if modified == 0,
1677cf1c2509 Replace `iff' in comments.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
1640 and we call signal_after_change before returning if modified != 0. */
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1641 for (;;)
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1642 {
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1643 if (i == 0)
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1644 abort ();
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1645
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1646 if (LENGTH (i) >= len)
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1647 {
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1648 if (! interval_has_some_properties_list (properties, i))
70129
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1649 if (modified)
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1650 {
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1651 if (BUFFERP (object))
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1652 signal_after_change (XINT (start), XINT (end) - XINT (start),
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1653 XINT (end) - XINT (start));
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1654 return Qt;
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1655 }
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1656 else
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1657 return Qnil;
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1658
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1659 if (LENGTH (i) == len)
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1660 {
70129
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1661 if (!modified && BUFFERP (object))
72592
f6de516bbb4b * buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents: 72005
diff changeset
1662 modify_region (XBUFFER (object), XINT (start), XINT (end), 1);
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1663 remove_properties (Qnil, properties, i, object);
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1664 if (BUFFERP (object))
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1665 signal_after_change (XINT (start), XINT (end) - XINT (start),
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1666 XINT (end) - XINT (start));
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1667 return Qt;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1668 }
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1669
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1670 /* i has the properties, and goes past the change limit */
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1671 unchanged = i;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1672 i = split_interval_left (i, len);
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1673 copy_properties (unchanged, i);
70129
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1674 if (!modified && BUFFERP (object))
72592
f6de516bbb4b * buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents: 72005
diff changeset
1675 modify_region (XBUFFER (object), XINT (start), XINT (end), 1);
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1676 remove_properties (Qnil, properties, i, object);
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1677 if (BUFFERP (object))
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1678 signal_after_change (XINT (start), XINT (end) - XINT (start),
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1679 XINT (end) - XINT (start));
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1680 return Qt;
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1681 }
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1682
70129
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1683 if (interval_has_some_properties_list (properties, i))
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1684 {
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1685 if (!modified && BUFFERP (object))
72592
f6de516bbb4b * buffer.h (struct buffer_text): New field chars_modiff.
Chong Yidong <cyd@stupidchicken.com>
parents: 72005
diff changeset
1686 modify_region (XBUFFER (object), XINT (start), XINT (end), 1);
70129
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1687 remove_properties (Qnil, properties, i, object);
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1688 modified = 1;
af8798ce814c (Fremove_list_of_text_properties): Ensure
Lars Hansen <larsh@soem.dk>
parents: 68651
diff changeset
1689 }
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
1690 len -= LENGTH (i);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1691 i = next_interval (i);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1692 }
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
1693 }
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
1694
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1695 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
1696 Stext_property_any, 4, 5, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1697 doc: /* Check text from START to END for property PROPERTY equalling VALUE.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1698 If so, return the position of the first character whose property PROPERTY
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1699 is `eq' to VALUE. Otherwise return nil.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1700 If the optional fifth argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1701 the current buffer), START and END are buffer positions (integers or
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1702 markers). If OBJECT is a string, START and END are 0-based indices into it. */)
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1703 (start, end, property, value, object)
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1704 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
1705 {
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1706 register INTERVAL i;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1707 register int e, pos;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1708
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1709 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1710 XSETBUFFER (object, current_buffer);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1711 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
1712 if (NULL_INTERVAL_P (i))
701e7acfe885 (Ftext_property_any): Handle the trivial case specially.
Karl Heuer <kwzh@gnu.org>
parents: 10312
diff changeset
1713 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
1714 e = XINT (end);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1715
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1716 while (! NULL_INTERVAL_P (i))
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1717 {
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1718 if (i->position >= e)
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1719 break;
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1720 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
1721 {
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1722 pos = i->position;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1723 if (pos < XINT (start))
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1724 pos = XINT (start);
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
1725 return make_number (pos);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1726 }
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1727 i = next_interval (i);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1728 }
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1729 return Qnil;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1730 }
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1731
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1732 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
1733 Stext_property_not_all, 4, 5, 0,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1734 doc: /* Check text from START to END for property PROPERTY not equalling VALUE.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1735 If so, return the position of the first character whose property PROPERTY
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1736 is not `eq' to VALUE. Otherwise, return nil.
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1737 If the optional fifth argument OBJECT is a buffer (or nil, which means
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1738 the current buffer), START and END are buffer positions (integers or
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1739 markers). If OBJECT is a string, START and END are 0-based indices into it. */)
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1740 (start, end, property, value, object)
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1741 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
1742 {
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1743 register INTERVAL i;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1744 register int s, e;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1745
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1746 if (NILP (object))
9280
4b238c43e59f (Ftext_properties_at, Fget_char_property, Fnext_property_change,
Karl Heuer <kwzh@gnu.org>
parents: 9109
diff changeset
1747 XSETBUFFER (object, current_buffer);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1748 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
1749 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
1750 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
1751 s = XINT (start);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1752 e = XINT (end);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1753
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1754 while (! NULL_INTERVAL_P (i))
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1755 {
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1756 if (i->position >= e)
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1757 break;
14088
dc754f92a2a4 (Ftext_properties_at, Fget_text_property, Fget_char_property,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1758 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
1759 {
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1760 if (i->position > s)
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1761 s = i->position;
22344
2ec50b4767ed Handle the new convention that `position' values
Karl Heuer <kwzh@gnu.org>
parents: 22280
diff changeset
1762 return make_number (s);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1763 }
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1764 i = next_interval (i);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1765 }
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1766 return Qnil;
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
1767 }
43896
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1768
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1769
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1770 /* Return the direction from which the text-property PROP would be
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1771 inherited by any new text inserted at POS: 1 if it would be
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1772 inherited from the char after POS, -1 if it would be inherited from
51041
4370ce3fabb3 (text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49247
diff changeset
1773 the char before POS, and 0 if from neither.
4370ce3fabb3 (text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49247
diff changeset
1774 BUFFER can be either a buffer or nil (meaning current buffer). */
43896
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1775
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1776 int
51041
4370ce3fabb3 (text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49247
diff changeset
1777 text_property_stickiness (prop, pos, buffer)
4370ce3fabb3 (text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49247
diff changeset
1778 Lisp_Object prop, pos, buffer;
43896
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1779 {
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1780 Lisp_Object prev_pos, front_sticky;
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1781 int is_rear_sticky = 1, is_front_sticky = 0; /* defaults */
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1782
51041
4370ce3fabb3 (text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49247
diff changeset
1783 if (NILP (buffer))
4370ce3fabb3 (text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49247
diff changeset
1784 XSETBUFFER (buffer, current_buffer);
4370ce3fabb3 (text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49247
diff changeset
1785
4370ce3fabb3 (text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49247
diff changeset
1786 if (XINT (pos) > BUF_BEGV (XBUFFER (buffer)))
43896
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1787 /* Consider previous character. */
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1788 {
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1789 Lisp_Object rear_non_sticky;
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1790
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1791 prev_pos = make_number (XINT (pos) - 1);
51041
4370ce3fabb3 (text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49247
diff changeset
1792 rear_non_sticky = Fget_text_property (prev_pos, Qrear_nonsticky, buffer);
43896
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1793
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1794 if (!NILP (CONSP (rear_non_sticky)
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1795 ? Fmemq (prop, rear_non_sticky)
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1796 : rear_non_sticky))
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1797 /* PROP is rear-non-sticky. */
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1798 is_rear_sticky = 0;
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1799 }
71499
51f7fe4f6552 * textprop.c (text_property_stickiness): doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 70656
diff changeset
1800 else
51f7fe4f6552 * textprop.c (text_property_stickiness): doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 70656
diff changeset
1801 return 0;
43896
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1802
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1803 /* Consider following character. */
71499
51f7fe4f6552 * textprop.c (text_property_stickiness): doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 70656
diff changeset
1804 /* This signals an arg-out-of-range error if pos is outside the
51f7fe4f6552 * textprop.c (text_property_stickiness): doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 70656
diff changeset
1805 buffer's accessible range. */
51041
4370ce3fabb3 (text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49247
diff changeset
1806 front_sticky = Fget_text_property (pos, Qfront_sticky, buffer);
43896
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1807
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1808 if (EQ (front_sticky, Qt)
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1809 || (CONSP (front_sticky)
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1810 && !NILP (Fmemq (prop, front_sticky))))
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1811 /* PROP is inherited from after. */
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1812 is_front_sticky = 1;
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1813
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1814 /* Simple cases, where the properties are consistent. */
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1815 if (is_rear_sticky && !is_front_sticky)
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1816 return -1;
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1817 else if (!is_rear_sticky && is_front_sticky)
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1818 return 1;
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1819 else if (!is_rear_sticky && !is_front_sticky)
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1820 return 0;
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1821
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1822 /* The stickiness properties are inconsistent, so we have to
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1823 disambiguate. Basically, rear-sticky wins, _except_ if the
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1824 property that would be inherited has a value of nil, in which case
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1825 front-sticky wins. */
51041
4370ce3fabb3 (text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49247
diff changeset
1826 if (XINT (pos) == BUF_BEGV (XBUFFER (buffer))
4370ce3fabb3 (text_property_stickiness): New arg `buffer'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49247
diff changeset
1827 || NILP (Fget_text_property (prev_pos, prop, buffer)))
43896
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1828 return 1;
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1829 else
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1830 return -1;
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1831 }
fccc867cca64 (text_property_stickiness): Function moved here from `editfns.c'.
Miles Bader <miles@gnu.org>
parents: 42967
diff changeset
1832
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
1833
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1834 /* 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
1835 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
1836 around?
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1837
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1838 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
1839 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
1840 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
1841
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1842 /* 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
1843 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
1844 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
1845 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
1846 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
1847
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1848 /* 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
1849
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1850 Lisp_Object
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1851 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
1852 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
1853 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1854 INTERVAL i;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1855 Lisp_Object res;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1856 Lisp_Object stuff;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1857 Lisp_Object plist;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1858 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
1859 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
1860
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1861 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
1862 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
1863 return Qnil;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1864
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40647
diff changeset
1865 CHECK_NUMBER_COERCE_MARKER (pos);
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1866 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1867 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
1868
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1869 dest_start = pos;
9321
e6759002383c (Fnext_property_change, property_change_between_p,
Karl Heuer <kwzh@gnu.org>
parents: 9280
diff changeset
1870 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
1871 /* 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
1872 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
1873 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
1874 }
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1875
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1876 s = XINT (start);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1877 e = XINT (end);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1878 p = XINT (pos);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1879
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1880 stuff = Qnil;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1881
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1882 while (s < e)
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1883 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1884 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
1885 if (e2 > e)
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1886 e2 = e;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1887 len = e2 - s;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1888
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1889 plist = i->plist;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1890 if (! NILP (prop))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1891 while (! NILP (plist))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1892 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1893 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
1894 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1895 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
1896 break;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1897 }
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1898 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
1899 }
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1900 if (! NILP (plist))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1901 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1902 /* 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
1903 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
1904 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
1905 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
1906 Fcons (plist, Qnil))),
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1907 stuff);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1908 }
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1909
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1910 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
1911 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
1912 break;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1913
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1914 p += len;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1915 s = i->position;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1916 }
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1917
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1918 GCPRO2 (stuff, dest);
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1919
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1920 while (! NILP (stuff))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1921 {
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1922 res = Fcar (stuff);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1923 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
1924 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
1925 if (! NILP (res))
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1926 modified++;
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1927 stuff = Fcdr (stuff);
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1928 }
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1929
10159
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1930 UNGCPRO;
1299d37b51bb (add_properties): Add gcpro's.
Richard M. Stallman <rms@gnu.org>
parents: 9945
diff changeset
1931
4007
55da23f04d01 * textprop.c (copy_text_properties): Pass a copy of POS to
Jim Blandy <jimb@redhat.com>
parents: 3998
diff changeset
1932 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
1933 }
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1934
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1935
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1936 /* Return a list representing the text properties of OBJECT between
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1937 START and END. if PROP is non-nil, report only on that property.
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1938 Each result list element has the form (S E PLIST), where S and E
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1939 are positions in OBJECT and PLIST is a property list containing the
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1940 text properties of OBJECT between S and E. Value is nil if OBJECT
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1941 doesn't contain text properties between START and END. */
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1942
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1943 Lisp_Object
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1944 text_property_list (object, start, end, prop)
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1945 Lisp_Object object, start, end, prop;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1946 {
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1947 struct interval *i;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1948 Lisp_Object result;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1949
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1950 result = Qnil;
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1951
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1952 i = validate_interval_range (object, &start, &end, soft);
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1953 if (!NULL_INTERVAL_P (i))
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1954 {
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1955 int s = XINT (start);
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1956 int e = XINT (end);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1957
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1958 while (s < e)
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1959 {
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1960 int interval_end, len;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1961 Lisp_Object plist;
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1962
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1963 interval_end = i->position + LENGTH (i);
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1964 if (interval_end > e)
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1965 interval_end = e;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1966 len = interval_end - s;
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1967
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1968 plist = i->plist;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1969
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1970 if (!NILP (prop))
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
1971 for (; CONSP (plist); plist = Fcdr (XCDR (plist)))
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
1972 if (EQ (XCAR (plist), prop))
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1973 {
85372
f7d19cfed7da * xselect.c (x_own_selection, x_handle_selection_clear)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
1974 plist = Fcons (prop, Fcons (Fcar (XCDR (plist)), Qnil));
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1975 break;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1976 }
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1977
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1978 if (!NILP (plist))
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1979 result = Fcons (Fcons (make_number (s),
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1980 Fcons (make_number (s + len),
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1981 Fcons (plist, Qnil))),
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1982 result);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1983
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1984 i = next_interval (i);
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1985 if (NULL_INTERVAL_P (i))
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1986 break;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1987 s = i->position;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1988 }
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1989 }
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
1990
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1991 return result;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1992 }
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1993
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1994
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1995 /* Add text properties to OBJECT from LIST. LIST is a list of triples
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1996 (START END PLIST), where START and END are positions and PLIST is a
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1997 property list containing the text properties to add. Adjust START
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1998 and END positions by DELTA before adding properties. Value is
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
1999 non-zero if OBJECT was modified. */
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2001 int
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2002 add_text_properties_from_list (object, list, delta)
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2003 Lisp_Object object, list, delta;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2004 {
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2005 struct gcpro gcpro1, gcpro2;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2006 int modified_p = 0;
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
2007
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2008 GCPRO2 (list, object);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
2009
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2010 for (; CONSP (list); list = XCDR (list))
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2011 {
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2012 Lisp_Object item, start, end, plist, tem;
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
2013
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2014 item = XCAR (list);
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2015 start = make_number (XINT (XCAR (item)) + XINT (delta));
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2016 end = make_number (XINT (XCAR (XCDR (item))) + XINT (delta));
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2017 plist = XCAR (XCDR (XCDR (item)));
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
2018
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2019 tem = Fadd_text_properties (start, end, plist, object);
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2020 if (!NILP (tem))
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2021 modified_p = 1;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2022 }
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2023
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2024 UNGCPRO;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2025 return modified_p;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2026 }
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2027
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2028
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2029
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2030 /* Modify end-points of ranges in LIST destructively. LIST is a list
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2031 as returned from text_property_list. Change end-points equal to
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2032 OLD_END to NEW_END. */
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2033
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2034 void
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2035 extend_property_ranges (list, old_end, new_end)
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2036 Lisp_Object list, old_end, new_end;
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2037 {
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2038 for (; CONSP (list); list = XCDR (list))
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2039 {
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2040 Lisp_Object item, end;
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
2041
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2042 item = XCAR (list);
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2043 end = XCAR (XCDR (item));
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2044
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2045 if (EQ (end, old_end))
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39527
diff changeset
2046 XSETCAR (XCDR (item), new_end);
25000
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2047 }
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2048 }
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2049
866dad44a275 (text_property_list): New.
Gerd Moellmann <gerd@gnu.org>
parents: 23729
diff changeset
2050
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2051
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2052 /* 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
2053
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2054 static void
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2055 call_mod_hooks (list, start, end)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2056 Lisp_Object list, start, end;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2057 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2058 struct gcpro gcpro1;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2059 GCPRO1 (list);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2060 while (!NILP (list))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2061 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2062 call2 (Fcar (list), start, end);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2063 list = Fcdr (list);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2064 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2065 UNGCPRO;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2066 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2067
20522
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
2068 /* 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
2069 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
2070
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
2071 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
2072 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
2073 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
2074 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
2075
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2076 void
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2077 verify_interval_modification (buf, start, end)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2078 struct buffer *buf;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2079 int start, end;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2080 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2081 register INTERVAL intervals = BUF_INTERVALS (buf);
25772
1902e7e63fa7 (Fset_text_properties): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25645
diff changeset
2082 register INTERVAL i;
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2083 Lisp_Object hooks;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2084 register Lisp_Object prev_mod_hooks;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2085 Lisp_Object mod_hooks;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2086 struct gcpro gcpro1;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2087
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2088 hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2089 prev_mod_hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2090 mod_hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2091
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2092 interval_insert_behind_hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2093 interval_insert_in_front_hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2094
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2095 if (NULL_INTERVAL_P (intervals))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2096 return;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2097
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2098 if (start > end)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2099 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2100 int temp = start;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2101 start = end;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2102 end = temp;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2103 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2104
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2105 /* 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
2106 if (start == end)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2107 {
33952
ca22422634ac (text_read_only): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 32849
diff changeset
2108 INTERVAL prev = NULL;
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2109 Lisp_Object before, after;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2110
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2111 /* 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
2112 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
2113 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
2114 i = find_interval (intervals, start);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2115
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2116 if (start == BUF_BEGV (buf))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2117 prev = 0;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2118 else if (i->position == start)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2119 prev = previous_interval (i);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2120 else if (i->position < start)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2121 prev = i;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2122 if (start == BUF_ZV (buf))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2123 i = 0;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2124
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2125 /* 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
2126 skip the read_only checks. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2127 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
2128 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2129 /* 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
2130 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
2131 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
2132 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
2133 indirectly defined via the category property. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2134 if (i != prev)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2135 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2136 if (! NULL_INTERVAL_P (i))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2137 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2138 after = textget (i->plist, Qread_only);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
2139
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2140 /* 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
2141 front-sticky, inhibit insertion.
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2142 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
2143 if (! NILP (after)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2144 && NILP (Fmemq (after, Vinhibit_read_only)))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2145 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2146 Lisp_Object tem;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2147
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2148 tem = textget (i->plist, Qfront_sticky);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2149 if (TMEM (Qread_only, tem)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2150 || (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
2151 && TMEM (Qcategory, tem)))
48840
b6981c46191d (text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46448
diff changeset
2152 text_read_only (after);
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2153 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2154 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2155
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2156 if (! NULL_INTERVAL_P (prev))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2157 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2158 before = textget (prev->plist, Qread_only);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
2159
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2160 /* 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
2161 rear-nonsticky, inhibit insertion.
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2162 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
2163 if (! NILP (before)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2164 && NILP (Fmemq (before, Vinhibit_read_only)))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2165 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2166 Lisp_Object tem;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2167
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2168 tem = textget (prev->plist, Qrear_nonsticky);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2169 if (! TMEM (Qread_only, tem)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2170 && (! 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
2171 || ! TMEM (Qcategory, tem)))
48840
b6981c46191d (text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46448
diff changeset
2172 text_read_only (before);
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2173 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2174 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2175 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2176 else if (! NULL_INTERVAL_P (i))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2177 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2178 after = textget (i->plist, Qread_only);
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
2179
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2180 /* 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
2181 front-sticky, inhibit insertion.
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2182 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
2183 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
2184 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2185 Lisp_Object tem;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2186
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2187 tem = textget (i->plist, Qfront_sticky);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2188 if (TMEM (Qread_only, tem)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2189 || (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
2190 && TMEM (Qcategory, tem)))
48840
b6981c46191d (text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46448
diff changeset
2191 text_read_only (after);
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2192
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2193 tem = textget (prev->plist, Qrear_nonsticky);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2194 if (! TMEM (Qread_only, tem)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2195 && (! 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
2196 || ! TMEM (Qcategory, tem)))
48840
b6981c46191d (text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46448
diff changeset
2197 text_read_only (after);
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2198 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2199 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2200 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2201
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2202 /* 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
2203 if (!NULL_INTERVAL_P (prev))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2204 interval_insert_behind_hooks
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2205 = textget (prev->plist, Qinsert_behind_hooks);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2206 if (!NULL_INTERVAL_P (i))
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2207 interval_insert_in_front_hooks
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2208 = 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
2209 }
39247
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2210 else
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2211 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2212 /* 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
2213 collecting their hooks. */
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2214
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2215 i = find_interval (intervals, start);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2216 do
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2217 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2218 if (! INTERVAL_WRITABLE_P (i))
48840
b6981c46191d (text_read_only): New arg `propval'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46448
diff changeset
2219 text_read_only (textget (i->plist, Qread_only));
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2220
39247
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2221 if (!inhibit_modification_hooks)
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2222 {
39247
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2223 mod_hooks = textget (i->plist, Qmodification_hooks);
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2224 if (! NILP (mod_hooks) && ! EQ (mod_hooks, prev_mod_hooks))
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2225 {
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2226 hooks = Fcons (mod_hooks, hooks);
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2227 prev_mod_hooks = mod_hooks;
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2228 }
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2229 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2230
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2231 i = next_interval (i);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2232 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2233 /* 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
2234 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
2235
39247
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2236 if (!inhibit_modification_hooks)
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2237 {
39247
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2238 GCPRO1 (hooks);
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2239 hooks = Fnreverse (hooks);
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2240 while (! EQ (hooks, Qnil))
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2241 {
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2242 call_mod_hooks (Fcar (hooks), make_number (start),
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2243 make_number (end));
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2244 hooks = Fcdr (hooks);
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2245 }
989367eb5ce1 (verify_interval_modification): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39242
diff changeset
2246 UNGCPRO;
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2247 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2248 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2249 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2250
20522
4409f95651d1 (Ftext_properties_at): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 18736
diff changeset
2251 /* 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
2252 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
2253 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
2254 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
2255
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2256 void
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2257 report_interval_modification (start, end)
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2258 Lisp_Object start, end;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2259 {
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2260 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
2261 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
2262 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
2263 && ! EQ (interval_insert_in_front_hooks,
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2264 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
2265 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
2266 }
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2267
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2268 void
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2269 syms_of_textprop ()
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2270 {
11131
5db8a01b22cb (Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents: 11116
diff changeset
2271 DEFVAR_LISP ("default-text-properties", &Vdefault_text_properties,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2272 doc: /* Property-list used as default values.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2273 The value of a property in this list is seen as the value for every
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2274 character that does not have its own value for that property. */);
11131
5db8a01b22cb (Vdefault_text_properties): name changed from Vdefault_properties.
Boris Goldowsky <boris@gnu.org>
parents: 11116
diff changeset
2275 Vdefault_text_properties = Qnil;
10925
0480d65be55d (Vdefault_properties): New vbl.
Boris Goldowsky <boris@gnu.org>
parents: 10488
diff changeset
2276
45680
c9e70e34b426 (Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents: 44976
diff changeset
2277 DEFVAR_LISP ("char-property-alias-alist", &Vchar_property_alias_alist,
c9e70e34b426 (Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents: 44976
diff changeset
2278 doc: /* Alist of alternative properties for properties without a value.
c9e70e34b426 (Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents: 44976
diff changeset
2279 Each element should look like (PROPERTY ALTERNATIVE1 ALTERNATIVE2...).
c9e70e34b426 (Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents: 44976
diff changeset
2280 If a piece of text has no direct value for a particular property, then
c9e70e34b426 (Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents: 44976
diff changeset
2281 this alist is consulted. If that property appears in the alist, then
c9e70e34b426 (Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents: 44976
diff changeset
2282 the first non-nil value from the associated alternative properties is
c9e70e34b426 (Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents: 44976
diff changeset
2283 returned. */);
c9e70e34b426 (Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents: 44976
diff changeset
2284 Vchar_property_alias_alist = Qnil;
c9e70e34b426 (Vchar_property_alias_alist): New variable.
Colin Walters <walters@gnu.org>
parents: 44976
diff changeset
2285
4242
49007dbbec4c (syms_of_textprop): Set up Lisp var Vinhibit_point_motion_hooks.
Richard M. Stallman <rms@gnu.org>
parents: 4214
diff changeset
2286 DEFVAR_LISP ("inhibit-point-motion-hooks", &Vinhibit_point_motion_hooks,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2287 doc: /* If non-nil, don't run `point-left' and `point-entered' text properties.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2288 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
2289 Vinhibit_point_motion_hooks = Qnil;
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2290
26872
ea588757e607 (Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents: 26605
diff changeset
2291 DEFVAR_LISP ("text-property-default-nonsticky",
ea588757e607 (Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents: 26605
diff changeset
2292 &Vtext_property_default_nonsticky,
40123
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2293 doc: /* Alist of properties vs the corresponding non-stickinesses.
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2294 Each element has the form (PROPERTY . NONSTICKINESS).
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2295
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2296 If a character in a buffer has PROPERTY, new text inserted adjacent to
e528f2adeed4 Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2297 the character doesn't inherit PROPERTY if NONSTICKINESS is non-nil,
95453
ca950c418cdd (syms_of_textprop) <text-property-default-nonsticky>:
Juanma Barranquero <lekktu@gmail.com>
parents: 94963
diff changeset
2298 inherits it if NONSTICKINESS is nil. The `front-sticky' and
ca950c418cdd (syms_of_textprop) <text-property-default-nonsticky>:
Juanma Barranquero <lekktu@gmail.com>
parents: 94963
diff changeset
2299 `rear-nonsticky' properties of the character override NONSTICKINESS. */);
57477
c4f6faab46b0 (syms_of_textprop): Add `syntax-table' to the nonsticky props.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55652
diff changeset
2300 /* Text property `syntax-table' should be nonsticky by default. */
c4f6faab46b0 (syms_of_textprop): Add `syntax-table' to the nonsticky props.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55652
diff changeset
2301 Vtext_property_default_nonsticky
c4f6faab46b0 (syms_of_textprop): Add `syntax-table' to the nonsticky props.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 55652
diff changeset
2302 = Fcons (Fcons (intern ("syntax-table"), Qt), Qnil);
26872
ea588757e607 (Vtext_property_default_nonsticky): New variable
Kenichi Handa <handa@m17n.org>
parents: 26605
diff changeset
2303
13027
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2304 staticpro (&interval_insert_behind_hooks);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2305 staticpro (&interval_insert_in_front_hooks);
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2306 interval_insert_behind_hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2307 interval_insert_in_front_hooks = Qnil;
48358e0fa98e (call_mod_hooks): Moved from intevals.c
Richard M. Stallman <rms@gnu.org>
parents: 12641
diff changeset
2308
49247
5856f0179746 (Ftext_properties_at, Fnext_char_property_change)
Francesco Potortì <pot@gnu.org>
parents: 48840
diff changeset
2309
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2310 /* Common attributes one might give text */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2311
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2312 staticpro (&Qforeground);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2313 Qforeground = intern ("foreground");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2314 staticpro (&Qbackground);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2315 Qbackground = intern ("background");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2316 staticpro (&Qfont);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2317 Qfont = intern ("font");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2318 staticpro (&Qstipple);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2319 Qstipple = intern ("stipple");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2320 staticpro (&Qunderline);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2321 Qunderline = intern ("underline");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2322 staticpro (&Qread_only);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2323 Qread_only = intern ("read-only");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2324 staticpro (&Qinvisible);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2325 Qinvisible = intern ("invisible");
6755
a2bccbc870e6 (syms_of_textprop): Initialize Qintangible.
Karl Heuer <kwzh@gnu.org>
parents: 6681
diff changeset
2326 staticpro (&Qintangible);
a2bccbc870e6 (syms_of_textprop): Initialize Qintangible.
Karl Heuer <kwzh@gnu.org>
parents: 6681
diff changeset
2327 Qintangible = intern ("intangible");
2058
a43d0bb1b7d8 (Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents: 2053
diff changeset
2328 staticpro (&Qcategory);
a43d0bb1b7d8 (Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents: 2053
diff changeset
2329 Qcategory = intern ("category");
a43d0bb1b7d8 (Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents: 2053
diff changeset
2330 staticpro (&Qlocal_map);
a43d0bb1b7d8 (Fget_text_property): Use textget.
Richard M. Stallman <rms@gnu.org>
parents: 2053
diff changeset
2331 Qlocal_map = intern ("local-map");
4381
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
2332 staticpro (&Qfront_sticky);
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
2333 Qfront_sticky = intern ("front-sticky");
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
2334 staticpro (&Qrear_nonsticky);
b0556af4d680 (Qfront_sticky, Qrear_nonsticky): New variables.
Richard M. Stallman <rms@gnu.org>
parents: 4242
diff changeset
2335 Qrear_nonsticky = intern ("rear-nonsticky");
23729
cf1cbb0e5d5b (Qmouse_face): Variable definition moved here.
Richard M. Stallman <rms@gnu.org>
parents: 22344
diff changeset
2336 staticpro (&Qmouse_face);
cf1cbb0e5d5b (Qmouse_face): Variable definition moved here.
Richard M. Stallman <rms@gnu.org>
parents: 22344
diff changeset
2337 Qmouse_face = intern ("mouse-face");
100688
8233f3e2beb4 * textprop.c (Qminibuffer_prompt): New variable.
Martin Rudalics <rudalics@gmx.at>
parents: 99343
diff changeset
2338 staticpro (&Qminibuffer_prompt);
8233f3e2beb4 * textprop.c (Qminibuffer_prompt): New variable.
Martin Rudalics <rudalics@gmx.at>
parents: 99343
diff changeset
2339 Qminibuffer_prompt = intern ("minibuffer-prompt");
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2340
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2341 /* Properties that text might use to specify certain actions */
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2342
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2343 staticpro (&Qmouse_left);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2344 Qmouse_left = intern ("mouse-left");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2345 staticpro (&Qmouse_entered);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2346 Qmouse_entered = intern ("mouse-entered");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2347 staticpro (&Qpoint_left);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2348 Qpoint_left = intern ("point-left");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2349 staticpro (&Qpoint_entered);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2350 Qpoint_entered = intern ("point-entered");
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2351
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2352 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
2353 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
2354 defsubr (&Sget_char_property);
53201
c90162ba57c6 (Fget_char_property_and_overlay): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
2355 defsubr (&Sget_char_property_and_overlay);
16679
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
2356 defsubr (&Snext_char_property_change);
38c158927e6f (Fnext_char_property_change): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16339
diff changeset
2357 defsubr (&Sprevious_char_property_change);
30242
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
2358 defsubr (&Snext_single_char_property_change);
6af73af0f1ef (Fnext_single_char_property_change):
Miles Bader <miles@gnu.org>
parents: 29342
diff changeset
2359 defsubr (&Sprevious_single_char_property_change);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2360 defsubr (&Snext_property_change);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
2361 defsubr (&Snext_single_property_change);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2362 defsubr (&Sprevious_property_change);
1211
9f50cccf5963 See ChangeLog
Joseph Arceneaux <jla@gnu.org>
parents: 1055
diff changeset
2363 defsubr (&Sprevious_single_property_change);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2364 defsubr (&Sadd_text_properties);
1965
2bdbd6ed2430 (Fadd_text_properties, Fremove_text_properties):
Richard M. Stallman <rms@gnu.org>
parents: 1930
diff changeset
2365 defsubr (&Sput_text_property);
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2366 defsubr (&Sset_text_properties);
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2367 defsubr (&Sremove_text_properties);
44673
01f74663f76e (remove_properties): New arg LIST allows scanning
Richard M. Stallman <rms@gnu.org>
parents: 43896
diff changeset
2368 defsubr (&Sremove_list_of_text_properties);
4144
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
2369 defsubr (&Stext_property_any);
8f5545cf9774 * intervals.c (split_interval_left, split_interval_right): Change
Jim Blandy <jimb@redhat.com>
parents: 4076
diff changeset
2370 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
2371 /* 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
2372 /* defsubr (&Scopy_text_properties); */
1029
425f62908a54 Initial revision
Joseph Arceneaux <jla@gnu.org>
parents:
diff changeset
2373 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51041
diff changeset
2374
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51041
diff changeset
2375 /* arch-tag: 454cdde8-5f86-4faa-a078-101e3625d479
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51041
diff changeset
2376 (do not change this comment) */