Mercurial > hg > xemacs-beta
comparison lisp/vm/vm-minibuf.el @ 114:8619ce7e4c50 r20-1b9
Import from CVS: tag r20-1b9
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:21:54 +0200 |
| parents | a145efe76779 |
| children | 1370575f1259 |
comparison
equal
deleted
inserted
replaced
| 113:2ec2fe4a4c89 | 114:8619ce7e4c50 |
|---|---|
| 179 '((string (vm-mouse-get-mouse-track-string e))) | 179 '((string (vm-mouse-get-mouse-track-string e))) |
| 180 (list 'and 'string (list function 'string))))) | 180 (list 'and 'string (list function 'string))))) |
| 181 (while keymaps | 181 (while keymaps |
| 182 (setq keymap (car keymaps)) | 182 (setq keymap (car keymaps)) |
| 183 (cond ((vm-mouse-xemacs-mouse-p) | 183 (cond ((vm-mouse-xemacs-mouse-p) |
| 184 (define-key keymap 'button1 command) | 184 (define-key keymap 'button1 'ignore) |
| 185 (define-key keymap 'button2 command)) | 185 (define-key keymap 'button2 'ignore) |
| 186 (define-key keymap 'button1up command) | |
| 187 (define-key keymap 'button2up command)) | |
| 186 ((vm-mouse-fsfemacs-mouse-p) | 188 ((vm-mouse-fsfemacs-mouse-p) |
| 187 (define-key keymap [down-mouse-1] 'ignore) | 189 (define-key keymap [down-mouse-1] 'ignore) |
| 188 (define-key keymap [drag-mouse-1] 'ignore) | 190 (define-key keymap [drag-mouse-1] 'ignore) |
| 189 (define-key keymap [mouse-1] command) | 191 (define-key keymap [mouse-1] command) |
| 190 (define-key keymap [drag-mouse-2] 'ignore) | 192 (define-key keymap [drag-mouse-2] 'ignore) |