[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] [bug] canonical context not work in 8.3

From: Nicolas Goaziou
Subject: Re: [O] [bug] canonical context not work in 8.3
Date: Sat, 08 Aug 2015 11:19:46 +0200

Correcting myself,

> I think it is as good as it can get. You probably have an awful lot of
> children to display.

This one may improve the situation:

  (defun show-children (&optional level)
      (org-back-to-heading t)
      (let* ((current-level (funcall outline-level))
             (level (if level (+ (prefix-numeric-value level) current-level)
                        (if (eobp) current-level (funcall outline-level)))))
             (re (format "^\\*\\{%d,%d\\} +" current-level level))
             (end (save-excursion (org-end-of-subtree t t))))
        (while (re-search-forward re end t)
          (outline-flag-region (line-end-position 0) (line-end-position) 

Would you mind testing it?


reply via email to

[Prev in Thread] Current Thread [Next in Thread]