Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-minibuf.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents 441bb1e64a06
children 05472e90ae02
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
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)