font-lock patch for automated edits

["Eric M. Ludlam" <eric@siege-engine.com>]

Hi,

  This patch is for font-lock.el CVS version 1.339.

  I have some tests for the CEDET/Semantic incremental parsing engine.
This test calls 'erase-buffer', and performs edits very quickly, and
was causing font-lock to throw errors in my tests.

  This patch basically protects various determined regions (BEG/END)
from being out of bounds of a buffer.  I'd guess there is a better way
to do it, but this allows my tests to run.

  I also added a couple doc strings as checkdoc was unhappy with this
file.

Thanks
Eric
----------------------------

*** font-lock.el.~1.339.~	2008-06-27 03:34:46.000000000 -0400
--- font-lock.el	2008-08-30 10:24:00.000000000 -0400
***************
*** 1018,1027 ****
--- 1018,1034 ----
    (funcall font-lock-unfontify-buffer-function))
  
  (defun font-lock-fontify-region (beg end &optional loudly)
+   "Fontify the region between BEG and END.
+ Optional argument LOUDLY is passed to the `font-lock-fontify-region-function'."
    (font-lock-set-defaults)
+   (when (< beg (point-min)) (setq beg (point-min)))
+   (when (> end (point-max)) (setq end (point-max)))
    (funcall font-lock-fontify-region-function beg end loudly))
  
  (defun font-lock-unfontify-region (beg end)
+   "Unfontify the region between BEG and END."
+   (when (< beg (point-min)) (setq beg (point-min)))
+   (when (> end (point-max)) (setq end (point-max)))
    (save-buffer-state nil
      (funcall font-lock-unfontify-region-function beg end)))
  
***************
*** 1093,1099 ****
                                 font-lock-beg 'font-lock-multiline)
                                (point-min))))
      ;;
!     (when (get-text-property font-lock-end 'font-lock-multiline)
        (setq changed t)
        (setq font-lock-end (or (text-property-any font-lock-end (point-max)
                                                   'font-lock-multiline nil)
--- 1100,1107 ----
                                 font-lock-beg 'font-lock-multiline)
                                (point-min))))
      ;;
!     (when (and (< font-lock-end (point-max))
! 	       (get-text-property font-lock-end 'font-lock-multiline))
        (setq changed t)
        (setq font-lock-end (or (text-property-any font-lock-end (point-max)
                                                   'font-lock-multiline nil)
***************
*** 1163,1168 ****
--- 1171,1177 ----
  what properties to clear before refontifying a region.")
  
  (defun font-lock-default-unfontify-region (beg end)
+   "Remove text properties between BEG and END."
    (remove-list-of-text-properties
     beg end (append
  	    font-lock-extra-managed-props