Browse Source

Merge branch 'maint'

Bastien Guerry 12 years ago
parent
commit
72cc2e99d8
1 changed files with 2 additions and 1 deletions
  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)
   (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.