Mercurial > emacs
changeset 18430:a8ae9c653696
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 24 Jun 1997 03:17:58 +0000 |
| parents | 8326843eefd9 |
| children | 8208c168c5cc |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Tue Jun 24 03:17:34 1997 +0000 +++ b/lisp/cus-edit.el Tue Jun 24 03:17:58 1997 +0000 @@ -2398,6 +2398,16 @@ (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 @@ :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 @@ (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.