Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!tsbgw!tiswd-gw!tis2!tci20!zic
From: zic@tci.toshiba.CO.JP (Nobuyoshi Kamei)
Newsgroups: fj.editor.emacs
Subject: Re: Set permission to autosaved file
Message-ID: <ZIC.93Aug4150809@tcin0.tci.toshiba.CO.JP>
Date: 4 Aug 93 06:08:09 GMT
References: <SENOH.93Jul29102221@gogh.image.mtg.ksd.kawasaki-steel.co.jp>
	<NOBUO.93Jul29141926@tje10.is.s.u-tokyo.ac.jp>
Sender: news@tci.toshiba.co.jp
Reply-To: zic@tci.toshiba.CO.JP
Distribution: fj
Organization: Toshiba CAE Systems, Inc.
Lines: 62
Nntp-Posting-Host: tcin0
In-reply-to: nobuo@is.s.u-tokyo.ac.jp's message of 29 Jul 1993 14:19:26 JST
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3911
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3911&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

>>>>> On 29 Jul 1993 14:19:26 JST, nobuo@is.s.u-tokyo.ac.jp (SAKIYAMA
>>>>> Nobuo) said:

$B:j;3(B> In article <SENOH.93Jul29102221@gogh.image.mtg.ksd.kawasaki-steel.co.jp>,
$B:j;3(B> senoh@image.mtg.ksd.kawasaki-steel.co.jp (Yasushi Senoh) writes:

senoh> auto save $B$5$l$k$H(B #BufferName# $B$H8@$&%U%!%$%k$,$G$-$^$9$,!"(B
senoh> $B$3$l$N(B permission $B$r@_Dj$9$k$3$H$O$G$-$^$;$s$G$7$g$&$+!)(B

$B:j;3(B> $B$9$/$J$/$H$b!"(Bemacs18.55$B$d(BNemacs$B$G$O$^$:IT2DG=$J$3$H$O!"CG8@$G$-$^$9!#(B
$B:j;3(B> auto save$B$G$O!"<B:]$K%;!<%V$r$9$k$N$O(Bwrite-region$B$KG$$;$F$$$^$9!#$G!"(B
$B:j;3(B> fileio.c$B$N(BFwrite_region$B$r$_$k$H!"(Bappend$B$G$J$$>l9g$O(Bcreat(fn,0666)$B$H$d$C(B
$B:j;3(B> $B$F%U%!%$%k$r:n$C$F$$$k$N$G!"(BC$B$N(Bsource$B%l%Y%k$G%Q%C%A$r$"$F$J$$$H$@$a$G(B
$B:j;3(B> $B$7$g$&!#(B

    Emacs 18.59$B$G$b$@$a$G$9!#(BVer.19$B$G$I$&$J$N$+$OCN$j$^$;$s!#(B
    fileio.c$B$K!"<!$N%Q%C%A$r$"$F$k$Y$-$@$HKM$O9M$($F$$$^$9!#(B

Mule 0.9.8 PL06$B$G$N%Q%C%A(B
--- src/fileio.c.~1~Thu Jul 15 18:22:30 1993
+++ src/fileio.cMon Aug  2 10:39:21 1993
@@ -2197,7 +2197,10 @@
 #if defined(MSDOS) || defined(WIN32)
   desc = creat (fn, S_IREAD|S_IWRITE);
 #else /* not MSDOS nor WIN32 */
-  desc = creat (fn, 0666);
+  if (auto_saving)
+      desc  = creat (fn, 0600);
+  else
+      desc  = creat (fn, 0666);
 #endif /* not MSDOS nor MSDOS */
 /* end of patch */
 #endif /* not VMS */

    NEmacs$B$"$k$$$O(BMule$B$J$i$P!"(B
DEFUN ("si:write-region", Fsi_write_region, Ssi_write_region, 3, MANY,
    Emacs$B$J$i$P(B
DEFUN ("write-region", Fwrite_region, Swrite_region, 3, 5,
$B$NCf$G!":G8e$K=P$F$/$k(B
    desc  = creat (fn, 0666);
$B$r!"(B
     if (auto_saving)
 desc  = creat (fn, 0600);
     else
 desc  = creat (fn, 0666);
$B$HD>$9$N$G$9!#(B


$B:j;3(B> do-auto-save$B$O(Blisp$B$N%7%s%\%k$H$7$F8+$($F$$$k$N$G$3$l$r<h$jBX$((B
$B:j;3(B> $B$i$l$k$h$&$K$_$($^$9$,!"FbIt$G$O<BBN$N4X?t$G$"$k(BFdo_auto_save$B$rD>@\8F(B
$B:j;3(B> $B$s$G$$$k$N$G!"<h$jBX$($?$H$3$m$G$"$^$j0UL#$O$J$$$G$7$g$&!#(B
    $B$3$A$i$NJ}K!$G$b$G$-$J$$$3$H$O$"$j$^$;$s!#(B
    Lisp$B$N(Bdo-auto-save$B$r<+:n$7$F!"Cf$+$i%*%j%8%J%k$N%W%j%_%F%#%V(B
Fdo_auto_save$B$r<B9T$7!"0z$-B3$-$=$N%U%!%$%k$KE,@Z$J%Q!<%_%C%7%g%s$r(B
$B@_Dj$9$l$P$$$$$N$G$9!#(BEmacs-Lisp$B$N(Bset-file-modes$B$H$+$r;H$($P$$$$$G$7$g$&!#(B
    $B$?$@!"%*!<%H%;!<%V!A%b!<%I@_Dj$,!"(Batomic$B$J=hM}$G$O$J$/$J$C$F$7$^$$$^$9$,!#(B
--
  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
$B550f!!?.5A(BE-mail: zic@tci.toshiba.co.jp
    $BEl<G(BCAE$B%7%9%F%`%:(B($B3t(B) $B%7%9%F%`5;=QIt(B $B4pK\%7%9%F%`C4Ev%0%k!<%W(B
7N1HVR/430MHzPhone: (044) 246-0367
       $BL2$j$K$OL4$r!";`$K$O0B$i$.$r(B
