mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-26 01:32:53 +00:00
org-link-descriptive-ensure: Small refactoring
* lisp/ol.el (org-link-descriptive-ensure): Compact the code. Reported-by: T.V Raman <raman@google.com>
This commit is contained in:
parent
0616b3c375
commit
337d805354
|
@ -1488,9 +1488,9 @@ If the link is in hidden text, expose it."
|
|||
|
||||
(defun org-link-descriptive-ensure ()
|
||||
"Toggle the literal or descriptive display of links in current buffer if needed."
|
||||
(if org-link-descriptive
|
||||
(org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) :visible nil)
|
||||
(org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) :visible t)))
|
||||
(org-fold-core-set-folding-spec-property
|
||||
(car org-link--link-folding-spec)
|
||||
:visible (not org-link-descriptive)))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-toggle-link-display ()
|
||||
|
|
Loading…
Reference in a new issue