Преглед на файлове

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.