Changeset 9568


Ignore:
Timestamp:
May 22, 2008, 12:58:16 AM (11 years ago)
Author:
gz
Message:

Don't get confused by external #hrefs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/doc/doc-splitter.lisp

    r9566 r9568  
    206206           (href (and (eq (cnode-tag node) :a)
    207207                      (cnode-attribute-value node :href))))
    208       (when (and href (position #\# href))
    209         (assert (eql (char href 0) #\#))
     208      (when (and href (eql 0 (position #\# href)))
    210209        (let ((name (gethash (subseq href 1) hash)))
    211210          (unless name
Note: See TracChangeset for help on using the changeset viewer.