Mercurial > emacs

comparison src/keyboard.c @ 21527:39c919d2a8be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(parse_menu_item): Don't GCPRO non-lisp variables.
author Andreas Schwab <schwab@suse.de>
date Tue, 14 Apr 1998 13:01:59 +0000
parents fa9ff387d260
children 1771dc61b028
comparison
equal deleted inserted replaced
21526:fff9425b9230 21527:39c919d2a8be
5568 else 5568 else
5569 5569
5570 if (!CONSP (item)) 5570 if (!CONSP (item))
5571 return 0; 5571 return 0;
5572 5572
5573 GCPRO3 (item, notreal, inmenubar); 5573 GCPRO1 (item);
5574 5574
5575 /* Create item_properties vector if necessary. */ 5575 /* Create item_properties vector if necessary. */
5576 if (NILP (item_properties)) 5576 if (NILP (item_properties))
5577 item_properties 5577 item_properties
5578 = Fmake_vector (make_number (ITEM_PROPERTY_ENABLE + 1), Qnil); 5578 = Fmake_vector (make_number (ITEM_PROPERTY_ENABLE + 1), Qnil);
7897 get_frame_size (&old_width, &old_height); 7897 get_frame_size (&old_width, &old_height);
7898 reset_sys_modes (); 7898 reset_sys_modes ();
7899 /* sys_suspend can get an error if it tries to fork a subshell 7899 /* sys_suspend can get an error if it tries to fork a subshell
7900 and the system resources aren't available for that. */ 7900 and the system resources aren't available for that. */
7901 record_unwind_protect ((Lisp_Object (*) P_ ((Lisp_Object))) init_sys_modes, 7901 record_unwind_protect ((Lisp_Object (*) P_ ((Lisp_Object))) init_sys_modes,
7902 0); 7902 Qnil);
7903 stuff_buffered_input (stuffstring); 7903 stuff_buffered_input (stuffstring);
7904 if (cannot_suspend) 7904 if (cannot_suspend)
7905 sys_subshell (); 7905 sys_subshell ();
7906 else 7906 else
7907 sys_suspend (); 7907 sys_suspend ();