Mercurial > emacs

comparison src/callint.c @ 10540:161014ddd3c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcall_interactively): Define K mostly like k. Pass new arg to Fread_key_sequence.
author Richard M. Stallman <rms@gnu.org>
date Tue, 24 Jan 1995 22:13:42 +0000
parents 9952a5ab70d1
children 5a049637599a
comparison
equal deleted inserted replaced
10539:ffef84d4d8a8 10540:161014ddd3c5
460 case 'F': /* Possibly nonexistent file name. */ 460 case 'F': /* Possibly nonexistent file name. */
461 args[i] = Fread_file_name (build_string (prompt), 461 args[i] = Fread_file_name (build_string (prompt),
462 Qnil, Qnil, Qnil, Qnil); 462 Qnil, Qnil, Qnil, Qnil);
463 break; 463 break;
464 464
465 case 'k': /* Key sequence (string) */ 465 case 'k': /* Key sequence. */
466 args[i] = Fread_key_sequence (build_string (prompt), Qnil); 466 args[i] = Fread_key_sequence (build_string (prompt), Qnil, Qnil);
467 teml = args[i];
468 visargs[i] = Fkey_description (teml);
469 break;
470
471 case 'K': /* Key sequence to be defined. */
472 args[i] = Fread_key_sequence (build_string (prompt), Qnil, Qt);
467 teml = args[i]; 473 teml = args[i];
468 visargs[i] = Fkey_description (teml); 474 visargs[i] = Fkey_description (teml);
469 break; 475 break;
470 476
471 case 'e': /* The invoking event. */ 477 case 'e': /* The invoking event. */