🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.editor.mule
Article #3223

Re: [Q] save perl file

#3223
From: Masaki KAWAMURA
Date: Thu, 25 Jan 1996 00:00
34 lines
1841 bytes
$B$3$s$K$A$O!"@nB<!wC^GHBg$G$9!#(B

$B;d$N0J2<$N<ALd(B
>> $B$H$3$m$,!"$3$l$r(B ~/.mule $B$K2C$($?$H$3$m!"(Brmail $B$r;H$C$F%a!<%k$rFI$s$@8e(B
>> $B%;!<%V$7$?;~$K(B
>> 	Args out of range: 1, 3
>> $B$H8@$&%a%C%;!<%8$,8=$l$^$7$?!#$^$?!"?7$7$/Mh$?%a!<%k$,FI$_9~$a$J$/$J$j!"(B
>> $B:G8e$K8+$?%a!<%k$,FI$`EY$K2?EY$bDI2C$5$l$F$$$-$^$9!#(B
$B$K$D$$$F!"(B
$B%+%7%*$N(BJ$B:4F#$5$s!"%=%K!<$N;32,$5$s(B
$B8f2sEz$"$j$,$H$&$4$6$$$^$9!#(B
$B$^$?!"%a!<%k$K$F!"66K\!J$D!K!wIY;NDL$5$s$+$i%G%P%C%0$NJ}K!$r65$($FD:$-$^$7$?!#(B
$B$3$N>l$r<Z$j$F!"46<UCW$7$^$9!#(B

$B7k6I!"%P%C%U%!%5%$%:$,(B 3-byte $B$h$j>.$5$$>l9g$KLdBj$,$"$k$h$&$J$N$G!"(B

>> $B%=%K!<$N;32,$G$9!#(B
>> (add-hook 'after-save-hook
>> 	  '(lambda ()
>> 	     (save-restriction
>> 	       (widen)
>> 	       (and (string= "#!" (buffer-substring 1 (min 3 (point-max))))
>> 		    (let* ((name (buffer-file-name))
>> 			   (mode (file-modes name)))
>> 		      (set-file-modes name
>> 				      (logior mode (logand (/ mode 4) 73)))
>> 		      (message (concat "Wrote " name " (+x)"))
>> 		      )))))

$B$r;H$&;v$K$7$^$9!#$"$j$,$H$&$4$6$$$^$7$?!#(B

from $B@nB<(B $B@5<y!w;k3P>pJs=hM}8&5f<<!%C^GHBg3X(B
(VIP Lab. : Visual Information Processing Laboratory)
E-mail:kawamura@viplab.is.tsukuba.ac.jp 
Technical Details
Message-ID: <1996Jan25.170930.19027@is.tsukuba.ac.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <JUN.96Jan17165058@sun10.svgw.rd.casio.co.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 10eba4,804c72af2cea87c0
X-Google-Attributes: gid10eba4,public
From: kawamura@viplab.is.tsukuba.ac.jp (Masaki KAWAMURA)
Subject: Re: [Q] save perl file
Date: 1996/01/25
Message-ID: <1996Jan25.170930.19027@is.tsukuba.ac.jp>
X-Deja-AN: 136534622
sender: news@is.tsukuba.ac.jp (News Manager)
references: <JUN.96Jan17165058@sun10.svgw.rd.casio.co.jp>
organization: Institute of Information Sciences & Electronics, University of Tsukuba, Japan
newsgroups: fj.editor.mule