From xemacs-m  Thu Mar 13 08:05:48 1997
Received: from isy.liu.se (root@isy.liu.se [130.236.20.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id IAA23198
	for <xemacs-beta@xemacs.org>; Thu, 13 Mar 1997 08:05:45 -0600 (CST)
Received: from ludde.isy.liu.se (ludde.isy.liu.se [130.236.24.29])
	by isy.liu.se (8.8.5/8.8.5) with SMTP id PAA02597
	for <xemacs-beta@xemacs.org>; Thu, 13 Mar 1997 15:05:43 +0100 (MET)
Received: by ludde.isy.liu.se (SMI-8.6/SMI-SVR4)
	id PAA20371; Thu, 13 Mar 1997 15:05:35 +0100
Date: Thu, 13 Mar 1997 15:05:35 +0100
Message-Id: <199703131405.PAA20371@ludde.isy.liu.se>
From: Anders Stenman <stenman@isy.liu.se>
To: xemacs-beta@xemacs.org
Subject: status of cde-start-drag-internal?
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: text/plain; charset=US-ASCII

What is the status of cde-start-drag-internal? I just noticed that the
function exists when I was browsing through frame-x.c.

Since I couldn't find any lisp interface to it, I wrote a silly hack
myself:

(defun mouse-drag-region (event)
  "Start a CDE drag from region."
  (interactive "e")
  (setq zmacs-region-stays t)
  (let ((ep (event-point event)))
    (cond ((and ep (region-active-p)
		(>= ep (region-beginning))
		(<= ep (region-end)))
	   (cde-start-drag-internal
	    (buffer-substring (region-beginning)
			      (region-end))))
	  (t (error "No active region here")))))

(global-set-key [(alt button2)] 'mouse-drag-region)

This is quite nice since it allows me to drag calendar appointments from my
vm window to the calendar manager.

Btw, I'm using 19.15 beta98.

/Anders

