Mercurial > hg > xemacs-beta

comparison lisp/tl/emu-e19.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
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,1997 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.3 1997/02/02 05:06:16 steve Exp $ 6 ;; Version: $Id: emu-e19.el,v 1.4 1997/02/16 01:29:29 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
155 to TARGET. On successful conversion returns t, 155 to TARGET. On successful conversion returns t,
156 else returns nil. [emu-e19.el; old MULE emulating function]" 156 else returns nil. [emu-e19.el; old MULE emulating function]"
157 t) 157 t)
158 158
159 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 ))
173
174
160 ;;; @ MIME charset 175 ;;; @ MIME charset
161 ;;; 176 ;;;
162 177
163 (defvar charsets-mime-charset-alist 178 (defvar charsets-mime-charset-alist
164 (list (cons (list charset-ascii) 'us-ascii))) 179 (list (cons (list charset-ascii) 'us-ascii)))