Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Was using assq where I needed assoc

  • Loading branch information...
commit 71b8ca6a76a2a77cf804c1ce9bf13fe3784dd03e 1 parent b62d7ee
@jwiegley authored
Showing with 4 additions and 4 deletions.
  1. +4 −4 lisp/org-x.el
View
8 lisp/org-x.el
@@ -452,7 +452,7 @@ the majority of dispatch API functions.")
(defun org-x-set-parent-property (entry name value)
(let* ((properties (org-x-parent-properties entry))
- (cell (assq name properties)))
+ (cell (assoc name properties)))
(if cell
(setcdr cell value)
(if properties
@@ -463,7 +463,7 @@ the majority of dispatch API functions.")
(defun org-x-set-property (entry name value &optional no-overwrite propagate)
(let* ((properties (org-x-properties entry))
- (cell (assq name properties)))
+ (cell (assoc name properties)))
(unless (and (cdr cell) no-overwrite)
(if cell
(setcdr cell value)
@@ -475,9 +475,9 @@ the majority of dispatch API functions.")
(org-x-propagate entry 'set-property (cons name value)))
value)
-(defun org-x-remove-property (entry name value &optional propagate)
+(defun org-x-remove-property (entry name &optional propagate)
(let* ((properties (assq 'properties entry))
- (cell (assq name (cdr properties))))
+ (cell (assoc name (cdr properties))))
(if cell
(setcdr properties (delq cell (cdr properties)))))
(if propagate
Please sign in to comment.
Something went wrong with that request. Please try again.