|
@@ -7574,7 +7574,10 @@ search from."
|
|
(when pos (goto-char pos))
|
|
(when pos (goto-char pos))
|
|
;; Skip up to the topmost parent.
|
|
;; Skip up to the topmost parent.
|
|
(while (org-up-heading-safe))
|
|
(while (org-up-heading-safe))
|
|
- (ignore-errors (nth 4 (org-heading-components))))))
|
|
|
|
|
|
+ (ignore-errors
|
|
|
|
+ (replace-regexp-in-string
|
|
|
|
+ "^\\[[0-9]+/[0-9]+\\] *\\|^\\[%[0-9]+\\] *" ""
|
|
|
|
+ (nth 4 (org-heading-components)))))))
|
|
|
|
|
|
(defvar org-agenda-filtered-by-top-headline nil)
|
|
(defvar org-agenda-filtered-by-top-headline nil)
|
|
(defun org-agenda-filter-by-top-headline (strip)
|
|
(defun org-agenda-filter-by-top-headline (strip)
|