Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

tm 7.15.

  • Loading branch information...
commit d1877affa4227962b2d6fa0f51bde9fce45959fe 1 parent 1724fb8
morioka authored
Showing with 12 additions and 3 deletions.
  1. +1 −0  emu-18.el
  2. +6 −3 emu-19.el
  3. +5 −0 emu-xemacs.el
View
1  emu-18.el
@@ -135,6 +135,7 @@ to create parent directories if they don't exist.
;;; @ mouse
;;;
+(defvar mouse-button-1 nil)
(defvar mouse-button-2 nil)
View
9 emu-19.el
@@ -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)
View
5 emu-xemacs.el
@@ -50,6 +50,11 @@
(set-extent-endpoints extent start end)
)
+(defvar mouse-button-1 'button1)
(defvar mouse-button-2 'button2)
+
+;;; @ end
+;;;
+
(provide 'emu-xemacs)
Please sign in to comment.
Something went wrong with that request. Please try again.