From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 24 Aug 2005 14:41:27 +0000 (+0000)
Subject: (current-global-mousemap, current-local-mousemap): Declare them before use.
X-Git-Tag: emacs-pretest-22.0.90~7471
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a6d4c20db8c2535226f7f20d9a7dea64154ce062;p=emacs.git

(current-global-mousemap, current-local-mousemap): Declare them before use.
---

diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el
index 06fe5fd440d..a55c8902320 100644
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -58,6 +58,11 @@ Setting to nil limits the scrollbar to the edge or vertical dividing bar.")
   "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,13 +673,6 @@ just close the window, and wait for reopening."
   (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)