# HG changeset patch # User Juanma Barranquero # Date 1124894487 0 # Node ID f8a4e96b69d3e1fa26ddd844a4bc266f67f51300 # Parent a57ee7fef81a71076279fc7c3c557cda27c77fa6 (current-global-mousemap, current-local-mousemap): Declare them before use. diff -r a57ee7fef81a -r f8a4e96b69d3 lisp/term/sun-mouse.el --- 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)