tm 7.48.2.

diff --git a/ChangeLog b/ChangeLog
index 52e0e5b..a81a600 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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
 ;;;