Newsgroups: fj.editor.mule,fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!nirvana.cs.titech!wnoc-tyo-news!spinnews!juria!iida
From: iida@secom-sis.co.jp (IIDA, Yosiaki)
Subject: Re: path name of electric-buffer-list
In-Reply-To: iida@secom-sis.co.jp's message of Wed, 27 Apr 1994 11:36:11 GMT
Message-ID: <IIDA.94May9130353@sayla.secom-sis.co.jp>
Sender: news@juria.secom-sis.co.jp
Nntp-Posting-Host: sayla
Reply-To: iida@secom-sis.co.jp
Organization: SECOM zyouhou sisutemu
References: <IIDA.94Apr26224342@sayla.secom-sis.co.jp>
	<HIRAMOTO.94Apr27115938@thunder.tt.kubota.co.jp>
	<IIDA.94Apr27203611@sayla.secom-sis.co.jp>
Distribution: fj
Date: Mon, 9 May 1994 04:03:53 GMT
Lines: 51
Xref: galaxy.trc.rwcp.or.jp fj.editor.mule:160 fj.editor.emacs:4659
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4659&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<+8J%U%)%m!<$G$9!#(B

>>>>> On 26 Apr 94 04:54:26 GMT, hiramoto@kubota.co.jp
 (=?ISO-2022-JP?B?GyRCSj9LXBsoQiAbJEI4d0ZzGyhC?=) said:
hiramoto>M-x electric-buffer-list $B$GI=<($5$l$k%U%!%$%kL>$r!"%[!<%`%G%#(B
hiramoto>$B%l%/%H%j$NItJ,$r(B "~" $B$KCV$-49$($FI=<($9$k$h$&$K$7$?J}$O$$$i$C(B
hiramoto>$B$7$c$$$^$;$s$+(B?

>>>>> On Wed, 27 Apr 1994 11:36:11 GMT, I said:
iida>  $BM>CL$G$9$,!"(Bfj.editor.emacs $B$K$b?6$l$PNI$+$C$?$+$b$7$l$J$$!#(B
iida>  $B@5$7$$$d$jJ}$,$b$7H=$C$?$i%/%m%9%]%9%H$7$^$9!#(B

  $B$H$$$&Lu$G(B fj.editor.emacs $B$K$b%/%m%9%]%9%H$G$9!#(B

  replace.el $B$N(B perform-replace $B4X?t$r%Q%/$C$F=q$-D>$7$?%U%C%/$G$9!#(B
buffer-menu-mode-hook $B$NCf$KF~$l$k4X?t$K$7$F$_$^$7$?!#(B

  $B$*3Z$7$_$/$@$5$$!#(BHave fun and a happy hacking!

(defun buffer-menu-unexpand-home-directory ()
  "Replace the full pathname of your home directory into \"~/\" in buffer menu."
  (let ((buffer-read-only nil)
(case-fold-search nil)
(case-replace nil)
(keep-going t)
lastrepl); Position after last match considered.
    (save-excursion
      (save-restriction
(goto-char (point-min))
(while (and keep-going
    (not (eobp))
    (re-search-forward
     (concat "\\(\\s-\\)"
     (regexp-quote (expand-file-name "~/")))
     nil t))
  ;; Don't replace the null string 
  ;; right after end of previous replacement.
  (if (eq lastrepl (point))
      (forward-char 1)
    (replace-match "\\1~/" t nil)
    (setq lastrepl (point))))))))
--
GNU's Not UNIX.  UNG's Not GNU.  IIDA, Yosiaki the Epigonen of RMS.

==========================================================================
IIDA, Yosiaki                            E-mail: iida@secom-sis.co.jp
SECOM zyouhou sisutemu kabusiki gaisya    phone: +81-3(5434)6433
141 Toukyou-to Sinagawa-ku Nisigotanda      FAX: +81-3(5434)6453
2-30-4 BR-Gotanda-Bldg
JAPAN
==========================================================================
