home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / alt / lucidem / help / 938 < prev    next >
Encoding:
Text File  |  1993-01-24  |  2.6 KB  |  72 lines
  1. x-gateway: rodan.UU.NET from help-lucid-emacs to alt.lucid-emacs.help; Sat, 23 Jan 1993 18:58:46 EST
  2. Message-ID: <199301232347.AA11986@wsrcc.com>
  3. Date: Sat, 23 Jan 1993 23:47:44 GMT
  4. From: wolfgang@wsrcc.com (Wolfgang S. Rupprecht)
  5. Organization: W S Rupprecht Computer Consulting, Fremont CA
  6. References: <9301231628.AA00153@artemis.ora.com>
  7. Subject: Re: Is there useful lemacs elisp available?
  8. Newsgroups: alt.lucid-emacs.help
  9. Path: sparky!uunet!wendy-fate.uu.net!help-lucid-emacs
  10. Sender: help-lucid-emacs-request@lucid.com
  11. Lines: 59
  12.  
  13. david@ora.com (David Flanagan) writes:
  14. >For example, is there a man-page mode for viewing man pages with
  15. >multiple fonts?
  16.  
  17. Load this and then run M-x man.
  18.  
  19. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  20. ;;                                         ;;
  21. ;;    File:     bold.el                             ;;
  22. ;;    Author:   Wolfgang S. Rupprecht <wolfgang@wsrcc.com>             ;;
  23. ;;    Created:  Wed Jun 10 01:13:57 PDT 1992                     ;;
  24. ;;    Contents: >>>Replace this with YOUR description of file contents<<<  ;;
  25. ;;                                         ;;
  26. ;;    Copyright (c) 1992 Wolfgang S. Rupprecht.                 ;;
  27. ;;    Hack this and enjoy it.  Just don't try to sell it or remove
  28. ;;      the copyright.
  29. ;;                                         ;;
  30. ;;    $Header$                                 ;;
  31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  32.  
  33. (provide 'bold)
  34.  
  35. (or (find-face 'ascii-underline) (make-face 'ascii-underline))
  36. (or (find-face 'ascii-overstrike) (make-face 'ascii-overstrike))
  37.  
  38. (if purify-flag  ; being preloaded
  39.     nil
  40.   (or (face-differs-from-default-p 'ascii-underline (selected-screen))
  41.       (copy-face 'bold-italic 'ascii-underline (selected-screen)))
  42.   (or (face-differs-from-default-p 'ascii-overstrike (selected-screen))
  43.       (copy-face 'bold 'ascii-overstrike (selected-screen)))
  44.   )
  45.  
  46. (defun fixup-manual ()
  47.   "Make a Unix man page look spiffy."
  48.   (interactive)
  49.   (save-excursion
  50.     (map-extents (function (lambda (x y) (delete-extent x)))
  51.          (current-buffer) (point-min) (point-max) nil)
  52.     (let (extent
  53.       case-replace)
  54.       (goto-char (point-min))
  55.       (while (re-search-forward "\\(_\C-h.\\)+" nil t)
  56.     (setq extent (make-extent (match-beginning 0) (match-end 0)))
  57.     (set-extent-face extent 'ascii-underline))
  58.       (goto-char (point-min))
  59.       (while (re-search-forward "^[A-Z][A-Z0-9 ()_]+$" nil t)
  60.     (setq extent (make-extent (match-beginning 0) (match-end 0)))
  61.     (set-extent-face extent 'ascii-overstrike))
  62.       (goto-char (point-min))
  63.       (replace-regexp "_\C-h" ""))))
  64.  
  65. (fset 'nuke-nroff-bs 'fixup-manual)
  66. (fset 'Manual-nuke-nroff-bs 'fixup-manual)
  67.  
  68. ;; end
  69. -- 
  70. Wolfgang Rupprecht    wolfgang@wsrcc.com (or) decwrl!wsrcc!wolfgang
  71. Snail Mail:           39469 Gallaudet Drive, Fremont, CA 94538-4511
  72.