Mercurial > hg > xemacs-beta

diff src/event-Xt.c @ 8:4b173ad71786 r19-15b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b5
author cvs
date Mon, 13 Aug 2007 08:47:35 +0200
parents ac2d302a0011
children 9ee227acff29
line wrap: on
line diff
--- a/src/event-Xt.c	Mon Aug 13 08:47:16 2007 +0200
+++ b/src/event-Xt.c	Mon Aug 13 08:47:35 2007 +0200
@@ -677,8 +677,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));
 	}