/[emacs]/emacs/lisp/x-dnd.el
ViewVC logotype

Diff of /emacs/lisp/x-dnd.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by jhd, Mon Apr 19 12:45:28 2004 UTC revision 1.10 by jhd, Tue Aug 31 11:24:10 2004 UTC
# Line 58  The default value for this variable is ` Line 58  The default value for this variable is `
58      )      )
59    
60    "The functions to call for different protocols when a drop is made.    "The functions to call for different protocols when a drop is made.
61  This variable is used by `x-dnd-handle-uri-list' and `x-dnd-handle-moz-url'.  This variable is used by `x-dnd-handle-uri-list', `x-dnd-handle-file-name'
62  The list contains of (REGEXP . FUNCTION) pairs.  and `x-dnd-handle-moz-url'.  The list contains of (REGEXP . FUNCTION) pairs.
63  The functions shall take two arguments, URL, which is the URL dropped and  The functions shall take two arguments, URL, which is the URL dropped and
64  ACTION which is the action to be performed for the drop (move, copy, link,  ACTION which is the action to be performed for the drop (move, copy, link,
65  private or ask).  private or ask).
# Line 104  is successful, nil if not." Line 104  is successful, nil if not."
104    :type 'boolean    :type 'boolean
105    :group 'x)    :group 'x)
106    
107  ;; Internal variables  (defcustom x-dnd-known-types
   
 (defvar x-dnd-known-types  
108    '("text/uri-list"    '("text/uri-list"
109      "text/x-moz-url"      "text/x-moz-url"
110      "_NETSCAPE_URL"      "_NETSCAPE_URL"
# Line 121  is successful, nil if not." Line 119  is successful, nil if not."
119      "TEXT"      "TEXT"
120      )      )
121    "The types accepted by default for dropped data.    "The types accepted by default for dropped data.
122  The types are chosen in the order they appear in the list.")  The types are chosen in the order they appear in the list."
123      :type '(repeat string)
124      :group 'x
125    )
126    
127    ;; Internal variables
128    
129  (defvar x-dnd-current-state nil  (defvar x-dnd-current-state nil
130    "The current state for a drop.    "The current state for a drop.
# Line 865  FORMAT is 32 (not used).  MESSAGE is the Line 868  FORMAT is 32 (not used).  MESSAGE is the
868                timestamp)                timestamp)
869               (x-dnd-forget-drop frame)))               (x-dnd-forget-drop frame)))
870    
871            (t (error "Unknown Motif DND message %s %s" message data)))))            (t (error "Unknown Motif DND message %s %s" message-atom data)))))
872                                                                                        
873    
874  ;;;  ;;;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26