aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/international/mule.el12
1 files changed, 6 insertions, 6 deletions
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."
474This function is provided for backward compatibility. 474This function is provided for backward compatibility.
475Now we have the variable `charset-list'." 475Now we have the variable `charset-list'."
476 charset-list) 476 charset-list)
477(make-obsolete 'charset-list "Use variable `charset-list'" "23.1") 477(make-obsolete 'charset-list "use variable `charset-list'." "23.1")
478 478
479 479
480;;; CHARACTER 480;;; CHARACTER
@@ -484,7 +484,7 @@ Now we have the variable `charset-list'."
484(defun generic-char-p (char) 484(defun generic-char-p (char)
485 "Always return nil. This is provided for backward compatibility." 485 "Always return nil. This is provided for backward compatibility."
486 nil) 486 nil)
487(make-obsolete 'generic-char-p "Generic characters no longer exist" "23.1") 487(make-obsolete 'generic-char-p "generic characters no longer exist." "23.1")
488 488
489(defun make-char-internal (charset-id &optional code1 code2) 489(defun make-char-internal (charset-id &optional code1 code2)
490 (let ((charset (aref emacs-mule-charset-table charset-id))) 490 (let ((charset (aref emacs-mule-charset-table charset-id)))
@@ -826,7 +826,7 @@ encoding. This attribute has a meaning only when `:coding-type' is
826 (cons :name (cons name (cons :docstring (cons (purecopy docstring) 826 (cons :name (cons name (cons :docstring (cons (purecopy docstring)
827 props))))) 827 props)))))
828 (setcdr (assq :plist common-attrs) props) 828 (setcdr (assq :plist common-attrs) props)
829 (apply 'define-coding-system-internal 829 (apply 'define-coding-system-internal
830 name (mapcar 'cdr (append common-attrs spec-attrs))))) 830 name (mapcar 'cdr (append common-attrs spec-attrs)))))
831 831
832(defun coding-system-doc-string (coding-system) 832(defun coding-system-doc-string (coding-system)
@@ -935,8 +935,8 @@ formats (e.g. iso-latin-1-unix, koi8-r-dos)."
935 codings)) 935 codings))
936 936
937(defconst char-coding-system-table nil 937(defconst char-coding-system-table nil
938 "This is an obsolete variable. 938 "It exists just for backward compatibility, and the value is always nil.")
939It exists just for backward compatibility, and the value is always nil.") 939(make-obsolete-variable 'char-coding-system-table nil "23.1")
940 940
941(defun transform-make-coding-system-args (name type &optional doc-string props) 941(defun transform-make-coding-system-args (name type &optional doc-string props)
942 "For internal use only. 942 "For internal use only.
@@ -2270,7 +2270,7 @@ Analogous to `define-translation-table', but updates
2270 (make-char-table 'ignore-relative-composition)) 2270 (make-char-table 'ignore-relative-composition))
2271 2271
2272(make-obsolete 'set-char-table-default 2272(make-obsolete 'set-char-table-default
2273 "Generic characters no longer exist" "23.1") 2273 "generic characters no longer exist." "23.1")
2274 2274
2275;;; Built-in auto-coding-functions: 2275;;; Built-in auto-coding-functions:
2276 2276