tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Improve refile history to contain exact matches only

Browse source 
This was a proposal by Samuel Wales.  After the user selected a
refiles target, we make sure that the fully qualified target is in the
history, so that next time, UP will bring back exactly this target.
This commit is contained in:
Carsten Dominik 2009-07-20 09:01:33 +02:00
parent 8530298b45
commit 809fcf9d78
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2009-07-20 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-refile-get-location): Tamper with refile history o
that history contains compete matches instead of the entered
string.
2009-07-19 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-store-link): Never store a link to an inline task.

6
lisp/org.el
View file

@ -6936,7 +6936,7 @@ For file links, arg negates `org-context-in-file-links'."
(interactive "P")
(org-load-modules-maybe)
(setq org-store-link-plist nil) ; reset
(let ((outline-regexp org-get-limited-outline-regexp)
(let ((outline-regexp (org-get-limited-outline-regexp))
link cpltxt desc description search txt custom-id)
(cond
@ -8542,7 +8542,9 @@ See also `org-refile-use-outline-path' and `org-completion-use-ido'"
nil 'org-refile-history))
(setq pa (or (assoc answ tbl) (assoc (concat answ "/") tbl)))
(if pa
pa
(progn
(setcar org-refile-history (car pa))
pa)
(when (string-match "\\`\\(.*\\)/\\([^/]+\\)\\'" answ)
(setq parent (match-string 1 answ)
child (match-string 2 answ))