Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(define-charset): If :code-space is not given, generate it from

Browse source 
:dimension.
This commit is contained in:
Kenichi Handa 2004-01-25 07:33:44 +00:00
parent ceacd80323
commit c04e918c72
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/international/mule.el
View file

@ -243,10 +243,18 @@ attribute."
;; If :dimension is omitted, get the dimension from :code-space.
(let ((dimension (plist-get props :dimension)))
(or dimension
(progn
(setq dimension (/ (length (plist-get props :code-space)) 2))
(let ((code-space (plist-get props :code-space)))
(setq dimension (if code-space (/ (length code-space) 2) 4))
(setq props (plist-put props :dimension dimension)))))
(let ((code-space (plist-get props :code-space)))
(or code-space
(let ((dimension (plist-get props :dimension)))
(setq code-space (make-vector 8 0))
(dotimes (i dimension)
(aset code-space (1+ (* i 2)) #xFF))
(setq props (plist-put props :code-space code-space)))))
;; If :emacs-mule-id is specified, update emacs-mule-charset-table.
(let ((emacs-mule-id (plist-get props :emacs-mule-id)))
(if (integerp emacs-mule-id)