tm 7.69.

[elisp/apel.git] / emu-nemacs.el

diff --git a/emu-nemacs.el b/emu-nemacs.el
index 23f58f2..c200e9d 100644 (file)
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -7,7 +7,7 @@
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: emu-nemacs.el,v 7.30 1996/06/10 07:31:34 morioka Exp $
+;;;    $Id: emu-nemacs.el,v 7.31 1996/06/26 08:25:19 morioka Exp $
 ;;; Keywords: emulation, compatibility, NEmacs, Mule
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -173,6 +173,15 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
   (set-kanji-fileio-code coding-system)
   )
 
+(defmacro as-binary-process (&rest body)
+  (` (let (selective-display   ; Disable ^M to nl translation.
+          ;; NEmacs
+          kanji-flag
+          (default-kanji-process-code 0)
+          program-kanji-code-alist)
+       (,@ body)
+       )))
+
 
 ;;; @ character
 ;;;