[Scsh-checkins] CVS: scx/c/xlib key.c,1.3,1.4

[David Frese <frese@users.sourceforge.net>]

Update of /cvsroot/scsh/scx/c/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv23300/c/xlib

Modified Files:
        key.c 
Log Message:
+ fixed bugs in scx_Display_Keycodes_Per_Keysym and
scx_Keycode_To_Keysym.
+ added comments.


Index: key.c
===================================================================
RCS file: /cvsroot/scsh/scx/c/xlib/key.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** key.c       2001/08/22 11:57:51     1.3
--- key.c       2001/10/04 12:21:25     1.4
***************
*** 28,31 ****
--- 28,32 ----
    ksyms = XGetKeyboardMapping(SCX_EXTRACT_DISPLAY(d), (KeyCode)mink,
                              maxk - mink + 1, &ksyms_per_kode);
+   XFree(ksyms);
    return s48_enter_integer(ksyms_per_kode);
  }
***************
*** 59,63 ****
                        (int)s48_extract_integer (index));
    //Enable_Interrupts;
!   return s48_enter_integer((unsigned long)ks);
  }
  
--- 60,65 ----
                        (int)s48_extract_integer (index));
    //Enable_Interrupts;
!   if (ks == NoSymbol) return S48_FALSE;
!   else return s48_enter_integer((unsigned long)ks);
  }