diff options
| author | Bastien Guerry <bzg@altern.org> | 2011-08-19 23:55:04 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2011-08-19 23:55:04 +0200 |
| commit | 3e33c9c37e265619b56a839ef41362d247565d39 (patch) | |
| tree | b8cebcbb6361cc0c44e5ef45c75b5f5d892f0b18 | |
| parent | cdbf7ed87682160ef947f00cc8430ec13b7ff2e4 (diff) | |
| download | org-mode-3e33c9c37e265619b56a839ef41362d247565d39.tar.gz | |
* org.el (org-set-property): Bugfix.
| -rw-r--r-- | lisp/org.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el index 4553045..de8c72b 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7348,6 +7348,7 @@ After top level, it switches back to sibling level." (not (eobp))) (funcall fun))))) +(defvar org-property-end-re) ; silence byte-compiler (defun org-fixup-indentation (diff) "Change the indentation in the current entry by DIFF. However, if any line in the current entry has no indentation, or if it @@ -14304,11 +14305,11 @@ xxx_ALL property) or on existing values in other instances of this property in the current file." (interactive (list nil nil)) (let* ((property (or property (org-read-property-name))) - (value (or value (org-read-property-value property)))) + (value (or value (org-read-property-value property))) + (fn (assoc property org-properties-postprocess-alist))) (setq org-last-set-property property) ;; Possibly postprocess the inserted value: - (when (assoc property org-properties-postprocess-alist) - (setq value (funcall (cadr fn) value))) + (when fn (setq value (funcall (cadr fn) value))) (unless (equal (org-entry-get nil property) value) (org-entry-put nil property value)))) |