Mercurial > hg > xemacs-beta

comparison lisp/prim/frame.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 49a24b4fd526
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
771 (add-hook 'select-frame-hook 'default-select-frame-hook)) 771 (add-hook 'select-frame-hook 'default-select-frame-hook))
772 772
773 (or deselect-frame-hook 773 (or deselect-frame-hook
774 (add-hook 'deselect-frame-hook 'default-deselect-frame-hook)) 774 (add-hook 'deselect-frame-hook 'default-deselect-frame-hook))
775 775
776 (defun default-drag-and-drop-functions (frame filepath) 776 (defun default-drag-and-drop-functions (frame filepath &optional data)
777 "Implements the `drag-and-drop-functions' variable. 777 "Implements the `drag-and-drop-functions' variable.
778 For use as the value of `drag-and-drop-functions'. 778 For use as the value of `drag-and-drop-functions'.
779 This default simply pops up the file in the selected frame." 779 This default simply pops up the file in the selected frame or,
780 (let ((x pop-up-windows)) 780 if the dragged object is a buffer, inserts it at point."
781 (setq pop-up-windows nil) 781 (if data
782 (pop-to-buffer (find-file-noselect filepath) nil frame) 782 (insert data)
783 (make-frame-visible frame) 783 (let ((x pop-up-windows))
784 (setq pop-up-windows x))) 784 (setq pop-up-windows nil)
785 (pop-to-buffer (find-file-noselect filepath) nil frame)
786 (make-frame-visible frame)
787 (setq pop-up-windows x))))
785 788
786 (and (boundp 'drag-and-drop-functions) 789 (and (boundp 'drag-and-drop-functions)
787 (or drag-and-drop-functions 790 (or drag-and-drop-functions
788 (add-hook 'drag-and-drop-functions 'default-drag-and-drop-functions))) 791 (add-hook 'drag-and-drop-functions 'default-drag-and-drop-functions)))
789 792