Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!news.u-tokyo.ac.jp!s.u-tokyo!is.s.u-tokyo!nobuo
From: nobuo@is.s.u-tokyo.ac.jp (SAKIYAMA Nobuo)
Subject: Re: Set permission to autosaved file
References: <NOBUO.93Jul29141926@tje10.is.s.u-tokyo.ac.jp> 
    <ENAMI.93Jul29150641@kitt.sys.ptg.sony.co.jp>
Nntp-Posting-Host: tje10
Message-ID: <NOBUO.93Jul29154558@tje10.is.s.u-tokyo.ac.jp>
Organization: Dept. of Infomation Science, Univ. of Tokyo, Japan.
In-Reply-To: enami@sys.ptg.sony.co.jp's message of 29 Jul 93 06:06:41 GMT
Sender: news@isnews.is.s.u-tokyo.ac.jp (Usenet News System)
Distribution: fj
Date: Thu, 29 Jul 1993 06:45:58 GMT
X-Bytes: 1463
Lines: 38
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3890
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3890&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.

In article <ENAMI.93Jul29150641@kitt.sys.ptg.sony.co.jp>,
enami@sys.ptg.sony.co.jp (enami tsugutomo) writes:

In article <NOBUO.93Jul29141926@tje10.is.s.u-tokyo.ac.jp>,
 nobuo@is.s.u-tokyo.ac.jp (SAKIYAMA Nobuo) writes:

> fileio.c$B$N(BFwrite_region$B$r$_$k$H(B, append$B$G$J$$>l9g$O(Bcreat(fn,0666)$B$H$d$C(B
> $B$F%U%!%$%k$r:n$C$F$$$k$N$G(B,

enami> $B$J$i(B find-file-hooks $B$H$+$G(B $B6u$N(B auto save file $B$r$D$/$C$F9%$-(B
enami> $B$J(B mode $B$K$7$H$/$C$F$N$O$@$a$+$J$"(B?

$B$b$C$H$^$H$b$JJ}K!$r9M$($^$7$?!#(Bfile$B$K$D$$$F$O!"$"$C$5$j$"$-$i$a$^$9!#(B
$B$_$i$l$?$/$J$$%U%!%$%k$O(Bread permission$B$r=P$7$F$$$J$$(Bdirectory$B$G:n6H$r(B
$B$9$l$P$$$$$+$i$G$9!#(B

$B$G!"LdBj$O(Bbuffer$B$NJ}$J$N$G$9$,!"$3$A$i$O(B 

mkdir ~/Autosave
chmod 700 ~/Autosave

$B$H$G$b$7$?>e$G!"(B

(defun make-auto-save-file-name ()
  (if buffer-file-name
      (concat (file-name-directory buffer-file-name)
              "#"
              (file-name-nondirectory buffer-file-name)
              "#")
    (expand-file-name (concat "~/Autosave/" "#%" (buffer-name) "#"))))

$B$H$G$b$7$F$7$^$($P$$$$$N$G$O$J$$$+$H!";W$$$^$9!#%U%!%$%k$=$N$b$N$N(B
permission$B$O$$$8$l$^$;$s$,!"%G%#%l%/%H%j$N(Bpermission$B$,$G$F$$$J$1$l$P(B
$BB>?M$K8+$i$l$k$*$=$l$O$J$$$G$7$g$&!#(B
--
SAKIYAMA Nobuo ($B:j;3(B $B?-IW(B) nobuo@is.s.u-tokyo.ac.jp
$BEl5~Bg3XM}3XIt(B $B>pJs2J3X2J(B $B3XIt#4G/(B
