فهرست منبع

* org.el (org-set-property): Bugfix.

Bastien Guerry 14 سال پیش
والد
کامیت
3e33c9c37e
1فایلهای تغییر یافته به همراه4 افزوده شده و 3 حذف شده
  1. 4 3
      lisp/org.el

+ 4 - 3
lisp/org.el

@@ -7348,6 +7348,7 @@ After top level, it switches back to sibling level."
 		  (not (eobp)))
 		  (not (eobp)))
 	(funcall fun)))))
 	(funcall fun)))))
 
 
+(defvar org-property-end-re) ; silence byte-compiler
 (defun org-fixup-indentation (diff)
 (defun org-fixup-indentation (diff)
   "Change the indentation in the current entry by DIFF.
   "Change the indentation in the current entry by DIFF.
 However, if any line in the current entry has no indentation, or if it
 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."
 in the current file."
   (interactive (list nil nil))
   (interactive (list nil nil))
   (let* ((property (or property (org-read-property-name)))
   (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)
     (setq org-last-set-property property)
     ;; Possibly postprocess the inserted value:
     ;; 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)
     (unless (equal (org-entry-get nil property) value)
       (org-entry-put nil property value))))
       (org-entry-put nil property value))))