Mercurial > emacs
comparison src/keyboard.c @ 83757:0ce482dc32a6
(Fset_input_mode): Don't call `Fset_quit_char' if QUIT hasn't been
provided.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Wed, 29 Aug 2007 16:03:26 +0000 |
| parents | a73440d2f146 |
| children | 9b1d709095f9 |
comparison
equal
deleted
inserted
replaced
| 83756:176fd4c8d28a | 83757:0ce482dc32a6 |
|---|---|
| 11317 Lisp_Object interrupt, flow, meta, quit; | 11317 Lisp_Object interrupt, flow, meta, quit; |
| 11318 { | 11318 { |
| 11319 Fset_input_interrupt_mode (interrupt); | 11319 Fset_input_interrupt_mode (interrupt); |
| 11320 Fset_output_flow_control (flow, Qnil); | 11320 Fset_output_flow_control (flow, Qnil); |
| 11321 Fset_input_meta_mode (meta, Qnil); | 11321 Fset_input_meta_mode (meta, Qnil); |
| 11322 Fset_quit_char (quit); | 11322 if (!NILP (quit)) |
| 11323 Fset_quit_char (quit); | |
| 11323 return Qnil; | 11324 return Qnil; |
| 11324 } | 11325 } |
| 11325 | 11326 |
| 11326 DEFUN ("current-input-mode", Fcurrent_input_mode, Scurrent_input_mode, 0, 0, 0, | 11327 DEFUN ("current-input-mode", Fcurrent_input_mode, Scurrent_input_mode, 0, 0, 0, |
| 11327 doc: /* Return information about the way Emacs currently reads keyboard input. | 11328 doc: /* Return information about the way Emacs currently reads keyboard input. |