[Emacs-diffs] /srv/bzr/emacs/trunk r105516: Add some docstrings to font-lock.el.

[Chong Yidong]

------------------------------------------------------------
revno: 105516
fixes bug(s): http://debbugs.gnu.org/8624
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2011-08-20 23:00:52 -0400
message:
  Add some docstrings to font-lock.el.
  
  * font-lock.el (font-lock-fontify-region)
  (font-lock-unfontify-region, font-lock-default-fontify-buffer)
  (font-lock-default-unfontify-buffer)
  (font-lock-default-fontify-region)
  (font-lock-default-unfontify-region): Add docstrings (Bug#8624).
modified:
  lisp/ChangeLog
  lisp/font-lock.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-08-21 02:24:07 +0000
+++ b/lisp/ChangeLog    2011-08-21 03:00:52 +0000
@@ -1,5 +1,11 @@
 2011-08-21  Chong Yidong  <address@hidden>
 
+       * font-lock.el (font-lock-fontify-region)
+       (font-lock-unfontify-region, font-lock-default-fontify-buffer)
+       (font-lock-default-unfontify-buffer)
+       (font-lock-default-fontify-region)
+       (font-lock-default-unfontify-region): Add docstrings (Bug#8624).
+
        * progmodes/compile.el (compilation-error-properties): Fix
        confusion between file struct and message struct (Bug#9319).
        (compilation-error-regexp-alist-alist): Fix 2011-05-09 change to

=== modified file 'lisp/font-lock.el'
--- a/lisp/font-lock.el 2011-08-18 11:36:19 +0000
+++ b/lisp/font-lock.el 2011-08-21 03:00:52 +0000
@@ -1018,14 +1018,20 @@
   (funcall font-lock-unfontify-buffer-function))
 
 (defun font-lock-fontify-region (beg end &optional loudly)
+  "Fontify the text between BEG and END.
+If LOUDLY is non-nil, print status messages while fontifying.
+This works by calling `font-lock-fontify-region-function'."
   (font-lock-set-defaults)
   (funcall font-lock-fontify-region-function beg end loudly))
 
 (defun font-lock-unfontify-region (beg end)
+  "Unfontify the text between BEG and END.
+This works by calling `font-lock-unfontify-region-function'."
   (save-buffer-state
     (funcall font-lock-unfontify-region-function beg end)))
 
 (defun font-lock-default-fontify-buffer ()
+  "Fontify the whole buffer using `font-lock-fontify-buffer-function'."
   (let ((verbose (if (numberp font-lock-verbose)
                     (> (buffer-size) font-lock-verbose)
                   font-lock-verbose)))
@@ -1045,6 +1051,7 @@
          (quit (font-lock-unfontify-buffer)))))))
 
 (defun font-lock-default-unfontify-buffer ()
+  "Unfontify the whole buffer using `font-lock-unfontify-region-function'."
   ;; Make sure we unfontify etc. in the whole buffer.
   (save-restriction
     (widen)
@@ -1114,6 +1121,9 @@
     changed))
 
 (defun font-lock-default-fontify-region (beg end loudly)
+  "Fontify the text between BEG and END.
+If LOUDLY is non-nil, print status messages while fontifying.
+This function is the default `font-lock-fontify-region-function'."
   (save-buffer-state
     ;; Use the fontification syntax table, if any.
     (with-syntax-table (or font-lock-syntax-table (syntax-table))
@@ -1162,6 +1172,9 @@
 what properties to clear before refontifying a region.")
 
 (defun font-lock-default-unfontify-region (beg end)
+  "Unfontify the text between BEG and END.
+This function is the default value of the variable
+ `font-lock-unfontify-region-function'."
   (remove-list-of-text-properties
    beg end (append
            font-lock-extra-managed-props