Mercurial > hg > xemacs-beta

comparison lisp/coding.el @ 5083:88f955fa5a7f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Back out revision c673987f5f3d, undump mule/make-coding-system.el. lisp/ChangeLog addition: 2010-02-26 Aidan Kehoe <kehoea@parhasard.net> Back out Ben's revision c673987f5f3d. * coding.el: Add a compiler macro for #'make-coding-system on non-Mule builds too, to fix the problem he addressed with that changeset. * mule/make-coding-system.el (fixed-width-private-use-start): Don't call (decode-char ... 'ucs) here, it can make bootstrapping harder. src/ChangeLog addition: 2010-02-26 Aidan Kehoe <kehoea@parhasard.net> * file-coding.c (Fmake_coding_system_internal): Be somewhat clearer in this docstring, especially for the sake of people running non-Mule builds who will see this docstring when they do F1 f make-coding-system RET.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 26 Feb 2010 15:52:24 +0000
parents baffa6ca776a
children f00192e1cd49 308d34e9f07d
comparison
equal deleted inserted replaced
5082:37a17808de95 5083:88f955fa5a7f
485 (funcall (get 'make-coding-system 'cl-compiler-macro) 485 (funcall (get 'make-coding-system 'cl-compiler-macro)
486 form name type description props)))) 486 form name type description props))))
487 487
488 ;; Mule's not available; 488 ;; Mule's not available;
489 (fset 'make-coding-system (symbol-function 'make-coding-system-internal)) 489 (fset 'make-coding-system (symbol-function 'make-coding-system-internal))
490 (define-compiler-macro make-coding-system (&whole form name type
491 &optional description props)
492 (cond
493 ;; We shouldn't normally see these forms under non-Mule; they're all in
494 ;; the mule/ subdirectory.
495 ((equal '(quote fixed-width) type)
496 form)
497 ((byte-compile-constp type)
498 `(funcall (or (and (fboundp 'make-coding-system-internal)
499 'make-coding-system-internal) 'make-coding-system)
500 ,@(cdr form)))
501 (t form)))
502
490 (define-coding-system-alias 'escape-quoted 'binary) 503 (define-coding-system-alias 'escape-quoted 'binary)
491 504
492 ;; These are so that gnus and friends work when not mule: 505 ;; These are so that gnus and friends work when not mule:
493 (define-coding-system-alias 'iso-8859-1 'raw-text) 506 (define-coding-system-alias 'iso-8859-1 'raw-text)
494 (define-coding-system-alias 'ctext 'raw-text)) 507 (define-coding-system-alias 'ctext 'raw-text))