github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-17 00:22:59 +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
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 4 deletions
Show Stats 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;