diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-06-08 10:40:20 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-06-08 10:40:20 +0800 |
| commit | 3237d1d6b63c2a299f81dcb8b4f2833e00a7fedf (patch) | |
| tree | 41ef3953c9d64693ac0271c8b80bbe15cf755e7d /lisp | |
| parent | f3162b82406f2162a4208c6b626def14ba68a03a (diff) | |
| download | emacs-3237d1d6b63c2a299f81dcb8b4f2833e00a7fedf.tar.gz emacs-3237d1d6b63c2a299f81dcb8b4f2833e00a7fedf.tar.bz2 emacs-3237d1d6b63c2a299f81dcb8b4f2833e00a7fedf.zip | |
Improve drag-and-drop tests
* lisp/dnd.el (dnd-begin-file-drag, dnd-begin-drag-files): Fix
type of `x-xdnd-username'.
* lisp/select.el (selection-converter-alist): Fix declaration of
_DT_NETFILE converter.
* test/lisp/dnd-tests.el (dnd-tests-verify-selection-data):
Handle "compound" selection converters.
(dnd-tests-parse-tt-netfile): New function.
(dnd-tests-begin-file-drag, dnd-tests-begin-drag-files): Verify
validity of file selection data.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/dnd.el | 4 | ||||
| -rw-r--r-- | lisp/select.el | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/dnd.el b/lisp/dnd.el index 0f65b5228d6..7eb43f5baab 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el @@ -423,7 +423,7 @@ currently being held down. It should only be called upon a (x-begin-drag '(;; Xdnd types used by GTK, Qt, and most other ;; modern programs that expect filenames to ;; be supplied as URIs. - "text/uri-list" "text/x-dnd-username" + "text/uri-list" "text/x-xdnd-username" ;; Traditional X selection targets used by ;; programs supporting the Motif ;; drag-and-drop protocols. Also used by NS @@ -493,7 +493,7 @@ FILES will be dragged." (x-begin-drag '(;; Xdnd types used by GTK, Qt, and most other ;; modern programs that expect filenames to ;; be supplied as URIs. - "text/uri-list" "text/x-dnd-username" + "text/uri-list" "text/x-xdnd-username" ;; Traditional X selection targets used by ;; programs supporting the Motif ;; drag-and-drop protocols. Also used by NS diff --git a/lisp/select.el b/lisp/select.el index 706197e027e..417968b25cb 100644 --- a/lisp/select.el +++ b/lisp/select.el @@ -819,8 +819,8 @@ VALUE should be SELECTION's local value." (_EMACS_INTERNAL . xselect-convert-to-identity) (XmTRANSFER_SUCCESS . xselect-convert-xm-special) (XmTRANSFER_FAILURE . xselect-convert-xm-special) - (_DT_NETFILE . (xselect-convert-to-dt-netfile - . xselect-dt-netfile-available-p)))) + (_DT_NETFILE . (xselect-dt-netfile-available-p + . xselect-convert-to-dt-netfile)))) (provide 'select) |