APPROVE COMMIT NOTE: This patch has been committed. lisp/ChangeLog addition: 2006-11-29 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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! _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches