Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
837584c7
Commit
837584c7
authored
Feb 19, 2008
by
Stefan Monnier
Browse files
(INT_LISPLIKE): Remove. It may misfire.
(NULL_INTERVAL_P, SET_INTERVAL_PARENT): Don't use it.
parent
5f082d1f
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
18 deletions
+6
-18
src/ChangeLog
src/ChangeLog
+5
-0
src/intervals.h
src/intervals.h
+1
-18
No files found.
src/ChangeLog
View file @
837584c7
2008-02-19 Stefan Monnier <monnier@iro.umontreal.ca>
* intervals.h (INT_LISPLIKE): Remove. It may misfire.
(NULL_INTERVAL_P, SET_INTERVAL_PARENT): Don't use it.
2008-02-18 Jason Rumney <jasonr@gnu.org>
* w32fns.c (Fw32_shell_execute): Encode parameters.
...
...
src/intervals.h
View file @
837584c7
...
...
@@ -75,24 +75,7 @@ struct interval
/* Size of a pointer to an interval structure */
#define INTERVAL_PTR_SIZE (sizeof (struct interval *))
/* True if an interval pointer is null, or is a Lisp_Buffer or
Lisp_String pointer (meaning it points to the owner of this
interval tree). */
#ifdef NO_UNION_TYPE
#define INT_LISPLIKE(i) (BUFFERP ((Lisp_Object)(i)) \
|| STRINGP ((Lisp_Object)(i)))
#else
#define INT_LISPLIKE(i) (BUFFERP ((Lisp_Object){(EMACS_INT)(i)}) \
|| STRINGP ((Lisp_Object){(EMACS_INT)(i)}))
#endif
#ifdef ENABLE_CHECKING
#define NULL_INTERVAL_P(i) \
(CHECK (!INT_LISPLIKE (i), "non-interval"), (i) == NULL_INTERVAL)
/* old #define NULL_INTERVAL_P(i) ((i) == NULL_INTERVAL || INT_LISPLIKE (i)) */
#else
#define NULL_INTERVAL_P(i) ((i) == NULL_INTERVAL)
#endif
/* True if this interval has no right child. */
#define NULL_RIGHT_CHILD(i) ((i)->right == NULL_INTERVAL)
...
...
@@ -162,7 +145,7 @@ struct interval
casts to get around this, it will break some development work in
progress. */
#define SET_INTERVAL_PARENT(i,p) \
(
eassert (!INT_LISPLIKE (p)),
(i)->up_obj = 0, (i)->up.interval = (p))
((i)->up_obj = 0, (i)->up.interval = (p))
#define SET_INTERVAL_OBJECT(i,o) \
(eassert (BUFFERP (o) || STRINGP (o)), (i)->up_obj = 1, (i)->up.obj = (o))
#define INTERVAL_PARENT(i) \
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment