nlopess Mon Jul 18 08:28:52 2005 EDT
Modified files:
/phpdoc/dsssl html-common.dsl
Log:
I dont know why, but last commit didnt fixed the error..
it seems to be fixed now. sorry for the noise
http://cvs.php.net/diff.php/phpdoc/dsssl/html-common.dsl?r1=1.20&r2=1.21&ty=u
Index: phpdoc/dsssl/html-common.dsl
diff -u phpdoc/dsssl/html-common.dsl:1.20 phpdoc/dsssl/html-common.dsl:1.21
--- phpdoc/dsssl/html-common.dsl:1.20 Mon Jul 18 07:43:10 2005
+++ phpdoc/dsssl/html-common.dsl Mon Jul 18 08:28:49 2005
@@ -1,6 +1,6 @@
;; -*- Scheme -*-
;;
-;; $Id: html-common.dsl,v 1.20 2005/07/18 11:43:10 nlopess Exp $
+;; $Id: html-common.dsl,v 1.21 2005/07/18 12:28:49 nlopess Exp $
;;
;; Returns the depth of the auto-generated TOC (table of
@@ -304,12 +304,11 @@
;; on pcre reference pages (these are masked as function pages, but are
;; not function pages themselfs)
(element (refnamediv refname)
- (let* ((refid (attribute-string (normalize "id") (parent (parent
(current-node)))))
- (refid (if (string? refid) refid ""))
- (refid-length (string-length refid)))
- (if (not (string=?
- (substring refid 0 (if (<= refid-length 14) refid-length 14))
- "reference.pcre"))
+ (let ((refid (attribute-string (normalize "id") (parent (parent
(current-node))))))
+ (if (or (not (string? refid))
+ (not (string=?
+ (substring refid 0 (min (string-length refid) 14))
+ "reference.pcre")))
(make sequence
(make element gi: "P"
(literal " (")
