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!kuis!isfs!shiiba
From: shiiba@hydro4.kuciv.kyoto-u.ac.jp (Michiharu SHIIBA)
Subject: Re: Q: How to write the current directory into a file
In-Reply-To: shiiba@hydro4.kuciv.kyoto-u.ac.jp's message of Tue, 13 Apr 1993 12:37:36 GMT
Message-ID: <SHIIBA.93Apr15152236@hydro4.kuciv.kyoto-u.ac.jp>
Sender: news@kuis.kyoto-u.ac.jp
Nntp-Posting-Host: hydro4.kuciv.kyoto-u.ac.jp
Reply-To: shiiba@hydro3.kuciv.kyoto-u.ac.jp
Organization: Dept. of Civil Eng., Kyoto Univ.
References: <SHIIBA.93Apr13213736@hydro4.kuciv.kyoto-u.ac.jp>
Distribution: fj
Date: Thu, 15 Apr 1993 06:22:36 GMT
Lines: 88
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3669
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3669&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.


$BDGMU!w5~Bg9)EZLZ65<<$G$9!#(B

>>>>>> In article <SHIIBA.93Apr13213736@hydro4.kuciv.kyoto-u.ac.jp>, shiiba@hydro4.kuciv.kyoto-u.ac.jp (Michiharu SHIIBA) writes:
> Nntp-Posting-Host: hydro4.kuciv.kyoto-u.ac.jp


> $BDGMU!w5~Bg9)EZLZ65<<$H$$$$$^$9!#(B

> Emacs $B$G!"(B

> 1$B!#(BDired $B%b!<%I$K$"$k$H$-!"(B
> 2$B!#%U%!%$%k$rJT=8$7$F$$$k$H$-(B

> $B$K!"%+%l%s%H%G%#%l%/%H%j(B(2$B$N>l9g$O!"JT=8$7$F$$$k%U%!%$%k$,$$$k%G%#(B
> $B%l%/%H%j(B)$B$r$"$kFCDj$N%U%!%$%k$NCf$K=q$-=P$7$?$$$N$G$9$,!"$=$N$?(B
> $B$a$N(B Lisp $B$N%3!<%I$O$I$&$+$1$P$$$$$+65$($FD:$1$J$$$G$7$g$&$+!#(B

> $BL\E*$O!"$3$&$7$F=q$-9~$s$@%U%!%$%k$r8e$GFI$_9~$s$G$=$N%G%#%l%/%H(B
> $B%j$K0\F0$9$k$H$$$&$b$N$G$9!#8e$G$J$/$F$b!"JL$N%W%m%;%9$G$"$k(B 
> xterm $B$d(Bkterm $B$G$=$N%G%#%l%/%H%j$K0\F0$7$?$$$H$$$&$3$H$b$"$j$^$9!#(B

> 1$B!#$N>l9g$H!"(B2$B!#$N>l9g$,JL$N%3!<%I$K$J$C$F$b9=$$$^$;$s!#(B

$B$KBP$7$F!"(B

$B@n9g!wElBg$5$s!"1|B<!w2-EE5$9)6H$5$s$+$iD>@\%a%$%k$G2sEz$rD:$-$^(B
$B$7$?!#(B

$B@n9g!wElBg$5$s$+$i65$($FD:$$$?J}K!$O!"(Bemacs $B$NCf$G%U%!%$%k$K%G%#(B
$B%l%/%H%j$r=q$-9~$_$^$9!#(B

 (let ((curdir default-directory))
   (save-excursion
     (find-file "~/bin/cd.cmd")
     (erase-buffer)
     (insert curdir)
     (save-buffer))))

$B1|B<!w2-EE5$9)6H$5$s$+$i65$($FD:$$$?J}K!$O!"(Bcall-process $B$r;H$$(B
$B$^$9!#(B

(defun my-set-directory ()
  (let ((dir nil))
    (if (equal major-mode 'dired-mode) (setq dir dired-directory)
      (setq dir (file-name-directory 
 (if (buffer-file-name) (buffer-file-name) "~/dummy"))))
    (call-process "sh" nil nil nil "-c" 
(concat "echo " dir "> /home/okumura/tmp/cwd"))))

$B1|B<$5$s$O!"(B

;;; suspend-emacs $B$G(B emacs $B$r;_$a$F:n6H$r$9$k$H$-$K!"(Bemacs $B$r5/F0$7$?(B
;;; $B%7%'%k$H%+%l%s%H%G%#%l%/%H%j$N<uEO$7$r9T$J$&(B

$B$3$H$,$G$-$k$h$&$K$7$F$*$i$l$^$9!#(B

$B$H$j$"$($:!";d$O<!$N$h$&$K$7$^$7$?!#(B

.emacs $B$NCf$K(B

(defvar my-ncd "~/bin/cd.cmd")

(defun ncd ()
  (interactive)
  (let ((curdir default-directory))
(save-excursion
  (find-file my-ncd)
  (erase-buffer)
  (insert "cd " curdir "\n")
  (save-buffer 0)
  (kill-buffer (buffer-name)))))

$B$H=q$-9~$_$^$7$?!#$3$l$G!"(BM-x ncd $B$H$9$k$H!"%+%l%s%H%G%#%l%/%H%j(B
$B$K(B cd $B%3%^%s%I$r2C$($F!"(B~/bin/cd.cmd $B$K=q$-9~$_$^$9!#(B

$B$^$?!"(B.cshrc $B$K(B

alias ncd'source ~/bin/cd.cmd'

$B$H=q$$$F$$$^$9!#$3$l$G!"(Bkterm $B$N>e$G$O!"%3%^%s%I%i%$%s$G!"(Bncd $B$H(B
$BF~NO$9$k$H!"(Bemacs $B$G(B M-x ncd $B$r<B9T$7$?$H$-$N%G%#%l%/%H%j$K0\F0(B
$B$G$-$^$9!#(B

--
--- $BDGMU=<@2!w?e9)7W2h3X9V:B(B.$B9)3XItEZLZ9)3X2J(B.$B5~ETBg3X(B
    E-mail shiiba@hydro3.kuciv.kyoto-u.ac.jp
    $BEEOC(B 075-753-5095  $B#F#A#X(B 075-761-0646
