Reply-To: mule@etl.go.jp
Sender: owner-mule@etl.go.jp
X-Seqno: 723
Return-Path: <@sgi.co.jp:shibata>
To: mule@etl.go.jp
Subject: Re: Emacs/Mule compatible program list 
In-Reply-To: Your message of "Thu, 24 Sep 92 15:02:47 +0900."
             <9209240602.AA02136@espresso.mcs.meitetsu.co.jp> 
Date: Fri, 25 Sep 92 10:24:20 +0900
From: Ken Shibata <shibata@sgi.co.jp>

	$B<FED!w#S#G#I$G$9!#(B

;; x-sb-mouse|Sullivan Beck|beck@qtp.ufl.edu
;; |Better mouse support for X.  Allows vertical/horizontal resizing.
;; |92-05-23|$Revision: 1.4 $|~/misc/x-sb-mouse.el.Z~

  $B$H$$$&E[$G$9$1$I!"(Bmule $B$G$OF0$-$^$;$s!#(B
  $B2<5-$N%Q%C%A$G0l1~F0$/$h$&$K$J$j$^$9$,!"!JEvA3$J$,$i!K%+%C%H$9$k;~$N(B
$B%j%P!<%9I=<($,$J$/$J$C$F$7$^$$$^$9!#%b!<%I%i%$%s$rDO$s$G(B window $B$N(B 
resize $B$H$$$&$N$,5$$KF~$C$F$$$?$s$G$9$,$M$'!#(B

----------- CUT HERE CUT HERE -------------------------------
--- x-sb-mouse.el.orig	Tue Aug 18 15:32:40 1992
+++ x-sb-mouse.el	Fri Sep 25 10:15:07 1992
@@ -1075,7 +1075,8 @@
         (save-excursion
           (set-buffer (window-buffer win))
           (if x-mouse-duplicate-cut (copy-region-as-kill p0 p1))
-          (x-store-cut-buffer (buffer-substring p0 p1))
+;;        (x-store-cut-buffer (buffer-substring p0 p1))
+          (x-store-text (buffer-substring p0 p1))
           (if kill (delete-region p0 p1)))
       (message "Mouse not in selected window"))))
 
@@ -1084,11 +1085,12 @@
 It also saves the old point as the mark if arg is not present (it does NOT
 save it if arg is present because x-mouse didn't save it).  The optional
 argument is to provide compatibility with x-mouse."
-  (if arg
+  (if argsave-excursionsave-excursionsave-excursion
       (x-mouse-set-point arg)
     (x-mouse-set-point)
     (push-mark x-mouse-point-0))
-  (insert (x-get-cut-buffer)))
+;;(insert (x-get-cut-buffer)))
+  (insert (x-get-text)))
 
 (defun x-cut-and-wipe-text (&optional arg)
   "This cuts the window drag section to the X cut buffer.
@@ -1106,7 +1108,8 @@
                   p1 x-mouse-point-u)
           (setq p0 x-mouse-point-d
                 p1 x-mouse-point-u))
-        (x-store-cut-buffer (buffer-substring p0 p1))
+;;      (x-store-cut-buffer (buffer-substring p0 p1))
+        (x-store-text (buffer-substring p0 p1))
         (if x-mouse-duplicate-cut
             (kill-region p0 p1)
           (delete-region p0 p1))))))
@@ -1134,7 +1137,8 @@
 It does not select the window."
   (save-excursion
     (select-window x-mouse-win-u)
-    (insert (x-get-cut-buffer))))
+;;  (insert (x-get-cut-buffer))))
+    (insert (x-get-text))))
 
 (defun x-mouse-append-drag ()
   "This appends the drag to the X cut buffer.
@@ -1141,8 +1145,10 @@
 If x-mouse-duplicate-cut is non-nil, it is also appended to the kill ring."
   (save-excursion
     (set-buffer (window-buffer x-mouse-win-u))
-    (x-store-cut-buffer
-     (concat (x-get-cut-buffer)
+;;  (x-store-cut-buffer
+;;   (concat (x-get-cut-buffer)
+  (x-store-text
+     (concat (x-get-text)
              (buffer-substring x-mouse-point-d x-mouse-point-u)))
     (if x-mouse-duplicate-cut
         (progn
@@ -1213,7 +1219,8 @@
 
 (defun x-mouse-copy-kill-to-x ()
   "This copies the emacs kill buffer to the x kill buffer."
-  (x-store-cut-buffer (car kill-ring-yank-pointer)))
+;;(x-store-cut-buffer (car kill-ring-yank-pointer)))
+  (x-store-text (car kill-ring-yank-pointer)))
 
 (defun x-mouse-copy-bol-to-x ()
   "Copies from the mouse point to the beginning of the line to X cut-buffer."
@@ -1224,7 +1231,8 @@
       (x-mouse-set-point)
       (setq p0 (save-excursion (beginning-of-line) (point))
             p1 x-mouse-point-u)
-      (x-store-cut-buffer (buffer-substring p0 p1))
+;;    (x-store-cut-buffer (buffer-substring p0 p1))
+      (x-store-text (buffer-substring p0 p1))
       (if x-mouse-duplicate-cut (copy-region-as-kill p0 p1))
       (select-window oldwin))))
 
@@ -1237,7 +1245,8 @@
       (x-mouse-set-point)
       (setq p0 (save-excursion (beginning-of-line) (point))
             p1 (save-excursion (end-of-line) (point)))
-      (x-store-cut-buffer (buffer-substring p0 p1))
+;;    (x-store-cut-buffer (buffer-substring p0 p1))
+      (x-store-text (buffer-substring p0 p1))
       (if x-mouse-duplicate-cut (copy-region-as-kill p0 p1))
       (select-window oldwin))))
 
@@ -1250,7 +1259,8 @@
       (x-mouse-set-point)
       (setq p0 x-mouse-point-u
             p1 (save-excursion (end-of-line) (point)))
-      (x-store-cut-buffer (buffer-substring p0 p1))
+;;    (x-store-cut-buffer (buffer-substring p0 p1))
+      (x-store-text (buffer-substring p0 p1))
       (if x-mouse-duplicate-cut (copy-region-as-kill p0 p1))
       (select-window oldwin))))
 
@@ -1272,7 +1282,8 @@
       (setq line (concat line (nth i lines) "\n")
             i (1+ i)))
     (setq line (concat line (nth i lines)))
-    (x-store-cut-buffer line)))
+;;  (x-store-cut-buffer line)))
+    (x-store-text line)))
 
 (defun x-mouse-kill-rect-to-x ()
   "This kills a rectangle to the x-cut-buffer."
@@ -1291,7 +1302,8 @@
     (while (<= i j)
       (setq line (concat line (nth i lines) "\n")
             i (1+ i)))
-    (x-store-cut-buffer line)))
+;;  (x-store-cut-buffer line)))
+    (x-store-text line)))
 
 (defun x-mouse-copy-rectangle-to-000 ()
   "This copies the rectangle to register 0."



