   )
 
 
-(defsubst jpw-phpBB-tag-find-nearest (&optional pos-last-start pos-next-end)
+(defsubst jpw-phpBB-tag-find-nearest (&optional pos-last-start 
+                                                pos-next-end
+                                                from-pos
+                                                to-pos)
   "Used by `jpw-phpBB-tag-analysis'.  Returns a list of the form:
 
 \(LAST NEXT\)

  (let (last-start-tag
        last-end-tag
        the-tag) ;; end var defs
    (if (re-search-backward jpw-tag-finder-re nil t)
        (if (looking-at jpw-tag-end-re)
            (setq last-end-tag (point))
          ;;else

  )


(defsubst jpw-phpBB-tag-skip-ignorable (nearest
                                        &optional from-pos to-pos)
  "Extension of `jpw-phpBB-tag-find-nearest' which skips tags that
`jpw-phpBB-tag-analysis-ignore' returns `t' for.  

`nearest' should be the a list of the same form returned by
`jpw-phpBB-tag-find-nearest', which is what this defun evals to, as well.

`from-pos' and `to-pos' are, respectively, the upper and lower bounds of the
search.  This lets you narrow the tag search to the region between these two
positions without having to call `narrow-to-region'.  The default is to search
the entire buffer.

Alters `point'.  Be sure to call this only from within a `save-excursion'.
{jpw: 07/2005}"
