github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-25 19:46:21 +00:00
Code Issues Projects Releases Wiki Activity

Fix missing return value when !SUNDISPLAY, !XWINDOW. (#288)

Browse Source
This commit is contained in:
Bruce Mitchener
2021-01-25 12:22:34 +07:00
committed by GitHub
parent d4cbb6c9dc
commit 6428e64d69
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/dspsubrs.c
View File

@@ -70,16 +70,16 @@ LispPTR DSP_VideoColor(LispPTR *args) /* args[0] : black flag */
int invert;
#ifdef SUNDISPLAY
return NIL;
#endif /* SUNDISPLAY */
#ifdef XWINDOW
#elif defined(XWINDOW)
invert = args[0] & 0xFFFF;
lisp_Xvideocolor(invert);
if (invert)
return ATOM_T;
else
return NIL;
#endif /* XWINDOW */
#else
return NIL;
#endif
}
extern struct cursor CurrentCursor;