Mercurial > hg > xemacs-beta

comparison lisp/tl/emu.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 4b173ad71786
children e04119814345
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
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.2 1996/12/22 00:29:31 steve Exp $ 6 ;; Version: $Id: emu.el,v 1.3 1997/02/16 01:29:29 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