Browse Source

Remove `org-in-drawer-p'

* lisp/org.el (org-in-drawer-p): Remove function.

The function is unused, and slightly wrong.
Nicolas Goaziou 10 years ago
parent
commit
71610b19ff
1 changed files with 0 additions and 9 deletions
  1. 0 9
      lisp/org.el

+ 0 - 9
lisp/org.el

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