/[emacs]/emacs/lisp/allout.el
ViewVC logotype

Diff of /emacs/lisp/allout.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.52 by kfstorm, Wed Feb 9 15:50:43 2005 UTC revision 1.53 by nickrob, Sun May 1 13:43:20 2005 UTC
# Line 3975  need not be quoted in `allout-new-exposu Line 3975  need not be quoted in `allout-new-exposu
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."
# Line 3995  Examples: Line 3993  Examples:
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    

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26