comparison src/msdos.c @ 20:859a2309aef8 r19-15b93

Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
1122 #define NUM_RECENT_DOSKEYS (100) 1122 #define NUM_RECENT_DOSKEYS (100)
1123 int recent_doskeys_index; /* Index for storing next element into recent_doskeys */ 1123 int recent_doskeys_index; /* Index for storing next element into recent_doskeys */
1124 int total_doskeys; /* Total number of elements stored into recent_doskeys */ 1124 int total_doskeys; /* Total number of elements stored into recent_doskeys */
1125 Lisp_Object recent_doskeys; /* A vector, holding the last 100 keystrokes */ 1125 Lisp_Object recent_doskeys; /* A vector, holding the last 100 keystrokes */
1126 1126
1127 DEFUN ("recent-doskeys", Frecent_doskeys, Srecent_doskeys, 0, 0, 0, 1127 DEFUN ("recent-doskeys", Frecent_doskeys, 0, 0, 0, /*
1128 "Return vector of last 100 keyboard input values seen in dos_rawgetc.\n\ 1128 Return vector of last 100 keyboard input values seen in dos_rawgetc.
1129 Each input key receives two values in this vector: first the ASCII code,\n\ 1129 Each input key receives two values in this vector: first the ASCII code,
1130 and then the scan code.") 1130 and then the scan code.
1131 () 1131 */
1132 ())
1132 { 1133 {
1133 Lisp_Object *keys = XVECTOR (recent_doskeys)->contents; 1134 Lisp_Object *keys = XVECTOR (recent_doskeys)->contents;
1134 Lisp_Object val; 1135 Lisp_Object val;
1135 1136
1136 if (total_doskeys < NUM_RECENT_DOSKEYS) 1137 if (total_doskeys < NUM_RECENT_DOSKEYS)
2493 #endif 2494 #endif
2494 2495
2495 void 2496 void
2496 syms_of_msdos (void) 2497 syms_of_msdos (void)
2497 { 2498 {
2498 defsubr (&Srecent_doskeys); 2499 DEFSUBR (Frecent_doskeys);
2499 } 2500 }
2500 2501
2501 void 2502 void
2502 vars_of_msdos (void) 2503 vars_of_msdos (void)
2503 { 2504 {