mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-22 07:48:35 +00:00
Code Releases Activity

fix bug in property list updates

Browse source 
* lisp/org.el (org-update-property-plist): Fix bug in property list
  updates.
This commit is contained in:
Eric Schulte 2012-01-11 10:14:24 -07:00
parent bebf66c652
commit 313b70e139
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/org.el
View file

@ -4446,11 +4446,12 @@ means to push this value onto the list in the variable.")
(defun org-update-property-plist (key val props)
"Update PROPS with KEY and VAL."
(let ((remainder (org-remove-if (lambda (p) (string= (car p) key)) props)))
(if (string= "+" (substring key (- (length key) 1)))
(let* ((key (substring key 0 (- (length key) 1)))
(previous (cdr (assoc key props))))
(cons (cons key (concat previous " " val)) remainder))
(let* ((appending (string= "+" (substring key (- (length key) 1))))
(key (if appending (substring key 0 (- (length key) 1)) key))
(remainder (org-remove-if (lambda (p) (string= (car p) key)) props))
(previous (cdr (assoc key props))))
(if appending
(cons (cons key (if previous (concat previous " " val) val)) remainder)
(cons (cons key val) remainder))))
(defconst org-block-regexp