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:
Nicolas Goaziou 2015-01-17 23:42:00 +01:00
parent d18ea6e30a
commit 71610b19ff
1 changed files with 0 additions and 9 deletions

View File

@ -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")