(lsdb-file-coding-system): Default to 'ctext.

[elisp/lsdb.git] / cvs2cl / fmtlog.rb

diff --git a/cvs2cl/fmtlog.rb b/cvs2cl/fmtlog.rb
index 158e16c..923953e 100644 (file)
--- a/cvs2cl/fmtlog.rb
+++ b/cvs2cl/fmtlog.rb
@@ -1,6 +1,4 @@
-if /^\t\* ([^:]+): (\* \1)/
-  $_ = "\t#{$2}#{$'}"
-elsif /^(\d{4}-\d{2}-\d{2}) \d{2}:\d{2}/
-  $_ = "#{$1}#{$'}"
+if /^\t(\* ([^:]+): )\* ([^: ]+)/ or /^\t\* [^:]+(:) \(/ or
+    /^\d{4}-\d{2}-\d{2}( \d{2}:\d{2})/
+  $_.slice!($~.begin(1) .. $~.end(1) - 1)
 end
-