🚀 go-pugleaf

$BFqGH$G$9!#(Bfj.editor.emacs $B$bB-$7$F$_$^$7$?!#(B

Seiichi Namba <sn@asahi-net.email.ne.jp> writes:

dired $B$G%I%i%C%0%I%m%C%W$9$k$?$a$N(B dired-dd $B$G$9$,!"(B0.9.1.4 $B$K$J$j$^$7$?!#(B

$B%P!<%8%g%sHV9f$G$9$,!"(B0 $B$r%?%$%W$9$k$N$,LLE]$K$J$C$?$N$H!"(BRCS $B$b;H$$;O(B
$B$a$?!"$H$$$&M}M3$K$h$j!"(B0.0.0.x $B$H$$$&%7!<%1%s%9$O;_$a$F!">e5-$N$h$&$J(B
$B%7!<%1%s%9$K$J$j$^$7$?!#(B

$B@lMQ$N(B web page $B$rMQ0U$7$^$7$?$N$G!"$3$A$i$+$i$I$&$>!#(B
http://www.asahi-net.or.jp/~pi9s-nnb/dired-dd-home.html
$B=>A0$N(B
http://www.asahi-net.or.jp/~pi9s-nnb/myelisp.html
$B$+$i$b9T$1$^$9!#(B

$B<B$O#2F|$[$IA0$+$i(B 0.9.1.4 $B$N$?$a$N(B dired-dd-home.html $B$OB8:_$7$F$*$j(B
$B$^$7$?$,!"(Bdired-dd.tar.gz $B$NCf?H$,$D$$$5$C$-$^$G(B 0.9.1.3 $B$G$7$?!#:#$O(B
$BBg>fIW$@$H;W$&$N$G$9$,!D!#LdBj$,$"$l$P$*CN$i$;$/$@$5$$!#(B

$B<g$JJQ99E@$O(B

 * M-mouse-2 $B$G(B shell $B%3%^%s%I$,HsF14|<B9T$5$l$k$h$&$K$J$C$?(B

 * Copy Recursive $B%(%s%H%j$r%a%K%e!<$KDI2C(B (cp -a $B$r;HMQ(B)

 * $B$*$^$1$N(B spinout/ $B$N2<$r$$$/$D$+99?7(B

 * drag-mouse-2 $B$G=P$k%a%K%e!<$N(B Exec Related CMD $B$H$$$&$N$OA0$OL5$+$C$?(B
   $B$+$b$7$l$^$;$s!J(BM-mouse-2 $B$HF1$85!G=!K(B

 * Info $B$N99?7(B

$B$"$?$j$G$9!#$=$NB>$NJQ99E@$K$D$$$F$O!">e5-$N%Z!<%8$r$4;2>H$/$@$5$$!#(B

$B$3$l$+$i$O!"AjEvBg$-$JJQ99$r9T$J$o$J$$8B$j!"C`0l%"%J%&%s%9$7$J$$;v$K$7$^$9!#(B
$B$46=L#$,$"$kJ}$O!">e5-$N@lMQ%Z!<%8$r;~!9GA$$$F$_$F$/$@$5$$!#(B


$B<+J,$G(B unofficial patch $B$r=P$9$N$b$I$&$+$H;W$$$^$9$,!"$5$C$-!"(BWindows 
$BHG$N(B mule-win32 ($BI85-$,$h$/$o$+$i$J$$!D!#(B19.28 $B%Y!<%9$G!"(BVector Design 
$B$N(B 10 $BKgAH(B CDROM $B$KF~$C$F$$$?$b$N$G$9(B)$B$G!"0l1~F0$+$7$F$_$^$7$?$N$G!"$=(B
$B$N;~$N%Q%C%A$r:G8e$KIU$1$^$9!#>e5-$N(B 0.9.1.4 $B$KEv$?$k$O$:$J$s$G$9$,!D!#(B

$B$?$@$7!"0l1~%(%i!<$,=P$:$K(B load $B$G$-!"(BCopy $B$H(B Move $B$OF0$/;v$r3NG'$7$?!"(B
$B$H$$$&$@$1$N$b$N$G$9!#%I%i%C%0Cf$N%]%$%s%?$N%"%K%a!<%7%g%s!J$dJQ99!K$O(B
$BA4$/F/$$$F$$$^$;$s!#(B

$B$^$?!"(Bdired-dd $B$NLdBj$J$N$+$I$&$+L$3NG'$G$9$,!"!J(Bmouse-face $B$N$+$+$C$?!K(B
$B%U%!%$%kL>$N>e$r%I%i%C%0$9$k$H!"%]%$%s%?$,>C$($F$7$^$&LdBj$,$"$k$h$&$G(B
$B$7$?!#%U%!%$%kL>$G$J$$>l=j$r%I%i%C%0$9$l$P$J$s$H$+;H$($k$N$+$b$7$l$^$;(B
$B$s!#:n6H4D6-$O(B NT 4.0 ($BAG$N$^$s$^(B) $B$G$9!#(B

$BB>$K$b$$$/$D$+(B Windows $BHG$N(B mule/emacs $B$,$"$k$h$&$J$N$G$9$,!"2<5-$N%Q%C(B
$B%A$r:n$C$?;~$NMM;R$G$O(B term/x-win.el $B$,%5%]!<%H$5$l$F$$$l$P!"$b$7$+$9(B
$B$k$H%*%j%8%J%k$N(B dired-dd $B$,$=$N$^$^F0$/$N$+$b$7$l$^$;$s!#(B

$B@?$K?=$7$o$1$"$j$^$;$s$,!"(Bcommand.com $BEy%5%]!<%H$9$k;v$J$I$r9M$($k$H$"(B
$B$^$j$KLLE]=-$=$&$J$N$G!":#8e$b@5<0$K$O(B Windows $BHG$N(B mule/emacs$B$N%5%]!<(B
$B%H$O1sN8$5$;$F$$$?$@$3$&!JIaCJ!"$I$&$7$F$b(B Windows $B$G:n6H$7$J$1$l$P$J(B
$B$i$J$/$J$C$F$7$^$C$?$i$=$N;~$O9M$($^$9$,!K$H;W$C$F$*$j$^$9!#(B


$B$=$l$G$O$*3Z$_$/$@$5$$!#(B

Unofficial Patch $B$O2~JG$N8e$KF~$l$^$9!#(B

$BFqGH@60l!wEl5~J]C+;T(B (http://www.asahi-net.or.jp/~pi9s-nnb/)
NAMBA Seiichi / sn@asahi-net.email.ne.jp / GBC00441@niftyserve.or.jp

--- /home/sn/elisp/dired-dd/dired-dd.el	Thu Jan 22 11:41:51 1998
+++ /home/sn/elisp/dired-dd/dired-dd-winnt/dired-dd.el	Fri Jan 23 20:30:14 1998
@@ -32,6 +32,9 @@
 ;; Bogus RCS header which I may throw away in future.
 ;;$Id: dired-dd.el,v 0.9.1.4 1998/01/22 02:41:47 sn Exp sn $
 (defconst dired-dd-version "0.9.1.4")
+(defvar dired-dd-ms-os-p
+  (if (string-match "^windows" (format "%s" system-type))
+      t nil))
 
 ;;
 ;; Major Mouse button binding provided with this package:
@@ -442,7 +445,8 @@
 function dired-dd-version."))
 ;; Do the first calibration here:
 ;; Please be patient if your network is slow and running emacs over it.
-(dired-dd-version-constants-calibration)
+(or dired-dd-ms-os-p
+    (dired-dd-version-constants-calibration))
 
 ;; (dired-dd-circle-resolution dired-dd-version-circle-resolution) part is new.
 (defun dired-dd-version (&optional arg)
@@ -528,7 +532,9 @@
 ;; Redefinition things 
 ;; if this emacs running via slow X display, or on non-float machines.
 ;; Almost NOP, and no pointer animations.
+;; No fancy stuffs in ms-os.
 (if (and (fboundp 'atan)
+	 (not dired-dd-ms-os-p)
 	 ;;(string-match "^:" x-display-name)
 	 (> 1 (car dired-dd-set-mouse-color-usec)))
     (defvar dired-dd-circle-delay 0.0001
@@ -657,6 +663,16 @@
 
 ;; X-Pointer handling var/macro for to change pointer while dragging
 ;;(defvar dired-dd-x-pointer-shape x-pointer-diamond-cross)
+
+;; Bogus os check.
+(if dired-dd-ms-os-p
+    ;; Dummy, unused, just for suppress error in loading.
+    (setq x-pointer-shape 0
+	  x-pointer-iron-cross 1
+	  x-pointer-leftbutton 2
+	  x-pointer-middlebutton 3
+	  x-pointer-rightbutton 4))
+
 (defvar dired-dd-x-pointer-shape x-pointer-iron-cross
   "Pointer shape while drag if dired-dd-no-x-pointer-animation is non-nil.")
 (defvar dired-dd-old-x-pointer-shape x-pointer-shape
@@ -691,6 +707,13 @@
   ;;	   (nth dired-dd-x-pointer-counter dired-dd-x-pointer-list))
   (set-mouse-color nil))
 
+;; Do nothing in ms-os
+(if dired-dd-ms-os-p
+    (progn
+      (defsubst dired-dd-restore-drag-pointer () ())
+      (defsubst dired-dd-set-drag-pointer () ())
+      (defsubst dired-dd-cycle-x-pointer () ())))
+
 ;; Oops.  Emacs is always under construction.
 ;; Here comes the return of a son of a renamed function all over again.
 ;; dired-unmark-all-files-no-query in 19.28
@@ -1848,7 +1871,8 @@
 ;; in case fset --> define-key binding below.
 ;; Use inheritance, 
 ;; but sounds like keymap turns wrong in fset->define-key method in mule-2.3.
-(if (> (string-to-int emacs-version) 19)
+(if (or (> (string-to-int emacs-version) 19)
+	dired-dd-ms-os-p)
     ()					; NOP in emacs-20.
   (setq dired-dd-original-menu
 	(cons 'keymap