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

org: Enhance non-interactive calls to `org-insert-link` 

* org.el (org-insert-link): When called non-interactivily,
don't allow to edit the default description.
This commit is contained in:
Bastien 2017-12-29 18:43:40 +01:00
parent 29dd9a6605
commit 199908ba62
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -9905,7 +9905,8 @@ If the DEFAULT-DESCRIPTION parameter is non-nil, this value will
be used as the default description. Otherwise, if
`org-make-link-description-function' is non-nil, this function
will be called with the link target, and the result will be the
default link description."
default link description. When called non-interactivily, don't
allow to edit the default description."
(interactive "P")
(let* ((wcf (current-window-configuration))
(origbuf (current-buffer))
@ -10059,7 +10060,9 @@ Use TAB to complete link prefixes, then RET for type-specific completion support
(symbol-name org-make-link-description-function))
(sit-for 2)
nil))))))
(setq desc (read-string "Description: " initial-input))))
(setq desc (if (called-interactively-p 'any)
(read-string "Description: " initial-input)
initial-input))))
(unless (string-match "\\S-" desc) (setq desc nil))
(when remove (apply 'delete-region remove))