From 2383a4c17bfcde3a2286a101c5fee6eb6c70063b Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 11:04:50 +0000 Subject: [PATCH] tm 7.15. --- emu-18.el | 3 ++- emu-19.el | 11 +++++++---- emu-xemacs.el | 7 ++++++- 3 files changed, 15 insertions(+), 6 deletions(-) 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 ;;; 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 ;;; 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 ;;; 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) -- 1.7.10.4