Remove `org-in-drawer-p'
* lisp/org.el (org-in-drawer-p): Remove function. The function is unused, and slightly wrong.
This commit is contained in:
parent
d18ea6e30a
commit
71610b19ff
|
@ -22237,15 +22237,6 @@ block from point."
|
|||
names))
|
||||
nil)))
|
||||
|
||||
(defun org-in-drawer-p ()
|
||||
"Non-nil if point is within a drawer.
|
||||
If point is within a drawer, return it, as parsed data."
|
||||
(let ((element (save-match-data (org-element-at-point))))
|
||||
(while (and element (not (memq (org-element-type element)
|
||||
'(drawer property-drawer))))
|
||||
(setq element (org-element-property :parent element)))
|
||||
element))
|
||||
|
||||
(defun org-occur-in-agenda-files (regexp &optional nlines)
|
||||
"Call `multi-occur' with buffers for all agenda files."
|
||||
(interactive "sOrg-files matching: \np")
|
||||
|
|
Loading…
Reference in New Issue