   )
 
 
-(defun jpw-phpBB-tag-analysis ()
+(defun jpw-phpBB-tag-nested-analysis ()
   "Search forward and backward from `point' to see what tags we're enclosed
 in.  Each pair is the position of the start tag and end tag, respectively.
 The list of pairs is built from the inside-out.  The results are stored in the
-variable `jpw-phpBB-tag-analysis-cache'.
+variable `jpw-phpBB-tag-analysis-cache', in a depth-descending order.
 
 So, `\(car \(caadr \(jpw-phpBB-tag-analysis-cache\)\)\)' would return the
 position of the outermost start tag.

                                                          to-pos)
            )
      (while (car current-tagspec)
        (setq analysis-cache-working
              (cons current-tagspec analysis-cache-working)
              )
        (setq current-tagspec 
              (jpw-phpBB-tag-find-enclosing (1- (caadr current-tagspec))
                                            (1+ (cadadr current-tagspec))

  "Show the results of `jpw-phpBB-tag-analysis' in the *Messages* buffer.
{jpw: 09/2005}"
  (interactive)
  (jpw-phpBB-tag-nested-analysis)
  (message "%S" jpw-phpBB-tag-analysis-cache)
  )

