Remove duplicate definition of `org-plist-delete'
* org.el (org-plist-delete): Remove duplicate definition. Patch by Julien Danjou.
This commit is contained in:
parent
8dc6733a2a
commit
a6255a6ab7
10
lisp/org.el
10
lisp/org.el
|
@ -17997,16 +17997,6 @@ With prefix arg UNCOMPILED, load the uncompiled versions."
|
||||||
(concat "\"" (mapconcat 'identity (split-string s "\"") "\"\"") "\"")
|
(concat "\"" (mapconcat 'identity (split-string s "\"") "\"\"") "\"")
|
||||||
s))
|
s))
|
||||||
|
|
||||||
(defun org-plist-delete (plist property)
|
|
||||||
"Delete PROPERTY from PLIST.
|
|
||||||
This is in contrast to merely setting it to 0."
|
|
||||||
(let (p)
|
|
||||||
(while plist
|
|
||||||
(if (not (eq property (car plist)))
|
|
||||||
(setq p (plist-put p (car plist) (nth 1 plist))))
|
|
||||||
(setq plist (cddr plist)))
|
|
||||||
p))
|
|
||||||
|
|
||||||
(defun org-force-self-insert (N)
|
(defun org-force-self-insert (N)
|
||||||
"Needed to enforce self-insert under remapping."
|
"Needed to enforce self-insert under remapping."
|
||||||
(interactive "p")
|
(interactive "p")
|
||||||
|
|
Loading…
Reference in New Issue