home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / paragrap.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  4.7 KB  |  67 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:45:00 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/paragrap.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. (defvar paragraph-ignore-fill-prefix nil "\
  14. Non-nil means the paragraph commands are not affected by fill-prefix.
  15. This is desirable in modes where blank lines are the paragraph delimiters.")
  16. (fset 'forward-paragraph #[(&optional arg) "¼é┴\n¡ì\n├Ü?¡ç ?¡â┼\n!ë½ë╚╔R¬é╩W½≥╦!¼è╠═`Se]╬#¼▄╧uê╩yêo¼ï╦!½à╧yê¬r╨ê½¢╩yêo¼æ╦!¼ï╦!½à╧yê¬io?¬å╠╨╬#½¢m¼ï╦!½à┴yê¬r`╥Zf╙=½ê╧yê¬âebêTë¬\n╩V½┐╩yêm?¡ä╦!┴yê¼s½öm¼ó╦!¼£╦!½û┴yê¬l╘╨╬#½å╩öbê¬âdbêSë¬=*╬ëç" [arg 1 fill-prefix "" paragraph-ignore-fill-prefix regexp-quote fill-prefix-regexp paragraph-separate "\\|^" "[     ]*$" 0 looking-at re-search-backward "^\n" t -1 nil paragraph-start 2 10 re-search-forward zmacs-region-stays] 5 "\
  17. Move forward to end of paragraph.
  18. With arg N, do it N times; negative arg -N means move forward N paragraphs.
  19.  
  20. A line which `paragraph-start' matches either separates paragraphs
  21. (if `paragraph-separate' matches it also) or is the first line of a paragraph.
  22. A paragraph end is the beginning of a line which is not part of the paragraph
  23. to which the end of the previous line belongs, or the end of the buffer." "p"])
  24. (fset 'backward-paragraph #[(&optional arg) "¼é┴┬[!ç" [arg 1 forward-paragraph] 2 "\
  25. Move backward to start of paragraph.
  26. With arg N, do it N times; negative arg -N means move forward N paragraphs.
  27.  
  28. A paragraph start is the beginning of a line which is a first-line-of-paragraph
  29. or which is ordinary text and follows a paragraph-separating line; except:
  30. if the first real line of a paragraph is preceded by a blank line,
  31. the paragraph starts at that blank line.
  32. See forward-paragraph for more information." "p"])
  33. (fset 'mark-paragraph #[nil "└┴!ê┬├─\"ê┼┴!ê╞ ç" [forward-paragraph 1 push-mark nil t backward-paragraph zmacs-activate-region] 3 "\
  34. Put point at beginning of this paragraph, mark at end.
  35. The paragraph marked is the one that contains point or follows point." nil])
  36. (fset 'kill-paragraph #[(arg) "└`┴\n!ê`\"ç" [kill-region forward-paragraph arg] 4 "\
  37. Kill forward to end of paragraph.
  38. With arg N, kill forward to Nth end of paragraph;
  39. negative arg -N means kill backward to Nth start of paragraph." "*p"])
  40. (fset 'backward-kill-paragraph #[(arg) "└`┴\n!ê`\"ç" [kill-region backward-paragraph arg] 4 "\
  41. Kill back to start of paragraph.
  42. With arg N, kill back to Nth start of paragraph;
  43. negative arg -N means kill forward to Nth end of paragraph." "*p"])
  44. (fset 'transpose-paragraphs #[(arg) "└┴\n\"ç" [transpose-subr forward-paragraph arg] 3 "\
  45. Interchange this (or next) paragraph with previous one." "*p"])
  46. (byte-code "└┴Mê┬├Mç" [start-of-paragraph-text #[nil "`└├─!ê`┼└wê`\nY¡Å    \nW¡è    bê    eV¡é╞ *ç" [nil npoint opoint forward-paragraph -1 "     \n" start-of-paragraph-text] 2] end-of-paragraph-text #[nil "`┴┬!êh├=½â─uê`X¡è┬uê`dW¡é┼ )ç" [opoint forward-paragraph 1 10 -1 end-of-paragraph-text] 2]] 2)
  47. (fset 'forward-sentence #[(&optional arg) "¼é┴┬W½óè├ ê`)┼╟P ╚#½ç┬òSbê¬â bê)Të¬Z┬V½óè╔ ê`)\n╦\n╚#½å╠═xê¬ä\nbê)Së¬Z╚ëç" [arg 1 0 start-of-paragraph-text par-beg re-search-backward sentence-end "[^     \n]" t end-of-paragraph-text par-end re-search-forward "     \n" nil zmacs-region-stays] 5 "\
  48. Move forward to next sentence-end.  With argument, repeat.
  49. With negative argument, move backward repeatedly to sentence-beginning.
  50.  
  51. The variable `sentence-end' is a regular expression that matches ends
  52. of sentences.  Also, every paragraph boundary terminates sentences as
  53. well." "p"])
  54. (fset 'backward-sentence #[(&optional arg) "¼é┴┬[!ç" [arg 1 forward-sentence] 2 "\
  55. Move backward to start of sentence.  With arg, do it arg times.
  56. See forward-sentence for more information." "p"])
  57. (fset 'kill-sentence #[(&optional arg) "`┴\n!ê├`\")ç" [beg forward-sentence arg kill-region] 3 "\
  58. Kill from point to end of sentence.
  59. With arg, repeat; negative arg -N means kill back to Nth start of sentence." "*p"])
  60. (fset 'backward-kill-sentence #[(&optional arg) "`┴\n!ê├`\")ç" [beg backward-sentence arg kill-region] 3 "\
  61. Kill back from point to start of sentence.
  62. With arg, repeat, or kill forward to Nth end of sentence if negative arg -N." "*p"])
  63. (fset 'mark-end-of-sentence #[(arg) "└è┴\n!ê`)!ê├ ç" [push-mark forward-sentence arg zmacs-activate-region] 3 "\
  64. Put mark at end of sentence.  Arg works as in forward-sentence." "p"])
  65. (fset 'transpose-sentences #[(arg) "└┴\n\"ç" [transpose-subr forward-sentence arg] 3 "\
  66. Interchange this (next) and previous sentence." "*p"])
  67.