comparison lisp/x-dnd.el @ 56852:4504840779eb

* x-dnd.el (x-dnd-protocol-alist): Document update. (x-dnd-known-types): Defcustom it. (x-dnd-handle-motif): Print message-atom in error message.

56851:f3a8f3204f86

    ("^file://"  . x-dnd-open-file)		; URL with host
    ("^file:"    . x-dnd-open-local-file)	; Old KDE, Motif, Sun
    )

  "The functions to call for different protocols when a drop is made.
This variable is used by `x-dnd-handle-uri-list' and `x-dnd-handle-moz-url'.
The list contains of (REGEXP . FUNCTION) pairs.
The functions shall take two arguments, URL, which is the URL dropped and
ACTION which is the action to be performed for the drop (move, copy, link,
private or ask).
If no match is found here, and the value of `browse-url-browser-function'
is a pair of (REGEXP . FUNCTION), those regexps are tried for a match.

(defcustom x-dnd-open-file-other-window nil
  "If non-nil, always use find-file-other-window to open dropped files."
  :type 'boolean
  :group 'x)

;; Internal variables

(defvar x-dnd-known-types
  '("text/uri-list"
    "text/x-moz-url"
    "_NETSCAPE_URL"
    "FILE_NAME"
    "UTF8_STRING"

    "COMPOUND_TEXT"
    "STRING"
    "TEXT"
    )
  "The types accepted by default for dropped data.
The types are chosen in the order they appear in the list.")

(defvar x-dnd-current-state nil
  "The current state for a drop.
This is an alist with one entry for each display.  The value for each display
is a vector that contains the state for drag and drop for that display.

	      (intern atom-name)	  
	      (if action 'XmTRANSFER_SUCCESS 'XmTRANSFER_FAILURE)
	      timestamp)
	     (x-dnd-forget-drop frame)))

	  (t (error "Unknown Motif DND message %s %s" message data)))))
					   

;;;

56852:4504840779eb

    ("^file://"  . x-dnd-open-file)		; URL with host
    ("^file:"    . x-dnd-open-local-file)	; Old KDE, Motif, Sun
    )

  "The functions to call for different protocols when a drop is made.
This variable is used by `x-dnd-handle-uri-list', `x-dnd-handle-file-name'
and `x-dnd-handle-moz-url'.  The list contains of (REGEXP . FUNCTION) pairs.
The functions shall take two arguments, URL, which is the URL dropped and
ACTION which is the action to be performed for the drop (move, copy, link,
private or ask).
If no match is found here, and the value of `browse-url-browser-function'
is a pair of (REGEXP . FUNCTION), those regexps are tried for a match.

(defcustom x-dnd-open-file-other-window nil
  "If non-nil, always use find-file-other-window to open dropped files."
  :type 'boolean
  :group 'x)

(defcustom x-dnd-known-types
  '("text/uri-list"
    "text/x-moz-url"
    "_NETSCAPE_URL"
    "FILE_NAME"
    "UTF8_STRING"

    "COMPOUND_TEXT"
    "STRING"
    "TEXT"
    )
  "The types accepted by default for dropped data.
The types are chosen in the order they appear in the list."
  :type '(repeat string)
  :group 'x
)

;; Internal variables

(defvar x-dnd-current-state nil
  "The current state for a drop.
This is an alist with one entry for each display.  The value for each display
is a vector that contains the state for drag and drop for that display.

	      (intern atom-name)	  
	      (if action 'XmTRANSFER_SUCCESS 'XmTRANSFER_FAILURE)
	      timestamp)
	     (x-dnd-forget-drop frame)))

	  (t (error "Unknown Motif DND message %s %s" message-atom data)))))
					   

;;;