Quellcode durchsuchen

Merge branch 'maint'

Nicolas Goaziou vor 8 Jahren
Ursprung
Commit
1ddadefd37
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el

@@ -22680,7 +22680,7 @@ be set to a buffer or a buffer name.  `shell-command' then uses
 it for output."
   (let* ((base-name (file-name-base source))
 	 (full-name (file-truename source))
-	 (out-dir (file-name-directory source))
+	 (out-dir (or (file-name-directory source) "./"))
 	 (output (expand-file-name (concat base-name "." ext) out-dir))
 	 (time (current-time))
 	 (err-msg (if (stringp err-msg) (concat ".  " err-msg) "")))