diff options
author | Bastien Guerry <bzg@altern.org> | 2012-05-04 23:58:55 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-05-04 23:58:55 +0200 |
commit | e7dda77691403e3c2e748456825de9040184ccf4 (patch) | |
tree | fa22e85ac676a48e9e280a9ba9137c13b0d4ef18 | |
parent | 5412883c1d0af7f74ff5506d721f441a8d433eba (diff) | |
download | org-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.el | 5 |
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))) |