Function: org-remove-empty-drawer-at

org-remove-empty-drawer-at is a byte-compiled function defined in org.el.gz.

Signature

(org-remove-empty-drawer-at POS)

Documentation

Remove an empty drawer at position POS.

POS may also be a marker.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defun org-remove-empty-drawer-at (pos)
  "Remove an empty drawer at position POS.
POS may also be a marker."
  (with-current-buffer (if (markerp pos) (marker-buffer pos) (current-buffer))
    (org-with-wide-buffer
     (goto-char pos)
     (let ((drawer (org-element-at-point)))
       (when (and (memq (org-element-type drawer) '(drawer property-drawer))
		  (not (org-element-property :contents-begin drawer)))
	 (delete-region (org-element-property :begin drawer)
			(progn (goto-char (org-element-property :end drawer))
			       (skip-chars-backward " \r\t\n")
			       (forward-line)
			       (point))))))))