tm 7.15.

diff --git a/emu-18.el b/emu-18.el
index 1f2a305..bd67faa 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 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 (file)
--- 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 (file)
--- 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)