;;; wl-dnd.el -- dragdrop support on Wanderlust.
-;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
;; Author: Yuuichi Teranishi <teranisi@gohome.org>
;; Keywords: mail, net news
;;; Code:
;;
-(require 'product)
-(product-provide (provide 'wl-dnd) (require 'wl-version))
-
(static-cond
((featurep 'offix)
(defun start-drag (event what &optional typ)
ext
'experimental-dragdrop-drop-functions
'((wl-dnd-drop-func t t (buffer-substring beg end))))))
-; (set-extent-property ext 'mouse-face 'highlight)))
+;;; (set-extent-property ext 'mouse-face 'highlight)
(defun wl-dnd-set-drag-starter (beg end)
(let (ext kmap)
(setq ext (make-extent beg end))
-; (set-extent-property ext 'mouse-face 'isearch)
+;;; (set-extent-property ext 'mouse-face 'isearch)
(setq kmap (make-keymap))
(define-key kmap [button1] 'wl-dnd-start-drag)
(set-extent-property ext 'keymap kmap)))
+
+(require 'product)
+(product-provide (provide 'wl-dnd) (require 'wl-version))
;;; wl-dnd.el ends here