cgit.sxemacs.org Git - packages/blob - xemacs-packages/bbdb/utils/bbdb-unlazy-lock.pl

   1 #!/usr/local/bin/perl
   2 #
   3 # Author: Christopher Kline <ckline@media.mit.edu>
   4 #
   5 # bbdb-unlazy-lock.pl,v 1.1 1997/10/06 00:56:14 simmonmt Exp
   6 #
   7 # bbdb-unlazy-lock.pl,v
   8 # Revision 1.1  1997/10/06 00:56:14  simmonmt
   9 # Initial revision
  10 #
  11 #
  12 # Lazy-lock-mode has (had) a nasty habit of munging .bbdb files if you visited them
  13 # with it on.  This script removes the lazy-lock mung
  14 #
  15
  16 while( <STDIN> ) {
  17     s/#\(("[^"]*")( \d+ \d+ (nil)*(\(lazy-lock t\))*)*\)/$1/gi;
  18     print;
  19 }