소스 검색

Merge branch 'maint'

Bastien Guerry 12 년 전
부모
커밋
72cc2e99d8
1개의 변경된 파일2개의 추가작업 그리고 1개의 파일을 삭제
  1. 2 1
      lisp/org-macs.el

+ 2 - 1
lisp/org-macs.el

@@ -221,7 +221,8 @@ in `org-rm-props'."
   (cond ((eq key t) t)
 	((eq option t) t)
 	((assoc key option) (cdr (assoc key option)))
-	(t (delq nil (cdr (assq 'default option))))))
+	(t (let ((r (cdr (assq 'default option))))
+	     (if (listp r) (delq nil r) r)))))
 
 (defsubst org-check-external-command (cmd &optional use no-error)
   "Check if external program CMD for USE exists, error if not.