# HG changeset patch # User Jan Dj¸«£rv # Date 1099211618 0 # Node ID 61662d4f85c71a632e4ed688c0073a394aa97df0 # Parent d90eb2c9844c3d5fc35e46166316152fb7643527 * x-dnd.el (x-dnd-test-function, x-dnd-protocol-alist) (x-dnd-types-alist, x-dnd-open-file-other-window) (x-dnd-known-types): Add :version. diff -r d90eb2c9844c -r 61662d4f85c7 lisp/ChangeLog --- a/lisp/ChangeLog Sun Oct 31 01:09:18 2004 +0000 +++ b/lisp/ChangeLog Sun Oct 31 08:33:38 2004 +0000 @@ -1,3 +1,9 @@ +2004-10-31 Jan Dj,Ad(Brv + + * x-dnd.el (x-dnd-test-function, x-dnd-protocol-alist) + (x-dnd-types-alist, x-dnd-open-file-other-window) + (x-dnd-known-types): Add :version. + 2004-10-31 John Paul Wallington * ibuffer.el (group ibuffer): Add :version keyword. diff -r d90eb2c9844c -r 61662d4f85c7 lisp/x-dnd.el --- a/lisp/x-dnd.el Sun Oct 31 01:09:18 2004 +0000 +++ b/lisp/x-dnd.el Sun Oct 31 08:33:38 2004 +0000 @@ -47,6 +47,7 @@ the wanted action as car and the wanted type as cdr. The wanted action can be copy, move, link, ask or private. The default value for this variable is `x-dnd-default-test-function'." + :version "21.4" :type 'symbol :group 'x) @@ -69,6 +70,7 @@ for that. The function shall return the action done (move, copy, link or private) if some action was made, or nil if the URL is ignored." + :version "21.4" :type 'alist :group 'x) @@ -96,11 +98,13 @@ call to `x-dnd-test-function'. DATA is the drop data. The function shall return the action used (copy, move, link or private) if drop is successful, nil if not." + :version "21.4" :type 'alist :group 'x) (defcustom x-dnd-open-file-other-window nil "If non-nil, always use find-file-other-window to open dropped files." + :version "21.4" :type 'boolean :group 'x) @@ -120,6 +124,7 @@ ) "The types accepted by default for dropped data. The types are chosen in the order they appear in the list." + :version "21.4" :type '(repeat string) :group 'x )