Browse Source

org.el: Ensure `org-drawers' doesn't contain duplicates.

* org.el (org-set-regexps-and-options): Ensure `org-drawers'
doesn't contain duplicates.

Thanks to Achim Gratz for spotting this problem.
Bastien Guerry 13 năm trước cách đây
mục cha
commit
9706566dbd
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el

@@ -4547,7 +4547,7 @@ but the stars and the body are.")
 			      (mapcar (lambda (x) (org-split-string x ":"))
 				      (org-split-string value)))))))
 	     ((equal key "DRAWERS")
-	      (setq drawers (append org-drawers (org-split-string value splitre))))
+	      (setq drawers (delete-dups (append org-drawers (org-split-string value splitre)))))
 	     ((equal key "CONSTANTS")
 	      (setq const (append const (org-split-string value splitre))))
 	     ((equal key "STARTUP")