mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

(CHECK_FRAME, CHECK_LIVE_FRAME): Use CHECK_TYPE.

Browse Source
This commit is contained in:
Kim F. Storm 2006-07-12 13:14:00 +00:00
parent c8a39089de
commit 915a3e00ad
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/frame.h
View File

@ -760,18 +760,11 @@ typedef struct frame *FRAME_PTR;
(f)->visible = (f)->async_visible, \
(f)->iconified = (f)->async_iconified)
#define CHECK_FRAME(x) \
do { \
if (! FRAMEP (x)) \
x = wrong_type_argument (Qframep, (x)); \
} while (0)
#define CHECK_FRAME(x) \
CHECK_TYPE (FRAMEP (x), Qframep, x)
#define CHECK_LIVE_FRAME(x) \
do { \
if (! FRAMEP (x) \
|| ! FRAME_LIVE_P (XFRAME (x))) \
x = wrong_type_argument (Qframe_live_p, (x)); \
} while (0)
#define CHECK_LIVE_FRAME(x) \
CHECK_TYPE (FRAMEP (x) && FRAME_LIVE_P (XFRAME (x)), Qframe_live_p, x)
/* FOR_EACH_FRAME (LIST_VAR, FRAME_VAR) followed by a statement is a
`for' loop which iterates over the elements of Vframe_list. The