*** emacs/lisp/international/mule-diag.el	Thu Feb 20 16:52:47 2003
--- /usr/local/share/emacs/21.3.50/lisp/international/mule-diag.el	Tue Apr  8 14:31:03 2003
***************
*** 780,789 ****
  			(not (eq coding-system (aref base-eol-type eol-type))))
  		   (princ (format " (alias of %s)"
  				  (aref base-eol-type eol-type))))))))
!     (princ "\n\n")
      (if (and doc-string
  	     (setq doc-string (coding-system-doc-string coding-system)))
! 	(princ (format "%s\n" doc-string)))))
  
  ;;;###autoload
  (defun describe-current-coding-system ()
--- 780,790 ----
  			(not (eq coding-system (aref base-eol-type eol-type))))
  		   (princ (format " (alias of %s)"
  				  (aref base-eol-type eol-type))))))))
!     (princ "\n")
      (if (and doc-string
  	     (setq doc-string (coding-system-doc-string coding-system)))
! 	(princ (format "%s\n" doc-string)))
!     (princ "\n")))
  
  ;;;###autoload
  (defun describe-current-coding-system ()