From owner-ports-jp@jp.freebsd.org  Fri Nov 16 16:24:21 2001
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id QAA03016;
	Fri, 16 Nov 2001 16:24:21 +0900 (JST)
	(envelope-from owner-ports-jp@jp.FreeBSD.org)
Received: from tortoise.jp.freebsd.org (root@tortoise.jp.FreeBSD.ORG [210.157.158.41])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id QAA02999
	for <ports-jp@jp.freebsd.org>; Fri, 16 Nov 2001 16:24:20 +0900 (JST)
	(envelope-from kuriyama@imgsrc.co.jp)
Received: from white.imgsrc.co.jp ([3ffe:501:1868:1:202:b3ff:fe5c:ef4e])
	by tortoise.jp.freebsd.org (8.11.6+3.4W/8.11.3) with ESMTP/inet6 id fAG7OGW27899
	for <ports-jp@jp.freebsd.org>; Fri, 16 Nov 2001 16:24:18 +0900 (JST)
	(envelope-from kuriyama@imgsrc.co.jp)
Received: from black.imgsrc.co.jp (black.imgsrc.co.jp [2001:218:422:2:290:27ff:fe98:c0b7])
	by white.imgsrc.co.jp (Postfix) with ESMTP id 36BC924D1C
	for <ports-jp@jp.freebsd.org>; Fri, 16 Nov 2001 16:24:15 +0900 (JST)
Received: from waterblue.imgsrc.co.jp (waterblue.imgsrc.co.jp [2001:218:422:2:2d0:b7ff:fea0:d487])
	by black.imgsrc.co.jp (Postfix) with ESMTP id C9C14D1401
	for <ports-jp@jp.freebsd.org>; Fri, 16 Nov 2001 16:24:13 +0900 (JST)
Date: Fri, 16 Nov 2001 16:24:11 +0900
Message-ID: <7madxnuqjo.wl@waterblue.imgsrc.co.jp>
From: Jun Kuriyama <kuriyama@imgsrc.co.jp>
To: Japanese Ports Team <ports-jp@jp.freebsd.org>
References: <7my9lbyz6d.wl@waterblue.imgsrc.co.jp>
User-Agent: Wanderlust/2.6.0 (Twist And Shout) SEMI/1.14.3 (Ushinoya)
 FLIM/1.14.3 (=?ISO-8859-4?Q?Unebigory=F2mae?=) APEL/10.3 Emacs/21.1
 (i386--freebsd) MULE/5.0 (=?ISO-2022-JP?B?GyRCOC1MWhsoQg==?=)
MIME-Version: 1.0 (generated by SEMI 1.14.3 - "Ushinoya")
Content-Type: multipart/mixed;
 boundary="Multipart_Fri_Nov_16_16:24:11_2001-1"
Reply-To: ports-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+010328
X-Sequence: ports-jp 11814
Subject: [ports-jp 11814] Forward: 21.1/lisp/vc-hooks.el and vc-make-backup-files
Errors-To: owner-ports-jp@jp.freebsd.org
Sender: owner-ports-jp@jp.freebsd.org
X-Originator: kuriyama@imgsrc.co.jp

--Multipart_Fri_Nov_16_16:24:11_2001-1
Content-Type: text/plain; charset=ISO-2022-JP


$B!!$G!"(Bmule-ja $B$KAw$C$F$bH?1~$,$J$$$h$&$J$s$G$9$,!"(Bports $B$KF~$l$F$7$^$C(B
$B$F$b$$$$$G$9$+$M!)(B  >maintainer


$B$/$j$d$^(B

--Multipart_Fri_Nov_16_16:24:11_2001-1
Content-Type: message/rfc822

From kuriyama@imgsrc.co.jp  Tue Nov 13 15:15:09 2001
Delivered-To: kuriyama@imgsrc.co.jp
Date: Tue, 13 Nov 2001 15:15:06 +0900
Message-ID: <7my9lbyz6d.wl@waterblue.imgsrc.co.jp>
From: Jun Kuriyama <kuriyama@imgsrc.co.jp>
To: mule-ja@m17n.org
Subject: 21.1/lisp/vc-hooks.el and vc-make-backup-files
User-Agent: Wanderlust/2.6.0 (Twist And Shout) SEMI/1.14.3 (Ushinoya)
 FLIM/1.14.3 (=?ISO-8859-4?Q?Unebigory=F2mae?=) APEL/10.3 Emacs/21.1
 (i386--freebsd) MULE/5.0 (=?ISO-2022-JP?B?GyRCOC1MWhsoQg==?=)
Cc: Jun Kuriyama <kuriyama@imgsrc.co.jp>
MIME-Version: 1.0 (generated by SEMI 1.14.3 - "Ushinoya")
Content-Type: text/plain; charset=ISO-2022-JP


$B!!$A$g$C$H5$$,$D$$$F$7$^$C$?$N$GJs9p$G$9!#(B

$B!!(Bvc-make-backup-files $B$H$$$&JQ?t$,Dj5A$5$l$F$$$J$,$i!"(B
vc-before-save() $B$NItJ,$G$OJQ?t$rL5;k$7$F%P%C%/%"%C%W%U%!%$%k$r:n@.$7(B
$B$F$7$^$C$F$$$k$h$&$K8+$($^$9!#(B
$B!!$"$H!"8=>u$G$O$;$C$+$/(B backup-directory-alist $B$r;XDj$7$F$$$F$b!"(Bvc-* 
$B$N%P%C%/%"%C%W%U%!%$%k$O%U%!%$%k$HF1$8%G%#%l%/%H%j$K:n@.$5$l$F$7$^$&$h(B
$B$&$G$9!#(B

$B!!$J$N$G!"%Q%C%A$r:n$C$F$_$?$N$G$9$,!"$3$s$J$b$s$G$$$$$N$G$7$g$&$+!#(B

# emacs lisp $B$h$/CN$i$J$$$N$G!D!D!#(Bmanual $B0z?t$N0UL#$,$o$+$i$s!#(B


--- lisp/vc-hooks.el.orig	Mon Nov 12 23:37:38 2001
+++ lisp/vc-hooks.el	Tue Nov 13 12:56:08 2001
@@ -475,10 +475,9 @@
   (if regexp
       (concat (regexp-quote (file-name-nondirectory file))
               "\\.~[0-9.]+" (unless manual "\\.") "~")
-    (expand-file-name (concat (file-name-nondirectory file) 
-                              ".~" (or rev (vc-workfile-version file)) 
-                              (unless manual ".") "~")
-                      (file-name-directory file))))
+    (concat (make-backup-file-name-1 file)
+	    ".~" (or rev (vc-workfile-version file))
+	    (unless manual ".") "~")))
 
 (defun vc-delete-automatic-version-backups (file)
   "Delete all existing automatic version backups for FILE."
@@ -509,6 +508,7 @@
 	 (vc-up-to-date-p file)
 	 (eq (vc-checkout-model file) 'implicit)
 	 (vc-call make-version-backups-p file)
+	 vc-make-backup-files
          (vc-make-version-backup file))))
 
 (defun vc-after-save ()


-- 
Jun Kuriyama <kuriyama@imgsrc.co.jp> // IMG SRC, Inc.
             <kuriyama@FreeBSD.org> // FreeBSD Project


--Multipart_Fri_Nov_16_16:24:11_2001-1--
