Mercurial > hg > xemacs-beta
comparison src/window.c @ 771:943eaba38521
[xemacs-hg @ 2002-03-13 08:51:24 by ben]
The big ben-mule-21-5 check-in!
Various files were added and deleted. See CHANGES-ben-mule.
There are still some test suite failures. No crashes, though.
Many of the failures have to do with problems in the test suite itself
rather than in the actual code. I'll be addressing these in the next
day or so -- none of the test suite failures are at all critical.
Meanwhile I'll be trying to address the biggest issues -- i.e. build
or run failures, which will almost certainly happen on various platforms.
All comments should be sent to ben@xemacs.org -- use a Cc: if necessary
when sending to mailing lists. There will be pre- and post- tags,
something like
pre-ben-mule-21-5-merge-in, and
post-ben-mule-21-5-merge-in.
author | ben |
---|---|
date | Wed, 13 Mar 2002 08:54:06 +0000 |
parents | a307f9a2021d |
children | e38acbeb1cae |
comparison
equal
deleted
inserted
replaced
770:336a418893b5 | 771:943eaba38521 |
---|---|
3647 record_unwind_protect (save_window_excursion_unwind, | 3647 record_unwind_protect (save_window_excursion_unwind, |
3648 Fcurrent_window_configuration (Qnil)); | 3648 Fcurrent_window_configuration (Qnil)); |
3649 | 3649 |
3650 Fselect_window (window, Qnil); | 3650 Fselect_window (window, Qnil); |
3651 run_hook (Qtemp_buffer_show_hook); | 3651 run_hook (Qtemp_buffer_show_hook); |
3652 unbind_to (count, Qnil); | 3652 unbind_to (count); |
3653 } | 3653 } |
3654 } | 3654 } |
3655 } | 3655 } |
3656 } | 3656 } |
3657 } | 3657 } |
5796 } | 5796 } |
5797 } | 5797 } |
5798 | 5798 |
5799 /* Now restore things, when everything else if OK. */ | 5799 /* Now restore things, when everything else if OK. */ |
5800 | 5800 |
5801 unbind_to (specpdl_count, Qnil); | 5801 unbind_to (specpdl_count); |
5802 | 5802 |
5803 UNGCPRO; | 5803 UNGCPRO; |
5804 | 5804 |
5805 return Qnil; | 5805 return Qnil; |
5806 } | 5806 } |
6007 Does not restore the value of point in current buffer. | 6007 Does not restore the value of point in current buffer. |
6008 */ | 6008 */ |
6009 (args)) | 6009 (args)) |
6010 { | 6010 { |
6011 /* This function can GC */ | 6011 /* This function can GC */ |
6012 Lisp_Object val; | |
6013 int speccount = specpdl_depth (); | 6012 int speccount = specpdl_depth (); |
6014 | 6013 |
6015 record_unwind_protect (save_window_excursion_unwind, | 6014 record_unwind_protect (save_window_excursion_unwind, |
6016 Fcurrent_window_configuration (Qnil)); | 6015 Fcurrent_window_configuration (Qnil)); |
6017 val = Fprogn (args); | 6016 return unbind_to_1 (speccount, Fprogn (args)); |
6018 return unbind_to (speccount, val); | |
6019 } | 6017 } |
6020 | 6018 |
6021 DEFUN ("current-pixel-column", Fcurrent_pixel_column, 0, 2, 0, /* | 6019 DEFUN ("current-pixel-column", Fcurrent_pixel_column, 0, 2, 0, /* |
6022 Return the horizontal pixel position of POS in window. | 6020 Return the horizontal pixel position of POS in window. |
6023 Beginning of line is column 0. This is calculated using the redisplay | 6021 Beginning of line is column 0. This is calculated using the redisplay |