Mercurial > hg > xemacs-beta

comparison lisp/prim/mouse.el @ 207:e45d5e7c476e r20-4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents acd284d43ca1
children
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
182 "Do something with an OffiX drop event. Inserts Text drops and 182 "Do something with an OffiX drop event. Inserts Text drops and
183 executes appropriate commands for specific drops. 183 executes appropriate commands for specific drops.
184 Text drops follow the `mouse-yank-at-point' variable." 184 Text drops follow the `mouse-yank-at-point' variable."
185 ;; by Oliver Graf <ograf@fga.de> 185 ;; by Oliver Graf <ograf@fga.de>
186 (interactive "e") 186 (interactive "e")
187 (let ((type (car (event-dnd-data event))) 187 (let ((type (car (event-drag-and-drop-data event)))
188 (data (cadr (event-dnd-data event))) 188 (data (cadr (event-drag-and-drop-data event)))
189 (frame (event-channel event))) 189 (frame (event-channel event)))
190 (cond ((= type 2) 190 (cond ((= type 2)
191 (let ((x pop-up-windows)) 191 (let ((x pop-up-windows))
192 (setq pop-up-windows nil) 192 (setq pop-up-windows nil)
193 (pop-to-buffer (find-file-noselect data) nil frame) 193 (pop-to-buffer (find-file-noselect data) nil frame)