Mercurial > emacs
changeset 94155:1acbae4306b2
(char-coding-system-table): Remove redundant obsolescence info in docstring.
(charset-list, generic-char-p, set-char-table-default): Fix typos in
obsolescence decarations.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 18 Apr 2008 10:17:43 +0000 |
| parents | 2b060bb498d6 |
| children | eea76bfceb7c |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Fri Apr 18 10:15:09 2008 +0000 +++ b/lisp/international/mule.el Fri Apr 18 10:17:43 2008 +0000 @@ -474,7 +474,7 @@ 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 @@ (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 @@ (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 @@ 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 @@ (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: