home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / patches / man.el.patch < prev    next >
Encoding:
Text File  |  1991-03-30  |  4.5 KB  |  140 lines
  1. Path: utkcs2!emory!wuarchive!cs.utexas.edu!tut.cis.ohio-state.edu!ittc.wec.com!fpb
  2. >From: fpb@ittc.wec.com (Frank P. Bresz)
  3. Newsgroups: gnu.emacs.bug
  4. Subject: man.el patches to 18.55
  5. Date: 17 Aug 90 18:24:53 GMT
  6. Organization: Westinghouse, ITTC, Pgh, PA.
  7.  
  8. In GNU Emacs 18.55.8 of Tue Jul 31 1990 on ittc (berkeley-unix)
  9.  
  10. Here is a patch for man.el
  11.  
  12. It makes the following modifications.
  13.  
  14. 1) The output buffer is named *topic man*.  This was originally sent out on
  15. the net before and I snarfed it up then. Sorry I lost the posters name.  
  16.  
  17. 2) Pops to the appropriate *topic man* buffer if it exists instead of
  18. having to reformat and re-clean the page again.
  19.  
  20. 3) Nukes a little more BS that is created by the Sun man pages.
  21.  
  22. 4) Makes sure the man page is readonly to prevent accidental editing, and
  23. kludges the keymap to do scrolling ala view-mode.
  24.  
  25.  
  26. enjoy
  27.  
  28. +--------------------+
  29. |fbresz@ittc.wec.com |  My opinions are my own, I'm not paid
  30. |uunet!ittc!fbresz   |  enough to make an official statement  
  31. |(412)733-6749       |  +-----------------------------------+
  32. |Fax: (412)733-6444  |  |      THIS SPACE FOR SALE!!!       |
  33. +--------------------+  +-----------------------------------+
  34.  
  35.  
  36. Patch starts here (should be virgin 18.55 I think)
  37.  
  38.  
  39. ------- man.el -------
  40. *** /tmp/da01019    Fri Aug 17 14:23:37 1990
  41. --- man.el    Fri Aug 17 14:23:22 1990
  42. ***************
  43. *** 18,23 ****
  44. --- 18,45 ----
  45.   ;; file named COPYING.  Among other things, the copyright notice
  46.   ;; and this notice must be preserved on all copies.
  47.   
  48. + 
  49. + ;; Added code here to suppress the changes of the man buffers.
  50. + ;;  - fbresz@ittc.wec.com - Aug 17, 1990
  51. + ;; @(#)man.el    1.14
  52. + (defvar man-map nil "Keymap used inside man pages")
  53. + 
  54. + ;; Initialize the keymap if it isn't already
  55. + (if man-map
  56. +     nil
  57. +   (setq man-map (make-keymap))
  58. +   (suppress-keymap man-map)
  59. +   (define-key man-map "?" 'describe-mode)
  60. +   (define-key man-map "." 'beginning-of-buffer)
  61. +   (define-key man-map " " 'scroll-up)
  62. +   (define-key man-map "\177" 'scroll-down)
  63. +   (define-key man-map "\r" '(lambda () (interactive) (scroll-up 1)))
  64. + ;; lambda's in keyboard maps ecchh?!? this is gross but I didn't
  65. + ;; want to create a function because in theory I would want to call it
  66. + ;; man-scroll-up-1 and that would break the fact that I can now type 
  67. + ;; M-x man <CR> and it prompts me for the topic.
  68. + )
  69. + 
  70.   (defun manual-entry (topic &optional section)
  71.     "Display the Unix manual entry for TOPIC.
  72.   TOPIC is either the title of the entry, or has the form TITLE(SECTION)
  73. ***************
  74. *** 29,35 ****
  75.                        (match-end 2))
  76.           topic (substring topic (match-beginning 1)
  77.                      (match-end 1))))
  78. !   (with-output-to-temp-buffer "*Manual Entry*"
  79.       (buffer-flush-undo standard-output)
  80.       (save-excursion
  81.         (set-buffer standard-output)
  82. --- 51,61 ----
  83.                        (match-end 2))
  84.           topic (substring topic (match-beginning 1)
  85.                      (match-end 1))))
  86. !   (if (get-buffer (concat "*" topic (and section (concat " " section)) " man*"))
  87. !       (switch-to-buffer-other-window 
  88. !        (concat "*" topic (and section (concat " " section)) " man*"))
  89. !   (with-output-to-temp-buffer 
  90. !       (concat "*" topic (and section (concat " " section)) " man*")
  91.       (buffer-flush-undo standard-output)
  92.       (save-excursion
  93.         (set-buffer standard-output)
  94. ***************
  95. *** 88,94 ****
  96.         (message "Cleaning manual entry for %s..." topic)
  97.         (nuke-nroff-bs)
  98.         (set-buffer-modified-p nil)
  99. !       (message ""))))
  100.   
  101.   ;; Hint: BS stands form more things than "back space"
  102.   (defun nuke-nroff-bs ()
  103. --- 114,122 ----
  104.         (message "Cleaning manual entry for %s..." topic)
  105.         (nuke-nroff-bs)
  106.         (set-buffer-modified-p nil)
  107. !       (setq buffer-read-only t)
  108. !       (use-local-map man-map)
  109. !       (message "")))))
  110.   
  111.   ;; Hint: BS stands form more things than "back space"
  112.   (defun nuke-nroff-bs ()
  113. ***************
  114. *** 136,141 ****
  115. --- 164,185 ----
  116.     (goto-char (point-min))
  117.     (while (re-search-forward "\n\n\n\n*" nil t)
  118.       (replace-match "\n\n"))
  119. + 
  120. +   ;; Nuke the stupid <ESC>8 <ESC>9 that is generated
  121. +   ;; whereever a ~ appears.  Why does this happen???
  122. +   ;; fpb@ittc.wec.com 1/25/89
  123. +   (if (eq system-type 'berkeley-unix)
  124. +       (progn
  125. +     (goto-char (point-min))
  126. +     (while (re-search-forward "\e[789]" nil t)
  127. +       (replace-match ""))))
  128. + 
  129. +   ;; Nuke the dumb reformatting message
  130. +   (if (eq system-type 'berkeley-unix)
  131. +       (progn
  132. +     (goto-char (point-min))
  133. +     (while (re-search-forward "Reformatting page.  Wait... done\n\n" nil t)
  134. +       (replace-match ""))))
  135.   
  136.     ;; Nuke blanks lines at start.
  137.     (goto-char (point-min))
  138.  
  139.  
  140.