home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / gnu / emacs / help / 5552 < prev    next >
Encoding:
Text File  |  1993-01-28  |  3.2 KB  |  88 lines
  1. Path: sparky!uunet!pipex!bnr.co.uk!bnrgate!nott!torn!spool.mu.edu!darwin.sura.net!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!cis.ohio-state.edu!roebling.poly.edu!dodd
  2. From: dodd@roebling.poly.edu (Lawrence R. Dodd)
  3. Newsgroups: gnu.emacs.help
  4. Subject: Compressed Info??
  5. Date: 28 Jan 1993 10:39:08 -0500
  6. Organization: Gatewayed from the GNU Project mailing list help-gnu-emacs@prep.ai.mit.edu
  7. Lines: 75
  8. Sender: daemon@cis.ohio-state.edu
  9. Distribution: world
  10. Message-ID: <9301281535.AA23705@roebling.poly.edu>
  11. Reply-To: dodd@roebling.poly.edu
  12.  
  13.  
  14. >>>>> "Neal" == Neal Becker <neal@ctd.comsat.com> writes:
  15.  
  16.     Neal> Sure would like to have it!  I use crypt++ and Dave Gillespie's info
  17.     Neal> version 1.05.  I tried gzip'ing an info, and and changes the localdir
  18.     Neal> to say e.g.,
  19.  
  20.     Neal> rcs: (rcs.info.z)
  21.  
  22.     Neal> But it didn't work.  (complained something about node top).
  23.  
  24.     Neal> Since crypt++ should intercept calls to find-file, I thought this
  25.     Neal> would work.  Anyone have any ideas?
  26.  
  27.   I-said> the problem is that info.el uses `insert-file-contents' instead of `find-file'
  28.   I-said> to get the file rcs.info.z.  One possible hack is to stick in a call to
  29.   I-said> (crypt-find-file-hook) immediately following the call to
  30.   I-said> `insert-file-contents' like this: ...
  31.  
  32. sorry, I spoke too soon.  It doesn't need a call to crypt, all that is needed
  33. to get Gillespie's info.el to work with GNU zip files is for `gunzip' to be
  34. added to the Info-suffix-list (I also defined case-fold-search to be `nil' ...
  35. just in case).  Here is a context diff. Again apologizes for firing off the
  36. previous diff too soon.
  37.  
  38. Larry
  39. dodd@roebling.poly.edu
  40.  
  41. ================================================================================
  42. diff -cv /home/dodd/lisp/info.el-1.05 /home/dodd/lisp/info.el
  43. GNU diff version 2.0
  44. *** /home/dodd/lisp/info.el-1.05    Thu Jan 28 10:26:19 1993
  45. --- /home/dodd/lisp/info.el    Thu Jan 28 10:30:29 1993
  46. ***************
  47. *** 220,227 ****
  48. --- 220,229 ----
  49.   else to use Info-directory if it exists.")
  50.   
  51.   (defvar Info-suffix-list '( (".info" . nil)
  52. +                 (".z" . "gunzip -c %s")
  53.                   (".Z" . "uncompress -c %s")
  54.                   (".Y" . "unyabba")
  55. +                 (".info.z" . "gunzip -c %s")
  56.                   (".info.Z" . "uncompress -c %s")
  57.                   (".info.Y" . "unyabba") )
  58.     "List of file name suffixes and associated decoding commands.
  59. ***************
  60. *** 553,558 ****
  61. --- 555,561 ----
  62.        name2)
  63.       (t
  64.        (let ((suff Info-suffix-list)
  65. +            (case-fold-search)
  66.              (found nil))
  67.          (while (and suff (not found))
  68.            (if (file-exists-p (concat name (car (car suff))))
  69. ***************
  70. *** 563,569 ****
  71.          found))))
  72.   
  73.   (defun Info-insert-file-contents (file &optional visit)
  74. !   (let ((suff Info-suffix-list))
  75.       (while (and suff (or (<= (length file) (length (car (car suff))))
  76.                (not (equal (substring file
  77.                           (- (length (car (car suff)))))
  78. --- 566,573 ----
  79.          found))))
  80.   
  81.   (defun Info-insert-file-contents (file &optional visit)
  82. !   (let ((suff Info-suffix-list)
  83. !     (case-fold-search))
  84.       (while (and suff (or (<= (length file) (length (car (car suff))))
  85.                (not (equal (substring file
  86.                           (- (length (car (car suff)))))
  87. ================================================================================
  88.