home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / fj / editor / emacs / 1356 < prev    next >
Encoding:
Internet Message Format  |  1992-12-29  |  2.4 KB
  1. Xref: sparky fj.editor.emacs:1356 fj.sources:927
  2. Newsgroups: fj.editor.emacs,fj.sources
  3. Path: sparky!uunet!stanford.edu!sun-barr!sh.wide!wnoc-kyo!kuis!kubotaj!kubotaj!kazushi
  4. From: kazushi@kubota.co.jp (Kazushi (Jam) Marukawa)
  5. Subject: jam-zcat.el-1.42 patch (Re: jam-zcat.el-1.41 patch)
  6. Organization: Computer Development Engineering Dept., Kubota Co.
  7. Distribution: fj
  8. Date: Tue, 29 Dec 1992 09:47:59 GMT
  9. Message-ID: <KAZUSHI.92Dec29184800@nekobus.kubota.co.jp>
  10. In-Reply-To: kazushi@kubota.co.jp's message of Tue, 29 Dec 1992 06:12:01 GMT
  11. References: <KAZUSHI.92Dec22222821@shado.kubota.co.jp>
  12.     <KAZUSHI.92Dec29151206@shado.kubota.co.jp>
  13. Sender: news@kubotaj.tt.kubota.co.jp (News System)
  14. Nntp-Posting-Host: nekobus
  15. Lines: 49
  16.  
  17.  
  18. $B$7$/$7$/!"!"!"(B;_;
  19. loadablep$B$N<~$j$K%P%0$,;D$C$F$*$j$^$7$F!"99$K(B$B0J2<$N%Q%C%A$rEv$F$F2<$5$$!#(B
  20.  
  21. P.S.
  22. ange-ftp$B$H0l=o$K;H$&$H!"(Bautoload$B$,CY$/$J(B$B$j$^$9!#2?8N$G$7$g$&$+!)(B
  23.  
  24.  
  25. $BG/$b=*$o$j$H$$$&$N$K!"?'!9$H$*$5$,$o$;$7$^(B$B$7$?!#$_$J$5$sNI$$$*G/$r!#(B
  26.  
  27. -- $B$+$:$7(B
  28.  
  29. *** 1.41    1992/12/29 03:48:14
  30. --- jam-zcat.el    1992/12/29 09:04:53
  31. ***************
  32. *** 2,8 ****
  33.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  34.   ;;
  35.   ;; File:         jam-zcat.el
  36. ! ;; RCS:          $Id: jam-zcat.el,v 1.41 1992/12/29 03:48:14 kazushi Exp $
  37.   ;; Description:  simple file access through SOME PROGRAMS from GNU Emacs
  38.   ;; Author:       Kazushi Jam Marukawa, kazushi@kubota.co.jp
  39.   ;; Created:      Fri Jan  4 12:29:21 JST 1991
  40. --- 2,8 ----
  41.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  42.   ;;
  43.   ;; File:         jam-zcat.el
  44. ! ;; RCS:          $Id: jam-zcat.el,v 1.42 1992/12/29 09:04:52 kazushi Exp $
  45.   ;; Description:  simple file access through SOME PROGRAMS from GNU Emacs
  46.   ;; Author:       Kazushi Jam Marukawa, kazushi@kubota.co.jp
  47.   ;; Created:      Fri Jan  4 12:29:21 JST 1991
  48. ***************
  49. *** 536,542 ****
  50.         (let ((file (expand-file-name str dir)))
  51.           (mapcar
  52.            '(lambda (ext)
  53. !         (if (file-readable-p (concat file ext))
  54.               (throw 'exit (concat file ext))))
  55.            (if nosuffix
  56.            '(nil)
  57. --- 536,543 ----
  58.         (let ((file (expand-file-name str dir)))
  59.           (mapcar
  60.            '(lambda (ext)
  61. !         (if (and (not (file-directory-p (concat file ext)))
  62. !              (file-readable-p (concat file ext)))
  63.               (throw 'exit (concat file ext))))
  64.            (if nosuffix
  65.            '(nil)
  66.