home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / modes / c-fill.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  3.2 KB  |  39 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:30:19 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/modes/c-fill.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  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. (defvar c-comment-starting-blank t "\
  14. *Controls whether global comments have an initial blank line.")
  15. (defvar c-comment-indenting t "\
  16. *If set global comments are indented to the level of the previous line.")
  17. (defvar c-comment-hanging-indent t "\
  18. *If true, comments will be automatically indented to the dash.")
  19. (defvar c-hang-already-done t "\
  20. If true we have performed the haning indent already for this comment.")
  21. (defvar c-comment-mode-map nil "\
  22. Keymap used in C comment mode.")
  23. (byte-code "¼û┴\n!├─┼#ê├╞╟#ê├╚╔#ê┴ç" [c-comment-mode-map copy-keymap c-mode-map define-key "
  24. " newline "q" set-fill-and-fill "
  25. " set-fill-and-return] 4)
  26. (fset 'c-comment #[nil "½â┴¬ü┬├─
  27. ╞ëëë    \n  
  28. è╬╧╨├#¡ç``╤\\{╥ÿ)╞╒!ê¼▓╫ ê╪cê┘`!    ┌ ê`è╨yê█╥├#)½îi▄\\▌X½à▐cê¬â▀cê╫ ê¬Æ┘`!    ┌ ê█αß ├#êΓyê#½┤è`Σyê█╥├#½ê█α├#¼£σ╥!êµ ├#ê┘`!    τΦ!¼åΘ    ▒ê)╫ ê╒*!.ç" [c-comment-indenting do-indented-auto-fill do-auto-fill t "/*\\*+[     ]*" paragraph-start nil opoint paragraph-separate fill-prefix paragraph-start-ref comment-start-skip comment-multi-line auto-fill-function re-search-backward "/\\*\\|\\*/" 0 2 "/*" in-comment c-hang-already-done use-local-map c-comment-mode-map c-indent-line "/* " get-current-fill recursive-edit search-forward 3 79 " */" "\n*/" "*/" buffer-size 1 c-comment-starting-blank -1 search-backward re-search-forward looking-at "\n" 10 c-mode-map] 8 "\
  29. Edit a C comment with filling and indentation.
  30. This performs hanging indentation, symmetric placement of delimiters,
  31.  and Indented-Text mode style indentation.  Type 'M-x apropos
  32. c-comment' for information on options." nil])
  33. (fset 'set-fill-and-fill #[(arg) "└`!┬ !ç" [get-current-fill fill-prefix fill-paragraph arg] 2 "\
  34. Get the fill-prefix and fill the current paragraph." "P"])
  35. (fset 'set-fill-and-return #[nil "½ä┴`!├\n▒ç" [c-comment-indenting get-current-fill fill-prefix 10] 2 "\
  36. Set the current fill prefix and move to the next line." nil])
  37. (fset 'do-indented-auto-fill #[nil "`è┴\nT!ê├─xên½å┼╞╟#êè╚─xên)?¡è╔!\n╦\n▒*ç" [opoint move-to-column fill-column "^     \n" nil re-search-forward "[     ]" t "     " get-current-fill fill-prefix 10] 4 "\
  38. Perform auto-fill, but get fill-prefix first."])
  39. (fset 'get-current-fill #[(pnt) "┴ëè┼yê`╞ ╚#ê`{ëëGS GOë╔ÿ¼ë\n╩ÿ¼ä ╔P╦ ╠╔#
  40. ½ª¼ó`┴ê`┼yê╤╥╚#½ì ╙`Z╘\"P╚*╓╫ ┼ GSO!╪Rë) +ç" [pnt nil last-char fill opoint 0 re-search-forward comment-start-skip t " " "    " replace-letter "/" c-comment-hanging-indent c-hang-already-done opnt curr search-forward " - " make-string 32 paragraph-start-ref "\\|^" regexp-quote "$" paragraph-start paragraph-separate] 7 "\
  41. Get the current fill prefix.
  42. A valid fill prefix must be between the beginning of the line and point."])
  43. (fset 'replace-letter #[(str old-letter new-letter) "└ë┴\nG W½£\n ëTO
  44. ÿ½ä¬ü
  45. P Të¬`,ç" [nil 0 str size sp c new-str old-letter new-letter] 5])
  46.