Article View: fj.editor.mule
Article #3223Re: [Q] save perl file
From: Masaki KAWAMURA
Date: Thu, 25 Jan 1996 00:00
Date: Thu, 25 Jan 1996 00:00
34 lines
1841 bytes
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-mailReferences:
<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