/[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.215 by handa, Mon Feb 21 12:50:06 2005 UTC revision 1.216 by handa, Fri Mar 11 12:00:47 2005 UTC
# Line 1041  a value of `safe-charsets' in PLIST." Line 1041  a value of `safe-charsets' in PLIST."
1041        (setq coding-category (plist-get plist 'coding-category))        (setq coding-category (plist-get plist 'coding-category))
1042        (aset coding-spec coding-spec-plist-idx plist))        (aset coding-spec coding-spec-plist-idx plist))
1043      (put coding-system 'coding-system coding-spec)      (put coding-system 'coding-system coding-spec)
1044        (put coding-system 'coding-system-define-form nil)
1045      (put coding-category 'coding-systems      (put coding-category 'coding-systems
1046           (cons coding-system (get coding-category 'coding-systems))))           (cons coding-system (get coding-category 'coding-systems))))
1047    
# Line 1102  a value of `safe-charsets' in PLIST." Line 1103  a value of `safe-charsets' in PLIST."
1103  (defun define-coding-system-alias (alias coding-system)  (defun define-coding-system-alias (alias coding-system)
1104    "Define ALIAS as an alias for coding system CODING-SYSTEM."    "Define ALIAS as an alias for coding system CODING-SYSTEM."
1105    (put alias 'coding-system (coding-system-spec coding-system))    (put alias 'coding-system (coding-system-spec coding-system))
1106      (put alias 'coding-system-define-form nil)
1107    (add-to-coding-system-list alias)    (add-to-coding-system-list alias)
1108    (setq coding-system-alist (cons (list (symbol-name alias))    (setq coding-system-alist (cons (list (symbol-name alias))
1109                                    coding-system-alist))                                    coding-system-alist))

Legend:
Removed from v.1.215  
changed lines
  Added in v.1.216

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