tm 7.83.

diff --git a/ChangeLog b/ChangeLog
index 1060534..9080be6 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+Sat Sep  7 17:22:15 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl: Version 7.61.3 was released.
+
+Thu Sep  5 16:31:02 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * emu.el (buffer-live-p): DOC fix.
+       (save-selected-window): DOC fix.
+
+Thu Sep  5 15:30:26 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * emu.el (save-selected-window): New macro.
+
+\f
 Thu Sep  5 13:28:51 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * tl: Version 7.61.2 was released.

diff --git a/emu.el b/emu.el
index c460ebc..929655d 100644 (file)
--- a/emu.el
+++ b/emu.el
@@ -3,8 +3,8 @@
 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu.el,v 7.24 1996/09/04 15:49:30 morioka Exp $
-;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
+;; Version: $Id: emu.el,v 7.26 1996/09/05 16:31:02 morioka Exp $
+;; Keywords: emulation, compatibility, NEmacs, MULE, XEmacs
 
 ;; This file is part of tl (Tiny Library).
 
@@ -138,20 +138,32 @@ into a hook function that will be run only after loading the package.
     )
 
 
-;;; @ EMACS 19.32 emulation
+;;; @ EMACS 19.31 emulation
 ;;;
 
 (or (fboundp 'buffer-live-p)
     (defun buffer-live-p (object)
       "Return non-nil if OBJECT is a buffer which has not been killed.
 Value is nil if OBJECT is not a buffer or if it has been killed.
-\[emu.el; EMACS 19.32 emulating function]"
+\[emu.el; EMACS 19.31 emulating function]"
       (and object
           (get-buffer object)
           (buffer-name (get-buffer object))
           ))
     )
 
+(or (fboundp 'save-selected-window)
+    ;; This function was imported Emacs 19.33.
+    (defmacro save-selected-window (&rest body)
+      "Execute BODY, then select the window that was selected before BODY.
+\[emu.el; EMACS 19.31 emulating function]"
+      (list 'let
+           '((save-selected-window-window (selected-window)))
+           (list 'unwind-protect
+                 (cons 'progn body)
+                 (list 'select-window 'save-selected-window-window)))) 
+    )
+
 
 ;;; @ XEmacs emulation
 ;;;