From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 18 Apr 2008 10:17:43 +0000 (+0000)
Subject: (char-coding-system-table): Remove redundant obsolescence info in docstring.
X-Git-Tag: emacs-pretest-23.0.90~6216
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5d3a63035207f7aefd264c46a2d2d10abf45224;p=emacs.git

(char-coding-system-table): Remove redundant obsolescence info in docstring.
(charset-list, generic-char-p, set-char-table-default): Fix typos in
obsolescence decarations.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index fa1c413889d..3356f2295ea 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -474,7 +474,7 @@ Return -1 if charset isn't an ISO 2022 one."
 This function is provided for backward compatibility.
 Now we have the variable `charset-list'."
   charset-list)
-(make-obsolete 'charset-list "Use variable `charset-list'" "23.1")
+(make-obsolete 'charset-list "use variable `charset-list'." "23.1")
 
 
 ;;; CHARACTER
@@ -484,7 +484,7 @@ Now we have the variable `charset-list'."
 (defun generic-char-p (char)
   "Always return nil.  This is provided for backward compatibility."
   nil)
-(make-obsolete 'generic-char-p "Generic characters no longer exist" "23.1")
+(make-obsolete 'generic-char-p "generic characters no longer exist." "23.1")
 
 (defun make-char-internal (charset-id &optional code1 code2)
   (let ((charset (aref emacs-mule-charset-table charset-id)))
@@ -826,7 +826,7 @@ encoding.  This attribute has a meaning only when `:coding-type' is
 	  (cons :name (cons name (cons :docstring (cons (purecopy docstring)
 							props)))))
     (setcdr (assq :plist common-attrs) props)
-    (apply 'define-coding-system-internal 
+    (apply 'define-coding-system-internal
 	   name (mapcar 'cdr (append common-attrs spec-attrs)))))
 
 (defun coding-system-doc-string (coding-system)
@@ -935,8 +935,8 @@ formats (e.g. iso-latin-1-unix, koi8-r-dos)."
     codings))
 
 (defconst char-coding-system-table nil
-  "This is an obsolete variable.
-It exists just for backward compatibility, and the value is always nil.")
+  "It exists just for backward compatibility, and the value is always nil.")
+(make-obsolete-variable 'char-coding-system-table nil "23.1")
 
 (defun transform-make-coding-system-args (name type &optional doc-string props)
   "For internal use only.
@@ -2270,7 +2270,7 @@ Analogous to `define-translation-table', but updates
       (make-char-table 'ignore-relative-composition))
 
 (make-obsolete 'set-char-table-default
-	       "Generic characters no longer exist" "23.1")
+	       "generic characters no longer exist." "23.1")
 
 ;;; Built-in auto-coding-functions: