Function: frame-list-1

frame-list-1 is a byte-compiled function defined in frame.el.gz.

Signature

(frame-list-1 &optional FRAME)

Documentation

Return list of all live frames starting with FRAME.

The optional argument FRAME must specify a live frame and defaults to the selected frame. Tooltip frames are not included.

Source Code

;; Defined in /usr/src/emacs/lisp/frame.el.gz
(defun frame-list-1 (&optional frame)
  "Return list of all live frames starting with FRAME.
The optional argument FRAME must specify a live frame and defaults to
the selected frame.  Tooltip frames are not included."
  (let* ((frame (window-normalize-frame frame))
	 (frames (frame-list)))
    (unless (eq (car frames) frame)
      (let ((tail frames))
	(while tail
	  (if (eq (cadr tail) frame)
	      (let ((head (cdr tail)))
		(setcdr tail nil)
		(setq frames (nconc head frames))
		(setq tail nil))
	    (setq tail (cdr tail))))))
    frames))