Mercurial > emacs
comparison lisp/term/bg-mouse.el @ 65101:023a3b40a5d4
(bg-mouse-x, bg-mouse-y, bg-cursor-window): Defvar at compile time.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Wed, 24 Aug 2005 15:10:45 +0000 |
parents | 34bd8e434dd7 |
children |
comparison
equal
deleted
inserted
replaced
65100:f8a4e96b69d3 | 65101:023a3b40a5d4 |
---|---|
47 (defconst bg-in-scrollbar 16) | 47 (defconst bg-in-scrollbar 16) |
48 (defconst bg-in-minibuf 24) | 48 (defconst bg-in-minibuf 24) |
49 | 49 |
50 ;;; semicolon screws up indenting, so use this instead | 50 ;;; semicolon screws up indenting, so use this instead |
51 (defconst semicolon ?\;) | 51 (defconst semicolon ?\;) |
52 | |
53 (eval-when-compile | |
54 (defvar bg-mouse-x) (defvar bg-mouse-y) (defvar bg-cursor-window)) | |
52 | 55 |
53 ;;; Defuns: | 56 ;;; Defuns: |
54 | 57 |
55 (defun bg-mouse-report (prefix-arg) | 58 (defun bg-mouse-report (prefix-arg) |
56 "Read, parse, and execute a BBN BitGraph mouse click. | 59 "Read, parse, and execute a BBN BitGraph mouse click. |