소스 검색

Tiny refactoring

* lisp/ox.el (org-export-with-drawers): Tiny refactoring.
Nicolas Goaziou 8 년 전
부모
커밋
750071accd
1개의 변경된 파일1개의 추가작업 그리고 5개의 파일을 삭제
  1. 1 5
      lisp/ox.el

+ 1 - 5
lisp/ox.el

@@ -437,11 +437,7 @@ e.g. \"d:nil\"."
 		(repeat :tag "Specify names of drawers to ignore during export"
 		(repeat :tag "Specify names of drawers to ignore during export"
 			:inline t
 			:inline t
 			(string :tag "Drawer name"))))
 			(string :tag "Drawer name"))))
-  :safe (lambda (x) (or (booleanp x)
-			(and (listp x)
-			     (or (cl-every #'stringp x)
-				 (and (eq (nth 0 x) 'not)
-				      (cl-every #'stringp (cdr x))))))))
+  :safe (lambda (x) (or (booleanp x) (consp x))))
 
 
 (defcustom org-export-with-email nil
 (defcustom org-export-with-email nil
   "Non-nil means insert author email into the exported file.
   "Non-nil means insert author email into the exported file.