diff options
| author | Lars Ingebrigtsen | 2022-05-11 13:42:02 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-05-11 13:42:02 +0200 |
| commit | 6e275c1bf8d8fd5c276b9cfdbba9201c4e28d9b9 (patch) | |
| tree | 605fb8a52c84cef002ccd7c610ca76417313981f | |
| parent | 231cf5ee2bed8a2b574ad424b624b36c0ee0733f (diff) | |
| download | emacs-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.el | 5 |
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) |