189 |
(plist-put props :short-name (symbol-name name))) |
(plist-put props :short-name (symbol-name name))) |
190 |
(or (plist-get props :long-name) |
(or (plist-get props :long-name) |
191 |
(plist-put props :long-name (plist-get props :short-name))) |
(plist-put props :long-name (plist-get props :short-name))) |
192 |
|
;; We can probably get a worthwhile amount in purespace. |
193 |
|
(setq props |
194 |
|
(mapcar (lambda (elt) |
195 |
|
(if (stringp elt) |
196 |
|
(purecopy elt) |
197 |
|
elt)) |
198 |
|
props)) |
199 |
(setcdr (assq :plist attrs) props) |
(setcdr (assq :plist attrs) props) |
200 |
|
|
201 |
(apply 'define-charset-internal name (mapcar 'cdr attrs)))) |
(apply 'define-charset-internal name (mapcar 'cdr attrs)))) |
602 |
|
|
603 |
;; Add :name and :docstring properties to PROPS. |
;; Add :name and :docstring properties to PROPS. |
604 |
(setq props |
(setq props |
605 |
(cons :name (cons name (cons :docstring (cons docstring props))))) |
(cons :name (cons name (cons :docstring (cons (purecopy docstring) |
606 |
|
props))))) |
607 |
(setcdr (assq :plist common-attrs) props) |
(setcdr (assq :plist common-attrs) props) |
608 |
|
|
609 |
(apply 'define-coding-system-internal |
(apply 'define-coding-system-internal |