From 8691cfa76d2d0038bb3e145073aa4a5264e29a84 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 24 Jun 1997 03:17:58 +0000 Subject: [PATCH] (custom-group-visibility): Widget type moved from wid-edit.el and renamed from group-visibility. (custom-group-visibility-create): Function renamed and moved from wid-edit.el. (custom-state-buffer-message): New function. (custom-mode): Add custom-state-buffer-message to widget-edit-hook. --- lisp/cus-edit.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index baa2e82a65a..bdf05f2b74b 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -2398,6 +2398,16 @@ and so forth. The remaining group tags are shown with (or (nth (1- (widget-get widget :custom-level)) custom-group-tag-faces) 'custom-group-tag-face)) +(define-widget 'custom-group-visibility 'visibility + "An indicator and manipulator for hidden group contents." + :create 'custom-group-visibility-create) + +(defun custom-group-visibility-create (widget) + (let ((visible (widget-value widget))) + (if visible + (insert "--------"))) + (widget-default-create widget)) + (defun custom-group-value-create (widget) "Insert a customize group for WIDGET in the current buffer." (let ((state (widget-get widget :custom-state)) @@ -2979,6 +2989,9 @@ The format is suitable for use with `easy-menu-define'." :type 'hook :group 'custom-buffer ) +(defun custom-state-buffer-message () + (message "To set the value, invoke [State] and choose the Set operation")) + (defun custom-mode () "Major mode for editing customization buffers. @@ -3002,6 +3015,8 @@ if that value is non-nil." (use-local-map custom-mode-map) (easy-menu-add custom-mode-menu) (make-local-variable 'custom-options) + (make-local-hook 'widget-edit-hook) + (add-hook 'widget-edit-hook 'custom-state-buffer-message nil t) (run-hooks 'custom-mode-hook)) ;;; The End. -- 2.39.2