From: morioka <morioka>
Date: Tue, 10 Mar 1998 04:48:56 +0000 (+0000)
Subject: tm 7.83.
X-Git-Tag: tm7_83~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b4ec5813262975ef410d9abbc886e851c5742b3f;p=elisp%2Fapel.git

tm 7.83.
---

diff --git a/ChangeLog b/ChangeLog
index 1060534..9080be6 100644
--- 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.
+
+
 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
--- 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
 ;;;