Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-minibuf.el @ 126:1370575f1259 xemacs-20-1p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-1p1
author cvs
date Mon, 13 Aug 2007 09:27:39 +0200
parents 8619ce7e4c50
children 43dd3413c7c7
comparison
equal deleted inserted replaced
125:8b0638b347ec 126:1370575f1259
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 'ignore) 184 (define-key keymap 'button1 command)
185 (define-key keymap 'button2 'ignore) 185 (define-key keymap 'button2 command))
186 (define-key keymap 'button1up command)
187 (define-key keymap 'button2up command))
188 ((vm-mouse-fsfemacs-mouse-p) 186 ((vm-mouse-fsfemacs-mouse-p)
189 (define-key keymap [down-mouse-1] 'ignore) 187 (define-key keymap [down-mouse-1] 'ignore)
190 (define-key keymap [drag-mouse-1] 'ignore) 188 (define-key keymap [drag-mouse-1] 'ignore)
191 (define-key keymap [mouse-1] command) 189 (define-key keymap [mouse-1] command)
192 (define-key keymap [drag-mouse-2] 'ignore) 190 (define-key keymap [drag-mouse-2] 'ignore)