Mercurial > emacs
comparison lisp/international/mule.el @ 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 | 6ad7f6e364ef |
children | 889bc336b89b |
comparison
equal
deleted
inserted
replaced
94154:2b060bb498d6 | 94155:1acbae4306b2 |
---|---|
472 "Return list of all charsets ever defined. | 472 "Return list of all charsets ever defined. |
473 | 473 |
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 |
481 (defalias 'char-valid-p 'characterp) | 481 (defalias 'char-valid-p 'characterp) |
482 (make-obsolete 'char-valid-p 'characterp "23.1") | 482 (make-obsolete 'char-valid-p 'characterp "23.1") |
483 | 483 |
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))) |
491 (or charset | 491 (or charset |
492 (error "Invalid Emacs-mule charset ID: %d" charset-id)) | 492 (error "Invalid Emacs-mule charset ID: %d" charset-id)) |
824 ;; Add :name and :docstring properties to PROPS. | 824 ;; Add :name and :docstring properties to PROPS. |
825 (setq props | 825 (setq props |
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) |
833 "Return the documentation string for CODING-SYSTEM." | 833 "Return the documentation string for CODING-SYSTEM." |
834 (plist-get (coding-system-plist coding-system) :docstring)) | 834 (plist-get (coding-system-plist coding-system) :docstring)) |
933 (dolist (alias (coding-system-aliases coding)) | 933 (dolist (alias (coding-system-aliases coding)) |
934 (setq codings (cons alias codings)))))) | 934 (setq codings (cons alias codings)))))) |
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. |
943 Transform XEmacs style args for `make-coding-system' to Emacs style. | 943 Transform XEmacs style args for `make-coding-system' to Emacs style. |
944 Value is a list of transformed arguments." | 944 Value is a list of transformed arguments." |
2268 (put 'ignore-relative-composition 'char-table-extra-slots 0) | 2268 (put 'ignore-relative-composition 'char-table-extra-slots 0) |
2269 (setq ignore-relative-composition | 2269 (setq ignore-relative-composition |
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 |
2277 (defun sgml-xml-auto-coding-function (size) | 2277 (defun sgml-xml-auto-coding-function (size) |
2278 "Determine whether the buffer is XML, and if so, its encoding. | 2278 "Determine whether the buffer is XML, and if so, its encoding. |