diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2011-10-06 10:53:31 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-10-06 10:53:31 +0200 |
commit | 5147f6b00856edc026f873feb3dbe500fde25741 (patch) | |
tree | 3296a734741d1460763237895cad42599474ebc1 | |
parent | 384c50238549aee95e9e3a8ac6b1a3e085e8d7e2 (diff) | |
download | org-mode-5147f6b00856edc026f873feb3dbe500fde25741.tar.gz |
Make org-open-at-point only ask once whether new header should be created
* lisp/org.el (org-open-at-point): Make org-open-at-point only ask once
about creating a new headline
When following "thisfile" links org-open-at-point is kind enough to
retry org-link-search again after widening the buffer it can't be
found. However org-link-search also asks the question "No match -
create this as a new heading? (y or n)" when target can't be
found. This means that the question is asked twice when following a
nonexistent link and answering no.
This is fixed by setting org-link-search-inhibit-query in first try,
so only second invocation asks the question.
TINYCHANGE
Patch by Anders Waldenborg
-rw-r--r-- | lisp/org.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index 28e2c9c..ef7b4da 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9527,7 +9527,8 @@ application the system uses for this file type." ((equal arg '(16)) ''org-occur) (t nil)) ,pos))) - (condition-case nil (eval cmd) + (condition-case nil (let ((org-link-search-inhibit-query t)) + (eval cmd)) (error (progn (widen) (eval cmd)))))) (t |