Mercurial > hg > xemacs-beta
comparison lisp/prim/frame.el @ 183:e121b013d1f0 r20-3b18
Import from CVS: tag r20-3b18
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:54:23 +0200 |
| parents | 9ad43877534d |
| children | acd284d43ca1 |
comparison
equal
deleted
inserted
replaced
| 182:f07455f06202 | 183:e121b013d1f0 |
|---|---|
| 860 ;; Avoid build-time doc string warning by calling the function | 860 ;; Avoid build-time doc string warning by calling the function |
| 861 ;; in the following roundabout way: | 861 ;; in the following roundabout way: |
| 862 (funcall (intern "cde-start-drag-internal") | 862 (funcall (intern "cde-start-drag-internal") |
| 863 (buffer-substring-no-properties begin end)) | 863 (buffer-substring-no-properties begin end)) |
| 864 (error "CDE functionality not compiled in."))) | 864 (error "CDE functionality not compiled in."))) |
| 865 | |
| 866 (defun offix-start-drag (event data &optional type) | |
| 867 "Implements the OffiX drag operation. | |
| 868 Calls the internal function offix-start-drag-internal to do the actual work. | |
| 869 If type is not given, DndText is assumed." | |
| 870 (interactive "esi") | |
| 871 (if (featurep 'offix) | |
| 872 (funcall (intern "offix-start-drag-internal") event data type) | |
| 873 (error "OffiX functionality not compiled in."))) | |
| 874 | |
| 875 (defun offix-start-drag-region (event begin end) | |
| 876 "Implements the OffiX drag operation for a region. | |
| 877 Calls the internal function offix-start-drag-internal to do the actual work. | |
| 878 This always assumes DndText as type." | |
| 879 (interactive "_er") | |
| 880 (if (featurep 'offix) | |
| 881 (funcall (intern "offix-start-drag-internal") | |
| 882 event (buffer-substring-no-properties begin end)) | |
| 883 (error "OffiX functionality not compiled in."))) | |
| 865 | 884 |
| 866 | 885 |
| 867 | 886 |
| 868 ;;; Application-specific frame-management | 887 ;;; Application-specific frame-management |
| 869 | 888 |