Mercurial > hg > xemacs-beta
comparison lisp/frame.el @ 288:e11d67e05968 r21-0b42
Import from CVS: tag r21-0b42
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:35:54 +0200 |
| parents | 558f606b08ae |
| children | 74fd4e045ea6 |
comparison
equal
deleted
inserted
replaced
| 287:13a0bd77a29d | 288:e11d67e05968 |
|---|---|
| 832 (or select-frame-hook | 832 (or select-frame-hook |
| 833 (add-hook 'select-frame-hook 'default-select-frame-hook)) | 833 (add-hook 'select-frame-hook 'default-select-frame-hook)) |
| 834 | 834 |
| 835 (or deselect-frame-hook | 835 (or deselect-frame-hook |
| 836 (add-hook 'deselect-frame-hook 'default-deselect-frame-hook)) | 836 (add-hook 'deselect-frame-hook 'default-deselect-frame-hook)) |
| 837 | |
| 838 (defun cde-start-drag (begin end) | |
| 839 "Implement the CDE drag operation. | |
| 840 Calls the internal function cde-start-drag-internal to do the actual work." | |
| 841 (interactive "_r") | |
| 842 (if (featurep 'cde) | |
| 843 ;; Avoid build-time doc string warning by calling the function | |
| 844 ;; in the following roundabout way: | |
| 845 (funcall (intern "cde-start-drag-internal") | |
| 846 (buffer-substring-no-properties begin end)) | |
| 847 (error "CDE functionality not compiled in."))) | |
| 848 | |
| 849 ;; the OffiX drag stuff will soon move also (perhaps mouse.el) | |
| 850 ;; if the drag event is done | |
| 851 (defun offix-start-drag (event data &optional type) | |
| 852 "Implement the OffiX drag operation. | |
| 853 Calls the internal function offix-start-drag-internal to do the actual work. | |
| 854 If type is not given, DndText is assumed." | |
| 855 ;; Oliver Graf <ograf@fga.de> | |
| 856 (interactive "esi") | |
| 857 (if (featurep 'offix) | |
| 858 (funcall (intern "offix-start-drag-internal") event data type) | |
| 859 (error "OffiX functionality not compiled in."))) | |
| 860 | |
| 861 (defun offix-start-drag-region (event begin end) | |
| 862 "Implement the OffiX drag operation for a region. | |
| 863 Calls the internal function offix-start-drag-internal to do the actual work. | |
| 864 This always assumes DndText as type." | |
| 865 ;; Oliver Graf <ograf@fga.de> | |
| 866 (interactive "_er") | |
| 867 (if (featurep 'offix) | |
| 868 (funcall (intern "offix-start-drag-internal") | |
| 869 event (buffer-substring-no-properties begin end)) | |
| 870 (error "OffiX functionality not compiled in."))) | |
| 871 | |
| 872 | 837 |
| 873 | 838 |
| 874 ;;; Application-specific frame-management | 839 ;;; Application-specific frame-management |
| 875 | 840 |
| 876 (defcustom get-frame-for-buffer-default-frame-name nil | 841 (defcustom get-frame-for-buffer-default-frame-name nil |