Mercurial > emacs

changeset 65100:f8a4e96b69d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(current-global-mousemap, current-local-mousemap): Declare them before use.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 24 Aug 2005 14:41:27 +0000
parents a57ee7fef81a
children 023a3b40a5d4
files lisp/term/sun-mouse.el
diffstat 1 files changed, 5 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/sun-mouse.el	Wed Aug 24 14:31:17 2005 +0000
+++ b/lisp/term/sun-mouse.el	Wed Aug 24 14:41:27 2005 +0000
@@ -58,6 +58,11 @@
   "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 @@
   (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)