From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 11 May 2022 11:42:02 +0000 (+0200)
Subject: Don't try to toggle untogglable widgets in custom-toggle-hide-all-variables
X-Git-Tag: emacs-29.0.90~1910^2~811
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e275c1bf8d8fd5c276b9cfdbba9201c4e28d9b9;p=emacs.git

Don't try to toggle untogglable widgets in custom-toggle-hide-all-variables

* lisp/cus-edit.el (custom-toggle-hide-all-variables): Only toggle
the widgets that can be toggled.
---

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 0870bf6782f..f2202563456 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -2851,7 +2851,10 @@ try matching its doc string against `custom-guess-doc-alist'."
       (when-let* ((widget (widget-at (point)))
                   (parent (widget-get widget :parent))
                   (state (widget-get parent :custom-state)))
-        (when (eq state custom--hidden-state)
+        (when (eq state 'changed)
+          (setq state 'standard))
+        (when (and (eq (widget-type widget) 'custom-visibility)
+                   (eq state custom--hidden-state))
           (custom-toggle-hide-variable widget)))
       (forward-line 1)))
   (setq custom--hidden-state (if (eq custom--hidden-state 'hidden)