diff options
| -rw-r--r-- | lisp/international/mule.el | 12 |
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." | |||
| 474 | This function is provided for backward compatibility. | 474 | This function is provided for backward compatibility. |
| 475 | Now we have the variable `charset-list'." | 475 | Now 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.") |
| 939 | It 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 | ||