Mercurial > hg > xemacs-beta

comparison lisp/tl/emu-x20.el @ 126:1370575f1259 xemacs-20-1p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-1p1
author cvs
date Mon, 13 Aug 2007 09:27:39 +0200
parents cca96a509cfe
children
comparison
equal deleted inserted replaced
125:8b0638b347ec 126:1370575f1259
1 ;;; emu-x20.el --- emu API implementation for XEmacs 20 with mule 1 ;;; emu-x20.el --- emu API implementation for XEmacs 20 with mule
2 2
3 ;; Copyright (C) 1994,1995,1996,1997 MORIOKA Tomohiko 3 ;; Copyright (C) 1994,1995,1996,1997 MORIOKA Tomohiko
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Version: $Id: emu-x20.el,v 1.7 1997/04/10 05:55:51 steve Exp $ 6 ;; Version: $Id: emu-x20.el,v 1.8 1997/04/16 04:08:02 steve Exp $
7 ;; Keywords: emulation, compatibility, Mule, XEmacs 7 ;; Keywords: emulation, compatibility, Mule, XEmacs
8 8
9 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
10 10
11 ;; This program is free software; you can redistribute it and/or 11 ;; This program is free software; you can redistribute it and/or
38 38
39 (defconst *noconv* 'no-conversion) 39 (defconst *noconv* 'no-conversion)
40 40
41 (defmacro as-binary-process (&rest body) 41 (defmacro as-binary-process (&rest body)
42 `(let (selective-display ; Disable ^M to nl translation. 42 `(let (selective-display ; Disable ^M to nl translation.
43 (coding-system-for-read 'no-conversion) 43 (coding-system-for-read 'binary)
44 (coding-system-for-write 'no-conversion)) 44 (coding-system-for-write 'binary))
45 ,@body)) 45 ,@body))
46 46
47 (defmacro as-binary-input-file (&rest body) 47 (defmacro as-binary-input-file (&rest body)
48 `(let ((coding-system-for-read 'no-conversion)) 48 `(let ((coding-system-for-read 'binary))
49 ,@body)) 49 ,@body))
50 50
51 (defmacro as-binary-output-file (&rest body) 51 (defmacro as-binary-output-file (&rest body)
52 `(let ((coding-system-for-write 'no-conversion)) 52 `(let ((coding-system-for-write 'binary))
53 ,@body)) 53 ,@body))
54 54
55 55
56 ;;; @ binary access 56 ;;; @ binary access
57 ;;; 57 ;;;