Browse Source

Fix commit 41882a99

Thanks to Tassilo Horn for reporting this.
Bastien Guerry 12 years ago
parent
commit
5f47cb2b9f
1 changed files with 2 additions and 1 deletions
  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)
   (cond ((eq key t) t)
 	((eq option t) t)
 	((eq option t) t)
 	((assoc key option) (cdr (assoc key option)))
 	((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)
 (defsubst org-check-external-command (cmd &optional use no-error)
   "Check if external program CMD for USE exists, error if not.
   "Check if external program CMD for USE exists, error if not.