Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.iij.ad.jp!tyo1-nec!newssv1-nec!bs2news!bs2news.d1.bs2.mt.nec.co.jp!kon
From: kon@quincy.d1.bs2.mt.nec.co.jp (Akira Kon)
Newsgroups: fj.editor.emacs
Subject: Re: Dired
Date: 07 Jul 1994 10:24:16 GMT
Organization: NEC Corporation, Tokyo Japan
Lines: 87
Distribution: fj
Message-ID: <KON.94Jul7192417@quincy.quincy.d1.bs2.mt.nec.co.jp>
References: <CAN.94Jul7153417@looper.osft.advantest.co.jp>
Reply-To: kon@d1.bs2.mt.nec.co.jp
NNTP-Posting-Host: quincy.d1.bs2.mt.nec.co.jp
In-reply-to: can@osft.advantest.co.jp's message of Thu, 7 Jul 1994 06:34:12 GMT
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4808
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4808&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 <CAN.94Jul7153417@looper.osft.advantest.co.jp> can@osft.advantest.co.jp (Network Group member) writes:

>   $B?{!w%"%I%P%s%F%9%H$G$9!#(B

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

>   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$3$s(B $B$"$-$i(B TEL 03-3456-7452 ex 20-23610 fax 03-3456-5764

>To: mule-jp@etl.go.jp
>Subject: localized "ls -l" and dired
>Date: Mon, 22 Nov 1993 23:47:56 JST

$B$3$s$K$A$O!"#N#E#C$N:#$G$9!#(B

$B!T:#F|$NOCBj!U(B

$B!{:G6a$N(B OS $B$G$O(B ls -l $B$N7k2L$,F|K\8l$N>l9g$,$"$k$M!#(B
$B!{$=$N>l9g(B dired $B$,!X%.%c%C!Y$H8@$C$F8@$&$3$HJ9$+$J$/$J$k$M!#(B

-----($BK\Bj(B)-----------

$B:G6a6a$/$N@J$N?M$K!"!V<+J,$N(B Nemacs $B$G$O(B dired $B$,$&$^$/;H$((B
$B$J$$!W$HAjCL$5$l$?$N$G$9$,!"D4$Y$F9T$/$H(B ls -l $B$N7k2L$,F|K\(B
$B8l$G$G$F$$$?$+$i$@$H8@$&$3$H$,J,$+$j$^$7$?!#(B

$B"(Cm(B  Nemacs$B!"(BMule $B$H$bLdBj$,H/@8$7$^$9!#(B

$B<+J,$N%^%7%s$O(B SVR4 $B$J$N$G$9$,!"(BLANG $B$,F|K\8l$@$C$?$j$9$k$H!"(B

  -rw-rw-r--   1 kon      com         1002 10$B7n(B30$BF|(B 00$B;~(B22$BJ,(B .bashrc
  -rw-r--r--   1 kon      com        26387 11$B7n(B18$BF|(B 10$B;~(B06$BJ,(B .emacs

$B$N$h$&$J=PNO$rJV$7$^$9(B($B$D$^$jF|IU$,F|K\8l$J$o$1(B)$B!#(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$3$s(B $B$"$-$i(B (kon@d1.bs2.mt.nec.co.jp)
