emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/x-dnd.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/x-dnd.el [lexbind]
Date: Sat, 04 Sep 2004 05:40:16 -0400

Index: emacs/lisp/x-dnd.el
diff -c emacs/lisp/x-dnd.el:1.5.2.5 emacs/lisp/x-dnd.el:1.5.2.6
*** emacs/lisp/x-dnd.el:1.5.2.5 Tue Apr 27 14:08:30 2004
--- emacs/lisp/x-dnd.el Sat Sep  4 09:28:13 2004
***************
*** 58,65 ****
      )
  
    "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).
--- 58,65 ----
      )
  
    "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).
***************
*** 104,112 ****
    :type 'boolean
    :group 'x)
  
! ;; Internal variables
! 
! (defvar x-dnd-known-types
    '("text/uri-list"
      "text/x-moz-url"
      "_NETSCAPE_URL"
--- 104,110 ----
    :type 'boolean
    :group 'x)
  
! (defcustom x-dnd-known-types
    '("text/uri-list"
      "text/x-moz-url"
      "_NETSCAPE_URL"
***************
*** 121,127 ****
      "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.
--- 119,130 ----
      "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.
***************
*** 865,871 ****
              timestamp)
             (x-dnd-forget-drop frame)))
  
!         (t (error "Unknown Motif DND message %s %s" message data)))))
                                           
  
  ;;;
--- 868,874 ----
              timestamp)
             (x-dnd-forget-drop frame)))
  
!         (t (error "Unknown Motif DND message %s %s" message-atom data)))))
                                           
  
  ;;;




reply via email to

[Prev in Thread] Current Thread [Next in Thread]