0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-12 08:39:56 +00:00

removed org-babel-alist-pop

This commit is contained in:
Eric Schulte 2009-06-27 13:12:30 -07:00
parent 50abb08479
commit 5621c105bf

View file

@ -404,13 +404,6 @@ non-nil."
(dotimes (n size)
(move-beginning-of-line 1) (insert ": ") (forward-line 1))))))
(defmacro org-babel-alist-pop (key alist)
"Return the `assoc' of KEY in ALIST, and remove all elements of
ALIST matching KEY with `assq-delete-all'."
`(let ((results (assoc ,key ,alist)))
(setq ,alist (assq-delete-all ,key ,alist))
results))
(defun org-babel-clean-text-properties (text)
"Strip all properties from text return."
(set-text-properties 0 (length text) nil text) text)