Mercurial > hg > xemacs-beta

comparison lisp/frame.el @ 282:c42ec1d1cded r21-0b39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents 7df0dd720c89
children 558f606b08ae
comparison
equal deleted inserted replaced
281:090b52736db2 282:c42ec1d1cded
823 (or select-frame-hook 823 (or select-frame-hook
824 (add-hook 'select-frame-hook 'default-select-frame-hook)) 824 (add-hook 'select-frame-hook 'default-select-frame-hook))
825 825
826 (or deselect-frame-hook 826 (or deselect-frame-hook
827 (add-hook 'deselect-frame-hook 'default-deselect-frame-hook)) 827 (add-hook 'deselect-frame-hook 'default-deselect-frame-hook))
828
829 (defun default-drag-and-drop-functions (frame filepath &optional data)
830 "Implement the `drag-and-drop-functions' variable.
831 For use as the value of `drag-and-drop-functions'.
832 A file is popped up in a new buffer, some data without
833 is inserted at point."
834 ;; changed this back -- hope it works for CDE ;-) Oliver Graf <ograf@fga.de>
835 ;; the OffiX drop stuff has moved to mouse.el (mouse-offix-drop)
836 (if data
837 (insert data)
838 (let ((x pop-up-windows))
839 (setq pop-up-windows nil)
840 (pop-to-buffer (find-file-noselect filepath) nil frame)
841 (make-frame-visible frame)
842 (setq pop-up-windows x))))
843
844 (and (boundp 'drag-and-drop-functions)
845 (or drag-and-drop-functions
846 (add-hook 'drag-and-drop-functions 'default-drag-and-drop-functions)))
847 828
848 (defun cde-start-drag (begin end) 829 (defun cde-start-drag (begin end)
849 "Implement the CDE drag operation. 830 "Implement the CDE drag operation.
850 Calls the internal function cde-start-drag-internal to do the actual work." 831 Calls the internal function cde-start-drag-internal to do the actual work."
851 (interactive "_r") 832 (interactive "_r")