aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2022-05-11 13:42:02 +0200
committerLars Ingebrigtsen2022-05-11 13:42:02 +0200
commit6e275c1bf8d8fd5c276b9cfdbba9201c4e28d9b9 (patch)
tree605fb8a52c84cef002ccd7c610ca76417313981f
parent231cf5ee2bed8a2b574ad424b624b36c0ee0733f (diff)
downloademacs-6e275c1bf8d8fd5c276b9cfdbba9201c4e28d9b9.tar.gz
emacs-6e275c1bf8d8fd5c276b9cfdbba9201c4e28d9b9.zip
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.
-rw-r--r--lisp/cus-edit.el5
1 files changed, 4 insertions, 1 deletions
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'."
2851 (when-let* ((widget (widget-at (point))) 2851 (when-let* ((widget (widget-at (point)))
2852 (parent (widget-get widget :parent)) 2852 (parent (widget-get widget :parent))
2853 (state (widget-get parent :custom-state))) 2853 (state (widget-get parent :custom-state)))
2854 (when (eq state custom--hidden-state) 2854 (when (eq state 'changed)
2855 (setq state 'standard))
2856 (when (and (eq (widget-type widget) 'custom-visibility)
2857 (eq state custom--hidden-state))
2855 (custom-toggle-hide-variable widget))) 2858 (custom-toggle-hide-variable widget)))
2856 (forward-line 1))) 2859 (forward-line 1)))
2857 (setq custom--hidden-state (if (eq custom--hidden-state 'hidden) 2860 (setq custom--hidden-state (if (eq custom--hidden-state 'hidden)