comparison lisp/cus-edit.el @ 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.

18429:8326843eefd9

(defun custom-group-sample-face-get (widget)
  ;; Use :sample-face.
  (or (nth (1- (widget-get widget :custom-level)) custom-group-tag-faces)
      'custom-group-tag-face))

(defun custom-group-value-create (widget)
  "Insert a customize group for WIDGET in the current buffer."
  (let ((state (widget-get widget :custom-state))
	(level (widget-get widget :custom-level))

(defcustom custom-mode-hook nil
  "Hook called when entering custom-mode."
  :type 'hook
  :group 'custom-buffer )

(defun custom-mode ()
  "Major mode for editing customization buffers.

The following commands are available:

  (setq major-mode 'custom-mode
	mode-name "Custom")
  (use-local-map custom-mode-map)
  (easy-menu-add custom-mode-menu)
  (make-local-variable 'custom-options)
  (run-hooks 'custom-mode-hook))

;;; The End.

(provide 'cus-edit)

18430:a8ae9c653696

(defun custom-group-sample-face-get (widget)
  ;; Use :sample-face.
  (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))
	(level (widget-get widget :custom-level))

(defcustom custom-mode-hook nil
  "Hook called when entering custom-mode."
  :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.

The following commands are available:

  (setq major-mode 'custom-mode
	mode-name "Custom")
  (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.

(provide 'cus-edit)