DEL new function which turns out to be slower than the built-in
This commit is contained in:
parent
e58c668d90
commit
ecf6ebbab0
|
@ -506,27 +506,6 @@ Assume that point is at the beginning of a headline."
|
|||
"Return t if heading has parent for whom HEADING-TEST is t."
|
||||
(save-excursion (and (org-up-heading-safe) (funcall heading-test))))
|
||||
|
||||
(defun org-x-up-headline ()
|
||||
"Move point up to the next parent headline or `point-min' if none.
|
||||
Return point on success and nil on failure. Assume point is
|
||||
current at the start of a headline."
|
||||
(let ((cur-level (org-x-headline-get-level)))
|
||||
(if (= 1 cur-level)
|
||||
(beginning-of-buffer)
|
||||
(let ((target-level (1- cur-level))
|
||||
(stop nil))
|
||||
(while (and (not stop) (= 0 (forward-line -1)))
|
||||
(when (= ?* (following-char))
|
||||
(when (= (org-x-headline-get-level) target-level)
|
||||
(setq stop t)
|
||||
(beginning-of-line)
|
||||
(point))))))))
|
||||
|
||||
;; (defun org-x-headline-has-parent (heading-test)
|
||||
;; "Return t if heading has parent for whom HEADING-TEST is t."
|
||||
;; (save-excursion
|
||||
;; (and (org-x-up-headline) (funcall heading-test))))
|
||||
|
||||
(defun org-x-has-discontinuous-parent ()
|
||||
"Return t if heading has a non-todoitem parent which in turn has a todoitem parent."
|
||||
(let ((has-todoitem-parent)
|
||||
|
|
Loading…
Reference in New Issue