3975 |
|
|
3976 |
Cursor is left at start position. |
Cursor is left at start position. |
3977 |
|
|
|
Use this instead of obsolete `allout-exposure'. |
|
|
|
|
3978 |
Examples: |
Examples: |
3979 |
\(allout-exposure (-1 () () () 1) 0) |
\(allout-new-exposure (-1 () () () 1) 0) |
3980 |
Close current topic at current level so only the immediate |
Close current topic at current level so only the immediate |
3981 |
subtopics are shown, except also show the children of the |
subtopics are shown, except also show the children of the |
3982 |
third subtopic; and close the next topic at the current level. |
third subtopic; and close the next topic at the current level. |
3983 |
\(allout-exposure : -1 0) |
\(allout-new-exposure : -1 0) |
3984 |
Close all topics at current level to expose only their |
Close all topics at current level to expose only their |
3985 |
immediate children, except for the last topic at the current |
immediate children, except for the last topic at the current |
3986 |
level, in which even its immediate children are hidden. |
level, in which even its immediate children are hidden. |
3987 |
\(allout-exposure -2 : -1 *) |
\(allout-new-exposure -2 : -1 *) |
3988 |
Expose children and grandchildren of first topic at current |
Expose children and grandchildren of first topic at current |
3989 |
level, and expose children of subsequent topics at current |
level, and expose children of subsequent topics at current |
3990 |
level *except* for the last, which should be opened completely." |
level *except* for the last, which should be opened completely." |
3993 |
(allout-next-heading))) |
(allout-next-heading))) |
3994 |
(error "allout-new-exposure: Can't find any outline topics")) |
(error "allout-new-exposure: Can't find any outline topics")) |
3995 |
(list 'allout-expose-topic (list 'quote spec)))) |
(list 'allout-expose-topic (list 'quote spec)))) |
|
;;;_ > allout-exposure '() |
|
|
(defmacro allout-exposure (&rest spec) |
|
|
"Literal frontend for `allout-old-expose-topic', doesn't evaluate arguments |
|
|
and retains start position." |
|
|
(list 'save-excursion |
|
|
'(if (not (or (allout-goto-prefix) |
|
|
(allout-next-heading))) |
|
|
(error "Can't find any outline topics")) |
|
|
(cons 'allout-old-expose-topic |
|
|
(mapcar (function (lambda (x) (list 'quote x))) spec)))) |
|
|
(make-obsolete 'allout-exposure 'allout-new-exposure "19.23") |
|
3996 |
|
|
3997 |
;;;_ #7 Systematic outline presentation - copying, printing, flattening |
;;;_ #7 Systematic outline presentation - copying, printing, flattening |
3998 |
|
|