Mercurial > hg > xemacs-beta

comparison lisp/tl/emu.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 364816949b59
children fe104dbd9147
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;; emu.el --- Emulation module for each Emacs variants 1 ;;; emu.el --- Emulation module for each Emacs variants
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.el,v 1.3 1997/01/30 02:22:46 steve Exp $ 6 ;; Version: $Id: emu.el,v 1.4 1997/02/15 22:21:25 steve Exp $
7 ;; Keywords: emulation, compatibility, NEmacs, MULE, Emacs/mule, XEmacs 7 ;; Keywords: emulation, compatibility, NEmacs, MULE, Emacs/mule, XEmacs
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
87 ) 87 )
88 (t 88 (t
89 ;; for EMACS 19 and XEmacs 19 (without mule) 89 ;; for EMACS 19 and XEmacs 19 (without mule)
90 (require 'emu-e19) 90 (require 'emu-e19)
91 )) 91 ))
92
93
94 ;;; @ binary access
95 ;;;
96
97 (defun insert-binary-file-contents-literally
98 (filename &optional visit beg end replace)
99 "Like `insert-file-contents-literally', q.v., but don't code conversion.
100 A buffer may be modified in several ways after reading into the buffer due
101 to advanced Emacs features, such as file-name-handlers, format decoding,
102 find-file-hooks, etc.
103 This function ensures that none of these modifications will take place.
104 \[emu.el]"
105 (as-binary-input-file
106 (insert-file-contents-literally filename visit beg end replace)
107 ))
108 92
109 93
110 ;;; @ MIME charset 94 ;;; @ MIME charset
111 ;;; 95 ;;;
112 96