Mercurial > emacs

comparison src/frame.c @ 6157:9422e430f067

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdelete_frame): Don't initialize a Lisp_Object. Clean up line breaks.
author Richard M. Stallman <rms@gnu.org>
date Wed, 02 Mar 1994 22:05:40 +0000
parents d4e5878462cb
children 128dc040e121
comparison
equal deleted inserted replaced
6156:3aafcde7e7c4 6157:9422e430f067
699 699
700 for (frames = Vframe_list; 700 for (frames = Vframe_list;
701 CONSP (frames); 701 CONSP (frames);
702 frames = XCONS (frames)->cdr) 702 frames = XCONS (frames)->cdr)
703 { 703 {
704 Lisp_Object this = XCONS (frames)->car; 704 Lisp_Object this;
705 this = XCONS (frames)->car;
705 706
706 if (! EQ (this, frame) 707 if (! EQ (this, frame)
707 && EQ (frame, 708 && EQ (frame,
708 (WINDOW_FRAME 709 WINDOW_FRAME (XWINDOW
709 (XWINDOW 710 (FRAME_MINIBUF_WINDOW (XFRAME (this))))))
710 (FRAME_MINIBUF_WINDOW
711 (XFRAME (this)))))))
712 error ("Attempt to delete a surrogate minibuffer frame"); 711 error ("Attempt to delete a surrogate minibuffer frame");
713 } 712 }
714 } 713 }
715 714
716 /* Don't let the frame remain selected. */ 715 /* Don't let the frame remain selected. */