*** expose.orig.pl	2005-07-07 00:46:52.746175464 +0800
--- expose.pl	2005-07-07 00:53:30.290739504 +0800
***************
*** 49,55 ****
  
  $ret = &rpi('fselect');
  
! &rp('only');
  
  #-- subroutines ----------------------------------------------------------------
  
--- 49,62 ----
  
  $ret = &rpi('fselect');
  
! # Get the selected window number
! # ratpoison -c info returns something like this:
! # (1021,760) 6(Rxterm)
! #            ^ this is the number we want
! my $current_window = &rpi('info'); chomp $current_window;
! $current_window =~ s/(.* |\(.*)//g; 
! &rp("frestore $frames_old");
! &rp("select $current_window");
  
  #-- subroutines ----------------------------------------------------------------