Mercurial > hg > xemacs-beta

comparison lisp/tl/emu-e19.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents c0c698873ce1
children
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
1 ;;; emu-e19.el --- emu module for Emacs 19 and XEmacs 19 1 ;;; emu-e19.el --- emu module for Emacs 19 and XEmacs 19
2 2
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Version: $Id: emu-e19.el,v 1.2 1996/12/28 21:03:08 steve Exp $ 6 ;; Version: $Id: emu-e19.el,v 1.3 1997/02/24 01:14:16 steve Exp $
7 ;; Keywords: emulation, compatibility, mule, Latin-1 7 ;; Keywords: emulation, compatibility, mule, Latin-1
8 8
9 ;; This file is part of emu. 9 ;; This file is part of emu.
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
133 (defmacro as-binary-input-file (&rest body) 133 (defmacro as-binary-input-file (&rest body)
134 (` (let ((emx-binary-mode t)) ; Stop CRLF to LF conversion in OS/2 134 (` (let ((emx-binary-mode t)) ; Stop CRLF to LF conversion in OS/2
135 (,@ body) 135 (,@ body)
136 ))) 136 )))
137 137
138 (defmacro as-binary-output-file (&rest body)
139 (` (let ((emx-binary-mode t)) ; Stop CRLF to LF conversion in OS/2
140 (,@ body)
141 )))
142
138 143
139 ;;; @@ for old MULE emulation 144 ;;; @@ for old MULE emulation
140 ;;; 145 ;;;
141 146
142 (defun code-convert-string (str ic oc) 147 (defun code-convert-string (str ic oc)
148 (defun code-convert-region (beg end ic oc) 153 (defun code-convert-region (beg end ic oc)
149 "Convert code of the text between BEGIN and END from SOURCE 154 "Convert code of the text between BEGIN and END from SOURCE
150 to TARGET. On successful conversion returns t, 155 to TARGET. On successful conversion returns t,
151 else returns nil. [emu-e19.el; old MULE emulating function]" 156 else returns nil. [emu-e19.el; old MULE emulating function]"
152 t) 157 t)
158
159
160 ;;; @ binary access
161 ;;;
162
163 (defun insert-binary-file-contents-literally
164 (filename &optional visit beg end replace)
165 "Like `insert-file-contents-literally', q.v., but don't code conversion.
166 A buffer may be modified in several ways after reading into the buffer due
167 to advanced Emacs features, such as file-name-handlers, format decoding,
168 find-file-hooks, etc.
169 This function ensures that none of these modifications will take place."
170 (let ((emx-binary-mode t))
171 (insert-file-contents-literally filename visit beg end replace)
172 ))
153 173
154 174
155 ;;; @ MIME charset 175 ;;; @ MIME charset
156 ;;; 176 ;;;
157 177