Mercurial > hg > xemacs-beta

diff src/event-Xt.c @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children c0c698873ce1
line wrap: on
line diff
--- a/src/event-Xt.c	Mon Aug 13 09:03:47 2007 +0200
+++ b/src/event-Xt.c	Mon Aug 13 09:04:33 2007 +0200
@@ -645,7 +645,7 @@
      event, bufptr, bufsiz, &keysym, &status);
 #endif /* XIM_XLIB */
  LOOKUPSTRING;
- check_status:
+ check_status: /* Come-From XBufferOverflow */
 
 #ifdef DEBUG_XEMACS
   if (x_debug_events > 0)
@@ -764,8 +764,13 @@
 	{
 	  char buf [255];
 	  char *s1, *s2;
-	  for (s1 = name, s2 = buf; *s1; s1++, s2++)
-	    *s2 = tolower (* (unsigned char *) s1);
+	  for (s1 = name, s2 = buf; *s1; s1++, s2++) {
+	    if (*s1 == '_') {
+	      *s2 = '-';
+	    } else {
+	      *s2 = tolower (* (unsigned char *) s1);
+	    }
+	  }
 	  *s2 = 0;
 	  return (KEYSYM (buf));
 	}