[COMMIT] Add a define-setf, a couple of make-obsoletes, and update docstrings

[Aidan Kehoe]

APPROVE COMMIT

NOTE: This patch has been committed.

lisp/ChangeLog addition:

2006-11-29  Aidan Kehoe  <kehoea at 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. 


XEmacs Trunk source patch:
Diff command:   cvs -q diff -Nu
Files affected: lisp/mule/mule-charset.el
===================================================================
RCS

Index: lisp/mule/mule-charset.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/mule-charset.el,v
retrieving revision 1.20
diff -u -u -r1.20 mule-charset.el
--- lisp/mule/mule-charset.el	2006/11/15 21:39:59	1.20
+++ lisp/mule/mule-charset.el	2006/11/29 22:31:28
@@ -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)

-- 
Santa Maradona, priez pour moi!