Commit 81c23309 authored by Paul Eggert's avatar Paul Eggert
Browse files

* textprop.c: Use bool for booleans.

(validate_interval_range, Fadd_text_properties)
(Fremove_text_properties): Prefer bool to int when either works.
parent c175d440
2013-03-02 Paul Eggert <eggert@cs.ucla.edu>
* textprop.c: Use bool for booleans.
(validate_interval_range, Fadd_text_properties)
(Fremove_text_properties): Prefer bool to int when either works.
2013-03-02 Eli Zaretskii <eliz@gnu.org> 2013-03-02 Eli Zaretskii <eliz@gnu.org>
   
* textprop.c (Fadd_text_properties, Fremove_text_properties): If * textprop.c (Fadd_text_properties, Fremove_text_properties): If
......
...@@ -259,7 +259,7 @@ extern Lisp_Object get_local_map (ptrdiff_t, struct buffer *, Lisp_Object); ...@@ -259,7 +259,7 @@ extern Lisp_Object get_local_map (ptrdiff_t, struct buffer *, Lisp_Object);
extern INTERVAL update_interval (INTERVAL, ptrdiff_t); extern INTERVAL update_interval (INTERVAL, ptrdiff_t);
extern void set_intervals_multibyte (bool); extern void set_intervals_multibyte (bool);
extern INTERVAL validate_interval_range (Lisp_Object, Lisp_Object *, extern INTERVAL validate_interval_range (Lisp_Object, Lisp_Object *,
Lisp_Object *, int); Lisp_Object *, bool);
extern INTERVAL interval_of (ptrdiff_t, Lisp_Object); extern INTERVAL interval_of (ptrdiff_t, Lisp_Object);
/* Defined in xdisp.c. */ /* Defined in xdisp.c. */
......
...@@ -125,9 +125,10 @@ modify_region (Lisp_Object buffer, Lisp_Object start, Lisp_Object end) ...@@ -125,9 +125,10 @@ modify_region (Lisp_Object buffer, Lisp_Object start, Lisp_Object end)
#define hard 1 #define hard 1
INTERVAL INTERVAL
validate_interval_range (Lisp_Object object, Lisp_Object *begin, Lisp_Object *end, int force) validate_interval_range (Lisp_Object object, Lisp_Object *begin,
Lisp_Object *end, bool force)
{ {
register INTERVAL i; INTERVAL i;
ptrdiff_t searchpos; ptrdiff_t searchpos;
CHECK_STRING_OR_BUFFER (object); CHECK_STRING_OR_BUFFER (object);
...@@ -1131,7 +1132,7 @@ Return t if any property value actually changed, nil otherwise. */) ...@@ -1131,7 +1132,7 @@ Return t if any property value actually changed, nil otherwise. */)
ptrdiff_t s, len; ptrdiff_t s, len;
bool modified = 0; bool modified = 0;
struct gcpro gcpro1; struct gcpro gcpro1;
int first_time = 1; bool first_time = 1;
properties = validate_plist (properties); properties = validate_plist (properties);
if (NILP (properties)) if (NILP (properties))
...@@ -1446,7 +1447,7 @@ Use `set-text-properties' if you want to remove all text properties. */) ...@@ -1446,7 +1447,7 @@ Use `set-text-properties' if you want to remove all text properties. */)
INTERVAL i, unchanged; INTERVAL i, unchanged;
ptrdiff_t s, len; ptrdiff_t s, len;
bool modified = 0; bool modified = 0;
int first_time = 1; bool first_time = 1;
if (NILP (object)) if (NILP (object))
XSETBUFFER (object, current_buffer); XSETBUFFER (object, current_buffer);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment