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

Addition of default-description parameter to org-insert-link 

This patch, against the stable 7.7 branch version of org.el, adds a
default-description argument to org-insert-link that, if non-nil, will
become the default description.

- Yuri Lenskiy
This commit is contained in:
Yuri Lenskiy 2011-10-26 21:47:46 +00:00 committed by Bastien Guerry
parent a5cbe6a6cb
commit 6115980993
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org.el
View File

@ -8995,7 +8995,7 @@ This command can be called in any mode to insert a link in Org-mode syntax."
(org-load-modules-maybe) (org-load-modules-maybe)
(org-run-like-in-org-mode 'org-insert-link)) (org-run-like-in-org-mode 'org-insert-link))
(defun org-insert-link (&optional complete-file link-location) (defun org-insert-link (&optional complete-file link-location default-description)
"Insert a link. At the prompt, enter the link. "Insert a link. At the prompt, enter the link.
Completion can be used to insert any of the link protocol prefixes like Completion can be used to insert any of the link protocol prefixes like
@ -9031,7 +9031,10 @@ called with the link target, and the result will be the default
link description. link description.
If the LINK-LOCATION parameter is non-nil, this value will be If the LINK-LOCATION parameter is non-nil, this value will be
used as the link location instead of reading one interactively." used as the link location instead of reading one interactively.
If the DEFAULT-DESCRIPTION parameter is non-nil, this value will
be used as the default description."
(interactive "P") (interactive "P")
(let* ((wcf (current-window-configuration)) (let* ((wcf (current-window-configuration))
(region (if (org-region-active-p) (region (if (org-region-active-p)
@ -9161,6 +9164,7 @@ Use TAB to complete link prefixes, then RET for type-specific completion support
(if org-make-link-description-function (if org-make-link-description-function
(setq desc (funcall org-make-link-description-function link desc))) (setq desc (funcall org-make-link-description-function link desc)))
(if default-description (setq desc default-description))
(setq desc (read-string "Description: " desc)) (setq desc (read-string "Description: " desc))
(unless (string-match "\\S-" desc) (setq desc nil)) (unless (string-match "\\S-" desc) (setq desc nil))
(if remove (apply 'delete-region remove)) (if remove (apply 'delete-region remove))