summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-05-04 23:58:55 +0200
committerBastien Guerry <bzg@altern.org>2012-05-04 23:58:55 +0200
commite7dda77691403e3c2e748456825de9040184ccf4 (patch)
treefa22e85ac676a48e9e280a9ba9137c13b0d4ef18
parent5412883c1d0af7f74ff5506d721f441a8d433eba (diff)
downloadorg-mode-e7dda77691403e3c2e748456825de9040184ccf4.tar.gz
Fix `org-set-property'.
* org.el (org-properties-postprocess-alist): Better customization type. (org-set-property): Fix the check against `org-properties-postprocess-alist'. Thanks to Bill Wishon for testing/spotting this.
-rw-r--r--lisp/org.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 8776664..f0c1035 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -3073,7 +3073,8 @@ and the clock summary:
(org-minutes-to-hh:mm-string (- effort clocksum))))))"
:group 'org-properties
:version "24.1"
- :type 'alist)
+ :type '(alist :key-type (string :tag "Property")
+ :value-type (function :tag "Function")))
(defcustom org-use-property-inheritance nil
"Non-nil means properties apply also for sublevels.
@@ -14714,7 +14715,7 @@ 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 (cadr (assoc property org-properties-postprocess-alist))))
+ (fn (cdr (assoc property org-properties-postprocess-alist))))
(setq org-last-set-property property)
;; Possibly postprocess the inserted value:
(when fn (setq value (funcall fn value)))