🚀 go-pugleaf

>>>>> "Neal" == Neal Becker <neal@ctd.comsat.com> writes:

    Neal> Sure would like to have it!  I use crypt++ and Dave Gillespie's info
    Neal> version 1.05.  I tried gzip'ing an info, and and changes the localdir
    Neal> to say e.g.,

    Neal> rcs: (rcs.info.z)

    Neal> But it didn't work.  (complained something about node top).

    Neal> Since crypt++ should intercept calls to find-file, I thought this
    Neal> would work.  Anyone have any ideas?

  I-said> the problem is that info.el uses `insert-file-contents' instead of `find-file'
  I-said> to get the file rcs.info.z.  One possible hack is to stick in a call to
  I-said> (crypt-find-file-hook) immediately following the call to
  I-said> `insert-file-contents' like this: ...

sorry, I spoke too soon.  It doesn't need a call to crypt, all that is needed
to get Gillespie's info.el to work with GNU zip files is for `gunzip' to be
added to the Info-suffix-list (I also defined case-fold-search to be `nil' ...
just in case).  Here is a context diff. Again apologizes for firing off the
previous diff too soon.

Larry
dodd@roebling.poly.edu

================================================================================
diff -cv /home/dodd/lisp/info.el-1.05 /home/dodd/lisp/info.el
GNU diff version 2.0
*** /home/dodd/lisp/info.el-1.05	Thu Jan 28 10:26:19 1993
--- /home/dodd/lisp/info.el	Thu Jan 28 10:30:29 1993
***************
*** 220,227 ****
--- 220,229 ----
  else to use Info-directory if it exists.")
  
  (defvar Info-suffix-list '( (".info" . nil)
+ 			    (".z" . "gunzip -c %s")
  			    (".Z" . "uncompress -c %s")
  			    (".Y" . "unyabba")
+ 			    (".info.z" . "gunzip -c %s")
  			    (".info.Z" . "uncompress -c %s")
  			    (".info.Y" . "unyabba") )
    "List of file name suffixes and associated decoding commands.
***************
*** 553,558 ****
--- 555,561 ----
  	 name2)
  	(t
  	 (let ((suff Info-suffix-list)
+ 	       (case-fold-search)
  	       (found nil))
  	   (while (and suff (not found))
  	     (if (file-exists-p (concat name (car (car suff))))
***************
*** 563,569 ****
  	   found))))
  
  (defun Info-insert-file-contents (file &optional visit)
!   (let ((suff Info-suffix-list))
      (while (and suff (or (<= (length file) (length (car (car suff))))
  			 (not (equal (substring file
  						(- (length (car (car suff)))))
--- 566,573 ----
  	   found))))
  
  (defun Info-insert-file-contents (file &optional visit)
!   (let ((suff Info-suffix-list)
! 	(case-fold-search))
      (while (and suff (or (<= (length file) (length (car (car suff))))
  			 (not (equal (substring file
  						(- (length (car (car suff)))))
================================================================================