*** expose.perl	Tue Jul  6 15:44:52 2004
--- expose.perl.changed	Tue Jul  6 15:45:09 2004
***************
*** 36,45 ****
  &rp("frestore $ret"); 
  
  # This next paragraph requires fselect to return non-zero on user abort (C-g).
! # if ( not &rpi('fselect') )
! # { # We canceled the fselect, so restore the old setup.
! #     &rp("frestore $frames_old");
! # }
  
  #-- subroutines ----------------------------------------------------------------
  
--- 36,55 ----
  &rp("frestore $ret"); 
  
  # This next paragraph requires fselect to return non-zero on user abort (C-g).
! #if ( not &rp('colon fselect') )
! #{ # We canceled the fselect, so restore the old setup.
! #    &rp("frestore $frames_old");
! #}
! #else
! #{
! #    &rp('only');
! #}
! 
! # Right now, ratpoison always returns zero.
! # This requires you to run expose.perl, hit enter, then hit a number to
! # select a frame. Then the selected frame will become the only frame.
! &rp('colon fselect') )
! &rp('only');
  
  #-- subroutines ----------------------------------------------------------------