Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.iij.ad.jp!iijnet!ghost!boss!boss!can
From: can@osft.advantest.co.jp (Network Group member)
Subject: Re: Dired
In-Reply-To: kon@quincy.d1.bs2.mt.nec.co.jp's message of 07 Jul 1994 10:24:16 GMT
Message-ID: <CAN.94Jul12094222@looper.osft.advantest.co.jp>
Sender: news@advantest.co.jp
Nntp-Posting-Host: looper
Reply-To: can@osft.advantest.co.jp
Organization: ADVANTEST CORPORATION
References: <CAN.94Jul7153417@looper.osft.advantest.co.jp>
	<KON.94Jul7192417@quincy.quincy.d1.bs2.mt.nec.co.jp>
Distribution: fj
Date: Tue, 12 Jul 1994 00:42:20 GMT
Lines: 74
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4821
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4821&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.


  $B?{$G$9!#(B

In article <KON.94Jul7192417@quincy.quincy.d1.bs2.mt.nec.co.jp> kon@quincy.d1.bs2.mt.nec.co.jp (Akira Kon) writes:

>   $B?{$5$s$3$s$K$A$O!"$$$D$b$*@$OC$K$J$C$F$$$^$9!#:#$G$9!#(B

  $B$*@$OC$K$J$C$F$$$k$N$O!"$3$A$i$G$9$N$G!"62=L$7$^$9!#(B_o_

>   >   Dired$BEy:G6a;H$C$?$3$H$b$J$+$C$?$N$G$9$,!"(B18.55 base$B$N(BNemacs$B$@$H!"(B
>   >   $BF0$$$F$$$k$N$G$9$,!"(B18.59 base$B$d!"(B19.xx base$B$@$HF1$8F0$-$r$;$:!"(B
>   >   x , c $B%3%^%s%I$O!"(BNo file on this line$B$H8@$&%(%i!<$,=P$FF0$-$^$;$s!#(B
>
>   >   $B2?$+@_Dj$r$7K:$l$F$$$k$N$G$7$g$&$+!)(B
>
>   $B$3$l$O!"(BNemacs$B!"(BMule $B4X78$J$/0J2<$NLdBj$@$H;W$&$1$I(B...
>
>   $B0J2<$O0JA0(B mule-jp@etl.go.jp $B$KAw$C$?%a!<%k$G$9!#B?J,860x$O$3$l$@$H;W(B
>   $B$&$1$I$J!A!#(B

  $B$N$h$&$G$9$M!#<RFb$G$b(BLANG=C $B$J$i!"F0$/$H8@$&Js9p$r$5$C$-Lc$$$^$7$?!#(B
  $B$I$&$b$"$j$,$H$&$4$6$$$^$7$?!#(B_o_

  $B7kO@$H$7$F$O!"(B

>   $B$=$l$KBP$7$F!"(Bdired.el $B$G$O!"(B
>
>     (defun dired-get-filename (&optional localp no-error-if-not-filep)
>
>       ($BCfN,(B)
>
> (beginning-of-line)
> (if (re-search-forward
>      "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)[ ]+[0-9]+"
>      eol t)
>     (progn (skip-chars-forward " ")
>
>   $B$J$s$F=j$,$"$j$^$7$F!"4JC1$K8@$&$HF|K\8l$N(B ls -l $B$N7k2L$G$O!"(B
>   ls $B$,$A$c$s$HF/$$$F$$$k$H$OG'$a$F$/$l$J$$$o$1$G$9!#(B
>
>   dired $B$K4X$7$F$O!"0J2<$N$h$&$J=$@5$GNI$$$H;W$&$N$G$9$,!"B>$K(B
>   $B$b(B UNIX $B%3%^%s%I$N7k2L$r%9%-%c%s$9$k$h$&$J(B Emacs Lisp $B%W%m%0(B
>   $B%i%`$,7k9=$"$k$N$G$O$J$$$G$7$g$&$+!)(B
>
>   ; $B$3$s(B $B$"$-$i(B TEL 03-3456-7452 ex 20-23610 fax 03-3456-5764
>
>   --- dired.el.origMon Nov 22 23:32:13 1993
>   +++ dired.elMon Nov 22 23:33:03 1993
>   @@ -42,10 +42,13 @@
>  (erase-buffer)
>  (setq dirname (expand-file-name dirname))
>  (if (file-directory-p dirname)
>   -  (call-process "ls" nil buffer nil
>   -dired-listing-switches dirname)
>   +  (call-process "env" nil buffer nil
>   +"LC_MESSAGES=C" "LC_DATE=C" "LANG=C"
>   +"ls" dired-listing-switches dirname)
>   (let ((default-directory (file-name-directory dirname)))
>   -  (call-process shell-file-name nil buffer nil
>   +  (call-process "env" nil buffer nil
>   +"LC_MESSAGES=C" "LC_DATE=C" "LANG=C"
>   +shell-file-name 
>   shell-command-option
>   (concat "ls " dired-listing-switches " "
>(file-name-nondirectory dirname)))))

  $B$G$$$$$h$&$G$9!#(BMule$B$N$[$&$O!"$($J$_$5$s(B($B$$$D$bK\Ev$K$*@$OC$K$J$C$F$$$^$9!#(B
  _o_)$B$,8@$&$h$&$K!"(B setq dired-move-to-filename-regexp $B$GJQ99$9$l$PNI$$(B
  $BMM$G$9!#$G$9$+$i!"(B.emacs$B$GJQ992DG=$G$9$h$M!#(B

  $B$"$j$,$H$&$4$6$$$^$7$?!#(B_o_
--
($B3t(B) ADVANTEST
can@advantest.co.jp
