Browse Source

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 years ago
parent
commit
d48a1e49e2
1 changed files with 2 additions and 1 deletions
  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)
 	(setq file (nth 1 it)
 	      re (nth 2 it)
 	      re (nth 2 it)
 	      pos (nth 3 it))
 	      pos (nth 3 it))
-	(if (and (equal (buffer-file-name) file)
+	(if (and (not goto)
+		 (equal (buffer-file-name) file)
 		 (if regionp
 		 (if regionp
 		     (and (>= pos region-start)
 		     (and (>= pos region-start)
 			  (<= pos region-end))
 			  (<= pos region-end))