🚀 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?

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

-----------
diff -cv /home/dodd/lisp/info-v19.el.\~1\~ /home/dodd/lisp/info-v19.el
GNU diff version 2.0
*** /home/dodd/lisp/info-v19.el.~1~	Wed Jan 27 19:19:26 1993
--- /home/dodd/lisp/info-v19.el	Wed Jan 27 20:08:02 1993
***************
*** 367,376 ****
  			  ;; Insert menu part of the filen=\!f  			  (let* ((pt (point))
  				 (len (nth 1 (insert-file-contents name))))
! 			    (if (search-forward "* menu:" (+ pt len) t)
! 				(progn
! 				  (forward-line 1)
! 				  (delete-region pt (point))))))
  		      (setq d (cdr d)))
  		    ;; Eliminate redundant menu entries.
  		    (goto-char (point-min))
--- 367,378 ----
  			  ;; Insert menu part of the file
  			  (let* ((pt (point))
  				 (len (nth 1 (insert-file-contents name))))
! 			    (progn
! 			      (crypt-find-file-hook)
! 			      (if (search-forward "* menu:" (+ pt len) t)
! 				  (progn
! 				    (forward-line 1)
! 				    (delete-region pt (point)))))))
  		      (setq d (cdr d)))
  		    ;; Eliminate redundant menu entries.
  		    (goto-char (point-min))
***************
*** 582,588 ****
  		(setq buffer-file-name file)
  		(set-buffer-modified-p nil)
  		(clear-visited-file-modtime))))
!       (insert-file-contents file visit))))
  
  (defun Info-select-node ()
    "Select the node that point is in, after using `g *' to select whole file."
--- 584,592 ----
  		(setq buffer-file-name file)
  		(set-buffer-modified-p nil)
  		(clear-visited-file-modtime))))
!       (progn
!         (insert-file-contents file visit)
!         (crypt-find-file-hook)))))
  
  (defun Info-select-node ()
    "Select the node that point is in, after using `g *' to select whole file."

diff exited abnormally with code 1 at Wed Jan 27 20:08:28
-----------

I can't attest for the rigor of this hack. 

Larry