[Emacs-diffs] Changes to emacs/lisp/term/sun-mouse.el

[Juanma Barranquero]

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 ----