--- a/lisp/format.el	Mon Aug 13 10:10:03 2007 +0200
+++ b/lisp/format.el	Mon Aug 13 10:10:54 2007 +0200
@@ -210,7 +210,6 @@
 	  (funcall to-fn from to orig-buf)))))
 
 (defun format-decode (format length &optional visit-flag)
-  ;; This function is called by insert-file-contents whenever a file is read.
   "Decode text from any known FORMAT.
 FORMAT is a symbol appearing in `format-alist' or a list of such symbols, 
 or nil, in which case this function tries to guess the format of the data by
@@ -225,7 +224,9 @@
 
 Returns the new length of the decoded region.
 
-For most purposes, consider using `format-decode-region' instead."
+For most purposes, consider using `format-decode-region' instead.
+
+This function is called by insert-file-contents whenever a file is read."
   (let ((mod (buffer-modified-p))
 	(begin (point))
 	(end (+ (point) length)))