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

Don't use default-description if link description function is defined 

* org.el (org-insert-link): Don't use default-description if a
`org-make-link-description-function' is defined.
This commit is contained in:
David Maus 2011-11-01 06:24:42 +01:00
parent 8354fd9e0f
commit a9559dc08a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
View File

@ -9170,9 +9170,9 @@ Use TAB to complete link prefixes, then RET for type-specific completion support
(setq desc path)))) (setq desc path))))
(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)))
(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))