Commit 6af718a4 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(Fkill_buffer): Remove unused variables.

(Fkill_buffer, overlays_at, overlays_in, recenter_overlay_lists,
fix_overlays_in_range, Fmove_overlay, Fprevious_overlay_change,
init_buffer_once, (syms_of_buffer): Ditto.
parent 5f8d6a10
...@@ -1042,7 +1042,7 @@ with SIGHUP.") ...@@ -1042,7 +1042,7 @@ with SIGHUP.")
register struct buffer *b; register struct buffer *b;
register Lisp_Object tem; register Lisp_Object tem;
register struct Lisp_Marker *m; register struct Lisp_Marker *m;
struct gcpro gcpro1, gcpro2; struct gcpro gcpro1;
if (NILP (buffer)) if (NILP (buffer))
buf = Fcurrent_buffer (); buf = Fcurrent_buffer ();
...@@ -1071,7 +1071,6 @@ with SIGHUP.") ...@@ -1071,7 +1071,6 @@ with SIGHUP.")
/* Run hooks with the buffer to be killed the current buffer. */ /* Run hooks with the buffer to be killed the current buffer. */
{ {
register Lisp_Object val;
int count = specpdl_ptr - specpdl; int count = specpdl_ptr - specpdl;
Lisp_Object list; Lisp_Object list;
...@@ -2032,7 +2031,7 @@ overlays_at (pos, extend, vec_ptr, len_ptr, next_ptr, prev_ptr) ...@@ -2032,7 +2031,7 @@ overlays_at (pos, extend, vec_ptr, len_ptr, next_ptr, prev_ptr)
int *next_ptr; int *next_ptr;
int *prev_ptr; int *prev_ptr;
{ {
Lisp_Object tail, overlay, start, end, result; Lisp_Object tail, overlay, start, end;
int idx = 0; int idx = 0;
int len = *len_ptr; int len = *len_ptr;
Lisp_Object *vec = *vec_ptr; Lisp_Object *vec = *vec_ptr;
...@@ -2175,7 +2174,7 @@ overlays_in (beg, end, extend, vec_ptr, len_ptr, next_ptr, prev_ptr) ...@@ -2175,7 +2174,7 @@ overlays_in (beg, end, extend, vec_ptr, len_ptr, next_ptr, prev_ptr)
int *next_ptr; int *next_ptr;
int *prev_ptr; int *prev_ptr;
{ {
Lisp_Object tail, overlay, ostart, oend, result; Lisp_Object tail, overlay, ostart, oend;
int idx = 0; int idx = 0;
int len = *len_ptr; int len = *len_ptr;
Lisp_Object *vec = *vec_ptr; Lisp_Object *vec = *vec_ptr;
...@@ -2684,8 +2683,7 @@ recenter_overlay_lists (buf, pos) ...@@ -2684,8 +2683,7 @@ recenter_overlay_lists (buf, pos)
CONSP (other); CONSP (other);
other_prev = other, other = XCONS (other)->cdr) other_prev = other, other = XCONS (other)->cdr)
{ {
Lisp_Object otherbeg, otheroverlay, follower; Lisp_Object otherbeg, otheroverlay;
int win;
otheroverlay = XCONS (other)->car; otheroverlay = XCONS (other)->car;
if (! OVERLAY_VALID (otheroverlay)) if (! OVERLAY_VALID (otheroverlay))
...@@ -2763,7 +2761,6 @@ recenter_overlay_lists (buf, pos) ...@@ -2763,7 +2761,6 @@ recenter_overlay_lists (buf, pos)
other_prev = other, other = XCONS (other)->cdr) other_prev = other, other = XCONS (other)->cdr)
{ {
Lisp_Object otherend, otheroverlay; Lisp_Object otherend, otheroverlay;
int win;
otheroverlay = XCONS (other)->car; otheroverlay = XCONS (other)->car;
if (! OVERLAY_VALID (otheroverlay)) if (! OVERLAY_VALID (otheroverlay))
...@@ -2832,7 +2829,7 @@ void ...@@ -2832,7 +2829,7 @@ void
fix_overlays_in_range (start, end) fix_overlays_in_range (start, end)
register int start, end; register int start, end;
{ {
Lisp_Object tem, overlay; Lisp_Object overlay;
Lisp_Object before_list, after_list; Lisp_Object before_list, after_list;
Lisp_Object *ptail, *pbefore = &before_list, *pafter = &after_list; Lisp_Object *ptail, *pbefore = &before_list, *pafter = &after_list;
int startpos, endpos; int startpos, endpos;
...@@ -3177,7 +3174,6 @@ buffer.") ...@@ -3177,7 +3174,6 @@ buffer.")
/* Redisplay the area the overlay has just left, or just enclosed. */ /* Redisplay the area the overlay has just left, or just enclosed. */
{ {
int o_beg, o_end; int o_beg, o_end;
int change_beg, change_end;
o_beg = OVERLAY_POSITION (OVERLAY_START (overlay)); o_beg = OVERLAY_POSITION (OVERLAY_START (overlay));
o_end = OVERLAY_POSITION (OVERLAY_END (overlay)); o_end = OVERLAY_POSITION (OVERLAY_END (overlay));
...@@ -3404,8 +3400,6 @@ If there are no more overlay boundaries before POS, return (point-min).") ...@@ -3404,8 +3400,6 @@ If there are no more overlay boundaries before POS, return (point-min).")
int prevpos; int prevpos;
Lisp_Object *overlay_vec; Lisp_Object *overlay_vec;
int len; int len;
int i;
Lisp_Object tail;
CHECK_NUMBER_COERCE_MARKER (pos, 0); CHECK_NUMBER_COERCE_MARKER (pos, 0);
...@@ -3830,8 +3824,6 @@ buffer_slot_type_mismatch (offset) ...@@ -3830,8 +3824,6 @@ buffer_slot_type_mismatch (offset)
void void
init_buffer_once () init_buffer_once ()
{ {
register Lisp_Object tem;
buffer_permanent_local_flags = 0; buffer_permanent_local_flags = 0;
/* Make sure all markable slots in buffer_defaults /* Make sure all markable slots in buffer_defaults
...@@ -4047,8 +4039,6 @@ init_buffer () ...@@ -4047,8 +4039,6 @@ init_buffer ()
void void
syms_of_buffer () syms_of_buffer ()
{ {
extern Lisp_Object Qdisabled;
staticpro (&last_overlay_modification_hooks); staticpro (&last_overlay_modification_hooks);
last_overlay_modification_hooks last_overlay_modification_hooks
= Fmake_vector (make_number (10), Qnil); = Fmake_vector (make_number (10), Qnil);
......
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