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

[Nicolas Goaziou]

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)
    (save-excursion
      (org-back-to-heading t)
      (let* ((current-level (funcall outline-level))
             (level (if level (+ (prefix-numeric-value level) current-level)
                      (save-excursion
                        (outline-next-heading)
                        (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) 
nil)))))

Would you mind testing it?


Regards,