Function: org-create-dblock

org-create-dblock is a byte-compiled function defined in org.el.gz.

Signature

(org-create-dblock PLIST)

Documentation

Create a dynamic block section, with parameters taken from PLIST.

PLIST must contain a :name entry which is used as the name of the block.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defun org-create-dblock (plist)
  "Create a dynamic block section, with parameters taken from PLIST.
PLIST must contain a :name entry which is used as the name of the block."
  (when (string-match "\\S-" (buffer-substring (line-beginning-position)
                                              (line-end-position)))
    (end-of-line 1)
    (newline))
  (let ((col (current-column))
	(name (plist-get plist :name)))
    (insert "#+BEGIN: " name)
    (while plist
      (if (eq (car plist) :name)
	  (setq plist (cddr plist))
	(insert " " (prin1-to-string (pop plist)))))
    (insert "\n\n" (make-string col ?\ ) "#+END:\n")
    (forward-line -3)))