home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / fill.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  3.1 KB  |  36 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:42:50 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/fill.el
  3. ;;; emacs version 19.4 (Win-Emacs 1.00.04 beta).
  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. (fset 'set-fill-prefix #[nil "è└yê`)`{ë┬ܽé├    ½à─┼    \"ç─╞!ç" [0 fill-prefix "" nil message "fill-prefix: \"%s\"" "fill-prefix cancelled"] 4 "\
  14. Set the fill-prefix to the current line up to point.
  15. Filling expects lines to start with the fill prefix
  16. and reinserts the fill prefix in each resulting line." nil])
  17. (fset 'fill-region-as-paragraph #[(from to &optional justify-flag) "î    }êebê┬├wê`d}ê`dbê ¡ë ┼Ü?¡â╞ !ë½│ GY½ä╔╩!êebê╦yêm¼É╠!½à`═ò|ê╦yê¬mebê╠!½ä Guê`)bê╬╧├╨#½à╤cê¬t╥d╙╤$êbê╘├wê╥`d╒╤$ê╬╓├╨#½ÿ═öè╫├xêh╪>)½â┘¬ü╦\\═ò|ê¬adbê┌ ê█cêebê═m?¡╥▌T!êm¼£▐├xê═U½ân¬äiY½å▐├wê¬â▀uêα├xê╙cê┌ êm¼Ä ½ï ┼ܼå cêi!½8m¼5▀yêΓ ê╦yê¬**ç" [from to "\n" nil fill-prefix "" regexp-quote fpre fill-column error "fill-prefix too long for specified width" 1 looking-at 0 re-search-forward "[.?!][])\"']*$" t 32 subst-char-in-region 10 "     " 9 "   *" " ])\"'" (46 63 33) 2 delete-horizontal-space "  " prefixcol move-to-column "^ \n" -1 " " justify-flag justify-current-line] 6 "\
  18. Fill region as one paragraph: break lines to fit fill-column.
  19. Prefix arg means justify too.
  20. From program, pass args FROM, TO and JUSTIFY-FLAG." "r\nP"])
  21. (fset 'fill-paragraph #[(arg) "è└ ên¼ä┴┬!ê`─ ê┼` #*ç" [forward-paragraph newline 1 end backward-paragraph fill-region-as-paragraph arg] 4 "\
  22. Fill paragraph at or after point.
  23. Prefix arg means justify as well." "P"])
  24. (fset 'fill-region #[(from to &optional justify-flag) "î    }êebêm?¡á`┬├!ê`┬╞!ê`Y½ë╟` #ê¬â bê*¬\\)ç" [from to forward-paragraph 1 end initial -1 fill-region-as-paragraph justify-flag] 4 "\
  25. Fill each of the paragraphs in the region.
  26. Prefix arg (non-nil third arg, if called from program)
  27. means justify as well." "r\nP"])
  28. (fset 'justify-current-line #[nil "èî└ë├yê Guê┼└wê`└ê    `}ê    bê╞╟└╚#½ÿ├öè╔└xêh╩>)½â╦¬ü╠\\├ò|ê¬a    bê╞═└╚#½ê╬uê╧cê¬qdbêiZ GZ╤╥└╚#¡╣\n├V¡┤╙╘!╘\\ë├V½Ü╤╥└╚#¼çdbê╤╥!ê╥└xêSë¬b)╥cê╥└xê\nSë¬H,ç" [nil beg ncols 0 fill-prefix "     " re-search-forward "   *" t " ])\"'" (46 63 33) 2 1 "[.?!][])\"']*\n" -1 32 fill-column search-backward " " random 3 nmove] 5 "\
  29. Add spaces to line point is in, so it ends at fill-column." nil])
  30. (fset 'fill-individual-paragraphs #[(min max &optional justifyp mailp) "└îè\n }êebê─└wêm?¡╕`┼yê`{è╞ ê`)`    ½ì╩╦╠#½à═yê¬s`U½î╬`#êbê*¬@+ç" [nil fill-prefix min max "     \n" 0 forward-paragraph start fin mailp re-search-forward "^[     ]*[^     \n]*:" t 1 fill-region-as-paragraph justifyp] 4 "\
  31. Fill each paragraph in region according to its individual fill prefix.
  32. Calling from a program, pass range to fill as first two arguments.
  33. Optional third and fourth arguments JUSTIFY-FLAG and MAIL-FLAG:
  34. JUSTIFY-FLAG to justify paragraphs (prefix arg),
  35. MAIL-FLAG for a mail message, i. e. don't fill header lines." "r\nP"])
  36.