home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / modes / outline.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  10.0 KB  |  134 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:32:33 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/modes/outline.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 outline-regexp "[* ]+" "\
  14. *Regular expression to match the beginning of a heading.
  15. Any line whose beginning matches this regexp is considered to start a heading.
  16. The recommended way to set this is with a Local Variables: list
  17. in the file it applies to.  See also outline-heading-end-regexp.")
  18. (defvar outline-heading-end-regexp "[\n^M]" "\
  19. *Regular expression to match the end of a heading line.
  20. You can assume that point is at the beginning of a heading
  21. when this regexp is searched for.  The heading ends at the end of the match.
  22. The recommended way to set this is with a Local Variables: list
  23. in the file it applies to.")
  24. (defvar outline-mode-map nil "\
  25. ")
  26. (byte-code "¼╕┴ ┬ \"ê─┼╞#ê─╟╚#ê─╔╩#ê─╦╠#ê─═╬#ê─╧╨#ê─╤╥#ê─╙╘#ê┴ç" [outline-mode-map make-sparse-keymap set-keymap-parent text-mode-map define-key "" outline-next-visible-heading "" outline-previous-visible-heading "    " show-children "" show-subtree "" hide-subtree "" outline-up-heading "" outline-forward-same-level "" outline-backward-same-level] 4)
  27. (defvar outline-minor-mode nil "\
  28. Non-nil if using Outline mode as a minor mode of some other mode.")
  29. (byte-code "└    ┬C\"└ç" [append minor-mode-alist (outline-minor-mode " Outl")] 3)
  30. (fset 'outline-mode #[nil "└ ê┴├ !ê┼╟╔╩╦\"ê\n ═!ê╧╨!ê╤╙R╧╘!ê╧╒!ê╤╙R╓╫╪\"ç" [kill-all-local-variables t selective-display use-local-map outline-mode-map "Outline" mode-name outline-mode major-mode define-abbrev-table text-mode-abbrev-table nil local-abbrev-table set-syntax-table text-mode-syntax-table make-local-variable paragraph-start "\\|^\\(" outline-regexp "\\)" auto-fill-inhibit-regexp paragraph-separate run-hooks text-mode-hook outline-mode-hook] 4 "\
  31. Set major mode for editing outlines with selective display.
  32. Headings are lines which start with asterisks: one for major headings,
  33. two for subheadings, etc.  Lines not starting with asterisks are body lines. 
  34.  
  35. Body text or subheadings under a heading can be made temporarily
  36. invisible, or visible again.  Invisible lines are attached to the end 
  37. of the heading, so they move with it, if the line is killed and yanked
  38. back.  A heading with text hidden under it is marked with an ellipsis (...).
  39.  
  40. Commands:
  41. C-c C-n   outline-next-visible-heading      move by visible headings
  42. C-c C-p   outline-previous-visible-heading
  43. C-c C-f   outline-forward-same-level        similar but skip subheadings
  44. C-c C-b   outline-backward-same-level
  45. C-c C-u   outline-up-heading            move from subheading to heading
  46.  
  47. Meta-x hide-body    make all text invisible (not headings).
  48. Meta-x show-all        make everything in buffer visible.
  49.  
  50. The remaining commands are used when point is on a heading line.
  51. They apply to some of the body or subheadings of that heading.
  52. C-c C-h   hide-subtree    make body and subheadings invisible.
  53. C-c C-s   show-subtree    make body and subheadings visible.
  54. C-c C-i   show-children    make direct subheadings visible.
  55.          No effect on body, or subheadings 2 or more levels down.
  56.          With arg N, affects subheadings N levels down.
  57. M-x hide-entry       make immediately following body invisible.
  58. M-x show-entry       make it visible.
  59. M-x hide-leaves       make body under heading and under its subheadings invisible.
  60.              The subheadings remain visible.
  61. M-x show-branches  make all subheadings at all levels visible.
  62.  
  63. The variable outline-regexp can be changed to control what is a heading.
  64. A line is a heading if outline-regexp matches something at the
  65. beginning of the line.  The longer the match, the deeper the level.
  66.  
  67. Turning on outline mode calls the value of text-mode-hook and then of
  68. outline-mode-hook, if they are non-nil." nil])
  69. (fset 'outline-minor-mode #[(arg) "¼ä    ?¬à┬!├Vë½│─╞╟!ê╚ ╔!\n╦\n╠═╠\"#ê╧\n!ê)╞╨!ê╤╞╥!ê╙╘╒!ç╓╧!ç" [arg outline-minor-mode prefix-numeric-value 0 t selective-display make-local-variable outline-old-map current-local-map copy-keymap new-map define-key "" lookup-key outline-mode-map use-local-map outline-regexp "[     ]*/\\*" outline-heading-end-regexp "\\*/[^\n
  70. ]*[\n
  71. ]" run-hooks outline-minor-mode-hook nil] 7 nil "P"])
  72. (fset 'outline-level #[nil "è└    !êè┬òbêi*ç" [looking-at outline-regexp 0] 2 "\
  73. Return the depth to which a statement is nested in the outline.
  74. Point must be at the beginning of a header line.
  75. This is actually the column-number of the end of what outline-regexp matches."])
  76. (fset 'outline-next-preface #[nil "└┴\n├Q─┼#½ä╞öbêh╟>¡é╚uç" [re-search-forward "[\n
  77. ]\\(" outline-regexp "\\)" nil move 0 (10 13) -1] 4 "\
  78. Skip forward to just before the next heading line."])
  79. (fset 'outline-next-heading #[nil "└┴\n├Q─┼#¡ä╞öTbç" [re-search-forward "[\n
  80. ]\\(" outline-regexp "\\)" nil move 0] 4 "\
  81. Move to the next (possibly invisible) heading line." nil])
  82. (fset 'outline-back-to-heading #[nil "└yê┴ «ê┬├ ┼Q╞╟#ç" [0 outline-on-heading-p re-search-backward "^\\(" outline-regexp "\\)" nil move] 4 "\
  83. Move to previous (possibly invisible) heading line,
  84. or to beginning of this line if it is a heading line."])
  85. (fset 'outline-on-heading-p #[nil "è└yêh┴=¡â┬ !)ç" [0 10 looking-at outline-regexp] 2 "\
  86. Return T if point is on a header line."])
  87. (fset 'outline-end-of-heading #[nil "└    ┬├#¡é─uç" [re-search-forward outline-heading-end-regexp nil move -1] 4])
  88. (fset 'outline-next-visible-heading #[(arg) "┴W½à┴yê¬â┬ê├─
  89. ╞Q┬ë$ê┴yê┬ç" [arg 0 nil re-search-forward "^\\(" outline-regexp "\\)"] 5 "\
  90. Move to the next visible heading line.
  91. With argument, repeats or can move backward if negative.
  92. A heading line is one that starts with a `*' (or that outline-regexp matches)." "p"])
  93. (fset 'outline-previous-visible-heading #[(arg) "└    [!ç" [outline-next-visible-heading arg] 2 "\
  94. Move to the previous heading line.
  95. With argument, repeats or can move forward if negative.
  96. A heading line is one that starts with a `*' (or that outline-regexp matches)." "p"])
  97. (fset 'outline-flag-region #[(from to flag) "└ ┬Ä├
  98. ╟U½â╚¬ü╟$*ç" [buffer-modified-p modp ((set-buffer-modified-p modp)) subst-char-in-region from to flag 10 13] 5 "\
  99. Hides or shows lines from FROM to TO, according to FLAG.
  100. If FLAG is `\\n' (newline character) then text is shown,
  101. while if FLAG is `\\^M' (control-M) the text is hidden."])
  102. (fset 'hide-entry #[nil "└ ê┴ êè┬`├ ê`─#)ç" [outline-back-to-heading outline-end-of-heading outline-flag-region outline-next-preface 13] 4 "\
  103. Hide the body directly following this heading." nil])
  104. (fset 'show-entry #[nil "è└`┴ ê`┬#)ç" [outline-flag-region outline-next-preface 10] 4 "\
  105. Show the body directly following this heading." nil])
  106. (fset 'hide-body #[nil "└ed\"ç" [hide-region-body] 3 "\
  107. Hide all of buffer except headings." nil])
  108. (fset 'hide-region-body #[(start end) "èî    }êebê┬ ½â├ êm?¡£─`┼ ê`╞#êm¼p╟╚!½â╔¬ü╩uê├ ê¬`*ç" [start end outline-on-heading-p outline-end-of-heading outline-flag-region outline-next-preface 13 looking-at "[\n
  109. ][\n
  110. ]" 2 1] 4 "\
  111. Hide all body lines in the region, but not headings."])
  112. (fset 'show-all #[nil "└ed┴#ç" [outline-flag-region 10] 4 "\
  113. Show all of the text in the buffer." nil])
  114. (fset 'hide-subtree #[nil "└┴!ç" [outline-flag-subtree 13] 2 "\
  115. Hide everything after this heading at deeper levels." nil])
  116. (fset 'hide-leaves #[nil "└ ê┴ ê┬`├ ê`\"ç" [outline-back-to-heading outline-end-of-heading hide-region-body outline-end-of-subtree] 3 "\
  117. Hide all body after this heading at deeper levels." nil])
  118. (fset 'show-subtree #[nil "└┴!ç" [outline-flag-subtree 10] 2 "\
  119. Show everything after this heading at deeper levels." nil])
  120. (byte-code "└┴Mê┬├Mç" [outline-flag-subtree #[(flag) "è└ ê┴ ê┬`├ ê` #)ç" [outline-back-to-heading outline-end-of-heading outline-flag-region outline-end-of-subtree flag] 4] outline-end-of-subtree #[nil "└ ê`┴┬ m¼É ¼å┬  V½ç╞╟ ê¬m╚uêh╔>¡é╚u+ç" [outline-back-to-heading t outline-level level first opoint nil outline-next-heading -1 (10 13)] 3]] 2)
  121. (fset 'show-branches #[nil "└┴!ç" [show-children 1000] 2 "\
  122. Show all subheadings of this heading, but not their bodies." nil])
  123. (fset 'show-children #[(&optional level) "½à┴!¬æè┬yê├ ┼ ê╞├  Z]*èî┬yê├ \\`╟ ê`T}êebêm?¡º┼ êm?¡á├ X½oè╚è╔uêh╩>½â╔uê`)╦ ê`╠#ê)¬U*ç" [level prefix-numeric-value 0 outline-level start-level outline-next-heading 1 outline-end-of-subtree outline-flag-region -1 (10 13) outline-end-of-heading 10] 4 "\
  124. Show all direct subheadings of this heading.
  125. Prefix arg LEVEL is how many levels below the current level should be shown.
  126. Default is enough to cause the following heading to appear." "P"])
  127. (fset 'outline-up-heading #[(arg) "└ ê┴ ┬=½ä├─!ê┴ ┬V¡í
  128. ╞V¡£o?¡ÿ┴ ┴ W¼å╚┬!ê¬s
  129. ┬Z)¬Yç" [outline-back-to-heading outline-level 1 error "" arg 0 present-level outline-previous-visible-heading] 2 "\
  130. Move to the heading line of which the present line is a subheading.
  131. With argument, move up ARG levels." "p"])
  132. (fset 'outline-forward-same-level #[(arg) "└ ê    ┬V¡Öè├ )ë½ê bê    S¬å┬┼╞!ê)¬bç" [outline-back-to-heading arg 0 outline-get-next-sibling point-to-move-to error ""] 3 "\
  133. Move forward to the ARG'th subheading from here of the same level as the
  134. present one. It stops at the first and last subheadings of a superior heading." "p"])
  135. (fset 'outline-get-next-sibling #[nil "└ ┬├!ê└     V½ëm¼å┬├!ê¬q└     W?¡ü`)ç" [outline-level level outline-next-visible-heading 1] 2 "\
  136. Position the point at the next heading of the same level, 
  137. and return that position or nil if it cannot be found."])
  138. (fset 'outline-backward-same-level #[(arg) "└ ê    ┬V¡Öè├ )ë½ê bê    S¬å┬┼╞!ê)¬bç" [outline-back-to-heading arg 0 outline-get-last-sibling point-to-move-to error ""] 3 "\
  139. Move backward to the ARG'th subheading from here of the same level as the
  140. present one. It stops at the first and last subheadings of a superior heading." "p"])
  141. (fset 'outline-get-last-sibling #[nil "└ ┬├!ê└     V½ëo¼å┬├!ê¬q└     W?¡ü`)ç" [outline-level level outline-previous-visible-heading 1] 2 "\
  142. Position the point at the previous heading of the same level, 
  143. and return that position or nil if it cannot be found."])
  144.