Mercurial > emacs
comparison lisp/allout.el @ 61969:38ca28ee68d6
(allout-exposure): Remove macro and obsolete declaration.
Remove references to allout-exposure/change to allout-new-exposure.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 01 May 2005 13:43:20 +0000 |
| parents | aac0a33f5772 |
| children | 6fb026ad601f b151ec53c504 08185296b491 |
comparison
equal
deleted
inserted
replaced
| 61968:549ae311547c | 61969:38ca28ee68d6 |
|---|---|
| 3973 Some arguments that would need to be quoted in `allout-expose-topic' | 3973 Some arguments that would need to be quoted in `allout-expose-topic' |
| 3974 need not be quoted in `allout-new-exposure'. | 3974 need not be quoted in `allout-new-exposure'. |
| 3975 | 3975 |
| 3976 Cursor is left at start position. | 3976 Cursor is left at start position. |
| 3977 | 3977 |
| 3978 Use this instead of obsolete `allout-exposure'. | |
| 3979 | |
| 3980 Examples: | 3978 Examples: |
| 3981 \(allout-exposure (-1 () () () 1) 0) | 3979 \(allout-new-exposure (-1 () () () 1) 0) |
| 3982 Close current topic at current level so only the immediate | 3980 Close current topic at current level so only the immediate |
| 3983 subtopics are shown, except also show the children of the | 3981 subtopics are shown, except also show the children of the |
| 3984 third subtopic; and close the next topic at the current level. | 3982 third subtopic; and close the next topic at the current level. |
| 3985 \(allout-exposure : -1 0) | 3983 \(allout-new-exposure : -1 0) |
| 3986 Close all topics at current level to expose only their | 3984 Close all topics at current level to expose only their |
| 3987 immediate children, except for the last topic at the current | 3985 immediate children, except for the last topic at the current |
| 3988 level, in which even its immediate children are hidden. | 3986 level, in which even its immediate children are hidden. |
| 3989 \(allout-exposure -2 : -1 *) | 3987 \(allout-new-exposure -2 : -1 *) |
| 3990 Expose children and grandchildren of first topic at current | 3988 Expose children and grandchildren of first topic at current |
| 3991 level, and expose children of subsequent topics at current | 3989 level, and expose children of subsequent topics at current |
| 3992 level *except* for the last, which should be opened completely." | 3990 level *except* for the last, which should be opened completely." |
| 3993 (list 'save-excursion | 3991 (list 'save-excursion |
| 3994 '(if (not (or (allout-goto-prefix) | 3992 '(if (not (or (allout-goto-prefix) |
| 3995 (allout-next-heading))) | 3993 (allout-next-heading))) |
| 3996 (error "allout-new-exposure: Can't find any outline topics")) | 3994 (error "allout-new-exposure: Can't find any outline topics")) |
| 3997 (list 'allout-expose-topic (list 'quote spec)))) | 3995 (list 'allout-expose-topic (list 'quote spec)))) |
| 3998 ;;;_ > allout-exposure '() | |
| 3999 (defmacro allout-exposure (&rest spec) | |
| 4000 "Literal frontend for `allout-old-expose-topic', doesn't evaluate arguments | |
| 4001 and retains start position." | |
| 4002 (list 'save-excursion | |
| 4003 '(if (not (or (allout-goto-prefix) | |
| 4004 (allout-next-heading))) | |
| 4005 (error "Can't find any outline topics")) | |
| 4006 (cons 'allout-old-expose-topic | |
| 4007 (mapcar (function (lambda (x) (list 'quote x))) spec)))) | |
| 4008 (make-obsolete 'allout-exposure 'allout-new-exposure "19.23") | |
| 4009 | 3996 |
| 4010 ;;;_ #7 Systematic outline presentation - copying, printing, flattening | 3997 ;;;_ #7 Systematic outline presentation - copying, printing, flattening |
| 4011 | 3998 |
| 4012 ;;;_ - Mapping and processing of topics | 3999 ;;;_ - Mapping and processing of topics |
| 4013 ;;;_ ( See also Subtree Charting, in Navigation code.) | 4000 ;;;_ ( See also Subtree Charting, in Navigation code.) |