[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org 337d805354 3/3: org-link-descriptive-ensure
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org 337d805354 3/3: org-link-descriptive-ensure: Small refactoring |
Date: |
Sat, 10 Dec 2022 04:57:54 -0500 (EST) |
branch: externals-release/org
commit 337d80535412dd10e63f6907a58eeb841cbda45e
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
org-link-descriptive-ensure: Small refactoring
* lisp/ol.el (org-link-descriptive-ensure): Compact the code.
Reported-by: T.V Raman <raman@google.com>
---
lisp/ol.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/ol.el b/lisp/ol.el
index cd52e9cf4d..3ae8f88755 100644
--- a/lisp/ol.el
+++ b/lisp/ol.el
@@ -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 ()