emacs-elpa-diffs
[Top][All Lists]
Advanced

[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 ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]