Mercurial > emacs

comparison lisp/emulation/viper-mous.el @ 20206:f44ff2c52fac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
new version
author Michael Kifer <kifer@cs.stonybrook.edu>
date Sat, 01 Nov 1997 01:46:51 +0000
parents b960ef5a1ecc
children 2e952bf93040
comparison
equal deleted inserted replaced
20205:cdaddfc03fe8 20206:f44ff2c52fac
114 114
115 (defsubst viper-multiclick-p () 115 (defsubst viper-multiclick-p ()
116 (not (viper-sit-for-short viper-multiclick-timeout t))) 116 (not (viper-sit-for-short viper-multiclick-timeout t)))
117 117
118 ;; Returns window where click occurs 118 ;; Returns window where click occurs
119 (defsubst viper-mouse-click-window (click) 119 (defun viper-mouse-click-window (click)
120 (if viper-xemacs-p 120 (let ((win (if viper-xemacs-p
121 (event-window click) 121 (event-window click)
122 (posn-window (event-start click)))) 122 (posn-window (event-start click)))))
123 (if (window-live-p win)
124 win
125 (error "Click was not over a live window"))))
123 126
124 ;; Returns window where click occurs 127 ;; Returns window where click occurs
125 (defsubst viper-mouse-click-frame (click) 128 (defsubst viper-mouse-click-frame (click)
126 (window-frame (viper-mouse-click-window click))) 129 (window-frame (viper-mouse-click-window click)))
127 130