cvs: phpdoc /dsssl html-common.dsl

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 " (")