Просмотр исходного кода

Fix commit 41882a99

Thanks to Tassilo Horn for reporting this.
Bastien Guerry 13 лет назад
Родитель
Сommit
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)
   (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.