Mercurial > hg > xemacs-beta
changeset 3712:a0d288cfcfb5
[xemacs-hg @ 2006-11-29 22:33:36 by aidan]
Add a define-setf, a couple of make-obsoletes, and update docstrings in mule-charset.el.
| author | aidan |
|---|---|
| date | Wed, 29 Nov 2006 22:33:43 +0000 |
| parents | 761385dfa575 |
| children | 8109a63bce88 |
| files | lisp/ChangeLog lisp/mule/mule-charset.el |
| diffstat | 2 files changed, 15 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Nov 29 19:56:15 2006 +0000 +++ b/lisp/ChangeLog Wed Nov 29 22:33:43 2006 +0000 @@ -1,3 +1,12 @@ +2006-11-29 Aidan Kehoe <kehoea@parhasard.net> + + * mule/mule-charset.el: + * mule/mule-charset.el (charset-registry): + * mule/mule-charset.el (set-charset-registry): + * mule/mule-charset.el (charset-registries): New. + Make set-charset-registry, charset-registry obsolete; define a + setf for charset-registries. + 2006-11-28 Aidan Kehoe <kehoea@parhasard.net> * mule/cyrillic.el ("Cyrillic-KOI8"):
--- a/lisp/mule/mule-charset.el Wed Nov 29 19:56:15 2006 +0000 +++ b/lisp/mule/mule-charset.el Wed Nov 29 22:33:43 2006 +0000 @@ -82,14 +82,14 @@ ;; Not in GNU Emacs/Mule (defun charset-registry (charset) - "Return the registry of CHARSET. -This is a regular expression matching the registry field of fonts -that can display the characters in CHARSET." + "Obsolete; use charset-registries instead. " (lwarn 'xintl 'warning "charset-registry is obsolete--use charset-registries instead. ") (when (charset-property charset 'registries) (elt (charset-property charset 'registries) 0))) +(make-obsolete 'charset-registry 'charset-registries) + (defun charset-registries (charset) "Return the registries of CHARSET." (charset-property charset 'registries)) @@ -106,6 +106,8 @@ charset (apply 'vector registry (append (charset-registries charset) nil)))) +(make-obsolete 'set-charset-registry 'set-charset-registries) + (defun charset-ccl-program (charset) "Return the CCL program of CHARSET. See `make-charset'." @@ -124,6 +126,7 @@ (defsetf charset-registry set-charset-registry) (defsetf charset-ccl-program set-charset-ccl-program) +(defsetf charset-registries set-charset-registries) ;;; FSF compatibility functions (defun charset-after (&optional pos)