Mercurial > emacs
comparison src/callint.c @ 72135:2bd7c2f5456f
Change callers of read_char.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Wed, 26 Jul 2006 18:15:08 +0000 |
parents | 34c5e405ed37 |
children | 6d481bdb9779 02e39decdc84 858cb33ae39d |
comparison
equal
deleted
inserted
replaced
72134:594b286900a3 | 72135:2bd7c2f5456f |
---|---|
561 Fother_buffer (Fcurrent_buffer (), Qnil, Qnil), | 561 Fother_buffer (Fcurrent_buffer (), Qnil, Qnil), |
562 Qnil); | 562 Qnil); |
563 break; | 563 break; |
564 | 564 |
565 case 'c': /* Character */ | 565 case 'c': /* Character */ |
566 args[i] = Fread_char (build_string (callint_message), Qnil); | 566 args[i] = Fread_char (build_string (callint_message), Qnil, Qnil); |
567 message1_nolog ((char *) 0); | 567 message1_nolog ((char *) 0); |
568 /* Passing args[i] directly stimulates compiler bug */ | 568 /* Passing args[i] directly stimulates compiler bug */ |
569 teml = args[i]; | 569 teml = args[i]; |
570 visargs[i] = Fchar_to_string (teml); | 570 visargs[i] = Fchar_to_string (teml); |
571 break; | 571 break; |
633 | 633 |
634 teml = Fget (teml, intern ("event-symbol-elements")); | 634 teml = Fget (teml, intern ("event-symbol-elements")); |
635 /* Ignore first element, which is the base key. */ | 635 /* Ignore first element, which is the base key. */ |
636 tem2 = Fmemq (intern ("down"), Fcdr (teml)); | 636 tem2 = Fmemq (intern ("down"), Fcdr (teml)); |
637 if (! NILP (tem2)) | 637 if (! NILP (tem2)) |
638 up_event = Fread_event (Qnil, Qnil); | 638 up_event = Fread_event (Qnil, Qnil, Qnil); |
639 } | 639 } |
640 } | 640 } |
641 break; | 641 break; |
642 | 642 |
643 case 'K': /* Key sequence to be defined. */ | 643 case 'K': /* Key sequence to be defined. */ |
661 | 661 |
662 teml = Fget (teml, intern ("event-symbol-elements")); | 662 teml = Fget (teml, intern ("event-symbol-elements")); |
663 /* Ignore first element, which is the base key. */ | 663 /* Ignore first element, which is the base key. */ |
664 tem2 = Fmemq (intern ("down"), Fcdr (teml)); | 664 tem2 = Fmemq (intern ("down"), Fcdr (teml)); |
665 if (! NILP (tem2)) | 665 if (! NILP (tem2)) |
666 up_event = Fread_event (Qnil, Qnil); | 666 up_event = Fread_event (Qnil, Qnil, Qnil); |
667 } | 667 } |
668 } | 668 } |
669 break; | 669 break; |
670 | 670 |
671 case 'U': /* Up event from last k or K */ | 671 case 'U': /* Up event from last k or K */ |