diff options
| author | Bastien Guerry <bzg@altern.org> | 2012-04-29 18:07:24 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2012-04-29 18:07:24 +0200 |
| commit | 491ce5491d13c8a6d1fa4b344300a6ae47e5b9e0 (patch) | |
| tree | 2fa6af6c00ca1e3f6d66ea257a645faf7c4bad1f | |
| parent | 9604f522fca586e6904a8c71a7abb3e4797e9c45 (diff) | |
| download | org-mode-491ce5491d13c8a6d1fa4b344300a6ae47e5b9e0.tar.gz | |
org.el (org-set-property): Minor enhancement.
* org.el (org-set-property): Perform the correct check against
`org-properties-postprocess-alist'.
Thanks to Bill Wishon for spotting this.
| -rw-r--r-- | lisp/org.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index 19d2aca..f54026c 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14716,10 +14716,10 @@ in the current file." (interactive (list nil nil)) (let* ((property (or property (org-read-property-name))) (value (or value (org-read-property-value property))) - (fn (assoc property org-properties-postprocess-alist))) + (fn (cadr (assoc property org-properties-postprocess-alist)))) (setq org-last-set-property property) ;; Possibly postprocess the inserted value: - (when fn (setq value (funcall (cadr fn) value))) + (when fn (setq value (funcall fn value))) (unless (equal (org-entry-get nil property) value) (org-entry-put nil property value)))) |