projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* wl-folder (wl-folder-insert-entity): Display a message,
[elisp/wanderlust.git]
/
wl
/
wl-dnd.el
diff --git
a/wl/wl-dnd.el
b/wl/wl-dnd.el
index
5578a7a
..
59402d9
100644
(file)
--- a/
wl/wl-dnd.el
+++ b/
wl/wl-dnd.el
@@
-1,10
+1,9
@@
-;;; wl-dnd.el -- dragdrop support on Wanderlust.
+;;; 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
;; Author: Yuuichi Teranishi <teranisi@gohome.org>
;; Keywords: mail, net news
-;; Time-stamp: <2000-02-18 19:14:53 teranisi>
;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
@@
-25,12
+24,10
@@
;;
;;; Commentary:
;;
;;; Commentary:
-;;
+;;
;;; Code:
;;; Code:
-;;
-
-(provide 'wl-dnd)
+;;
(static-cond
((featurep 'offix)
(static-cond
((featurep 'offix)
@@
-41,7
+38,7
@@
((featurep 'cde)
(defun start-drag (event what &optional typ)
(if (not typ)
((featurep 'cde)
(defun start-drag (event what &optional typ)
(if (not typ)
- (funcall (intern "cde-start-drag-internal") event nil
+ (funcall (intern "cde-start-drag-internal") event nil
(list what))
(funcall (intern "cde-start-drag-internal") event t what))))
(t (defun start-drag (event what &optional typ))))
(list what))
(funcall (intern "cde-start-drag-internal") event t what))))
(t (defun start-drag (event what &optional typ))))
@@
-49,7
+46,7
@@
(defun wl-dnd-start-drag (event)
(interactive "@e")
(mouse-set-point event)
(defun wl-dnd-start-drag (event)
(interactive "@e")
(mouse-set-point event)
- (start-drag event (concat
+ (start-drag event (concat
wl-summary-buffer-folder-name " "
(int-to-string (wl-summary-message-number)))))
wl-summary-buffer-folder-name " "
(int-to-string (wl-summary-message-number)))))
@@
-65,7
+62,7
@@
(number (string-to-int (nth 1 src-spec)))
target)
(setq target
(number (string-to-int (nth 1 src-spec)))
target)
(setq target
- (wl-folder-get-folder-name-by-id (get-text-property
+ (wl-folder-get-folder-name-by-id (get-text-property
(point)
'wl-folder-entity-id)))
(message "%s is dropped at %s." number
(point)
'wl-folder-entity-id)))
(message "%s is dropped at %s." number
@@
-86,18
+83,21
@@
(defun wl-dnd-set-drop-target (beg end)
(let (ext substr)
(setq ext (make-extent beg end))
(defun wl-dnd-set-drop-target (beg end)
(let (ext substr)
(setq ext (make-extent beg end))
- (set-extent-property
+ (set-extent-property
ext
'experimental-dragdrop-drop-functions
'((wl-dnd-drop-func t t (buffer-substring beg end))))))
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))
(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)))
(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
;;; wl-dnd.el ends here