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 ----
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
