Mercurial > emacs

comparison src/callint.c @ 72135:2bd7c2f5456f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 */