Mercurial > hg > xemacs-beta

comparison src/keymap.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
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
1318 /* #### Ok, this is a bit more dubious - make people not lose if they 1318 /* #### Ok, this is a bit more dubious - make people not lose if they
1319 do things like (global-set-key 'RET 'something) because that would 1319 do things like (global-set-key 'RET 'something) because that would
1320 otherwise have the same problem as above. (Gag!) We silently 1320 otherwise have the same problem as above. (Gag!) We silently
1321 accept these as aliases for the "real" names. 1321 accept these as aliases for the "real" names.
1322 */ 1322 */
1323 else if (EQ (*keysym, QLFD)) 1323 else if (!strncmp(name, "kp_", 3)) {
1324 /* Likewise, the obsolete keysym binding of kp_.* should not lose. */
1325 char temp[50];
1326
1327 strncpy(temp, name, sizeof (temp));
1328 temp[sizeof (temp) - 1] = '\0';
1329 temp[2] = '-';
1330 *keysym = Fintern_soft(make_string(temp, strlen(temp)), Qnil);
1331 } else if (EQ (*keysym, QLFD))
1324 *keysym = QKlinefeed; 1332 *keysym = QKlinefeed;
1325 else if (EQ (*keysym, QTAB)) 1333 else if (EQ (*keysym, QTAB))
1326 *keysym = QKtab; 1334 *keysym = QKtab;
1327 else if (EQ (*keysym, QRET)) 1335 else if (EQ (*keysym, QRET))
1328 *keysym = QKreturn; 1336 *keysym = QKreturn;