diff options
| author | Dave Love | 2000-08-17 13:51:37 +0000 |
|---|---|---|
| committer | Dave Love | 2000-08-17 13:51:37 +0000 |
| commit | a9800ae8a9e4816692ad29c8328b2e4f74617128 (patch) | |
| tree | 267fc48669b186d0ed8b9a6f05f50296ba544e64 /src/buffer.c | |
| parent | bb4fee022a7900dc607e2850743341ae145c0339 (diff) | |
| download | emacs-a9800ae8a9e4816692ad29c8328b2e4f74617128.tar.gz emacs-a9800ae8a9e4816692ad29c8328b2e4f74617128.zip | |
(Fget_buffer_create, Fmake_indirect_buffer): Avoid
INITIALIZE_INTERVAL.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/buffer.c b/src/buffer.c index 17bf353afac..ea4d4699ceb 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -385,7 +385,7 @@ The value is never nil.") | |||
| 385 | b->zv_marker = Qnil; | 385 | b->zv_marker = Qnil; |
| 386 | 386 | ||
| 387 | name = Fcopy_sequence (name); | 387 | name = Fcopy_sequence (name); |
| 388 | INITIALIZE_INTERVAL (XSTRING (name), NULL_INTERVAL); | 388 | XSTRING (name)->intervals = NULL_INTERVAL; |
| 389 | b->name = name; | 389 | b->name = name; |
| 390 | 390 | ||
| 391 | if (XSTRING (name)->data[0] != ' ') | 391 | if (XSTRING (name)->data[0] != ' ') |
| @@ -501,7 +501,7 @@ CLONE nil means the indirect buffer's state is reset to default values.") | |||
| 501 | all_buffers = b; | 501 | all_buffers = b; |
| 502 | 502 | ||
| 503 | name = Fcopy_sequence (name); | 503 | name = Fcopy_sequence (name); |
| 504 | INITIALIZE_INTERVAL (XSTRING (name), NULL_INTERVAL); | 504 | XSTRING (name)->intervals = NULL_INTERVAL; |
| 505 | b->name = name; | 505 | b->name = name; |
| 506 | 506 | ||
| 507 | reset_buffer (b); | 507 | reset_buffer (b); |
| @@ -3517,6 +3517,7 @@ DEFUN ("overlays-at", Foverlays_at, Soverlays_at, 1, 1, 0, | |||
| 3517 | CHECK_NUMBER_COERCE_MARKER (pos, 0); | 3517 | CHECK_NUMBER_COERCE_MARKER (pos, 0); |
| 3518 | 3518 | ||
| 3519 | len = 10; | 3519 | len = 10; |
| 3520 | /* We can't use alloca here because overlays_at can call xrealloc. */ | ||
| 3520 | overlay_vec = (Lisp_Object *) xmalloc (len * sizeof (Lisp_Object)); | 3521 | overlay_vec = (Lisp_Object *) xmalloc (len * sizeof (Lisp_Object)); |
| 3521 | 3522 | ||
| 3522 | /* Put all the overlays we want in a vector in overlay_vec. | 3523 | /* Put all the overlays we want in a vector in overlay_vec. |