comparison src/dispnew.c @ 7814:e1e536773850

(Fframe_or_buffer_changed_p): Reuse the state vector.

7813:1fa576a274b5

  temp1 = desired_frame->charstarts[vpos];
  desired_frame->charstarts[vpos] = current_frame->charstarts[vpos];
  current_frame->charstarts[vpos] = temp1;
}

/* A vector of size NFRAMES + 3 * NBUFFERS + 1, containing the session's
   frames, buffers, buffer-read-only flags, and buffer-modified-flags,
   and a trailing sentinel (so we don't need to add length checks).  */
static Lisp_Object frame_and_buffer_state;

DEFUN ("frame-or-buffer-changed-p", Fframe_or_buffer_changed_p,

  n = 1;
  FOR_EACH_FRAME (tail, frame)
    n++;
  for (tail = Vbuffer_alist; CONSP (tail); tail = XCONS (tail)->cdr)
    n += 3;
  frame_and_buffer_state = Fmake_vector (make_number (n), Qlambda);
  vecp = XVECTOR (frame_and_buffer_state)->contents;
  FOR_EACH_FRAME (tail, frame)
    *vecp++ = frame;
  for (tail = Vbuffer_alist; CONSP (tail); tail = XCONS (tail)->cdr)
    {
      buf = XCONS (XCONS (tail)->car)->cdr;
      *vecp++ = buf;
      *vecp++ = XBUFFER (buf)->read_only;
      *vecp++ = Fbuffer_modified_p (buf);
    }
  return Qt;
}

DEFUN ("open-termscript", Fopen_termscript, Sopen_termscript,
  1, 1, "FOpen termscript file: ",

7814:e1e536773850

  temp1 = desired_frame->charstarts[vpos];
  desired_frame->charstarts[vpos] = current_frame->charstarts[vpos];
  current_frame->charstarts[vpos] = temp1;
}

/* A vector of size >= NFRAMES + 3 * NBUFFERS + 1, containing the session's
   frames, buffers, buffer-read-only flags, and buffer-modified-flags,
   and a trailing sentinel (so we don't need to add length checks).  */
static Lisp_Object frame_and_buffer_state;

DEFUN ("frame-or-buffer-changed-p", Fframe_or_buffer_changed_p,

  n = 1;
  FOR_EACH_FRAME (tail, frame)
    n++;
  for (tail = Vbuffer_alist; CONSP (tail); tail = XCONS (tail)->cdr)
    n += 3;
  /* Reallocate the vector if it's grown, or if it's shrunk a lot.  */
  if (n > XVECTOR (frame_and_buffer_state)->size
      || n < XVECTOR (frame_and_buffer_state)->size / 2)
    frame_and_buffer_state = Fmake_vector (make_number (n), Qlambda);
  vecp = XVECTOR (frame_and_buffer_state)->contents;
  FOR_EACH_FRAME (tail, frame)
    *vecp++ = frame;
  for (tail = Vbuffer_alist; CONSP (tail); tail = XCONS (tail)->cdr)
    {
      buf = XCONS (XCONS (tail)->car)->cdr;
      *vecp++ = buf;
      *vecp++ = XBUFFER (buf)->read_only;
      *vecp++ = Fbuffer_modified_p (buf);
    }
  /* If we left any slack in the vector, fill it up now.  */
  for (; n < XVECTOR (frame_and_buffer_state)->size; ++n)
    *vecp++ = Qlambda;
  return Qt;
}

DEFUN ("open-termscript", Fopen_termscript, Sopen_termscript,
  1, 1, "FOpen termscript file: ",