Mercurial > emacs

comparison lisp/emulation/viper-mous.el @ 14233:396316e5fbe6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Michael Kifer <kifer@cs.stonybrook.edu>
date Sat, 20 Jan 1996 03:19:26 +0000
parents 83f275dcd93a
children 854325337547
comparison
equal deleted inserted replaced
14232:aa84e18af631 14233:396316e5fbe6
400 vip-current-frame-saved (selected-frame))) 400 vip-current-frame-saved (selected-frame)))
401 401
402 402
403 (cond ((vip-window-display-p) 403 (cond ((vip-window-display-p)
404 (let* ((search-key (if vip-xemacs-p 404 (let* ((search-key (if vip-xemacs-p
405 [(meta shift button1up)] [S-mouse-1])) 405 [(meta shift button1up)] [M-S-mouse-1]))
406 (search-key-catch (if vip-xemacs-p 406 (search-key-catch (if vip-xemacs-p
407 [(meta shift button1)] [S-down-mouse-1])) 407 [(meta shift button1)] [M-S-down-mouse-1]))
408 (insert-key (if vip-xemacs-p 408 (insert-key (if vip-xemacs-p
409 [(meta shift button2up)] [S-mouse-2])) 409 [(meta shift button2up)] [M-S-mouse-2]))
410 (insert-key-catch (if vip-xemacs-p 410 (insert-key-catch (if vip-xemacs-p
411 [(meta shift button2)] [S-down-mouse-2])) 411 [(meta shift button2)] [M-S-down-mouse-2]))
412 (search-key-unbound (and (not (key-binding search-key)) 412 (search-key-unbound (and (not (key-binding search-key))
413 (not (key-binding search-key-catch)))) 413 (not (key-binding search-key-catch))))
414 (insert-key-unbound (and (not (key-binding insert-key)) 414 (insert-key-unbound (and (not (key-binding insert-key))
415 (not (key-binding insert-key-catch)))) 415 (not (key-binding insert-key-catch))))
416 ) 416 )