comparison lisp/allout.el @ 83301:b151ec53c504

Merged from [e-mail]--gnu-2005 (patch 68, 286-291) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-286 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-287 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-288 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-289 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-290 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-291 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/gnus--rel--5.10--patch-68 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-341

83300:6deb860255f3

Some arguments that would need to be quoted in `allout-expose-topic'
need not be quoted in `allout-new-exposure'.

Cursor is left at start position.

Use this instead of obsolete `allout-exposure'.

Examples:
\(allout-exposure (-1 () () () 1) 0)
	Close current topic at current level so only the immediate
	subtopics are shown, except also show the children of the
	third subtopic; and close the next topic at the current level.
\(allout-exposure : -1 0)
	Close all topics at current level to expose only their
	immediate children, except for the last topic at the current
	level, in which even its immediate children are hidden.
\(allout-exposure -2 : -1 *)
        Expose children and grandchildren of first topic at current
	level, and expose children of subsequent topics at current
	level *except* for the last, which should be opened completely."
  (list 'save-excursion
	'(if (not (or (allout-goto-prefix)
		      (allout-next-heading)))
	     (error "allout-new-exposure: Can't find any outline topics"))
	(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")

;;;_ #7 Systematic outline presentation - copying, printing, flattening

;;;_  - Mapping and processing of topics
;;;_   ( See also Subtree Charting, in Navigation code.)

83301:b151ec53c504

Some arguments that would need to be quoted in `allout-expose-topic'
need not be quoted in `allout-new-exposure'.

Cursor is left at start position.

Examples:
\(allout-new-exposure (-1 () () () 1) 0)
	Close current topic at current level so only the immediate
	subtopics are shown, except also show the children of the
	third subtopic; and close the next topic at the current level.
\(allout-new-exposure : -1 0)
	Close all topics at current level to expose only their
	immediate children, except for the last topic at the current
	level, in which even its immediate children are hidden.
\(allout-new-exposure -2 : -1 *)
        Expose children and grandchildren of first topic at current
	level, and expose children of subsequent topics at current
	level *except* for the last, which should be opened completely."
  (list 'save-excursion
	'(if (not (or (allout-goto-prefix)
		      (allout-next-heading)))
	     (error "allout-new-exposure: Can't find any outline topics"))
	(list 'allout-expose-topic (list 'quote spec))))

;;;_ #7 Systematic outline presentation - copying, printing, flattening

;;;_  - Mapping and processing of topics
;;;_   ( See also Subtree Charting, in Navigation code.)