Mercurial > emacs
comparison lisp/obsolete/bg-mouse.el @ 65137:4377043d399d
Move the `defvar's to the top level.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 26 Aug 2005 10:48:00 +0000 |
| parents | a7267c763125 |
| children | e8a3fb527b77 |
comparison
equal
deleted
inserted
replaced
| 65136:d66de68f18cb | 65137:4377043d399d |
|---|---|
| 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 | 52 |
| 53 (eval-when-compile | 53 (defvar bg-mouse-x) |
| 54 (defvar bg-mouse-x) (defvar bg-mouse-y) (defvar bg-cursor-window) | 54 (defvar bg-mouse-y) |
| 55 ;; This variable does not exist since 1991, so it's a safe bet | 55 (defvar bg-cursor-window) |
| 56 ;; this package is not really used anymore. Still... | 56 ;; This variable does not exist since 1991, so it's a safe bet |
| 57 (defvar mouse-map)) | 57 ;; this package is not really used anymore. Still... |
| 58 (defvar mouse-map) | |
| 58 | 59 |
| 59 ;;; Defuns: | 60 ;;; Defuns: |
| 60 | 61 |
| 61 (defun bg-mouse-report (prefix-arg) | 62 (defun bg-mouse-report (prefix-arg) |
| 62 "Read, parse, and execute a BBN BitGraph mouse click. | 63 "Read, parse, and execute a BBN BitGraph mouse click. |