瀏覽代碼

Fix commit 41882a99

Thanks to Tassilo Horn for reporting this.
Bastien Guerry 12 年之前
父節點
當前提交
5f47cb2b9f
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org-macs.el

+ 2 - 1
lisp/org-macs.el

@@ -263,7 +263,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.