home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / utils / highligh.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  3.0 KB  |  44 lines
  1. ;;; compiled by jwz@thalidomide on Tue Jan 19 04:19:18 1993
  2. ;;; from file /u/jwz/emacs19/lisp/utils/highlight-headers.el
  3. ;;; emacs version 19.4.1 Lucid.
  4. ;;; bytecomp version 2.09; 16-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!¼ä┬┴!ê└├!¼ä┬├!ê└─!¼ä┬─!ê└┼!¼ä┬┼!ê╞┴!¼à╟╚┴\"ê╞├!¼à╟╔├\"ê╞─!¼Ü╟├─\"ê─╩╦ ╧╨╤ %ê+╞┼!¼à╟╔┼\"ê╦ç" [find-face message-headers make-face message-header-contents message-highlighted-header-contents message-cited-text face-differs-from-default-p copy-face bold italic t nil screen underline-p face set-face-1 underline 7] 6)
  14. (defvar highlight-headers-regexp "Subject[     ]*:" "\
  15. *The headers whose contents should be emphasized more.
  16. The contents of these headers will be displayed in the face 
  17. `message-highlighted-header-contents' instead of `message-header-contents'.")
  18. (defvar highlight-headers-citation-regexp "^[     ]*[A-Z]*[]}<>|][     ]*" "\
  19. *The pattern to match cited text.
  20. Text in the body of a message which matches this will be displayed in
  21. the face `message-cited-text'.")
  22. (defvar highlight-headers-citation-header-regexp (concat "^In article\\|^In message\\|" "^[^     ].*\\(writes\\|wrote\\|said\\):\n[     ]*[A-Z]*[]}<>|]") "\
  23. *The pattern to match the prolog of a cited block.
  24. Text in the body of a message which matches this will be displayed in
  25. the `message-headers' face.")
  26. (fset 'highlight-headers #[(start end hack-sig) "└┬┬┼╞p$êèî~ê    ½æèbê╩╦╠#½â`)}êbêm¼Θg═U¼Σ╬╧!½╞╨╤ö╤ò\"╥ ╙\"ê╘ ╒\"ê╤ò╬!½û╫┬ê╨ `\"╥     \"ê╘ ╒\"ꬬ└┬ê╨ `\"╥     \"ê╘ ╒\"ê¬ö`┬ê╨ `\"╥     \"ê╘ ╒\"ê╪yê¬m?¡╦½½╬!½ò╤òbêè╤yê┬╬█!*¼ö▄¬É½î╬!½ä╙¬é┬    ½ö`┬ê╨ `\"╥     \"ê╘ ╒\"ê╪yê¬1-ç" [message-header-contents current nil e p map-extents #[(extent ignore) "└    !┬=¡â├    !ç" [extent-data extent headers delete-extent] 2] start end hack-sig re-search-backward "\n--+ *\n" t 10 looking-at "^[^     \n]+[     ]*:" make-extent 0 set-extent-face message-headers set-extent-data headers highlight-headers-regexp message-highlighted-header-contents 1 highlight-headers-citation-regexp case-fold-search "^>From " message-cited-text highlight-headers-citation-header-regexp] 5 "\
  27. Highlight message headers between start and end.
  28. Faces used:
  29.   message-headers            the part before the colon
  30.   message-header-contents        the part after the colon
  31.   message-highlighted-header-contents    contents of \"special\" headers
  32.   message-cited-text            quoted text from other messages
  33.  
  34. Variables used:
  35.  
  36.   highlight-headers-regexp            what makes a \"special\" header
  37.   highlight-headers-citation-regexp        matches lines of quoted text
  38.   highlight-headers-citation-header-regexp    matches headers for quoted text
  39.  
  40. If HACK-SIG is true,then we search backward from END for something that
  41. looks like the beginning of a signature block, and don't consider that a
  42. part of the message (this is because signatures are often incorrectly
  43. interpreted as cited text.)"])
  44.