+Thu Jun 27 17:29:23 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.31 was released.
+
+ * mu-cite.el (mu-cite/make-methods): run-hooks
+ `mu-cite/instantiation-hook'.
+
+Wed Jun 26 15:33:39 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-mule.el (character-decode-string): New implementation.
+
+Wed Jun 26 08:41:17 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-x20.el (code-converter-is-broken): XEmacs 20.0 beta 26 is
+ broken too.
+
+ * emu-mule.el, emu-e19.el, emu-nemacs.el, emu-x20.el
+ (as-binary-process): New macro.
+
+Wed Jun 19 23:24:56 1996 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+
+ * mu-cite.el: NISHIJIMA Takanori
+ <racsho@studio-racsho.shibuya.tokyo.jp>'s patch was applied with
+ some modifications. (cf. [tm-ja:1935])
+
+Mon Jun 17 23:49:48 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-mule.el (regulate-latin-char, regulate-latin-string): New
+ function.
+
+Mon Jun 17 23:47:19 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl-822.el (rfc822/qtext-regexp, rfc822/quoted-string-regexp):
+ new constant; define again.
+
+Thu Jun 13 17:13:13 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl-822.el: Variable `rfc822/qtext-regexp' and
+ `rfc822/quoted-string-regexp' were abolished.
+
+ * tl-822.el: Function `rfc822/analyze-quoted-pair' was abolished.
+
+ * tl-822.el (rfc822/analyze-quoted-string): New implementation.
+
+\f
Wed Jun 12 05:28:42 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.30 was released.
tl/*.el tl/*.bdf \
tl/doc/*.ol tl/doc/*.tex tl/doc/*.texi tl/ChangeLog
-TARFILE = tl-7.30.tar
+TARFILE = tl-7.31.tar
elc:
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-e19.el,v 7.21 1996/06/10 07:34:46 morioka Exp $
+;;; $Id: emu-e19.el,v 7.22 1996/06/26 08:27:20 morioka Exp $
;;; Keywords: emulation, compatibility, Mule, Latin-1
;;;
;;; This file is part of tl (Tiny Library).
(defun set-file-coding-system (coding-system &optional force)
)
+(defmacro as-binary-process (&rest body)
+ (` (let (selective-display) ; Disable ^M to nl translation.
+ (,@ body)
+ )))
+
;;; @ character
;;;
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-mule.el,v 7.22 1996/06/10 07:32:52 morioka Exp $
+;;; $Id: emu-mule.el,v 7.25 1996/06/26 15:33:39 morioka Exp $
;;; Keywords: emulation, compatibility, Mule
;;;
;;; This file is part of tl (Tiny Library).
(defun character-decode-string (str coding-system)
"Decode the string STR which is encoded in CODING-SYSTEM.
\[emu-mule.el]"
- (code-convert-string str coding-system *internal*)
- )
+ (let ((len (length str))
+ ret)
+ (while (and
+ (< 0 len)
+ (null
+ (setq ret
+ (code-convert-string (substring str 0 len)
+ coding-system *internal*))
+ ))
+ (setq len (1- len))
+ )
+ (concat ret (substring str len))
+ ))
(defun character-encode-region (start end coding-system)
"Encode the text between START and END which is
(code-convert start end coding-system *internal*)
)
+(defmacro as-binary-process (&rest body)
+ (` (let (selective-display ; Disable ^M to nl translation.
+ ;; Mule
+ mc-flag
+ (default-process-coding-system (cons *noconv* *noconv*))
+ program-coding-system-alist)
+ (,@ body)
+ )))
+
;;; @ character
;;;
)
+;;; @ regulation
+;;;
+
+(defun regulate-latin-char (chr)
+ (cond ((and (<= ?\e$B#A\e(B chr)(<= chr ?\e$B#Z\e(B))
+ (+ (- chr ?\e$B#A\e(B) ?A)
+ )
+ ((and (<= ?\e$B#a\e(B chr)(<= chr ?\e$B#z\e(B))
+ (+ (- chr ?\e$B#a\e(B) ?a)
+ )
+ ((eq chr ?\e$B!%\e(B) ?.)
+ ((eq chr ?\e$B!$\e(B) ?,)
+ (t chr)
+ ))
+
+(defun regulate-latin-string (str)
+ (let ((len (length str))
+ (i 0)
+ chr (dest ""))
+ (while (< i len)
+ (setq chr (sref str i))
+ (setq dest (concat dest
+ (char-to-string (regulate-latin-char chr))))
+ (setq i (+ i (char-bytes chr)))
+ )
+ dest))
+
+
;;; @ end
;;;
;;; 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).
(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
;;;
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-x20.el,v 7.15 1996/06/10 07:59:23 morioka Exp $
+;;; $Id: emu-x20.el,v 7.17 1996/06/26 08:41:17 morioka Exp $
;;; Keywords: emulation, compatibility, Mule, XEmacs
;;;
;;; This file is part of tl (Tiny Library).
(defconst *koi8* nil)
(defvar code-converter-is-broken
- (and xemacs-beta-version (<= xemacs-beta-version 24)))
+ (and xemacs-beta-version (<= xemacs-beta-version 26)))
(if code-converter-is-broken
(progn
(defalias 'character-encode-region 'encode-coding-region)
(defalias 'character-decode-region 'decode-coding-region)
+(defmacro as-binary-process (&rest body)
+ `(let (selective-display ; Disable ^M to nl translation.
+ process-input-coding-system
+ process-output-coding-system)
+ ,@body))
+
;;; @ character
;;;
projects / elisp / apel.git / commitdiff