瀏覽代碼

Refile: Don't error for self-refile when only going to a place

Refiling checks if an entry is refiled to itself.  Of course, this
check is irrelevant when using refile to jump to a location.
Carsten Dominik 16 年之前
父節點
當前提交
d48a1e49e2
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org.el

+ 2 - 1
lisp/org.el

@@ -8137,7 +8137,8 @@ operation has put the subtree."
 	(setq file (nth 1 it)
 	      re (nth 2 it)
 	      pos (nth 3 it))
-	(if (and (equal (buffer-file-name) file)
+	(if (and (not goto)
+		 (equal (buffer-file-name) file)
 		 (if regionp
 		     (and (>= pos region-start)
 			  (<= pos region-end))