Mercurial > hg > xemacs-beta

comparison src/event-stream.c @ 4775:1d61580e0cf7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove Fsave_window_excursion from window.c, it's overridden by Lisp. lisp/ChangeLog addition: 2009-11-08 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el (save-window-excursion): Remove the compiler form for this bytecode, we no longer generate calls to it. Keep the information about the bytecode's numeric value, we want that for disassembling code. src/ChangeLog addition: 2009-11-08 Aidan Kehoe <kehoea@parhasard.net> * window.c (Fsave_window_excursion, save_window_excursion_unwind): Remove these functions, the first was masked by #'save-window-excursion in window.el, and the second can be easily replaced with Lisp primitives. * bytecode.c (Bsave_window_excursion) : Don't pass save_window_excursion_unwind to record_unwind_protect, now the former is gone. * event-stream.c (execute_help_form): Ditto.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 17 Dec 2009 12:57:38 +0000
parents a27de91ae83c
children 2fd201d73a92
comparison
equal deleted inserted replaced
4774:26a007fa2f4c 4775:1d61580e0cf7
837 : make_string (command_builder->echo_buf, 837 : make_string (command_builder->echo_buf,
838 buf_index)); 838 buf_index));
839 struct gcpro gcpro1, gcpro2; 839 struct gcpro gcpro1, gcpro2;
840 GCPRO2 (echo, help); 840 GCPRO2 (echo, help);
841 841
842 record_unwind_protect (save_window_excursion_unwind, 842 record_unwind_protect (Feval,
843 call1 (Qcurrent_window_configuration, Qnil)); 843 list2 (Qset_window_configuration,
844 call0 (Qcurrent_window_configuration)));
844 reset_key_echo (command_builder, 1); 845 reset_key_echo (command_builder, 1);
845 846
846 help = IGNORE_MULTIPLE_VALUES (Feval (Vhelp_form)); 847 help = IGNORE_MULTIPLE_VALUES (Feval (Vhelp_form));
847 if (STRINGP (help)) 848 if (STRINGP (help))
848 internal_with_output_to_temp_buffer (build_string ("*Help*"), 849 internal_with_output_to_temp_buffer (build_string ("*Help*"),