瀏覽代碼

Merge branch 'maint'

Nicolas Goaziou 8 年之前
父節點
當前提交
4b3bdd019e
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org.el

+ 2 - 1
lisp/org.el

@@ -11937,7 +11937,8 @@ prefix argument (`C-u C-u C-u C-c C-w')."
 				     (replace-regexp-in-string
 				      org-bracket-link-regexp
 				      "\\3"
-				      (nth 4 (org-heading-components)))))
+				      (or (nth 4 (org-heading-components))
+					  ""))))
 			     (org-refile-get-location
 			      (cond ((and arg (listp arg)) "Goto")
 				    (regionp (concat actionmsg " region to"))