home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / man-enh.patch / text0000.txt < prev   
Encoding:
Text File  |  1990-07-22  |  6.1 KB  |  180 lines
  1. In article <9004052251.AA19736@zurich.ai.mit.edu> arthur@ZURICH.AI.MIT.EDU (Arthur Gleckler) writes:
  2.  
  3.    Here is a one-line change suggestion that would make M-x manual-entry
  4.    MUCH nicer:
  5.  
  6.    The line in the definition of manual-entry which reads
  7.  
  8.      (with-output-to-temp-buffer "*Manual Entry*"
  9.  
  10.    could be changed to
  11.  
  12.      (with-output-to-temp-buffer (concat "*" topic " Manual Entry*")
  13.  
  14. Along these lines are some modifications for man.el that I am using.  One
  15. of the fixes is to name manual buffers more nicely.  The other is a big
  16. improvement in removing excess nroff-produced headers and footers from
  17. manual pages.  I'm including these modifications after my signature.
  18.  
  19. -- 
  20. Joe Wells <jbw@bu.edu>
  21. jbw%bucsf.bu.edu@cs.bu.edu
  22. ...!harvard!bu-cs!bucsf!jbw
  23. ----------------------------------------------------------------------
  24. *** /usr14/gnu/dist-18.55/lisp/man.el    Tue Jul  4 20:27:21 1989
  25. --- man.el    Fri Apr  6 17:58:04 1990
  26. ***************
  27. *** 18,23 ****
  28. --- 18,33 ----
  29.   ;; file named COPYING.  Among other things, the copyright notice
  30.   ;; and this notice must be preserved on all copies.
  31.   
  32. + ;; Modifications by mdb (whoever that is!)
  33. + ;; More mods by Joe Wells <jbw@bu.edu>
  34. + ;; Added better choice of buffer name so we don't erase previous man page.
  35. + ;; Added better stripping of headers and footers.
  36. + 
  37. + (defconst manual-entry-prefix-topic t "\
  38. + *Non-nil means M-x manual-entry should output the manual entry for TOPIC into
  39. +  a buffer named *TOPIC Manual Entry*, otherwise, it should name the buffer
  40. +  *Manual Entry*.")
  41. + 
  42.   (defun manual-entry (topic &optional section)
  43.     "Display the Unix manual entry for TOPIC.
  44.   TOPIC is either the title of the entry, or has the form TITLE(SECTION)
  45. ***************
  46. *** 29,35 ****
  47.                        (match-end 2))
  48.           topic (substring topic (match-beginning 1)
  49.                      (match-end 1))))
  50. !   (with-output-to-temp-buffer "*Manual Entry*"
  51.       (buffer-flush-undo standard-output)
  52.       (save-excursion
  53.         (set-buffer standard-output)
  54. --- 39,49 ----
  55.                        (match-end 2))
  56.           topic (substring topic (match-beginning 1)
  57.                      (match-end 1))))
  58. ! ;; \(with-output-to-temp-buffer "*Manual Entry*" ;; original line
  59. !   (with-output-to-temp-buffer                    ;; added by mdb
  60. !       (if manual-entry-prefix-topic             ;; added by mdb
  61. !       (concat "*" topic " Manual Entry*")    ;; added by mdb
  62. !     "*Manual Entry*")                      ;; added by mdb
  63.       (buffer-flush-undo standard-output)
  64.       (save-excursion
  65.         (set-buffer standard-output)
  66. ***************
  67. *** 85,96 ****
  68.             (end-of-line)
  69.             (error (buffer-substring 1 (point)))))))
  70.   
  71. -       (message "Cleaning manual entry for %s..." topic)
  72. -       (nuke-nroff-bs)
  73.         (set-buffer-modified-p nil)
  74.         (message ""))))
  75.   
  76. ! ;; Hint: BS stands form more things than "back space"
  77.   (defun nuke-nroff-bs ()
  78.     (interactive "*")
  79.     ;; Nuke underlining and overstriking (only by the same letter)
  80. --- 99,108 ----
  81.             (end-of-line)
  82.             (error (buffer-substring 1 (point)))))))
  83.   
  84.         (set-buffer-modified-p nil)
  85.         (message ""))))
  86.   
  87. ! ;; Hint: BS stands for more things than "back space"
  88.   (defun nuke-nroff-bs ()
  89.     (interactive "*")
  90.     ;; Nuke underlining and overstriking (only by the same letter)
  91. ***************
  92. *** 108,135 ****
  93.            ;; \b_
  94.            (delete-region (1- (point)) (1+ (point)))))))
  95.   
  96. !   ;; Nuke headers: "MORE(1) UNIX Programmer's Manual MORE(1)"
  97.     (goto-char (point-min))
  98. !   (while (re-search-forward "^ *\\([A-Za-z][-_A-Za-z0-9]*([0-9A-Z]+)\\).*\\1$" nil t)
  99. !     (replace-match ""))
  100.     
  101. !   ;; Nuke footers: "Printed 12/3/85    27 April 1981    1"
  102. !   ;;    Sun appear to be on drugz:
  103. !   ;;     "Sun Release 3.0B  Last change: 1 February 1985     1"
  104. !   ;;    HP are even worse!
  105. !   ;;     "     Hewlett-Packard   -1- (printed 12/31/99)"  FMHWA12ID!!
  106. !   ;;    System V (well WICATs anyway):
  107. !   ;;     "Page 1              (printed 7/24/85)"
  108. !   ;;    Who is administering PCP to these corporate bozos?
  109.     (goto-char (point-min))
  110. !   (while (re-search-forward
  111. !        (cond ((eq system-type 'hpux)
  112. !           "^[ \t]*Hewlett-Packard\\(\\| Company\\)[ \t]*- [0-9]* -.*$")
  113. !          ((eq system-type 'usg-unix-v)
  114. !           "^ *Page [0-9]*.*(printed [0-9/]*)$")
  115. !          (t
  116. !           "^\\(Printed\\|Sun Release\\) [0-9].*[0-9]$"))
  117. !        nil t)
  118.       (replace-match ""))
  119.   
  120.     ;; Crunch blank lines
  121. --- 120,151 ----
  122.            ;; \b_
  123.            (delete-region (1- (point)) (1+ (point)))))))
  124.   
  125. !   ;; Zap headers and footers
  126. ! 
  127. !   ;; Note: this handles all kinds of headers and footers.  It determines
  128. !   ;; where the page breaks are by checking for the man-page name in the
  129. !   ;; first column.  There is no longer any need to add code to handle
  130. !   ;; specific headers and footers.
  131. ! 
  132.     (goto-char (point-min))
  133. !   (cond ((looking-at "\n*\\([A-Za-z][-_A-Za-z0-9.]*([0-9A-Z]+)\\)")
  134. !      (setq man-page-name (buffer-substring (match-beginning 1)
  135. !                            (match-end 1)))
  136. !      (setq target (concat "\n\n.+\n\n+" man-page-name ".*\n\n"))
  137. !      (while (re-search-forward target nil t)
  138. !        ;;(setq begin (match-beginning 0) end (match-end 0))
  139. !        (replace-match
  140. !         (progn
  141. !           (goto-char (1- (match-beginning 0)))
  142. !           (if (not (eq (char-after (point)) ?.))
  143. !           "\n"
  144. !         "\n\n"))
  145. !         t t))))
  146.     
  147. !   ;; Zap ESC7,  ESC8, and ESC9
  148. !   ;; This is for Sun man pages like "man 1 csh"
  149.     (goto-char (point-min))
  150. !   (while (re-search-forward "\e[789]" nil t)
  151.       (replace-match ""))
  152.   
  153.     ;; Crunch blank lines
  154. ***************
  155. *** 144,149 ****
  156. --- 160,166 ----
  157.   
  158.   
  159.   (defun insert-man-file (name)
  160. +   (narrow-to-region (point) (point))
  161.     ;; Insert manual file (unpacked as necessary) into buffer
  162.     (if (or (equal (substring name -2) ".Z")
  163.         (string-match "/cat[0-9][a-z]?\\.Z/" name))
  164. ***************
  165. *** 150,153 ****
  166.         (call-process "zcat" name t nil)
  167.       (if (equal (substring name -2) ".z")
  168.       (call-process "pcat" nil t nil name)
  169. !       (insert-file-contents name))))
  170. --- 167,173 ----
  171.         (call-process "zcat" name t nil)
  172.       (if (equal (substring name -2) ".z")
  173.       (call-process "pcat" nil t nil name)
  174. !       (insert-file-contents name)))
  175. !   (message "Cleaning manual entry for %s..." topic)
  176. !   (nuke-nroff-bs)
  177. !   (widen))
  178.  
  179.  
  180.