home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / gnu / emacs / help / 5530 < prev    next >
Encoding:
Text File  |  1993-01-28  |  2.9 KB  |  87 lines
  1. Path: sparky!uunet!uunet.ca!canrem!telly!utzoo!torn!cs.utexas.edu!uwm.edu!linac!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: 27 Jan 1993 20:24:10 -0500
  6. Organization: Gatewayed from the GNU Project mailing list help-gnu-emacs@prep.ai.mit.edu
  7. Lines: 74
  8. Sender: daemon@cis.ohio-state.edu
  9. Distribution: world
  10. Message-ID: <9301280119.AA22826@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. the problem is that info.el uses `insert-file-contents' instead of `find-file'
  28. to get the file rcs.info.z.  One possible hack is to stick in a call to
  29. (crypt-find-file-hook) immediately following the call to
  30. `insert-file-contents' like this:
  31.  
  32. -----------
  33. diff -cv /home/dodd/lisp/info-v19.el.\~1\~ /home/dodd/lisp/info-v19.el
  34. GNU diff version 2.0
  35. *** /home/dodd/lisp/info-v19.el.~1~    Wed Jan 27 19:19:26 1993
  36. --- /home/dodd/lisp/info-v19.el    Wed Jan 27 20:08:02 1993
  37. ***************
  38. *** 367,376 ****
  39.                 ;; Insert menu part of the filen=\!f                (let* ((pt (point))
  40.                    (len (nth 1 (insert-file-contents name))))
  41. !                 (if (search-forward "* menu:" (+ pt len) t)
  42. !                 (progn
  43. !                   (forward-line 1)
  44. !                   (delete-region pt (point))))))
  45.                 (setq d (cdr d)))
  46.               ;; Eliminate redundant menu entries.
  47.               (goto-char (point-min))
  48. --- 367,378 ----
  49.                 ;; Insert menu part of the file
  50.                 (let* ((pt (point))
  51.                    (len (nth 1 (insert-file-contents name))))
  52. !                 (progn
  53. !                   (crypt-find-file-hook)
  54. !                   (if (search-forward "* menu:" (+ pt len) t)
  55. !                   (progn
  56. !                     (forward-line 1)
  57. !                     (delete-region pt (point)))))))
  58.                 (setq d (cdr d)))
  59.               ;; Eliminate redundant menu entries.
  60.               (goto-char (point-min))
  61. ***************
  62. *** 582,588 ****
  63.           (setq buffer-file-name file)
  64.           (set-buffer-modified-p nil)
  65.           (clear-visited-file-modtime))))
  66. !       (insert-file-contents file visit))))
  67.   
  68.   (defun Info-select-node ()
  69.     "Select the node that point is in, after using `g *' to select whole file."
  70. --- 584,592 ----
  71.           (setq buffer-file-name file)
  72.           (set-buffer-modified-p nil)
  73.           (clear-visited-file-modtime))))
  74. !       (progn
  75. !         (insert-file-contents file visit)
  76. !         (crypt-find-file-hook)))))
  77.   
  78.   (defun Info-select-node ()
  79.     "Select the node that point is in, after using `g *' to select whole file."
  80.  
  81. diff exited abnormally with code 1 at Wed Jan 27 20:08:28
  82. -----------
  83.  
  84. I can't attest for the rigor of this hack. 
  85.  
  86. Larry
  87.