Newsgroups: fj.editor.emacs,fj.sources
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo!kuis!kubotaj!kubotaj!kazushi
From: kazushi@kubota.co.jp (Kazushi (Jam) Marukawa)
Subject: jam-zcat.el-1.42 patch (Re: jam-zcat.el-1.41 patch)
Organization: Computer Development Engineering Dept., Kubota Co.
Distribution: fj
Date: Tue, 29 Dec 1992 09:47:59 GMT
Message-ID: <KAZUSHI.92Dec29184800@nekobus.kubota.co.jp>
In-Reply-To: kazushi@kubota.co.jp's message of Tue, 29 Dec 1992 06:12:01 GMT
References: <KAZUSHI.92Dec22222821@shado.kubota.co.jp>
	<KAZUSHI.92Dec29151206@shado.kubota.co.jp>
Sender: news@kubotaj.tt.kubota.co.jp (News System)
Nntp-Posting-Host: nekobus
Lines: 49
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3401 fj.sources:2897
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3401&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$7$/$7$/!"!"!"(B;_;
loadablep$B$N<~$j$K%P%0$,;D$C$F$*$j$^$7$F!"99$K0J2<$N%Q%C%A$rEv$F$F2<$5$$!#(B

P.S.
ange-ftp$B$H0l=o$K;H$&$H!"(Bautoload$B$,CY$/$J$j$^$9!#2?8N$G$7$g$&$+!)(B


$BG/$b=*$o$j$H$$$&$N$K!"?'!9$H$*$5$,$o$;$7$^$7$?!#$_$J$5$sNI$$$*G/$r!#(B

-- $B$+$:$7(B

*** 1.411992/12/29 03:48:14
--- jam-zcat.el1992/12/29 09:04:53
***************
*** 2,8 ****
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;
  ;; File:         jam-zcat.el
! ;; RCS:          $Id: jam-zcat.el,v 1.41 1992/12/29 03:48:14 kazushi Exp $
  ;; Description:  simple file access through SOME PROGRAMS from GNU Emacs
  ;; Author:       Kazushi Jam Marukawa, kazushi@kubota.co.jp
  ;; Created:      Fri Jan  4 12:29:21 JST 1991
--- 2,8 ----
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;
  ;; File:         jam-zcat.el
! ;; RCS:          $Id: jam-zcat.el,v 1.42 1992/12/29 09:04:52 kazushi Exp $
  ;; Description:  simple file access through SOME PROGRAMS from GNU Emacs
  ;; Author:       Kazushi Jam Marukawa, kazushi@kubota.co.jp
  ;; Created:      Fri Jan  4 12:29:21 JST 1991
***************
*** 536,542 ****
    (let ((file (expand-file-name str dir)))
      (mapcar
       '(lambda (ext)
! (if (file-readable-p (concat file ext))
      (throw 'exit (concat file ext))))
       (if nosuffix
   '(nil)
--- 536,543 ----
    (let ((file (expand-file-name str dir)))
      (mapcar
       '(lambda (ext)
! (if (and (not (file-directory-p (concat file ext)))
!  (file-readable-p (concat file ext)))
      (throw 'exit (concat file ext))))
       (if nosuffix
   '(nil)
