Mercurial > emacs

diff 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
line wrap: on
line diff
--- a/lisp/emulation/viper-mous.el	Fri Oct 31 23:17:17 1997 +0000
+++ b/lisp/emulation/viper-mous.el	Sat Nov 01 01:46:51 1997 +0000
@@ -116,10 +116,13 @@
   (not (viper-sit-for-short viper-multiclick-timeout t)))
 
 ;; Returns window where click occurs
-(defsubst viper-mouse-click-window (click)
-  (if viper-xemacs-p
-      (event-window click)
-    (posn-window (event-start click))))
+(defun viper-mouse-click-window (click)
+  (let ((win (if viper-xemacs-p
+		(event-window click)
+	      (posn-window (event-start click)))))
+    (if (window-live-p win)
+	win
+      (error "Click was not over a live window"))))
 
 ;; Returns window where click occurs
 (defsubst viper-mouse-click-frame (click)