/[emacs]/emacs/lisp/international/mule.el
ViewVC logotype

Diff of /emacs/lisp/international/mule.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.141.2.5 by fx, Fri May 17 16:51:14 2002 UTC revision 1.141.2.6 by fx, Fri May 17 20:17:04 2002 UTC
# Line 189  attribute." Line 189  attribute."
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))))
# Line 595  This attribute has a meaning only when ` Line 602  This attribute has a meaning only when `
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

Legend:
Removed from v.1.141.2.5  
changed lines
  Added in v.1.141.2.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26