From: morioka <morioka>
Date: Mon, 9 Mar 1998 11:04:50 +0000 (+0000)
Subject: tm 7.15.
X-Git-Tag: tm7_15~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2383a4c17bfcde3a2286a101c5fee6eb6c70063b;p=elisp%2Fapel.git

tm 7.15.
---

diff --git a/emu-18.el b/emu-18.el
index 1f2a305..bd67faa 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 6.1 1995/09/28 02:45:20 morioka Exp $
+;;;	$Id: emu-18.el,v 7.0 1995/10/12 11:27:33 morioka Exp $
 ;;; Keywords: emulation, compatibility
 ;;;
 ;;; This file is part of tl and tm (Tools for MIME).
@@ -135,6 +135,7 @@ to create parent directories if they don't exist.
 ;;; @ mouse
 ;;;
 
+(defvar mouse-button-1 nil)
 (defvar mouse-button-2 nil)
 
 
diff --git a/emu-19.el b/emu-19.el
index 880b526..27be724 100644
--- a/emu-19.el
+++ b/emu-19.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-19.el,v 2.0 1995/09/21 00:10:55 morioka Exp $
+;;;	$Id: emu-19.el,v 3.0 1995/10/12 11:30:48 morioka Exp morioka $
 ;;; Keywords: emulation, compatibility
 ;;;
 ;;; This file is part of tl and tm (Tools for MIME).
@@ -18,8 +18,11 @@
 (defalias 'tl:overlay-put 'overlay-put)
 (defalias 'tl:overlay-buffer 'overlay-buffer)
 
-(defvar mouse-button-2
-  (if window-system [mouse-2])
-  )
+(defvar mouse-button-1 [mouse-1])
+(defvar mouse-button-2 [mouse-2])
+
+
+;;; @ end
+;;;
 
 (provide 'emu-19)
diff --git a/emu-xemacs.el b/emu-xemacs.el
index ed497bc..8f71a66 100644
--- a/emu-xemacs.el
+++ b/emu-xemacs.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-xemacs.el,v 5.0 1995/09/21 00:08:50 morioka Exp $
+;;;	$Id: emu-xemacs.el,v 6.0 1995/10/12 11:32:58 morioka Exp $
 ;;; Keywords: emulation, compatibility, XEmacs
 ;;;
 ;;; This file is part of tl and tm (Tools for MIME).
@@ -50,6 +50,11 @@
   (set-extent-endpoints extent start end)
   )
 
+(defvar mouse-button-1 'button1)
 (defvar mouse-button-2 'button2)
 
+
+;;; @ end
+;;;
+
 (provide 'emu-xemacs)