mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 19:07:52 +00:00
ol: Inserting help links ask for description again
* lisp/ol.el (org-store-link): Allow a store function to set :description to nil without falling back to link value. (org-link--store-help): Set :description to nil.
This commit is contained in:
parent
667cb6f1ae
commit
10e22f57f7
11
lisp/ol.el
11
lisp/ol.el
|
@ -1339,7 +1339,9 @@ PATH is a symbol name, as a string."
|
|||
;; function instead.
|
||||
(search-forward "runs the command " (line-end-position) t)
|
||||
(read (current-buffer)))))
|
||||
(org-link-store-props :type "help" :link (format "help:%s" symbol)))))
|
||||
(org-link-store-props :type "help"
|
||||
:link (format "help:%s" symbol)
|
||||
:description nil))))
|
||||
|
||||
(org-link-set-parameters "help"
|
||||
:follow #'org-link--open-help
|
||||
|
@ -1501,8 +1503,11 @@ non-nil."
|
|||
results-alist)))
|
||||
t))))
|
||||
(setq link (plist-get org-store-link-plist :link))
|
||||
(setq desc (or (plist-get org-store-link-plist :description)
|
||||
link)))
|
||||
;; If store function actually set `:description' property, use
|
||||
;; it, even if it is nil. Otherwise, fallback to link value.
|
||||
(setq desc (if (plist-member org-store-link-plist :description)
|
||||
(plist-get org-store-link-plist :description)
|
||||
link)))
|
||||
|
||||
;; Store a link from a remote editing buffer.
|
||||
((org-src-edit-buffer-p)
|
||||
|
|
Loading…
Reference in a new issue