Mercurial > emacs
changeset 2210:22d78dbb3cc7
Rename `live-window-p' to `window-live-p', for consistency with
`frame-live-p'.
* window.c (Fwindow_live_p): Renamed from Flive_window_p.
* lisp.h (CHECK_LIVE_WINDOW): Change to use Qwindow_live_p.
(Qwindow_live_p): Extern declaration renamed fom Qlive_window_p.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 16 Mar 1993 05:55:57 +0000 |
| parents | 7b95f29936cb |
| children | a53385347b85 |
| files | src/lisp.h src/window.c |
| diffstat | 2 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lisp.h Tue Mar 16 05:55:12 1993 +0000 +++ b/src/lisp.h Tue Mar 16 05:55:57 1993 +0000 @@ -636,7 +636,7 @@ { \ if (XTYPE ((x)) != Lisp_Window \ || NILP (XWINDOW ((x))->buffer)) \ - x = wrong_type_argument (Qlive_window_p, (x)); \ + x = wrong_type_argument (Qwindow_live_p, (x)); \ } #define CHECK_PROCESS(x, i) \ @@ -1160,7 +1160,7 @@ extern Lisp_Object Fvertical_motion (), Findent_to (), Fcurrent_column (); /* defined in window.c */ -extern Lisp_Object Qwindowp, Qlive_window_p; +extern Lisp_Object Qwindowp, Qwindow_live_p; extern Lisp_Object Fget_buffer_window (); extern Lisp_Object Fsave_window_excursion (); extern Lisp_Object Fset_window_configuration (), Fcurrent_window_configuration ();
--- a/src/window.c Tue Mar 16 05:55:12 1993 +0000 +++ b/src/window.c Tue Mar 16 05:55:57 1993 +0000 @@ -29,7 +29,7 @@ #include "disptab.h" #include "keyboard.h" -Lisp_Object Qwindowp, Qlive_window_p; +Lisp_Object Qwindowp, Qwindow_live_p; Lisp_Object Fnext_window (), Fdelete_window (), Fselect_window (); Lisp_Object Fset_window_buffer (), Fsplit_window (), Frecenter (); @@ -102,7 +102,7 @@ return XTYPE (obj) == Lisp_Window ? Qt : Qnil; } -DEFUN ("live-window-p", Flive_window_p, Slive_window_p, 1, 1, 0, +DEFUN ("window-live-p", Fwindow_live_p, Swindow_live_p, 1, 1, 0, "Returns t if OBJ is a window which is currently visible.") (obj) Lisp_Object obj; @@ -2873,8 +2873,8 @@ Qwindowp = intern ("windowp"); staticpro (&Qwindowp); - Qlive_window_p = intern ("live-window-p"); - staticpro (&Qlive_window_p); + Qwindow_live_p = intern ("window-live-p"); + staticpro (&Qwindow_live_p); #ifndef MULTI_FRAME /* Make sure all windows get marked */ @@ -2956,7 +2956,7 @@ defsubr (&Sminibuffer_window); defsubr (&Swindow_minibuffer_p); defsubr (&Swindowp); - defsubr (&Slive_window_p); + defsubr (&Swindow_live_p); defsubr (&Spos_visible_in_window_p); defsubr (&Swindow_buffer); defsubr (&Swindow_height);