[cl-blogger commit] r14 - Fixed pre-p when </span></pre>.

[codesite...@google.com]

Author: read.eval.print
Date: Fri Apr 17 06:34:01 2009
New Revision: 14

Modified:
trunk/ChangeLog
trunk/blogger.lisp
trunk/test/blogger-test.lisp

Log:
Fixed pre-p when </span></pre>.

Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog (original)
+++ trunk/ChangeLog Fri Apr 17 06:34:01 2009
@@ -1,3 +1,8 @@
+2009-04-17 Yoshinori Tahara <read.ev...@gmail.com>
+
+ * blogger.lisp (get-content-from-file):
+ Fixed pre-p when </span></pre>.
+
2009-04-08 Yoshinori Tahara <read.ev...@gmail.com>

* blogger.lisp (get-content-from-file): Delete changing line, and

Modified: trunk/blogger.lisp
==============================================================================
--- trunk/blogger.lisp (original)
+++ trunk/blogger.lisp Fri Apr 17 06:34:01 2009
@@ -226,7 +226,7 @@
(terpri out))
((eql 0 (search "<pre" current))
(setf pre-p t))
- ((eql 0 (search "</pre>" current))
+ ((search "</pre>" current)
(setf pre-p nil))
(pre-p
(terpri out))

Modified: trunk/test/blogger-test.lisp
==============================================================================
--- trunk/test/blogger-test.lisp (original)
+++ trunk/test/blogger-test.lisp Fri Apr 17 06:34:01 2009
@@ -51,6 +51,12 @@
あ
い
</pre><p>おしまい</p>")
- ))
+
+ (f "<pre>
+<span>aaa</span></pre>
+
+<p>bbb</p>
+"
+ "<pre><span>aaa</span></pre><p>bbb</p>")))

(blogger-test)