From 2d3da4f356bd3a4b04704bfeb4d5b65f7a60b9c1 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Mon, 9 Mar 1998 16:36:50 +0000
Subject: [PATCH] tm 7.48.2.

---
 ChangeLog |   24 ++++++++++++++++++++++++
 Makefile  |    2 +-
 emu-18.el |   14 +++++++++++++-
 3 files changed, 38 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 52e0e5b..a81a600 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,27 @@
+Mon Mar 25 12:00:57 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl: Version 7.19 was released.
+
+Mon Mar 25 10:43:00 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* emu-18.el (force-mode-line-update): New function; imported from
+ 	Emacs 19.30.
+
+Mon Mar 25 10:21:25 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl-822.el (rfc822/parse-ascii-token): check token instead of
+ 	(cdr token).
+
+Tue Mar 19 13:21:58 1996  KON-NO Yoichi <itokon@ssel.toshiba.co.jp>
+
+	* mu-cite.el: use `(mark t)' instead of `(mark)'.
+	(cf. [tm-ja:1673])
+
+Fri Mar 15 10:50:41 1996  Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
+
+	* tl-822.el (rfc822/parse-ascii-token): do nil check for token
+	value (cf. [tm-ja:1671])
+
 Thu Mar 14 16:27:21 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* tl-str.el: Function `truncate-string' was moved to emu-mule.el.
diff --git a/Makefile b/Makefile
index aad2e8c..24feab4 100644
--- a/Makefile
+++ b/Makefile
@@ -20,7 +20,7 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp
 FILES	= tl/README.eng tl/Makefile tl/mk-tl tl/tl-els \
 		tl/*.el tl/doc/*.texi tl/ChangeLog
 
-TARFILE = tl-7.18.tar
+TARFILE = tl-7.19.tar
 
 
 elc:
diff --git a/emu-18.el b/emu-18.el
index 2b7876a..93cf1ad 100644
--- a/emu-18.el
+++ b/emu-18.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-18.el,v 7.8 1996/02/26 01:14:28 morioka Exp $
+;;;	$Id: emu-18.el,v 7.9 1996/03/25 10:43:00 morioka Exp $
 ;;; Keywords: emulation, compatibility
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -200,6 +200,18 @@ to create parent directories if they don't exist.
   )
 
 
+;;; @ mode-line
+;;;
+
+;;; Imported from Emacs 19.30.
+(defun force-mode-line-update (&optional all)
+  "Force the mode-line of the current buffer to be redisplayed.
+With optional non-nil ALL, force redisplay of all mode-lines.
+\[emu-18.el; Emacs 19 emulating function]"
+  (if all (save-excursion (set-buffer (other-buffer))))
+  (set-buffer-modified-p (buffer-modified-p)))
+
+
 ;;; @ text property
 ;;;
 
-- 
1.7.10.4