From 794b70fdaaeb91ebdbfaccb9c555131ad4da812a Mon Sep 17 00:00:00 2001
From: Daniel Weschke <daniel.weschke@directbox.de>
Date: Thu, 4 Dec 2025 20:19:48 +0100
Subject: [PATCH] update my-org-toggle-elements

---
 lisp/my/my.el | 45 ++++++++++++++++++++++++---------------------
 1 file changed, 24 insertions(+), 21 deletions(-)

diff --git a/lisp/my/my.el b/lisp/my/my.el
index 8a9c921d..d988ce30 100644
--- a/lisp/my/my.el
+++ b/lisp/my/my.el
@@ -313,29 +313,32 @@ print it in the message buffer."
   ;; https://emacs.stackexchange.com/questions/7375/can-i-format-cells-in-an-org-mode-table-differently-depending-on-a-formula
   (require 'ov)
 
-  (setq my-org-latex-preview nil)
-  (defun my-org-toggle-elements ()
-    "Toggle hiding/showing of org emphasize markers."
+  (setq my-org-hide-elements nil)
+  (defun my-org-hide-elements ()
+    "Hide org elements."
     (interactive)
-    
-    (if org-hide-emphasis-markers
-        (set-variable 'org-hide-emphasis-markers nil)
-      (set-variable 'org-hide-emphasis-markers t))
-    (setq org-link-descriptive (not org-link-descriptive))
+    (setq org-hide-emphasis-markers t)
+    (setq org-link-descriptive t)
     (org-restart-font-lock)
-    
     (org-toggle-inline-images)
-
-    ;; (org-latex-preview)
-    (if my-org-latex-preview
-        ;; switch off
-        (let ()
-          (set-variable 'my-org-latex-preview nil)
-          (org-latex-preview '(64)))
-      ;; switch on
-      (set-variable 'my-org-latex-preview t)
-      (org-latex-preview '(16)))
-    
+    (org-latex-preview '(16))
+    (setq my-org-hide-elements t)
+    )
+  (defun my-org-show-elements ()
+    "Show org elements."
+    (interactive)
+    (setq org-hide-emphasis-markers nil)
+    (setq org-link-descriptive nil)
+    (org-restart-font-lock)
+    (org-toggle-inline-images)
+    (org-latex-preview '(64))
+    (setq my-org-hide-elements nil)
+    )
+  (defun my-org-toggle-elements ()
+    "Toggle hiding/showing org elements."
+    (interactive)
+    (if my-org-hide-elements (my-org-hide-elements) (my-org-show-elements))
+    (setq my-org-hide-elements (not my-org-hide-elements))
     ;; (org-mode-restart)
     )
   (define-key org-mode-map (kbd "C-c C-x C-e") 'my-org-toggle-elements)
@@ -410,7 +413,7 @@ Used in `my-org-table-list-of-range-to-list'"
           (setq from-column (string-to-number (match-string 2 desc)))  ;; 2nd parentheses match from string-match
           (setq to-row (string-to-number (match-string 3 desc)))  ;; 3rd parentheses match from string-match
           (setq to-column (string-to-number (match-string 4 desc)))  ;; 4th parentheses match from string-match
-          (loop for i upfrom to-row downto from-row   ;; push prepends
+          (cl-loop for i upfrom to-row downto from-row   ;; push prepends
                 do
                 (cl-loop for j upfrom to-column downto from-column
                          do