ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor refile fixes

This commit is contained in:
Carsten Dominik 2009-08-04 18:37:57 +02:00
parent 22cb84f74d
commit 064c7976cf
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/org.el
View File

@ -8582,7 +8582,10 @@ See also `org-refile-use-outline-path' and `org-completion-use-ido'"
(region-length (and regionp (- region-end region-start))) (region-length (and regionp (- region-end region-start)))
(filename (buffer-file-name (buffer-base-buffer cbuf))) (filename (buffer-file-name (buffer-base-buffer cbuf)))
pos it nbuf file re level reversed) pos it nbuf file re level reversed)
(when regionp (goto-char region-start) (when regionp
(goto-char region-start)
(or (bolp) (goto-char (point-at-bol)))
(setq region-start (point))
(unless (org-kill-is-subtree-p (unless (org-kill-is-subtree-p
(buffer-substring region-start region-end)) (buffer-substring region-start region-end))
(error "The region is not a (sequence of) subtree(s)"))) (error "The region is not a (sequence of) subtree(s)")))
@ -8689,13 +8692,22 @@ See also `org-refile-use-outline-path' and `org-completion-use-ido'"
(cons (concat (car x) extra) (cdr x)))) (cons (concat (car x) extra) (cdr x))))
org-refile-target-table)) org-refile-target-table))
(completion-ignore-case t) (completion-ignore-case t)
pa answ parent-target child parent) pa answ parent-target child parent old-hist)
(setq old-hist org-refile-history)
(setq answ (funcall cfunc prompt tbl nil (not new-nodes) (setq answ (funcall cfunc prompt tbl nil (not new-nodes)
nil 'org-refile-history)) nil 'org-refile-history))
(setq pa (or (assoc answ tbl) (assoc (concat answ "/") tbl))) (setq pa (or (assoc answ tbl) (assoc (concat answ "/") tbl)))
(if pa (if pa
(progn (progn
(setcar org-refile-history (car pa)) (when (or (not org-refile-history)
(not (eq old-hist org-refile-history))
(not (equal (car pa) (car org-refile-history))))
(setq org-refile-history
(cons (car pa) (if (assoc (car org-refile-history) tbl)
org-refile-history
(cdr org-refile-history))))
(if (equal (car org-refile-history) (nth 1 org-refile-history))
(pop org-refile-history)))
pa) pa)
(when (string-match "\\`\\(.*\\)/\\([^/]+\\)\\'" answ) (when (string-match "\\`\\(.*\\)/\\([^/]+\\)\\'" answ)
(setq parent (match-string 1 answ) (setq parent (match-string 1 answ)