pces-e20_2.el

   1 ;;; -*-byte-compile-dynamic: t;-*-
   2 ;;; pces-e20_2.el --- pces implementation for Emacs 20.1 and 20.2
   3
   4 ;; Copyright (C) 1996,1997,1998,1999 Free Software Foundation, Inc.
   5
   6 ;; Author: MORIOKA Tomohiko <tomo@m17n.org>
   7 ;; Keywords: emulation, compatibility, Mule
   8
   9 ;; This file is part of APEL (A Portable Emacs Library).
  10
  11 ;; This program is free software; you can redistribute it and/or
  12 ;; modify it under the terms of the GNU General Public License as
  13 ;; published by the Free Software Foundation; either version 2, or (at
  14 ;; your option) any later version.
  15
  16 ;; This program is distributed in the hope that it will be useful, but
  17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19 ;; General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  24 ;; Boston, MA 02110-1301, USA.
  25
  26 ;;; Commentary:
  27
  28 ;;    This module requires Emacs 20.1 and 20.2.
  29
  30 ;;; Code:
  31
  32 ;;; @ without code-conversion
  33 ;;;
  34
  35 (defun insert-file-contents-as-binary (filename
  36                                        &optional visit beg end replace)
  37   "Like `insert-file-contents', q.v., but don't code and format conversion.
  38 Like `insert-file-contents-literary', but it allows find-file-hooks,
  39 automatic uncompression, etc.
  40
  41 Namely this function ensures that only format decoding and character
  42 code conversion will not take place."
  43   (let ((flag enable-multibyte-characters)
  44         (coding-system-for-read 'binary)
  45         format-alist)
  46     (prog1
  47         ;; Returns list absolute file name and length of data inserted.
  48         (insert-file-contents filename visit beg end replace)
  49       ;; This operation does not change the length.
  50       (set-buffer-multibyte flag))))
  51
  52 (defun insert-file-contents-as-raw-text (filename
  53                                          &optional visit beg end replace)
  54   "Like `insert-file-contents', q.v., but don't code and format conversion.
  55 Like `insert-file-contents-literary', but it allows find-file-hooks,
  56 automatic uncompression, etc.
  57 Like `insert-file-contents-as-binary', but it converts line-break
  58 code."
  59   (let ((flag enable-multibyte-characters)
  60         (coding-system-for-read 'raw-text)
  61         format-alist)
  62     (prog1
  63         ;; Returns list absolute file name and length of data inserted.
  64         (insert-file-contents filename visit beg end replace)
  65       ;; This operation does not change the length.
  66       (set-buffer-multibyte flag))))
  67
  68 (defun insert-file-contents-as-raw-text-CRLF (filename
  69                                               &optional visit beg end replace)
  70   "Like `insert-file-contents', q.v., but don't code and format conversion.
  71 Like `insert-file-contents-literary', but it allows find-file-hooks,
  72 automatic uncompression, etc.
  73 Like `insert-file-contents-as-binary', but it converts line-break code
  74 from CRLF to LF."
  75   (let ((flag enable-multibyte-characters)
  76         (coding-system-for-read 'raw-text-dos)
  77         format-alist)
  78     (prog1
  79         ;; Returns list absolute file name and length of data inserted.
  80         (insert-file-contents filename visit beg end replace)
  81       ;; This operation does not change the length.
  82       (set-buffer-multibyte flag))))
  83
  84 (defun find-file-noselect-as-binary (filename &optional nowarn rawfile)
  85   "Like `find-file-noselect', q.v., but don't code and format conversion."
  86   (let ((flag enable-multibyte-characters)
  87         (coding-system-for-read 'binary)
  88         format-alist)
  89     (save-current-buffer
  90       (prog1
  91           (set-buffer (find-file-noselect filename nowarn rawfile))
  92         (set-buffer-multibyte flag)))))
  93
  94 (defun find-file-noselect-as-raw-text (filename &optional nowarn rawfile)
  95   "Like `find-file-noselect', q.v., but it does not code and format conversion
  96 except for line-break code."
  97   (let ((flag enable-multibyte-characters)
  98         (coding-system-for-read 'raw-text)
  99         format-alist)
 100     (save-current-buffer
 101       (prog1
 102           (set-buffer (find-file-noselect filename nowarn rawfile))
 103         (set-buffer-multibyte flag)))))
 104
 105 (defun find-file-noselect-as-raw-text-CRLF (filename &optional nowarn rawfile)
 106   "Like `find-file-noselect', q.v., but it does not code and format conversion
 107 except for line-break code."
 108   (let ((flag enable-multibyte-characters)
 109         (coding-system-for-read 'raw-text-dos)
 110         format-alist)
 111     (save-current-buffer
 112       (prog1
 113           (set-buffer (find-file-noselect filename nowarn rawfile))
 114         (set-buffer-multibyte flag)))))
 115
 116
 117 ;;; @ with code-conversion
 118 ;;;
 119
 120 (defun insert-file-contents-as-coding-system
 121   (coding-system filename &optional visit beg end replace)
 122   "Like `insert-file-contents', q.v., but CODING-SYSTEM the first arg will
 123 be applied to `coding-system-for-read'."
 124   (let ((flag enable-multibyte-characters)
 125         (coding-system-for-read coding-system)
 126         format-alist)
 127     (prog1
 128         (insert-file-contents filename visit beg end replace)
 129       (set-buffer-multibyte flag))))
 130
 131 (defun find-file-noselect-as-coding-system
 132   (coding-system filename &optional nowarn rawfile)
 133   "Like `find-file-noselect', q.v., but CODING-SYSTEM the first arg will
 134 be applied to `coding-system-for-read'."
 135   (let ((flag enable-multibyte-characters)
 136         (coding-system-for-read coding-system)
 137         format-alist)
 138     (save-current-buffer
 139       (prog1
 140           (set-buffer (find-file-noselect filename nowarn rawfile))
 141         (set-buffer-multibyte flag)))))
 142
 143
 144 ;;; @ end
 145 ;;;
 146
 147 (require 'product)
 148 (product-provide (provide 'pces-e20_2) (require 'apel-ver))
 149
 150 ;;; pces-e20_2.el ends here