Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-charset.el @ 3712:a0d288cfcfb5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 3131094eed8c
children aa28d959af41
comparison
equal deleted inserted replaced
3711:761385dfa575 3712:a0d288cfcfb5
80 0 80 0
81 1)) 81 1))
82 82
83 ;; Not in GNU Emacs/Mule 83 ;; Not in GNU Emacs/Mule
84 (defun charset-registry (charset) 84 (defun charset-registry (charset)
85 "Return the registry of CHARSET. 85 "Obsolete; use charset-registries instead. "
86 This is a regular expression matching the registry field of fonts
87 that can display the characters in CHARSET."
88 (lwarn 'xintl 'warning 86 (lwarn 'xintl 'warning
89 "charset-registry is obsolete--use charset-registries instead. ") 87 "charset-registry is obsolete--use charset-registries instead. ")
90 (when (charset-property charset 'registries) 88 (when (charset-property charset 'registries)
91 (elt (charset-property charset 'registries) 0))) 89 (elt (charset-property charset 'registries) 0)))
90
91 (make-obsolete 'charset-registry 'charset-registries)
92 92
93 (defun charset-registries (charset) 93 (defun charset-registries (charset)
94 "Return the registries of CHARSET." 94 "Return the registries of CHARSET."
95 (charset-property charset 'registries)) 95 (charset-property charset 'registries))
96 96
104 registry " as a string.")) 104 registry " as a string."))
105 (set-charset-registries 105 (set-charset-registries
106 charset 106 charset
107 (apply 'vector registry (append (charset-registries charset) nil)))) 107 (apply 'vector registry (append (charset-registries charset) nil))))
108 108
109 (make-obsolete 'set-charset-registry 'set-charset-registries)
110
109 (defun charset-ccl-program (charset) 111 (defun charset-ccl-program (charset)
110 "Return the CCL program of CHARSET. 112 "Return the CCL program of CHARSET.
111 See `make-charset'." 113 See `make-charset'."
112 (charset-property charset 'ccl-program)) 114 (charset-property charset 'ccl-program))
113 115
122 124
123 ;;;; Define setf methods for all settable Charset properties 125 ;;;; Define setf methods for all settable Charset properties
124 126
125 (defsetf charset-registry set-charset-registry) 127 (defsetf charset-registry set-charset-registry)
126 (defsetf charset-ccl-program set-charset-ccl-program) 128 (defsetf charset-ccl-program set-charset-ccl-program)
129 (defsetf charset-registries set-charset-registries)
127 130
128 ;;; FSF compatibility functions 131 ;;; FSF compatibility functions
129 (defun charset-after (&optional pos) 132 (defun charset-after (&optional pos)
130 "Return charset of a character in current buffer at position POS. 133 "Return charset of a character in current buffer at position POS.
131 If POS is nil, it defauls to the current point. 134 If POS is nil, it defauls to the current point.