[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/term/sun-mouse.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/term/sun-mouse.el |
Date: |
Wed, 24 Aug 2005 10:41:28 -0400 |
Index: emacs/lisp/term/sun-mouse.el
diff -c emacs/lisp/term/sun-mouse.el:1.27 emacs/lisp/term/sun-mouse.el:1.28
*** emacs/lisp/term/sun-mouse.el:1.27 Mon Aug 1 15:44:22 2005
--- emacs/lisp/term/sun-mouse.el Wed Aug 24 14:41:27 2005
***************
*** 58,63 ****
--- 58,68 ----
"Returns a new mousemap."
(cons 'mousemap nil))
+ ;;; initialize mouse maps
+ (defvar current-global-mousemap (make-mousemap))
+ (defvar current-local-mousemap nil)
+ (make-variable-buffer-local 'current-local-mousemap)
+
(defun copy-mousemap (mousemap)
"Return a copy of mousemap."
(copy-alist mousemap))
***************
*** 668,680 ****
(if stuffstring (send-string-to-terminal stuffstring))
(send-string-to-terminal "\033[2t") ; To close EmacsTool window.
(run-hooks 'suspend-resume-hook))
- ;;;
- ;;; initialize mouse maps
- ;;;
-
- (make-variable-buffer-local 'current-local-mousemap)
- (setq-default current-local-mousemap nil)
- (defvar current-global-mousemap (make-mousemap))
(provide 'sun-mouse)
(provide 'term/sun-mouse) ; have to (require 'term/sun-mouse)
--- 673,678 ----