From 9d686186a2c3f08108a2f56b5325a06594e29610 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 31 May 2007 12:01:13 +0200
Subject: Minor cleanups.

darcs-hash:c869ad33b1bdfdea92bade8299d17e202c36dd11
---
 journal.lisp | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'journal.lisp')

diff --git a/journal.lisp b/journal.lisp
index 1243508..2d6f8e8 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -198,11 +198,7 @@
      for matches = (ppcre:all-matches "<a [^>]*?> " markup)
      while (not (null matches))
      do (progn
-          (setf markup #+nil
-                (delete-if (constantly t)
-                           markup
-                           :start (1- (second matches))
-                           :end (second matches))
+          (setf markup
                 (replace markup markup :start1 (1+ (first matches))
                                        :end1 (second matches)
                                        :start2 (first matches)
-- 
cgit v1.2.3