*** empty log message ***

2 files changed, 4 insertions, 58 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 055dc33d2ab..54b69478ccf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,7 @@
 2001-02-01  Kenichi Handa  <handa@etl.go.jp>
 
         * international/mule.el (make-coding-system): Add description
-        about recognized properties.
+        about recognized properties in the docstring.
 
         * international/mule-conf.el: Remove unused charsets
         mac-roman-lower and mac-roman-upper.
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index fecba4979a5..836644c05fd 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -391,71 +391,17 @@ code-point in CCS.  Currently not supported and just ignored."
 ;; `base coding system'.  The function `make-coding-system' sets this
 ;; value automatically and `define-coding-system-alias' updates it.
 ;;
-;; o post-read-conversion
-;;
-;; The value is a function to call after some text is inserted and
-;; decoded by the coding system itself and before any functions in
-;; `after-insert-functions' are called.  The arguments to this
-;; function is the same as those of a function in
-;; `after-insert-functions', i.e. LENGTH of a text while putting point
-;; at the head of the text to be decoded
+;; See the documentation of make-coding-system for the meanings of the
+;; following properties.
 ;;
+;; o post-read-conversion
 ;; o pre-write-conversion
-;;
-;; The value is a function to call after all functions in
-;; `write-region-annotate-functions' and `buffer-file-format' are
-;; called, and before the text is encoded by the coding system itself.
-;; The arguments to this function is the same as those of a function
-;; in `write-region-annotate-functions', i.e. FROM and TO specifying
-;; region of a text.
-;;
 ;; o translation-table-for-decode
-;;
-;; The value is a translation table to be applied on decoding.  See
-;; the function `make-translation-table' for the format of translation
-;; table.
-;;
 ;; o translation-table-for-encode
-;;
-;; The value is a translation table to be applied on encoding.
-;;
 ;; o safe-chars
-;;
-;; The value is a char table.  If a character has non-nil value in it,
-;; the character is safely supported by the coding system.  This
-;; overrides the specification of safe-charsets.
-
 ;; o safe-charsets
-;;
-;; The value is a list of charsets safely supported by the coding
-;; system.  The value t means that all charsets Emacs handles are
-;; supported.  Even if some charset is not in this list, it doesn't
-;; mean that the charset can't be encoded in the coding system,
-;; instead, it just means that some other receiver of a text encoded
-;; in the coding system won't be able to handle that charset.
-;;
 ;; o mime-charset
-;;
-;; The value is a symbol of which name is `MIME-charset' parameter of
-;; the coding system.
-;;
-;; o charset-origin-alist
-;;
-;; The value is a list of this form:
-;;      (CHARSET EXTERNAL-CHARSET-NAME ENCODING-FUNCTION).
-;; ENCODING-FUNCTION is a function to encode a character in CHARSET
-;; to the code in EXTERNAL-CHARSET-NAME.  The command what-cursor-position
-;; uses this information of the buffer-file-coding-system.
-;; ENCODING-FUNCTION may be a translation table or a symbol whose
-;; property `translation-table' is a translation table.  In these case,
-;; the translation table is used to encode the character.
-;;
 ;; o valid-codes (meaningful only for a coding system based on CCL)
-;;
-;; The value is a list to indicate valid byte ranges of the encoded
-;; file.  Each element of the list is an integer or a cons of integer.
-;; In the former case, the integer value is a valid byte code.  In the
-;; latter case, the integers specifies the range of valid byte codes.
 
 
 ;; Return coding-spec of CODING-SYSTEM